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

use the power of external constants to generate a block count.

Browse Source
This commit is contained in:
Kelvin Sherlock 2021-04-14 22:53:46 -04:00
parent f458f27860
commit 874929a085
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
boot.S
View File

@ -10,7 +10,7 @@
* org $0800 * org $0800
ORG equ $6000 ORG equ $6000
MAX_BLOCK equ 6 *MAX_BLOCK equ 6
SLOT equ $00 SLOT equ $00
@ -20,6 +20,7 @@ BUFFER equ $44
BLOCK equ $46 BLOCK equ $46
ext main ext main
ext MAXBLOCKS
boot boot
mx %11 mx %11
@ -86,7 +87,7 @@ boot
inc BUFFER+1 inc BUFFER+1
inc BUFFER+1 inc BUFFER+1
lda BLOCK lda BLOCK
cmp #MAX_BLOCK+1 cmp #MAXBLOCKS
bcc :read bcc :read
bra :ok bra :ok

7
vt52.S
View File

@ -4,6 +4,9 @@
xc xc
rel rel
START equ *
* vt52 emulator. * vt52 emulator.
* not supported - graphics, screen hold. * not supported - graphics, screen hold.
* *
@ -834,6 +837,10 @@ cursor_int
rtl rtl
END equ *
MAXBLOCKS equ END-START+511/512+2
ent MAXBLOCKS
* lst on * lst on
* sym on * sym on
sav vt52.L sav vt52.L