mirror of
https://github.com/rzzzwilson/pymlac.git
synced 2025-06-10 09:32:41 +00:00
58 lines
1.5 KiB
NASM
Executable File
58 lines
1.5 KiB
NASM
Executable File
org 0100
|
|
|
|
dof ; turn display off
|
|
wdoff dsn ;
|
|
jmp wdoff ; wait until display off
|
|
;w40hz ssf ;
|
|
; jmp w40hz ; wait for 40Hz synch
|
|
scf ;
|
|
law hello ; start display
|
|
dla ;
|
|
don ;
|
|
jmp wdoff ;
|
|
|
|
hbit data 0100000
|
|
|
|
hello dlxa 0400
|
|
dlya 0400
|
|
dsts 2
|
|
dhvc
|
|
djms upperh
|
|
djms uppere
|
|
djms upperl
|
|
djms upperl
|
|
djms uppero
|
|
dhlt
|
|
|
|
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 ;
|
|
|
|
uppere inc e,b03 ; E
|
|
inc 03,02 ;
|
|
inc 30,30 ;
|
|
inc d-1-2,-1-2 ;
|
|
inc b-20,-20 ;
|
|
inc d0-2,0-2 ;
|
|
inc b30,30 ;
|
|
inc f,f ;
|
|
|
|
upperl inc e,b03 ; L
|
|
inc 03,02 ;
|
|
inc Y,b30 ;
|
|
inc 30,f ;
|
|
|
|
uppero inc e,d10 ; O
|
|
inc b20,20 ;
|
|
inc 13,02 ;
|
|
inc -13,-20 ;
|
|
inc -20,-1-3 ;
|
|
inc 0-2,1-3 ;
|
|
inc f,f ;
|
|
|
|
end
|