Als je fouten vind of toevoegingen hebt, let me know

http://www.bwf.be/computersys.doc
Moderator: Praesidium
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
Users browsing this forum: No registered users and 4 guests