1
0
mirror of https://github.com/rzzzwilson/pymlac.git synced 2025-06-10 09:32:41 +00:00

Short display test program

This commit is contained in:
Ross Wilson
2018-08-04 22:40:11 +07:00
parent 334e5468f9
commit 0139097a94

44
vimlac/test.asm Executable file
View File

@@ -0,0 +1,44 @@
;-------------------------------
; Test of display processor instructions
; Display characters on screen.
;-------------------------------
org 0100 ;
dof ;
loop dsn ; wait until display is off
jmp loop ;
law dsub ; start display
dla ;
don ;
jmp loop ; keep going
;-------------------------------
; Display list subroutine - show ASCII chars 'ABC'
;-------------------------------
dsub
dhvc ;
dsts 0 ;
dlxa 020 ;
dlya 0100 ;
djms upperf ; F
djms upperg ; G
djms upperh ; H
dhlt ;
;-------------------------------
upperf inc e,b03 ; F
inc 02,30 ;
inc d-30,b03 ;
inc 30,30 ;
inc f,f ;
upperg inc e,d33 ; G
inc b30,-1-3 ;
inc -30,-23 ;
inc 03,32 ;
inc 3-1,f ;
upperh inc e,b03 ; H
inc 03,02 ;
inc d0-3,0-1 ;
inc b30,30 ;
inc y,b03 ;
inc 03,02 ;
inc y,f ;
;-------------------------------
end