diff options
Diffstat (limited to 'system/d52/tests/test.asm')
| -rw-r--r-- | system/d52/tests/test.asm | 60 |
1 files changed, 60 insertions, 0 deletions
diff --git a/system/d52/tests/test.asm b/system/d52/tests/test.asm new file mode 100644 index 0000000000..7313e33c0f --- /dev/null +++ b/system/d52/tests/test.asm @@ -0,0 +1,60 @@ +; +; 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 +; |