mirror of
https://github.com/nathanriggs/AppleIIAsm-Collection.git
synced 2024-12-12 01:30:00 +00:00
46 lines
1.3 KiB
Plaintext
46 lines
1.3 KiB
Plaintext
|
*
|
||
|
|
*``````````````````````````````*
|
||
|
|
* TXTMODE :: TEXT FILE MODE *
|
||
|
|
*- -*
|
||
|
|
* THIS ROUTINE FOOLS DOS INTO *
|
||
|
|
* THINKING IT IS IN NON- *
|
||
|
|
* IMMEDIATE MODE. THIS IS *
|
||
|
|
* TO ALLOW FOR READING AND *
|
||
|
|
* WRITING OF TEXT FILES. *
|
||
|
|
*- -*
|
||
|
|
* CLOBBERS: *
|
||
|
|
* *
|
||
|
|
* FLAGS: ????---- REG: AXYM *
|
||
|
|
*- -*
|
||
|
|
* CYCLES: ??? *
|
||
|
|
* SIZE: *
|
||
|
|
*- -*
|
||
|
|
* ENTRY *
|
||
|
|
* *
|
||
|
|
* TOP OF STACK *
|
||
|
|
* *
|
||
|
|
* LOW BYTE OF RETURN ADDRESS *
|
||
|
|
* HI BYTE OF RETURN ADDRESS *
|
||
|
|
*- -*
|
||
|
|
* EXIT *
|
||
|
|
* *
|
||
|
|
* TOP OF STACK *
|
||
|
|
* *
|
||
|
|
* LOW BYTE OF RETURN ADDRESS *
|
||
|
|
* HI BYTE OF RETURN ADDRESS *
|
||
|
|
* *
|
||
|
|
* .Y = UNCHANGED *
|
||
|
|
* .X = UNCHANGED *
|
||
|
|
* .A = CLOBBERED; TRASH *
|
||
|
|
*,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,*
|
||
|
|
*
|
||
|
|
TXTMODE
|
||
|
|
*
|
||
|
|
LDA #$40
|
||
|
|
STA LANG ; LANG = FP
|
||
|
|
STA CURLIN+1 ; RUNNING PROG
|
||
|
|
LDA #$06
|
||
|
|
STA PROMPT ; NOT DIRECT MODE
|
||
|
|
RTS
|
||
|
|
*
|