Apple-2-SW/davex-mg-utils
1
0
Fork 0
mirror of https://github.com/mgcaret/davex-mg-utils.git synced 2024-12-21 09:29:25 +00:00
Code Issues Projects Releases Wiki Activity

mig.insp: clean up exit a bit

Browse Source
This commit is contained in:
mgcaret 2018-06-27 17:47:46 -07:00
parent 1aab6c6ea0
commit bff95f3880
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mig.insp.s
View File

@ -58,6 +58,7 @@ BufPtr = BufLoc+2
MigPage = BufPtr+2
; entry points
COut = $fded
COut1 = $fdf0
TabV = $fb5b
PrByte = $fdda
@ -161,7 +162,10 @@ godn: inc MigPage
bra dispmig
: cmp #$9b ; escape
bne jump
rts
lda #18 ; make sure DaveX "hit a key"
jsr TabV ; is on a blank line
lda #$8d ; and displays properly
jmp COut ; CR and exit
jump: sbc #$b0 ; check for digit for page jump
bmi uinput ; nope
cmp #10 ; 10 or bigger?