mirror of
https://github.com/nathanriggs/AppleIIAsm-Collection.git
synced 2024-11-27 12:49:27 +00:00
03636aa196
- various bugfixes - integrated required library - created minified sources - made macros slightly more flexible
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
|
|
*
|