mirror of
https://github.com/rzzzwilson/pymlac.git
synced 2025-06-10 09:32:41 +00:00
798 lines
13 KiB
NASM
Executable File
798 lines
13 KiB
NASM
Executable File
;-------------------------------
|
|
; 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
|