mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2025-03-04 03:29:29 +00:00
mainmem.svc.c: AUXMOVE only one byte for GBPB.
This commit is contained in:
parent
c0ae79ab3a
commit
deb58e87fe
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
@ -205,7 +205,7 @@ BYTE00 BEQ BYTE00A ; OSBYTE 0,0 - generate error
|
||||
RTS ; %000x1xxx host type, 'A'pple
|
||||
BYTE00A BRK
|
||||
DB $F7
|
||||
HELLO ASC 'Applecorn MOS 2022-09-19'
|
||||
HELLO ASC 'Applecorn MOS 2022-09-20'
|
||||
DB $00 ; Unify MOS messages
|
||||
|
||||
|
||||
|
@ -367,15 +367,12 @@ GBPB >>> ENTMAIN
|
||||
STA A4L
|
||||
LDA #>BLKBUF
|
||||
STA A4H
|
||||
LDA GBPBDAT ; Start of source buf
|
||||
STA A1L
|
||||
LDA GBPBDAT ; Start & end of source buf
|
||||
STA A1L ; (one byte buffer)
|
||||
STA A2L
|
||||
LDA GBPBDAT+1
|
||||
STA A1H
|
||||
STA A2H
|
||||
INC A2L ; End of source buf
|
||||
BNE :S0
|
||||
INC A2H
|
||||
:S0 CLC ; AUX -> Main
|
||||
JSR AUXMOVE
|
||||
LDA GBPBHDL ; File ref number
|
||||
|
Loading…
x
Reference in New Issue
Block a user