AppleIIAsm-Collection/source/diskX_minidisk_A/T.MIN.SUB.TXTPUT

47 lines
969 B
Plaintext
Raw Normal View History

TXTPUT
PLA
STA RETADR
PLA
STA RETADR+1
PLA
STA :F
PLA
STA :Y
PLA
STA :X
LDA ERRCTRL
CMP #1
BEQ :CHKERR
JMP :ERREND
:CHKERR
LDA :X
CMP #40
BCS :XOVF
LDA :Y
CMP #24
BCS :YOVF
JMP :ERREND
:XOVF
_ERR #:E_SID;#:E_XOF;#:E_DMP1;#:F;#3
JMP :ERREND
:YOVF
_ERR #:E_SID;#:E_YOF;#:E_DMP1;#:F;#3
:ERREND
LDA :Y
LDY :X
JSR $F847
LDA :F
STA ($26),Y
LDA RETADR+1
PHA
LDA RETADR
PHA
RTS
:F DS 1
:Y DS 1
:X DS 1
:E_SID ASC "TXTPUT (TPUT MACRO)",00
:E_DMP1 ASC "DUMPING F(1) Y(1) X(1):",00
:E_XOF ASC "X OVERFLOW. X <> MIN/MAX",00
:E_YOF ASC "Y OVERFLOW. Y <> MIN/MAX",00