WINAK

Code: Select all

LOADB Naam,i
LOADX h#0000,i
CHARO ,X
ADDX h#0001,i
CHARO ,X
ADDX h#0001,i
....
CHARO ,X
ADDX h#0001,i
.END
Naam:.ASCII /Nickman/
STOP

Code: Select all

BR Main
A: .BLOCK d#2
B: .BLOCK d#2
R: .WORD d#0

Inc: .WORD h#FFFF

Main:	 DECI A, d
				DECI B, d
				BRGT doMult
				LOADA h#0001, i
				STOREA Inc, d
				LOADA A, d
				NOTA
				ADDA h#0001, i
				STOREA A, d

doMult: LOADA B, d
				BREQ endMult
				ADDA Inc, d
				STOREA B, d
				LOADA R, d
				ADDA A, d
				STOREA R, d
				BR doMult
				
endMult:DECO R, d
				STOP
.END

Code: Select all

; Oefening 1D

LOADA	name, i
CHARO	name, d
ADDA	 h#0001, i
STBYTA h#000E, d
CHARO  h#0000, d
ADDA 	h#0001, i
STBYTA h#0017, d
CHARO  h#0000, d
ADDA 	h#0001, i
STBYTA h#0020, d
CHARO  h#0000, d
STOP
name: .ASCII /Kurt/
.END

Code: Select all

BR Main
name: .ASCII /Kurt/
Main:	LOADB	name, i
			LOADX h#0000, i
			CHARO name, d	; OF: CHARO , x
			ADDX h#0001, i
			CHARO, x
			ADDX h#0001, i
			CHARO, x
			ADDX h#0001, i
			CHARO, x
			STOP
.END

Code: Select all

;
;	Een programma dat 2 positieve decimale getallen inleest en vermenigvuldigt
;
BR Main
A: .WORD d#0
B: .WORD d#0
Uitk: .WORD d#0
Main: DECI A,d	; getal A nvoeren
       DECI B,d		; getal B invoeren
       LOADA A,d
       SUBA d#0,i
       BREQ End
       LOADA B,d
       SUBA d#0,i
       BREQ End
Mult: LOADA Uitk,d
        ADDA A,d
        STOREA Uitk,d
        LOADA B,d
        SUBA d#1,i
        STOREA B,d
       BRNE Mult
End:  DECO Uitk,d
         STOP
.END

Code: Select all

; Oefening 1a: Output je voornaam met PEP/7 assembly
CHARO   h#000D,d   ;Output 'D'
CHARO   h#000E,d   ;Output 'i'
CHARO   h#000F,d   ;Output 'r'
CHARO   h#0010,d   ;Output 'k'
STOP  
.ASCII  /Dirk/
.END   

Code: Select all

;Oefening 1.b (i = immediate)
CHARO   c#/D/,i    ;Output 'D'
CHARO   c#/i/,i    ;Output 'i'
CHARO   c#/r/,i    ;Output 'r'
CHARO   c#/k/,i    ;Output 'k'
CHARO   c#/ /,i    ;Output ' '
STOP  
.END   

Code: Select all

; Oefening 1C
CHARO	h#0016, d
CHARO	h#0017, d
CHARO	h#0018, d
CHARO	h#0019, d
CHARO	c#/ /, i
CHARI	h#0014, d
CHARO	h#0000, i
STOP
 .ASCII /Kurt/
.END

Code: Select all

BR Main
A: .WORD d#0
B: .WORD d#0
C: .WORD d#0
Uitk: .WORD d#0
Main:	  DECI A,d
			DECI B,d
			DECI C,d
			LOADA B,d
			SUBA A,d
			ADDA C,d
			STOREA Uitk,d
			DECO Uitk,d
			STOP
.END