mirror of
https://github.com/rzzzwilson/pymlac.git
synced 2025-06-10 09:32:41 +00:00
Display instructions test case
This commit is contained in:
Ross Wilson
797
pyasm/chars.asm
Executable file
797
pyasm/chars.asm
Executable file
@@ -0,0 +1,797 @@
|
||||
;-------------------------------
|
||||
; Test of display processor instructions
|
||||
; Display characters on screen.
|
||||
;-------------------------------
|
||||
org 0100 ;
|
||||
dof ;
|
||||
loop dsn ; wait until display is off
|
||||
jmp .-1 ;
|
||||
ssf ; wait until 40 Hz sync is set
|
||||
jmp .-1 ;
|
||||
scf ;
|
||||
lda ; get data switches
|
||||
and hbit ; save only high bit (NOP or HLT)
|
||||
dac .+1 ; save and ...
|
||||
nop ; execute
|
||||
law dsub ; start display
|
||||
dla ;
|
||||
don ;
|
||||
hlt ; DEBUG
|
||||
jmp loop ; keep going
|
||||
hbit data 0100000 ; high bit mask
|
||||
;-------------------------------
|
||||
; Display list subroutine - show all ASCII chars
|
||||
;-------------------------------
|
||||
;dsub dsts 1 ;
|
||||
dsub dlxa 020 ;
|
||||
dlya 0200 ;
|
||||
;dsts 0 ;
|
||||
djms dlist0 ;
|
||||
dlxa 020 ;
|
||||
dlya 0160 ;
|
||||
djms dlist1 ;
|
||||
dlxa 020 ;
|
||||
dlya 0140 ;
|
||||
djms dlist2 ;
|
||||
dlxa 020 ;
|
||||
dlya 0120 ;
|
||||
djms dlist3 ;
|
||||
dlxa 020 ;
|
||||
dlya 0100 ;
|
||||
djms dlist4 ;
|
||||
|
||||
; dsts 1 ;
|
||||
; dlxa 020 ;
|
||||
; dlya 0240 ;
|
||||
; dsts 1 ;
|
||||
; djms dlist0 ;
|
||||
; dlxa 020 ;
|
||||
; dlya 0220 ;
|
||||
; djms dlist1 ;
|
||||
; dlxa 020 ;
|
||||
; dlya 0200 ;
|
||||
; djms dlist2 ;
|
||||
; dlxa 020 ;
|
||||
; dlya 0160 ;
|
||||
; djms dlist3 ;
|
||||
; dlxa 020 ;
|
||||
; dlya 0140 ;
|
||||
; djms dlist4 ;
|
||||
;
|
||||
; dsts 1 ;
|
||||
; dlxa 020 ;
|
||||
; dlya 0240 ;
|
||||
; dsts 2 ;
|
||||
; djms dlist0 ;
|
||||
; dlxa 020 ;
|
||||
; dlya 0220 ;
|
||||
; djms dlist1 ;
|
||||
; dlxa 020 ;
|
||||
; dlya 0200 ;
|
||||
; djms dlist2 ;
|
||||
; dlxa 020 ;
|
||||
; dlya 0160 ;
|
||||
; djms dlist3 ;
|
||||
; dlxa 020 ;
|
||||
; dlya 0140 ;
|
||||
; djms dlist4 ;
|
||||
|
||||
; dsts 1 ;
|
||||
; dlxa 020 ;
|
||||
; dlya 0300 ;
|
||||
; dsts 3 ;
|
||||
; djms dlist0 ;
|
||||
; dlxa 020 ;
|
||||
; dlya 0260 ;
|
||||
; djms dlist1 ;
|
||||
; dlxa 020 ;
|
||||
; dlya 0240 ;
|
||||
; djms dlist2 ;
|
||||
; dlxa 020 ;
|
||||
; dlya 0220 ;
|
||||
; djms dlist3 ;
|
||||
; dlxa 020 ;
|
||||
; dlya 0200 ;
|
||||
; djms dlist4 ;
|
||||
dhlt ;
|
||||
;-------------------------------
|
||||
; Display list subroutine - show all ASCII chars
|
||||
;-------------------------------
|
||||
dlist0 djms space ; space
|
||||
djms exclam ; !
|
||||
djms dquote ; "
|
||||
djms hash ; #
|
||||
djms dollar ; $
|
||||
djms percent ; %
|
||||
djms amp ; &
|
||||
djms quote ; '
|
||||
djms lparen ; (
|
||||
djms rparen ; )
|
||||
djms star ; *
|
||||
djms plus ; +
|
||||
djms comma ; ,
|
||||
djms minus ; -
|
||||
djms dot ; .
|
||||
djms slash ; /
|
||||
drjm ;
|
||||
dlist1 djms zero ; 0
|
||||
djms one ; 1
|
||||
djms two ; 2
|
||||
djms three ; 3
|
||||
djms four ; 4
|
||||
djms five ; 5
|
||||
djms six ; 6
|
||||
djms seven ; 7
|
||||
djms eight ; 8
|
||||
djms nine ; 9
|
||||
djms colon ; :
|
||||
djms semcol ; ;
|
||||
djms lt ; <
|
||||
djms equal ; =
|
||||
djms gt ; >
|
||||
djms query ; ?
|
||||
djms at ; @
|
||||
drjm ;
|
||||
dlist2 djms uppera ; A
|
||||
djms upperb ; B
|
||||
djms upperc ; C
|
||||
djms upperd ; D
|
||||
djms uppere ; E
|
||||
djms upperf ; F
|
||||
djms upperg ; G
|
||||
djms upperh ; H
|
||||
djms upperi ; I
|
||||
djms upperj ; J
|
||||
djms upperk ; K
|
||||
djms upperl ; L
|
||||
djms upperm ; M
|
||||
djms uppern ; N
|
||||
djms uppero ; O
|
||||
djms upperp ; P
|
||||
djms upperq ; Q
|
||||
djms upperr ; R
|
||||
djms uppers ; S
|
||||
djms uppert ; T
|
||||
djms upperu ; U
|
||||
djms upperv ; V
|
||||
djms upperw ; W
|
||||
djms upperx ; X
|
||||
djms uppery ; Y
|
||||
djms upperz ; Z
|
||||
djms lsquare ; [
|
||||
djms slosh ; \
|
||||
djms rsquare ; ]
|
||||
djms hat ; ^
|
||||
djms unders ; _
|
||||
djms bquote ; `
|
||||
drjm ;
|
||||
dlist3 djms lowera ; a
|
||||
djms lowerb ; b
|
||||
djms lowerc ; c
|
||||
djms lowerd ; d
|
||||
djms lowere ; e
|
||||
djms lowerf ; f
|
||||
djms lowerg ; g
|
||||
djms lowerh ; h
|
||||
djms loweri ; i
|
||||
djms lowerj ; j
|
||||
djms lowerk ; k
|
||||
djms lowerl ; l
|
||||
djms lowerm ; m
|
||||
djms lowern ; n
|
||||
djms lowero ; o
|
||||
djms lowerp ; p
|
||||
djms lowerq ; q
|
||||
djms lowerr ; r
|
||||
djms lowers ; s
|
||||
djms lowert ; t
|
||||
djms loweru ; u
|
||||
djms lowerv ; v
|
||||
djms lowerw ; w
|
||||
djms lowerx ; x
|
||||
djms lowery ; y
|
||||
djms lowerz ; z
|
||||
djms lcurl ; {
|
||||
djms pipe ; |
|
||||
djms rcurl ; }
|
||||
djms tilde ; ~
|
||||
djms del ; DEL
|
||||
djms cursn
|
||||
djms curso
|
||||
djms nl
|
||||
drjm ;
|
||||
dlist4 djms uppert
|
||||
djms lowerh
|
||||
djms lowere
|
||||
djms space
|
||||
djms lowerq
|
||||
djms loweru
|
||||
djms loweri
|
||||
djms lowerc
|
||||
djms lowerk
|
||||
djms space
|
||||
djms lowerb
|
||||
djms lowerr
|
||||
djms lowero
|
||||
djms lowerw
|
||||
djms lowern
|
||||
djms space
|
||||
djms lowerf
|
||||
djms lowero
|
||||
djms lowerx
|
||||
djms space
|
||||
djms lowerj
|
||||
djms loweru
|
||||
djms lowerm
|
||||
djms lowerp
|
||||
djms lowers
|
||||
djms space
|
||||
djms lowero
|
||||
djms lowerv
|
||||
djms lowere
|
||||
djms lowerr
|
||||
djms space
|
||||
djms lowert
|
||||
djms lowerh
|
||||
djms lowere
|
||||
djms space
|
||||
djms lowerl
|
||||
djms lowera
|
||||
djms lowerz
|
||||
djms lowery
|
||||
djms space
|
||||
djms lowerd
|
||||
djms lowero
|
||||
djms lowerg
|
||||
djms dot
|
||||
drjm
|
||||
;-------------------------------
|
||||
; Short vector characters
|
||||
;-------------------------------
|
||||
space inc e,F ; space
|
||||
exclam inc e,D30 ; !
|
||||
inc B00,D02 ;
|
||||
inc B03,02 ;
|
||||
inc B02,F ;
|
||||
dquote inc E,D23 ; "
|
||||
inc 03,B0-1 ;
|
||||
inc -10,01 ;
|
||||
inc 13,D30 ;
|
||||
inc B-1-3,0-1 ;
|
||||
inc 10,01 ;
|
||||
inc F,F ;
|
||||
hash inc e,B13 ; #
|
||||
inc 13,13 ;
|
||||
inc D30,B-1-3 ;
|
||||
inc -1-3,-1-3 ;
|
||||
inc D23,B-30 ;
|
||||
inc -30,D13 ;
|
||||
inc B30,30 ;
|
||||
inc F,F ;
|
||||
dollar inc e,D3-2 ; $
|
||||
inc B03,03 ;
|
||||
inc 03,03 ;
|
||||
inc D3-2,B-30 ;
|
||||
inc -3-2,3-2 ;
|
||||
inc 3-2,-3-2 ;
|
||||
inc -30,F ;
|
||||
percent inc e,D20 ; %
|
||||
inc B13,21 ;
|
||||
inc 1-2,-2-1 ;
|
||||
inc -12,02 ;
|
||||
inc -12,-2-1 ;
|
||||
inc 1-2,21 ;
|
||||
inc 12,12 ;
|
||||
inc F,F ;
|
||||
amp inc e,D30 ; &
|
||||
inc 30,B-33 ;
|
||||
inc -23,12 ;
|
||||
inc 10,1-2 ;
|
||||
inc -2-2,-2-1 ;
|
||||
inc 0-2,2-1 ;
|
||||
inc 20,23 ;
|
||||
inc F,F ;
|
||||
quote inc e,D23 ; '
|
||||
inc 03,B0-1 ;
|
||||
inc 10,01 ;
|
||||
inc -13,F ;
|
||||
lparen inc e,D30 ; (
|
||||
inc B-11,-12 ;
|
||||
inc 02,12 ;
|
||||
inc 11,F ;
|
||||
rparen inc e,D20 ; )
|
||||
inc B11,12 ;
|
||||
inc 02,-12 ;
|
||||
inc -11,F ;
|
||||
star inc e,D03 ; *
|
||||
inc B32,32 ;
|
||||
inc D-31,B0-3 ;
|
||||
inc 0-3,D31 ;
|
||||
inc B-32,-32 ;
|
||||
inc F,F ;
|
||||
plus inc e,D31 ; +
|
||||
inc B03,03 ;
|
||||
inc D-3-3,B30 ;
|
||||
inc 30,F ;
|
||||
comma inc e,D2-2 ; ,
|
||||
inc B13,01 ;
|
||||
inc -10,0-1 ;
|
||||
inc F,F ;
|
||||
minus inc e,D13 ; -
|
||||
inc B30,30 ;
|
||||
inc F,F ;
|
||||
dot inc e,D30 ; .
|
||||
inc B00,F ;
|
||||
slash inc e,D20 ; /
|
||||
inc B13,13 ;
|
||||
inc 13,F ;
|
||||
zero inc e,D12 ; 0
|
||||
inc B02,02 ;
|
||||
inc 22,2-2 ;
|
||||
inc 0-2,0-2 ;
|
||||
inc -2-2,-22 ;
|
||||
inc F,F ;
|
||||
one inc e,D10 ; 1
|
||||
inc B20,20 ;
|
||||
inc D-20,B03 ;
|
||||
inc 03,02 ;
|
||||
inc -2-2,F ;
|
||||
two inc e,D03 ; 2
|
||||
inc 03,b22 ;
|
||||
inc 20,2-2 ;
|
||||
inc -1-2,-2-1 ;
|
||||
inc -3-3,30 ;
|
||||
inc 30,F ;
|
||||
three inc e,B30 ; 3
|
||||
inc 32,-22 ;
|
||||
inc -30,D30 ;
|
||||
inc B22,-22 ;
|
||||
inc -30,F ;
|
||||
four inc e,D30 ; 4
|
||||
inc 10,B03 ;
|
||||
inc 03,02 ;
|
||||
inc -3-3,-1-2 ;
|
||||
inc 30,30 ;
|
||||
inc F,F ;
|
||||
five inc e,B30 ; 5
|
||||
inc 31,02 ;
|
||||
inc -32,-30 ;
|
||||
inc 03,30 ;
|
||||
inc 30,F ;
|
||||
six inc e,D03 ; 6
|
||||
inc B21,20 ;
|
||||
inc 2-2,-2-2 ;
|
||||
inc -20,-22 ;
|
||||
inc 03,23 ;
|
||||
inc 20,2-2 ;
|
||||
inc F,F ;
|
||||
seven inc e,B23 ; 7
|
||||
inc 33,12 ;
|
||||
inc -30,-30 ;
|
||||
inc F,F ;
|
||||
eight inc e,D20 ; 8
|
||||
inc B20,21 ;
|
||||
inc 02,-31 ;
|
||||
inc -32,22 ;
|
||||
inc 20,2-2 ;
|
||||
inc -3-2,-3-1 ;
|
||||
inc 0-2,2-1 ;
|
||||
inc F,F ;
|
||||
nine inc e,D2-1 ; 9
|
||||
inc B23,13 ;
|
||||
inc 03,-30 ;
|
||||
inc -2-2,2-2 ;
|
||||
inc 20,F ;
|
||||
colon inc e,D32 ; :
|
||||
inc B00,D03 ;
|
||||
inc 01,B00 ;
|
||||
inc F,F ;
|
||||
semcol inc e,D2-2 ; ;
|
||||
inc B13,01 ;
|
||||
inc -10,10 ;
|
||||
inc D03,01 ;
|
||||
inc B-10,F ;
|
||||
lt inc e,D31 ; <
|
||||
inc 30,B-21 ;
|
||||
inc -21,-21 ;
|
||||
inc 21,21 ;
|
||||
inc 21,F ;
|
||||
equal inc e,D13 ; =
|
||||
inc B30,30 ;
|
||||
inc D02,B-30 ;
|
||||
inc -30,F ;
|
||||
gt inc e,D01 ; >
|
||||
inc B21,21 ;
|
||||
inc 21,-21 ;
|
||||
inc -21,-21 ;
|
||||
inc F,F ;
|
||||
query inc e,D30 ; ?
|
||||
inc B00,D02 ;
|
||||
inc B02,22 ;
|
||||
inc -12,-20 ;
|
||||
inc -1-2,F ;
|
||||
at inc e,D30 ; @
|
||||
inc B-31,02 ;
|
||||
inc 02,22 ;
|
||||
inc 30,1-3 ;
|
||||
inc -1-2,-30 ;
|
||||
inc 02,20 ;
|
||||
inc 0-2,F ;
|
||||
uppera inc e,B13 ; A
|
||||
inc 13,12 ;
|
||||
inc 1-3,1-3 ;
|
||||
inc 1-2,D-23 ;
|
||||
inc B-30,F ;
|
||||
upperb inc e,B03 ; B
|
||||
inc 03,02 ;
|
||||
inc 30,2-1 ;
|
||||
inc 0-2,-2-1 ;
|
||||
inc -30,D30 ;
|
||||
inc B3-1,0-2 ;
|
||||
inc -3-1,-30 ;
|
||||
inc F,F ;
|
||||
upperc inc e,D32 ; C
|
||||
inc 30,B-2-2 ;
|
||||
inc -20,-22 ;
|
||||
inc 03,23 ;
|
||||
inc 20,2-2 ;
|
||||
inc F,F ;
|
||||
upperd inc e,B03 ; D
|
||||
inc 03,02 ;
|
||||
inc 30,2-1 ;
|
||||
inc 1-2,0-2 ;
|
||||
inc -1-2,-2-1 ;
|
||||
inc -30,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 ;
|
||||
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 ;
|
||||
upperi inc e,B30 ; I
|
||||
inc 30,D-31 ;
|
||||
inc B03,03 ;
|
||||
inc D-31,B30 ;
|
||||
inc 30,F ;
|
||||
upperj inc e,D02 ; J
|
||||
inc B2-2,20 ;
|
||||
inc 22,03 ;
|
||||
inc 03,F ;
|
||||
upperk inc e,B03 ; K
|
||||
inc 03,02 ;
|
||||
inc D0-3,0-1 ;
|
||||
inc B32,32 ;
|
||||
inc Y,B-13 ;
|
||||
inc -23,F ;
|
||||
upperl inc e,B03 ; L
|
||||
inc 03,02 ;
|
||||
inc Y,B30 ;
|
||||
inc 30,F ;
|
||||
upperm inc e,B03 ; M
|
||||
inc 03,02 ;
|
||||
inc 3-3,33 ;
|
||||
inc 0-3,0-3 ;
|
||||
inc 0-2,F ;
|
||||
uppern inc e,B03 ; N
|
||||
inc 03,02 ;
|
||||
inc 2-3,2-3 ;
|
||||
inc 2-2,03 ;
|
||||
inc 03,02 ;
|
||||
inc F,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 ;
|
||||
upperp inc e,B03 ; P
|
||||
inc 03,02 ;
|
||||
inc 30,3-1 ;
|
||||
inc 0-2,-3-1 ;
|
||||
inc -30,F ;
|
||||
upperq inc e,D10 ; Q
|
||||
inc B30,23 ;
|
||||
inc 03,-12 ;
|
||||
inc -30,-2-3 ;
|
||||
inc 0-3,1-2 ;
|
||||
inc D33,B3-3 ;
|
||||
inc F,F ;
|
||||
upperr inc e,B03 ; R
|
||||
inc 03,02 ;
|
||||
inc 30,3-1 ;
|
||||
inc 0-2,-3-1 ;
|
||||
inc -30,D30 ;
|
||||
inc B2-2,1-2 ;
|
||||
inc F,F ;
|
||||
uppers inc e,D01 ; S
|
||||
inc B2-1,30 ;
|
||||
inc 13,-31 ;
|
||||
inc -31,13 ;
|
||||
inc 30,2-1 ;
|
||||
inc F,F ;
|
||||
uppert inc e,D30 ; T
|
||||
inc B03,03 ;
|
||||
inc 02,X ;
|
||||
inc B30,30 ;
|
||||
inc F,F ;
|
||||
upperu inc e,D03 ; U
|
||||
inc 03,02 ;
|
||||
inc B0-3,0-3 ;
|
||||
inc 2-2,20 ;
|
||||
inc 22,03 ;
|
||||
inc 03,F ;
|
||||
upperv inc e,D03 ; V
|
||||
inc 03,02 ;
|
||||
inc B1-2,1-3 ;
|
||||
inc 1-3,12 ;
|
||||
inc 13,13 ;
|
||||
inc F,F ;
|
||||
upperw inc e,B03 ; W
|
||||
inc 03,02 ;
|
||||
inc Y,B33 ;
|
||||
inc 3-3,03 ;
|
||||
inc 03,02 ;
|
||||
inc F,F ;
|
||||
upperx inc e,B23 ; X
|
||||
inc 22,23 ;
|
||||
inc Y,B-23 ;
|
||||
inc -22,-23 ;
|
||||
inc F,F ;
|
||||
uppery inc e,D30 ; Y
|
||||
inc B02,03 ;
|
||||
inc 33,X ;
|
||||
inc B3-3,F ;
|
||||
upperz inc e,D30 ; Z
|
||||
inc 30,B-30 ;
|
||||
inc -30,23 ;
|
||||
inc 22,23 ;
|
||||
inc -30,-30 ;
|
||||
inc F,F ;
|
||||
lsquare inc e,D30 ; [
|
||||
inc 10,B-20 ;
|
||||
inc 03,03 ;
|
||||
inc 02,20 ;
|
||||
inc F,F ;
|
||||
slosh inc e,D30 ; \
|
||||
inc 10,B-13 ;
|
||||
inc -13,-12 ;
|
||||
inc F,F ;
|
||||
rsquare inc e,D20 ; ]
|
||||
inc B20,03 ;
|
||||
inc 03,02 ;
|
||||
inc -20,F ;
|
||||
hat inc e,D30 ; ^
|
||||
inc B03,03 ;
|
||||
inc 02,-1-2 ;
|
||||
inc -2-2,31 ;
|
||||
inc 3-1,-22 ;
|
||||
inc -12,F ;
|
||||
unders inc e,D-2-2 ; _
|
||||
inc B30,30 ;
|
||||
inc 20,20 ;
|
||||
inc D-23,F ;
|
||||
bquote inc e,D13 ; `
|
||||
inc 03,B-22 ;
|
||||
inc F,F ;
|
||||
lowera inc e,D03 ; a
|
||||
inc 03,B30 ;
|
||||
inc 2-2,-1-3 ;
|
||||
inc 2-1,D-21 ;
|
||||
inc B-3-1,-12 ;
|
||||
inc 21,20 ;
|
||||
inc F,F ;
|
||||
lowerb inc e,B03 ; b
|
||||
inc 03,03 ;
|
||||
inc Y,D02 ;
|
||||
inc B3-2,21 ;
|
||||
inc 03,-22 ;
|
||||
inc -3-2,F ;
|
||||
lowerc inc e,D32 ; c
|
||||
inc 20,B-2-2 ;
|
||||
inc -20,-12 ;
|
||||
inc 02,22 ;
|
||||
inc 3-1,F ;
|
||||
lowerd inc e,D33 ; d
|
||||
inc 21,B-32 ;
|
||||
inc -2-2,0-3 ;
|
||||
inc 2-1,32 ;
|
||||
inc d0-2,b03 ;
|
||||
inc 03,03 ;
|
||||
inc F,F ;
|
||||
lowere inc e,D13 ; e
|
||||
inc B20,20 ;
|
||||
inc -23,-20 ;
|
||||
inc -1-2,0-3 ;
|
||||
inc 2-1,30 ;
|
||||
inc F,F ;
|
||||
lowerf inc e,D20 ; f
|
||||
inc B03,03 ;
|
||||
inc 22,2-1 ;
|
||||
inc D-1-2,B-30 ;
|
||||
inc -20,F ;
|
||||
lowerg inc e,D0-2 ; g
|
||||
inc B3-1,22 ;
|
||||
inc 02,03 ;
|
||||
inc -32,-2-2 ;
|
||||
inc 0-3,2-1 ;
|
||||
inc 32,F ;
|
||||
lowerh inc e,B03 ; h
|
||||
inc 03,03 ;
|
||||
inc D1-3,B20 ;
|
||||
inc 1-3,0-3 ;
|
||||
inc F,F ;
|
||||
loweri inc e,D30 ; i
|
||||
inc B03,03 ;
|
||||
inc D02,B00 ;
|
||||
inc F,F ;
|
||||
lowerj inc e,B1-2 ; j
|
||||
inc 20,12 ;
|
||||
inc 03,03 ;
|
||||
inc D02,B00 ;
|
||||
inc F,F ;
|
||||
lowerk inc e,B03 ; k
|
||||
inc 03,03 ;
|
||||
inc D3-2,B-3-3 ;
|
||||
inc 3-1,2-3 ;
|
||||
inc F,F ;
|
||||
lowerl inc e,D30 ; l
|
||||
inc B-11,03 ;
|
||||
inc 02,02 ;
|
||||
inc F,F ;
|
||||
lowerm inc e,B03 ; m
|
||||
inc 03,D0-2 ;
|
||||
inc B22,1-2 ;
|
||||
inc 22,1-2 ;
|
||||
inc 0-2,0-2 ;
|
||||
inc D-30,B03 ;
|
||||
inc F,F ;
|
||||
lowern inc e,B03 ; n
|
||||
inc 03,D0-2 ;
|
||||
inc B32,2-3 ;
|
||||
inc 0-3,F ;
|
||||
lowero inc e,D10 ; o
|
||||
inc B20,22 ;
|
||||
inc 02,-12 ;
|
||||
inc -20,-2-2 ;
|
||||
inc 0-2,1-2 ;
|
||||
inc F,F ;
|
||||
lowerp inc e,D0-2 ; p
|
||||
inc B03,03 ;
|
||||
inc 03,D0-1 ;
|
||||
inc B30,1-2 ;
|
||||
inc -1-2,-30 ;
|
||||
inc F,F ;
|
||||
lowerq inc e,D32 ; q
|
||||
inc 20,b-3-2 ;
|
||||
inc -21,03 ;
|
||||
inc 22,3-2 ;
|
||||
inc 0-3,0-2 ;
|
||||
inc 0-2,A0173 ;
|
||||
lowerr inc e,B03 ; r
|
||||
inc 03,D0-3 ;
|
||||
inc B22,31 ;
|
||||
inc F,F ;
|
||||
lowers inc e,D01 ; s
|
||||
inc B3-1,22 ;
|
||||
inc -21,-31 ;
|
||||
inc 22,3-1 ;
|
||||
inc F,F ;
|
||||
lowert inc e,D30 ; t
|
||||
inc B-11,03 ;
|
||||
inc 02,02 ;
|
||||
inc D-2-2,B20 ;
|
||||
inc 20,F ;
|
||||
loweru inc e,D03 ; u
|
||||
inc 03,B0-2 ;
|
||||
inc 0-2,1-2 ;
|
||||
inc 20,22 ;
|
||||
inc 02,02 ;
|
||||
inc Y,D02 ;
|
||||
inc B1-2,F ;
|
||||
lowerv inc e,D03 ; v
|
||||
inc 03,B2-3 ;
|
||||
inc 1-3,13 ;
|
||||
inc 13,F ;
|
||||
lowerw inc e,D03 ; w
|
||||
inc 03,B1-3 ;
|
||||
inc 1-3,13 ;
|
||||
inc 1-3,1+3 ;
|
||||
inc 13,F ;
|
||||
lowerx inc e,B23 ; x
|
||||
inc 33,D-20 ;
|
||||
inc -30,B3-3 ;
|
||||
inc 2-3,F ;
|
||||
lowery inc e,D1-3 ; y
|
||||
inc B23,23 ;
|
||||
inc 03,X ;
|
||||
inc B1-3,2-3 ;
|
||||
inc F,F ;
|
||||
lowerz inc e,B30 ; z
|
||||
inc 20,A011 ;
|
||||
inc B23,33 ;
|
||||
inc -30,-20 ;
|
||||
inc F,F ;
|
||||
lcurl inc e,D33 ; {
|
||||
inc 03,B-20 ;
|
||||
inc 1-3,-10 ;
|
||||
inc D10,B-1-3 ;
|
||||
inc 20,F ;
|
||||
pipe inc e,D33 ; |
|
||||
inc 03,01 ;
|
||||
inc B0-3,D0-2 ;
|
||||
inc B0-3,A0173 ;
|
||||
rcurl inc e,D13 ; }
|
||||
inc 03,B20 ;
|
||||
inc -1-3,10 ;
|
||||
inc D-10,B1-3 ;
|
||||
inc -20,F ;
|
||||
tilde inc e,D03 ; ~
|
||||
inc B12,1-2 ;
|
||||
inc 1-2,12 ;
|
||||
inc F,F ;
|
||||
del inc e,B+0+3 ; DEL (filled box)
|
||||
inc B+0+3,B+1+0 ;
|
||||
inc B+0-3,B+0-3 ;
|
||||
inc B+1+0,B+0+3 ;
|
||||
inc B+0+3,B+1+0 ;
|
||||
inc B+0-3,B+0-3 ;
|
||||
inc B+1+0,B+0+3 ;
|
||||
inc B+0+3,F ;
|
||||
cursn inc e,b03 ; cursor on
|
||||
inc 03,30 ;
|
||||
inc 30,0-3 ;
|
||||
inc 0-3,-30 ;
|
||||
inc -30,d11 ;
|
||||
inc b02,02 ;
|
||||
inc 20,20 ;
|
||||
inc 0-2,0-2 ;
|
||||
inc -30,03 ;
|
||||
inc 20,0-2 ;
|
||||
inc -10,01 ;
|
||||
inc f,f ;
|
||||
curso inc e,b03 ; cursor off
|
||||
inc 03,30 ;
|
||||
inc 30,0-3 ;
|
||||
inc 0-3,-30 ;
|
||||
inc -30,f ;
|
||||
nlx inc e,d12 ; newline
|
||||
inc b03,3-3 ;
|
||||
inc 03,d2-2 ;
|
||||
inc b0-3,30 ;
|
||||
inc f,f ;
|
||||
nl inc e,d12 ; newline
|
||||
inc b03,2-3 ;
|
||||
inc 03,d0-3 ;
|
||||
inc b0-1,20 ;
|
||||
inc d1-1,b03 ;
|
||||
inc 03,-30 ;
|
||||
inc -30,0-3 ;
|
||||
inc 0-3,30 ;
|
||||
inc 30,f ;
|
||||
nl2 inc e,d33 ; newline
|
||||
inc b0-2,-1-2 ;
|
||||
inc -2-2,02 ;
|
||||
inc d0-2,b20 ;
|
||||
inc f,f ;
|
||||
;-------------------------------
|
||||
end
|
||||
Reference in New Issue
Block a user