mirror of https://github.com/marketideas/qasm.git
243 lines
6.2 KiB
ArmAsm
243 lines
6.2 KiB
ArmAsm
_NEWHANDLE MAC
|
|
Tool $902
|
|
<<<
|
|
_DISPOSEHANDLE MAC
|
|
Tool $1002
|
|
<<<
|
|
_GETHANDLESIZE MAC
|
|
Tool $1802
|
|
<<<
|
|
_SETHANDLESIZE MAC
|
|
Tool $1902
|
|
<<<
|
|
_HLOCK MAC
|
|
Tool $2002
|
|
<<<
|
|
_HUNLOCK MAC
|
|
Tool $2202
|
|
<<<
|
|
^READTIMEHEX MAC
|
|
PHS 4
|
|
Tool $D03
|
|
<<<
|
|
^READASCIITIME MAC
|
|
PHL ]1
|
|
Tool $F03
|
|
<<<
|
|
^GETNEXTEVENT MAC
|
|
PHA
|
|
PHWL ]1;]2
|
|
Tool $A06
|
|
<<<
|
|
^SETVECTOR MAC
|
|
PHWL ]1;]2
|
|
Tool $1003
|
|
<<<
|
|
^GETVECTOR MAC
|
|
P2SW ]1
|
|
Tool $1103
|
|
<<<
|
|
PHWL MAC
|
|
PHW ]1
|
|
PHL ]2
|
|
<<<
|
|
P2SW MAC
|
|
PHA
|
|
PHA
|
|
IF #=]1
|
|
PEA ]1
|
|
ELSE
|
|
IF MX/2
|
|
LDA ]1+1
|
|
PHA
|
|
FIN
|
|
LDA ]1
|
|
PHA
|
|
FIN
|
|
<<<
|
|
PSW MAC
|
|
IF #=]1
|
|
PEA ]1
|
|
ELSE
|
|
IF MX/2
|
|
LDA ]1+1
|
|
PHA
|
|
FIN
|
|
LDA ]1
|
|
PHA
|
|
FIN
|
|
<<<
|
|
PSL mac
|
|
if #,]1
|
|
pea ^]1
|
|
pea ]1
|
|
else
|
|
if :,]1
|
|
lda ]1+2
|
|
pha
|
|
lda ]1
|
|
pha
|
|
else
|
|
lda ]1+2
|
|
pha
|
|
lda ]1
|
|
pha
|
|
fin
|
|
fin
|
|
eom
|
|
PLL mac
|
|
if :,]1
|
|
pla
|
|
sta ]1
|
|
pla
|
|
sta ]1+2
|
|
else
|
|
pla
|
|
sta ]1
|
|
pla
|
|
sta ]1+2
|
|
fin
|
|
eom
|
|
TOOL mac
|
|
ldx #]1
|
|
jsl $E10000
|
|
eom
|
|
TLL mac
|
|
ldx #]1
|
|
jsl $E10000
|
|
eom
|
|
JMI mac
|
|
bpl *+5
|
|
jmp ]1
|
|
eom
|
|
JPL mac
|
|
bmi *+5
|
|
jmp ]1
|
|
eom
|
|
JNE mac
|
|
beq *+5
|
|
jmp ]1
|
|
eom
|
|
JEQ mac
|
|
bne *+5
|
|
jmp ]1
|
|
eom
|
|
JGE mac
|
|
blt *+5
|
|
jmp ]1
|
|
eom
|
|
JLT mac
|
|
bge *+5
|
|
jmp ]1
|
|
eom
|
|
JCS mac
|
|
bcc *+5
|
|
jmp ]1
|
|
eom
|
|
JCC mac
|
|
bcs *+5
|
|
jmp ]1
|
|
eom
|
|
_QAGotoXY mac
|
|
utool $57
|
|
eom
|
|
_QADRAWSTRING mac
|
|
utool $0A
|
|
<<<
|
|
_QADRAWSTR mac
|
|
utool $0A
|
|
<<<
|
|
_QAPRBYTE mac
|
|
utool $0B
|
|
<<<
|
|
_QAPRBYTEL mac
|
|
utool $0C
|
|
<<<
|
|
_QADRAWDEC mac
|
|
utool $0D
|
|
<<<
|
|
_QAKEYAVAIL mac
|
|
utool $0E
|
|
<<<
|
|
_QAGETCHAR mac
|
|
utool $0F
|
|
<<<
|
|
_QAGETCMDLINE mac
|
|
utool $1B
|
|
<<<
|
|
_QARUN mac
|
|
utool $23
|
|
<<<
|
|
_QADRAWERRCHAR mac
|
|
utool $51
|
|
<<<
|
|
_QADRAWERRSTRING mac
|
|
utool $52
|
|
<<<
|
|
_QADRAWHEX mac
|
|
utool $5A
|
|
<<<
|
|
^QADRAWCSTRING mac
|
|
psl ]1
|
|
utool $5B
|
|
<<<
|
|
_QADRAWCHARX mac
|
|
utool $5D
|
|
<<<
|
|
~QAGetWord MAC
|
|
pha
|
|
pha
|
|
psl ]1
|
|
psw ]2
|
|
utool $61
|
|
<<<
|
|
_GSOS MAC
|
|
do inline
|
|
jsl prodos
|
|
dw ]1
|
|
adrl ]2
|
|
else
|
|
psl #]2
|
|
pea ]1
|
|
jsl prodosIL
|
|
fin
|
|
<<<
|
|
UTOOL mac
|
|
ldx #]1*256+toolnum
|
|
do userorsys
|
|
jsl $E10008
|
|
else
|
|
jsl $E10000
|
|
fin
|
|
<<<
|
|
PHL MAC
|
|
IF #=]1
|
|
PEA ^]1
|
|
ELSE
|
|
PHW ]1+2
|
|
FIN
|
|
PHW ]1
|
|
<<<
|
|
PHW MAC
|
|
IF #=]1
|
|
PEA ]1
|
|
ELSE
|
|
IF MX/2
|
|
LDA ]1+1
|
|
PHA
|
|
FIN
|
|
LDA ]1
|
|
PHA
|
|
FIN
|
|
<<<
|
|
PHS MAC
|
|
DO ]0
|
|
LUP ]1
|
|
PHA
|
|
--^
|
|
ELSE
|
|
PHA
|
|
FIN
|
|
<<<
|
|
|