mirror of
https://github.com/nathanriggs/AppleIIAsm-Collection.git
synced 2024-11-27 12:49:27 +00:00
d1e8429d80
This will be the last addition to the library before going through major revisions and then a major demo of libraries so far.
49 lines
1.4 KiB
Plaintext
49 lines
1.4 KiB
Plaintext
*
|
|
*``````````````````````````````*
|
|
* TMODE :: TEXT FILE OPS 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: *
|
|
*- -*
|
|
* USAGE: *
|
|
* *
|
|
*- -*
|
|
* 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 *
|
|
*,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,*
|
|
*
|
|
TMODE
|
|
*
|
|
LDA #$40
|
|
STA LANG ; LANG = FP
|
|
STA CURLIN+1 ; RUNNING PROG
|
|
LDA #$06
|
|
STA PROMPT ; NOT DIRECT MODE
|
|
RTS
|
|
*
|