mirror of
https://github.com/Ponce/slackbuilds
synced 2024-11-14 21:56:41 +01:00
60 lines
669 B
NASM
60 lines
669 B
NASM
;
|
|
; Test file for D52.
|
|
; This, with the associated test.ctl file, demonstrates the
|
|
; use of control file directives.
|
|
;
|
|
accum equ 0e0h
|
|
;
|
|
org 0
|
|
;
|
|
start: nop
|
|
ajmp main
|
|
ljmp subrt
|
|
;
|
|
main: rr a
|
|
inc accum
|
|
inc 12h
|
|
inc @r0
|
|
inc @r1
|
|
inc r0
|
|
jbc acc.3,label
|
|
acall subrt
|
|
lcall subrt
|
|
label: rrc a
|
|
dec a
|
|
dec 10h
|
|
dec @r0
|
|
dec @r1
|
|
dec r0
|
|
cjne a,#12h,label
|
|
mov dptr,#vectbl
|
|
jmp @a+dptr
|
|
;
|
|
subrt: nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
ret
|
|
;
|
|
vectbl: dw subrt
|
|
dw 0
|
|
;
|
|
mesg: db 'This is text',0
|
|
;
|
|
bindat: db 0,1,2,3
|
|
wordat: dw 10h,20h,30h
|
|
;
|
|
; random junk to fake out the disassembler
|
|
;
|
|
db 80h,29h,44h,33h
|
|
;
|
|
; valid code:
|
|
;
|
|
delay: mov r0,#5
|
|
delay1: clr 20h
|
|
djnz r0,delay1
|
|
ret
|
|
;
|
|
end
|
|
;
|