mirror of
https://github.com/cshepherd/gscifs.git
synced 2024-12-12 10:30:27 +00:00
185 lines
4.4 KiB
ArmAsm
185 lines
4.4 KiB
ArmAsm
* Text tool macros
|
|
* by Dave Klimas
|
|
;
|
|
; Copyright Apple Computer, Inc. 1986, 1987
|
|
; and Roger Wagner Publishing, Inc. 1988
|
|
; All Rights Reserved
|
|
;
|
|
_TextBootInit MAC
|
|
Tool $10C
|
|
<<<
|
|
_TextStartUp MAC
|
|
Tool $20C
|
|
<<<
|
|
_TextShutDown MAC
|
|
Tool $30C
|
|
<<<
|
|
~TextVersion MAC
|
|
PHA
|
|
_TextVersion MAC
|
|
Tool $40C
|
|
<<<
|
|
_TextReset MAC
|
|
Tool $50C
|
|
<<<
|
|
~TextStatus MAC
|
|
PHA
|
|
_TextStatus MAC
|
|
Tool $60C
|
|
<<<
|
|
~SetInGlobals MAC
|
|
PxW ]1;]2
|
|
_SetInGlobals MAC
|
|
Tool $90C
|
|
<<<
|
|
~SetOutGlobals MAC
|
|
PxW ]1;]2
|
|
_SetOutGlobals MAC
|
|
Tool $A0C
|
|
<<<
|
|
~SetErrGlobals MAC
|
|
PxW ]1;]2
|
|
_SetErrGlobals MAC
|
|
Tool $B0C
|
|
<<<
|
|
~GetInGlobals MAC
|
|
PHS 2
|
|
_GetInGlobals MAC
|
|
Tool $C0C
|
|
<<<
|
|
~GetOutGlobals MAC
|
|
PHS 2
|
|
_GetOutGlobals MAC
|
|
Tool $D0C
|
|
<<<
|
|
~GetErrGlobals MAC
|
|
PHS 2
|
|
_GetErrGlobals MAC
|
|
Tool $E0C
|
|
<<<
|
|
~SetInputDevice MAC
|
|
PHWL ]1;]2
|
|
_SetInputDevice MAC
|
|
Tool $F0C
|
|
<<<
|
|
~SetOutputDevice MAC
|
|
PHWL ]1;]2
|
|
_SetOutputDevice MAC
|
|
Tool $100C
|
|
<<<
|
|
~SetErrorDevice MAC
|
|
PHWL ]1;]2
|
|
_SetErrorDevice MAC
|
|
Tool $110C
|
|
<<<
|
|
~GetInputDevice MAC
|
|
PHS 3
|
|
_GetInputDevice MAC
|
|
Tool $120C
|
|
<<<
|
|
~GetOutputDevice MAC
|
|
PHS 3
|
|
_GetOutputDevice MAC
|
|
Tool $130C
|
|
<<<
|
|
~GetErrorDevice MAC
|
|
PHS 3
|
|
_GetErrorDevice MAC
|
|
Tool $140C
|
|
<<<
|
|
~InitTextDev MAC
|
|
PHW ]1
|
|
_InitTextDev MAC
|
|
Tool $150C
|
|
<<<
|
|
~CtlTextDev MAC
|
|
PxW ]1;]2
|
|
_CtlTextDev MAC
|
|
Tool $160C
|
|
<<<
|
|
~StatusTextDev MAC
|
|
PxW ]1;]2
|
|
_StatusTextDev MAC
|
|
Tool $170C
|
|
<<<
|
|
~WriteChar MAC
|
|
PHW ]1
|
|
_WriteChar MAC
|
|
Tool $180C
|
|
<<<
|
|
~ErrWriteChar MAC
|
|
PHW ]1
|
|
_ErrWriteChar MAC
|
|
Tool $190C
|
|
<<<
|
|
~WriteLine MAC
|
|
PHL ]1
|
|
_WriteLine MAC
|
|
Tool $1A0C
|
|
<<<
|
|
~ErrWriteLine MAC
|
|
PHL ]1
|
|
_ErrWriteLine MAC
|
|
Tool $1B0C
|
|
<<<
|
|
~WriteString MAC
|
|
PHL ]1
|
|
_WriteString MAC
|
|
Tool $1C0C
|
|
<<<
|
|
~ErrWriteString MAC
|
|
PHL ]1
|
|
_ErrWriteString MAC
|
|
Tool $1D0C
|
|
<<<
|
|
~TextWriteBlock MAC
|
|
PHL ]1
|
|
PxW ]2;]3
|
|
_TextWriteBlock MAC
|
|
Tool $1E0C
|
|
<<<
|
|
~ErrWriteBlock MAC
|
|
PHL ]1
|
|
PxW ]2;]3
|
|
_ErrWriteBlock MAC
|
|
Tool $1F0C
|
|
<<<
|
|
~WriteCString MAC
|
|
PHL ]1
|
|
_WriteCString MAC
|
|
Tool $200C
|
|
<<<
|
|
~ErrWriteCString MAC
|
|
PHL ]1
|
|
_ErrWriteCString MAC
|
|
Tool $210C
|
|
<<<
|
|
~ReadChar MAC
|
|
P1SW ]1
|
|
_ReadChar MAC
|
|
Tool $220C
|
|
<<<
|
|
~TextReadBlock MAC
|
|
PHL ]1
|
|
PxW ]2;]3;]4
|
|
_TextReadBlock MAC
|
|
Tool $230C
|
|
<<<
|
|
~ReadLine MAC
|
|
P1SL ]1
|
|
PxW ]2;]3;]4
|
|
_ReadLine MAC
|
|
Tool $240C
|
|
<<<
|
|
|
|
PrintLn MAC ; print a line of text
|
|
pea ^text
|
|
pea text
|
|
ldx #$1A0C
|
|
jsl $E10000
|
|
bra cont
|
|
text str ]1
|
|
cont
|
|
<<<
|
|
|