mig.insp: minor changes
This commit is contained in:
parent
a117f51ccc
commit
5305beb715
28
mig.insp.s
28
mig.insp.s
|
@ -71,6 +71,8 @@ PrntAX = $f941
|
||||||
CH = $24
|
CH = $24
|
||||||
CV = $25
|
CV = $25
|
||||||
AltBuffer = filebuff3 ; if we can't get big buffer
|
AltBuffer = filebuff3 ; if we can't get big buffer
|
||||||
|
KBD = $c000
|
||||||
|
KBDSTRB = $c010
|
||||||
ROMBank = $c028
|
ROMBank = $c028
|
||||||
MigBase = $ce00
|
MigBase = $ce00
|
||||||
MigRAM = MigBase
|
MigRAM = MigBase
|
||||||
|
@ -122,9 +124,9 @@ init: stz MigPage
|
||||||
sta BufLoc+1
|
sta BufLoc+1
|
||||||
dec BufFlag ; flag it
|
dec BufFlag ; flag it
|
||||||
: ; moving on...
|
: ; moving on...
|
||||||
; davex does the below for us
|
; davex sets us to 40 col, so don't need this
|
||||||
;lda #$91
|
; lda #$91
|
||||||
;jsr COut1 ; go to 40 cols if 80 col firmware active
|
; jsr COut1 ; go to 40 cols if 80 col firmware active
|
||||||
jsr Home
|
jsr Home
|
||||||
lda #21
|
lda #21
|
||||||
jsr TabV
|
jsr TabV
|
||||||
|
@ -142,8 +144,16 @@ init: stz MigPage
|
||||||
jsr PrntAX
|
jsr PrntAX
|
||||||
dispmig: jsr get4mig ; 4 mig pages to buffer
|
dispmig: jsr get4mig ; 4 mig pages to buffer
|
||||||
jsr d4page
|
jsr d4page
|
||||||
uinput: lda #' '+$80
|
uinput:
|
||||||
|
.if 1 ; set zero to read kbd directlu
|
||||||
|
lda #' '|$80
|
||||||
jsr xrdkey ; davex read key
|
jsr xrdkey ; davex read key
|
||||||
|
.else
|
||||||
|
jsr xpoll_io
|
||||||
|
lda KBD
|
||||||
|
bpl uinput
|
||||||
|
bit KBDSTRB
|
||||||
|
.endif
|
||||||
cmp #$8b ; up arrow
|
cmp #$8b ; up arrow
|
||||||
beq goup
|
beq goup
|
||||||
cmp #$8a ; down arrow
|
cmp #$8a ; down arrow
|
||||||
|
@ -156,7 +166,7 @@ goup: dec MigPage
|
||||||
bne :+
|
bne :+
|
||||||
godn: inc MigPage
|
godn: inc MigPage
|
||||||
bra dispmig
|
bra dispmig
|
||||||
: cmp #'~'+$80 ; tilde - git all MIG RAM to buffer, maybe
|
: cmp #'~'|$80 ; tilde - git all MIG RAM to buffer, maybe
|
||||||
bne :+
|
bne :+
|
||||||
jsr getallmig
|
jsr getallmig
|
||||||
bra dispmig
|
bra dispmig
|
||||||
|
@ -164,9 +174,11 @@ godn: inc MigPage
|
||||||
bne jump
|
bne jump
|
||||||
lda #18 ; make sure DaveX "hit a key"
|
lda #18 ; make sure DaveX "hit a key"
|
||||||
jsr TabV ; is on a blank line
|
jsr TabV ; is on a blank line
|
||||||
lda #$8d ; and displays properly
|
jsr xmess
|
||||||
jmp COut ; CR and exit
|
.byte $8d,$00
|
||||||
jump: sbc #$b0 ; check for digit for page jump
|
rts
|
||||||
|
jump: sec
|
||||||
|
sbc #$b0 ; check for digit for page jump
|
||||||
bmi uinput ; nope
|
bmi uinput ; nope
|
||||||
cmp #10 ; 10 or bigger?
|
cmp #10 ; 10 or bigger?
|
||||||
bcs uinput ; also nope
|
bcs uinput ; also nope
|
||||||
|
|
Loading…
Reference in New Issue