mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-24 14:31:05 +00:00
66 lines
1.6 KiB
Plaintext
66 lines
1.6 KiB
Plaintext
NEW
|
||
AUTO 3,1
|
||
*--------------------------------------
|
||
WRITE
|
||
JSR GET.REFNUM.OF.OPEN.FILE
|
||
BCS .1 ...NOT OPEN
|
||
STA WRITE.REFNUM
|
||
LDA CSWL
|
||
STA VDOSIO
|
||
LDA CSWH
|
||
STA VDOSIO+1
|
||
LDA #WRITE.TEXT.FILE
|
||
STA CSWL
|
||
LDA /WRITE.TEXT.FILE
|
||
STA CSWH
|
||
LDA #$FF
|
||
STA F.WRITE
|
||
.1 RTS
|
||
*--------------------------------
|
||
* OUTPUT HOOK DURING A WRITE OPERATION
|
||
*--------------------------------
|
||
WRITE.TEXT.FILE
|
||
AND #$7F PRODOS STANDARD IS BIT7=0
|
||
STA WRITE.OUTPUT.CHAR
|
||
JSR SAVE.REGS
|
||
LDX WRITE.REFNUM
|
||
STX READ.WRITE.PARMS+1
|
||
ASL IGNORE BIT 7
|
||
BEQ .2 END OF FILE
|
||
LDA #WRITE.OUTPUT.CHAR
|
||
STA READ.WRITE.PARMS+2
|
||
LDA /WRITE.OUTPUT.CHAR
|
||
STA READ.WRITE.PARMS+3
|
||
LDA #1
|
||
STA READ.WRITE.PARMS+4
|
||
LDA #0
|
||
STA READ.WRITE.PARMS+5
|
||
JSR MLI.CB WRITE
|
||
BCC RESTORE.REGS
|
||
*--------------------------------
|
||
.1 JMP ERROR.HANDLER
|
||
*--------------------------------
|
||
.2 STX MISC.PARMS+1
|
||
JSR MLI.CF READ MARK
|
||
BCS .1
|
||
JSR MLI.D0 SET EOF
|
||
BCS .1 ...ERROR
|
||
*---fall into RESTORE.REGS-------
|
||
*--------------------------------
|
||
RESTORE.REGS
|
||
LDY PREGY
|
||
LDX PREGX
|
||
LDA PREGA
|
||
RTS
|
||
*--------------------------------
|
||
SAVE.REGS
|
||
STA PREGA
|
||
STX PREGX
|
||
STY PREGY
|
||
RTS
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE usr/src/scmasm.31/sci.s.rwpa
|
||
LOAD usr/src/scmasm.31/scmasm.s
|
||
ASM
|