Apple-2gs-SW/itty-bitty-vtty
1
0
Fork 0
mirror of https://github.com/ksherlock/itty-bitty-vtty.git synced 2024-11-23 17:33:57 +00:00
Code Issues Projects Releases Wiki Activity

finish cda box.

Browse Source
This commit is contained in:
Kelvin Sherlock 2021-10-23 14:53:35 -04:00
parent 26ceb7aa50
commit 5a1f0f6ffc
1 changed files with 40 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
vt100.cda.S
View File

@ -145,9 +145,48 @@ box
bpl ]loop
rep #$20
* title
ldx #36
]loop lda :title,x
sta |$0480+1,x
dex
dex
bpl ]loop
lda #'LL'
ldx #36
]loop sta |$0500+1,x
dex
dex
bpl ]loop
* bottom instructions
ldx #:instr_len-2
]loop lda :instr,x
sta |$0750+1,x
dex
dex
bpl ]loop
plp
rts
:instr
asc " Select: ",'H'," ",'U'," ",'J'," ",'K'
asc " Cancel:Esc Save: ",'M'," "
:instr_len equ *-:instr
err :instr_len&1
:title
asc " Virtual Terminal "
ds 38-18,' '
text
dw $0400
dw $0480
@ -174,18 +213,6 @@ text
dw $0750
dw $07d0
*box
* asc " ______________________________________ "
* asc da," Terminal ",' ',df
* db $da
* ds 38,$cc
* db $df
* asc da," Select: ",c8,df,ca,cb," Cancel: Esc Save: ",cd,df
* asc " "
* ds 38,$cc
* asc " "
sav vt100.cda.L
sav vt100.cda.L