mirror of
https://github.com/marketideas/qasm.git
synced 2024-06-02 08:41:27 +00:00
tweaks to self-compile qasm with qasm.
other than USR opcode differences, it should build with merlin 16+ as well.
This commit is contained in:
parent
81a1e5a37d
commit
b45553c992
|
@ -29,7 +29,7 @@ asm php
|
||||||
dey
|
dey
|
||||||
:dec1 dex
|
:dec1 dex
|
||||||
|
|
||||||
:nodec stx filelendd
|
:nodec stx filelen
|
||||||
sty filelen+2
|
sty filelen+2
|
||||||
|
|
||||||
ldy #$04
|
ldy #$04
|
||||||
|
|
|
@ -3,19 +3,18 @@
|
||||||
;use ../macs/qatools.macs.s
|
;use ../macs/qatools.macs.s
|
||||||
;use ../macs/toolmacs.s
|
;use ../macs/toolmacs.s
|
||||||
|
|
||||||
put asm.vars
|
ovr all
|
||||||
put asm.1
|
* put asm.vars
|
||||||
put asm.eval
|
* put asm.1
|
||||||
put asm.cond
|
* put asm.eval
|
||||||
put asm.opcodes
|
* put asm.cond
|
||||||
put asm.dsk
|
* put asm.opcodes
|
||||||
put asm.errors
|
* put asm.dsk
|
||||||
put ../data/opdata
|
* put asm.errors
|
||||||
|
* put ../data/opdata
|
||||||
asm asm.header
|
asm asm.header
|
||||||
|
|
||||||
lnk ../utility/qasmgs.l
|
lnk qasmgs.l
|
||||||
typ exe
|
typ exe
|
||||||
sav ../utility/qasmgs
|
sav qasmgs
|
||||||
mylable equ $1234
|
|
||||||
ent
|
|
||||||
|
|
||||||
|
|
|
@ -9,9 +9,13 @@
|
||||||
mx %00 ; make sure we're in 16-bit mode!
|
mx %00 ; make sure we're in 16-bit mode!
|
||||||
|
|
||||||
;use util.macs
|
;use util.macs
|
||||||
use qatools.macs
|
use ../macros/builtin.macs
|
||||||
|
use ../macros/qatools.macs
|
||||||
use ../data/qa.equates
|
use ../data/qa.equates
|
||||||
|
|
||||||
|
use asm.macs
|
||||||
|
|
||||||
|
|
||||||
brl start
|
brl start
|
||||||
|
|
||||||
userid ds 2 ;my userid
|
userid ds 2 ;my userid
|
||||||
|
@ -398,7 +402,9 @@ indexj da 5*2 ; these indexes is crucial
|
||||||
array da 1,1,2,3,5,8,13,21,54,75,129,204
|
array da 1,1,2,3,5,8,13,21,54,75,129,204
|
||||||
da 323,527,850,1377,2227
|
da 323,527,850,1377,2227
|
||||||
|
|
||||||
|
do 0
|
||||||
err *-array-34
|
err *-array-34
|
||||||
|
fin
|
||||||
|
|
||||||
*=================================================
|
*=================================================
|
||||||
* SEED seeds generator from 16 bit contents of AXY
|
* SEED seeds generator from 16 bit contents of AXY
|
||||||
|
@ -477,5 +483,5 @@ randomize php
|
||||||
lst off
|
lst off
|
||||||
|
|
||||||
;typ exe
|
;typ exe
|
||||||
;sav utility/qasmgs.l
|
sav qasmgs.l
|
||||||
|
|
||||||
|
|
134
src/asm/asm.macs.s
Normal file
134
src/asm/asm.macs.s
Normal file
|
@ -0,0 +1,134 @@
|
||||||
|
|
||||||
|
_DisposeAll MAC
|
||||||
|
tll $1102
|
||||||
|
<<<
|
||||||
|
|
||||||
|
_HLock MAC
|
||||||
|
tll $2002
|
||||||
|
<<<
|
||||||
|
_HUnlock MAC
|
||||||
|
tll $2202
|
||||||
|
<<<
|
||||||
|
|
||||||
|
_SANEFP816 MAC
|
||||||
|
tll $90A
|
||||||
|
<<<
|
||||||
|
_SANEDecStr816 MAC
|
||||||
|
tll $A0A
|
||||||
|
<<<
|
||||||
|
|
||||||
|
FOPRF MAC ;call FP
|
||||||
|
PEA ]1
|
||||||
|
_SANEFP816
|
||||||
|
<<<
|
||||||
|
FOPRD MAC ;call DecStr
|
||||||
|
PEA ]1
|
||||||
|
_SANEDecStr816
|
||||||
|
<<<
|
||||||
|
|
||||||
|
FDEC2X MAC
|
||||||
|
FOPRF $009
|
||||||
|
<<<
|
||||||
|
FPSTR2DEC MAC ;pascal string to decimal record
|
||||||
|
FOPRD 0
|
||||||
|
<<<
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
_setmark MAC
|
||||||
|
jsl $e100a8
|
||||||
|
da $16
|
||||||
|
adrl ]1
|
||||||
|
<<<
|
||||||
|
|
||||||
|
_getmark MAC
|
||||||
|
jsl $e100a8
|
||||||
|
da $17
|
||||||
|
adrl ]1
|
||||||
|
<<<
|
||||||
|
|
||||||
|
_getprefix MAC
|
||||||
|
jsl $e100a8
|
||||||
|
da $0a
|
||||||
|
adrl ]1
|
||||||
|
<<<
|
||||||
|
|
||||||
|
_create MAC
|
||||||
|
jsl $e100a8
|
||||||
|
da $01
|
||||||
|
adrl ]1
|
||||||
|
<<<
|
||||||
|
|
||||||
|
_setfileinfo MAC
|
||||||
|
jsl $e100a8
|
||||||
|
da $05
|
||||||
|
adrl ]1
|
||||||
|
<<<
|
||||||
|
_getfileinfo MAC
|
||||||
|
jsl $e100a8
|
||||||
|
da $06
|
||||||
|
adrl ]1
|
||||||
|
<<<
|
||||||
|
|
||||||
|
_open MAC
|
||||||
|
jsl $e100a8
|
||||||
|
da $10
|
||||||
|
adrl ]1
|
||||||
|
<<<
|
||||||
|
_write MAC
|
||||||
|
jsl $e100a8
|
||||||
|
da $13
|
||||||
|
adrl ]1
|
||||||
|
<<<
|
||||||
|
_close MAC
|
||||||
|
jsl $e100a8
|
||||||
|
da $14
|
||||||
|
adrl ]1
|
||||||
|
<<<
|
||||||
|
_seteof MAC
|
||||||
|
jsl $e100a8
|
||||||
|
da $18
|
||||||
|
adrl ]1
|
||||||
|
<<<
|
||||||
|
|
||||||
|
opno mac
|
||||||
|
sec
|
||||||
|
rts
|
||||||
|
<<<
|
||||||
|
|
||||||
|
opco mac
|
||||||
|
db $c9 ; cmp #
|
||||||
|
usr ]1
|
||||||
|
bne nope
|
||||||
|
ldx #]2
|
||||||
|
ldy #]3
|
||||||
|
clc
|
||||||
|
rts
|
||||||
|
nope
|
||||||
|
<<<
|
||||||
|
|
||||||
|
opcl mac
|
||||||
|
if $=]1
|
||||||
|
else
|
||||||
|
opco ]1;]2;]3
|
||||||
|
fin
|
||||||
|
sec
|
||||||
|
rts
|
||||||
|
<<<
|
||||||
|
|
||||||
|
opcx mac
|
||||||
|
db $c9 ; cmp #
|
||||||
|
usr ]1
|
||||||
|
bne nope
|
||||||
|
ldx #]2
|
||||||
|
ldy #^]2
|
||||||
|
clc
|
||||||
|
rts
|
||||||
|
nope
|
||||||
|
<<<
|
||||||
|
|
||||||
|
opcxl mac
|
||||||
|
opcx ]1;]2
|
||||||
|
sec
|
||||||
|
rts
|
||||||
|
<<<
|
|
@ -29,7 +29,7 @@ opxcode opco 'XC- ';psuedo.p6502;xcop1
|
||||||
opco 'XC ';psuedo.p6502;xcop
|
opco 'XC ';psuedo.p6502;xcop
|
||||||
opcl 'XBA ';onebyte.m65816;$EB
|
opcl 'XBA ';onebyte.m65816;$EB
|
||||||
opwcode opco 'WDM ';m65816;wdmop
|
opwcode opco 'WDM ';m65816;wdmop
|
||||||
opcl 'WAI ';onebyte.m65c02;$CB
|
opcl 'WAI ';onebyte.m65C02;$CB
|
||||||
opvcode opcl 'VAR ';psuedo.p6502;varop
|
opvcode opcl 'VAR ';psuedo.p6502;varop
|
||||||
opucode opco 'USR ';psuedo.p6502;opcop ;*** change this
|
opucode opco 'USR ';psuedo.p6502;opcop ;*** change this
|
||||||
opcl 'USE ';psuedo.p6502;useop
|
opcl 'USE ';psuedo.p6502;useop
|
||||||
|
@ -42,9 +42,9 @@ optcode opco 'TYX ';onebyte.m65816;$BB
|
||||||
opco 'TTL ';psuedo.p6502;ttlop
|
opco 'TTL ';psuedo.p6502;ttlop
|
||||||
opco 'TSX ';onebyte.m6502;$BA
|
opco 'TSX ';onebyte.m6502;$BA
|
||||||
opco 'TSC ';onebyte.m65816;$3B
|
opco 'TSC ';onebyte.m65816;$3B
|
||||||
opco 'TSB ';m65c02.general;tsbtbl
|
opco 'TSB ';m65C02.general;tsbtbl
|
||||||
opco 'TSA ';onebyte.m65816;$3B
|
opco 'TSA ';onebyte.m65816;$3B
|
||||||
opco 'TRB ';m65c02.general;trbtbl
|
opco 'TRB ';m65C02.general;trbtbl
|
||||||
opco 'TR ';psuedo.p6502;trop
|
opco 'TR ';psuedo.p6502;trop
|
||||||
opco 'TDC ';onebyte.m65816;$7B
|
opco 'TDC ';onebyte.m65816;$7B
|
||||||
opco 'TDA ';onebyte.m65816;$7B
|
opco 'TDA ';onebyte.m65816;$7B
|
||||||
|
@ -62,7 +62,7 @@ opscode opco 'SYM ';psuedo.p6502;symop
|
||||||
opco 'STX ';general.m6502.mX;stxtbl
|
opco 'STX ';general.m6502.mX;stxtbl
|
||||||
opco 'STRL';psuedo.p6502;strlop
|
opco 'STRL';psuedo.p6502;strlop
|
||||||
opco 'STR ';psuedo.p6502;strop
|
opco 'STR ';psuedo.p6502;strop
|
||||||
opco 'STP ';onebyte.m65c02;$db
|
opco 'STP ';onebyte.m65C02;$db
|
||||||
opco 'STAL';general.long.m65816.mA;statbl
|
opco 'STAL';general.long.m65816.mA;statbl
|
||||||
opco 'STA ';general.m6502.mA;statbl
|
opco 'STA ';general.m6502.mA;statbl
|
||||||
opco 'SKP ';psuedo.p6502;skpop
|
opco 'SKP ';psuedo.p6502;skpop
|
||||||
|
|
|
@ -128,11 +128,11 @@ maxsymbols = $2000
|
||||||
* GSOS equates * call ID numbers
|
* GSOS equates * call ID numbers
|
||||||
|
|
||||||
* Set 'Class1' to $2000 to use Class 1 calls, $0000 for Class 0 calls
|
* Set 'Class1' to $2000 to use Class 1 calls, $0000 for Class 0 calls
|
||||||
|
|
||||||
prodos = $E100A8
|
prodos = $E100A8
|
||||||
prodosIL = $E100B0
|
prodosIL = $E100B0
|
||||||
inline = 1 ;stack or inline?
|
inline = 1 ;stack or inline?
|
||||||
|
|
||||||
|
do 0
|
||||||
_Create = $0001.Class1
|
_Create = $0001.Class1
|
||||||
_Destroy = $0002.Class1
|
_Destroy = $0002.Class1
|
||||||
_OSShutdown = $2003 ;class '1' only
|
_OSShutdown = $2003 ;class '1' only
|
||||||
|
@ -190,4 +190,4 @@ _DRename = $2036 ;class '1' only
|
||||||
_GetStdRefNum = $2037 ;class '1' only
|
_GetStdRefNum = $2037 ;class '1' only
|
||||||
_GetRefNum = $2038 ;class '1' only
|
_GetRefNum = $2038 ;class '1' only
|
||||||
_GetRefInfo = $2039 ;class '1' only
|
_GetRefInfo = $2039 ;class '1' only
|
||||||
|
fin
|
||||||
|
|
148
src/macros/builtin.macs.S
Normal file
148
src/macros/builtin.macs.S
Normal file
|
@ -0,0 +1,148 @@
|
||||||
|
* QAsm builtin macros
|
||||||
|
|
||||||
|
tll mac
|
||||||
|
ldx #]1
|
||||||
|
jsl $e10000
|
||||||
|
eom
|
||||||
|
dos mac
|
||||||
|
jsl $e100a8
|
||||||
|
dw ]1
|
||||||
|
adrl ]2
|
||||||
|
eom
|
||||||
|
tlc mac
|
||||||
|
ldx #]1
|
||||||
|
jsl $e10000
|
||||||
|
bcc *+4
|
||||||
|
brk $00
|
||||||
|
eom
|
||||||
|
psl mac
|
||||||
|
if #,]1
|
||||||
|
pea ^]1
|
||||||
|
pea ]1
|
||||||
|
else
|
||||||
|
lda ]1+2
|
||||||
|
pha
|
||||||
|
lda ]1
|
||||||
|
pha
|
||||||
|
fin
|
||||||
|
eom
|
||||||
|
psw mac
|
||||||
|
if #,]1
|
||||||
|
pea ]1
|
||||||
|
else
|
||||||
|
lda ]1
|
||||||
|
pha
|
||||||
|
fin
|
||||||
|
eom
|
||||||
|
pll mac
|
||||||
|
pla
|
||||||
|
sta ]1
|
||||||
|
pla
|
||||||
|
sta ]1+2
|
||||||
|
eom
|
||||||
|
plw mac
|
||||||
|
pla
|
||||||
|
sta ]1
|
||||||
|
eom
|
||||||
|
bsr mac
|
||||||
|
per *+4
|
||||||
|
bra ]1
|
||||||
|
eom
|
||||||
|
bsrl mac
|
||||||
|
per *+5
|
||||||
|
brl ]1
|
||||||
|
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
|
||||||
|
jlt mac
|
||||||
|
bge *+5
|
||||||
|
jmp ]1
|
||||||
|
eom
|
||||||
|
jge mac
|
||||||
|
blt *+5
|
||||||
|
jmp ]1
|
||||||
|
eom
|
||||||
|
ble mac
|
||||||
|
blt ]1
|
||||||
|
beq ]1
|
||||||
|
eom
|
||||||
|
jle mac
|
||||||
|
beq *+4
|
||||||
|
bge *+5
|
||||||
|
jmp ]1
|
||||||
|
eom
|
||||||
|
jcs mac
|
||||||
|
bcc *+5
|
||||||
|
jmp ]1
|
||||||
|
eom
|
||||||
|
jcc mac
|
||||||
|
bcs *+5
|
||||||
|
jmp ]1
|
||||||
|
eom
|
||||||
|
jvs mac
|
||||||
|
bvc *+5
|
||||||
|
jmp ]1
|
||||||
|
eom
|
||||||
|
jvc mac
|
||||||
|
bvs *+5
|
||||||
|
jmp ]1
|
||||||
|
eom
|
||||||
|
jmil mac
|
||||||
|
bpl *+6
|
||||||
|
jml ]1
|
||||||
|
eom
|
||||||
|
jpll mac
|
||||||
|
bmi *+6
|
||||||
|
jmp ]1
|
||||||
|
eom
|
||||||
|
jnel mac
|
||||||
|
beq *+6
|
||||||
|
jml ]1
|
||||||
|
eom
|
||||||
|
jeql mac
|
||||||
|
bne *+6
|
||||||
|
jml ]1
|
||||||
|
eom
|
||||||
|
jgel mac
|
||||||
|
blt *+6
|
||||||
|
jml ]1
|
||||||
|
eom
|
||||||
|
jltl mac
|
||||||
|
bge *+6
|
||||||
|
jml ]1
|
||||||
|
eom
|
||||||
|
jlel mac
|
||||||
|
beq *+4
|
||||||
|
bge *+6
|
||||||
|
jml ]1
|
||||||
|
eom
|
||||||
|
jcsl mac
|
||||||
|
bcc *+6
|
||||||
|
jml ]1
|
||||||
|
eom
|
||||||
|
jccl mac
|
||||||
|
bcs *+6
|
||||||
|
jml ]1
|
||||||
|
eom
|
||||||
|
jvsl mac
|
||||||
|
bvc *+6
|
||||||
|
jml ]1
|
||||||
|
eom
|
||||||
|
jvcl mac
|
||||||
|
bvs *+6
|
||||||
|
jml ]1
|
||||||
|
eom
|
609
src/macros/qatools.macs.s
Normal file
609
src/macros/qatools.macs.s
Normal file
|
@ -0,0 +1,609 @@
|
||||||
|
utool mac
|
||||||
|
ldx #]1*256+1
|
||||||
|
jsl $E10008
|
||||||
|
<<<
|
||||||
|
|
||||||
|
_QABootInit mac ;_QABootInit()
|
||||||
|
utool $01
|
||||||
|
<<<
|
||||||
|
~QAStartup MAC
|
||||||
|
psw ]1
|
||||||
|
psl ]2
|
||||||
|
_QAStartup mac ;_QAStartup(userid,modeflags/4)
|
||||||
|
utool $02
|
||||||
|
<<<
|
||||||
|
_QAShutdown mac ;_QAShutdown()
|
||||||
|
utool $03
|
||||||
|
<<<
|
||||||
|
~QAVersion MAC
|
||||||
|
pha
|
||||||
|
_QAVersion mac ;_QAVersion():versionnum
|
||||||
|
utool $04
|
||||||
|
<<<
|
||||||
|
_QAReset mac ;_QAReset()
|
||||||
|
utool $05
|
||||||
|
<<<
|
||||||
|
~QAStatus MAC
|
||||||
|
pha
|
||||||
|
_QAStatus mac ;_QAStatus():statflag
|
||||||
|
utool $06
|
||||||
|
<<<
|
||||||
|
~QADrawChar MAC
|
||||||
|
phw ]1
|
||||||
|
_QADrawChar mac ;_QADrawChar(char)
|
||||||
|
utool $09
|
||||||
|
<<<
|
||||||
|
~QADrawString MAC
|
||||||
|
~QADrawStr MAC
|
||||||
|
psl ]1
|
||||||
|
_QADrawString mac ;_QADrawString(@strptr)
|
||||||
|
_QADrawStr mac
|
||||||
|
utool $0A
|
||||||
|
<<<
|
||||||
|
~QAPrByte MAC
|
||||||
|
psw ]1
|
||||||
|
_QAPrByte mac ;_QAPrByte(byteval)
|
||||||
|
utool $0B
|
||||||
|
<<<
|
||||||
|
~QAPrByteL MAC
|
||||||
|
psw ]1
|
||||||
|
_QAPrByteL mac ;_QAPrByteL(hexval)
|
||||||
|
utool $0C
|
||||||
|
<<<
|
||||||
|
~QADrawDec MAC
|
||||||
|
psl ]1
|
||||||
|
psw ]2
|
||||||
|
ps2 ]3 <<< wrong
|
||||||
|
_QADrawDec mac ;_QADrawDec(longint/4,flags,fieldsize)
|
||||||
|
utool $0D
|
||||||
|
<<<
|
||||||
|
~QAKeyAvail MAC
|
||||||
|
pha
|
||||||
|
_QAKeyAvail mac ;_QAKeyAvail():availflag
|
||||||
|
utool $0E
|
||||||
|
<<<
|
||||||
|
~QAGetChar MAC
|
||||||
|
pha
|
||||||
|
_QAGetChar mac ;_QAGetChar():char (char in low/modifiers in high)
|
||||||
|
utool $0F
|
||||||
|
<<<
|
||||||
|
_QAGetLine mac ;_QAGetLine(@linestr)
|
||||||
|
utool $10
|
||||||
|
<<<
|
||||||
|
~QASetParmHdl MAC
|
||||||
|
psl ]1
|
||||||
|
_QASetParmHdl mac ;_QASetParmHdl(parmhandle)
|
||||||
|
utool $11
|
||||||
|
<<<
|
||||||
|
~QAGetParmHdl MAC
|
||||||
|
pha
|
||||||
|
pha
|
||||||
|
_QAGetParmHdl mac ;_QAGetParmHdl():parmhandle
|
||||||
|
utool $12
|
||||||
|
<<<
|
||||||
|
~QASetCmdHdl MAC
|
||||||
|
psl ]1
|
||||||
|
psw ]2
|
||||||
|
_QASetCmdHdl mac ;_QASetCmdHdl(commandhandle,numcmds)
|
||||||
|
utool $13
|
||||||
|
<<<
|
||||||
|
~QAGetCmdHdl MAC
|
||||||
|
pha
|
||||||
|
pha
|
||||||
|
pha
|
||||||
|
_QAGetCmdHdl mac ;_QAGetCmdHdl():commandhandle,numcmds
|
||||||
|
utool $14
|
||||||
|
<<<
|
||||||
|
~QAReadTotalErrs MAC
|
||||||
|
pha
|
||||||
|
_QAReadTotalErrs mac ;_QAReadTotalErrs():totalerrs
|
||||||
|
utool $15
|
||||||
|
<<<
|
||||||
|
~QAGetModeFlags MAC
|
||||||
|
pha
|
||||||
|
pha
|
||||||
|
_QAGetModeFlags mac ;_QAGetModeFlags():modeflags/4
|
||||||
|
utool $16
|
||||||
|
<<<
|
||||||
|
~QASetModeFlags MAC
|
||||||
|
psl ]1
|
||||||
|
_QASetModeFlags mac ;_QASetModeFlags(modeflags/4)
|
||||||
|
utool $17
|
||||||
|
<<<
|
||||||
|
_QALoadFile mac ;_QALoadfile(@filename,filepos/4,length/4,@typelist,userid,address/4,memattrib):filehandle/4
|
||||||
|
utool $18
|
||||||
|
<<<
|
||||||
|
_QASaveFile mac ;_QASavefile(filehandle/4,@filename,filetype,auxtype/4)
|
||||||
|
utool $19
|
||||||
|
<<<
|
||||||
|
~QASetCmdLine MAC
|
||||||
|
psl ]1
|
||||||
|
_QASetCmdLine mac ;_QASetCmdLine(@strptr)
|
||||||
|
utool $1A
|
||||||
|
<<<
|
||||||
|
~QAGetCmdLine MAC
|
||||||
|
psl ]1
|
||||||
|
psw ]2
|
||||||
|
_QAGetCmdLine mac ;_QAGetCmdLine(@strptr,maxlen)
|
||||||
|
utool $1B
|
||||||
|
<<<
|
||||||
|
~QAParseCmdLine MAC
|
||||||
|
pha
|
||||||
|
pha
|
||||||
|
psl ]1
|
||||||
|
_QAParseCmdLine mac ;_QAParseCmdLine(@strptr):cmdid,cmdtype
|
||||||
|
utool $1C
|
||||||
|
<<<
|
||||||
|
~QAGetQuitFlag MAC
|
||||||
|
pha
|
||||||
|
_QAGetQuitFlag mac ;_QAGetQuitFlag():quitflag
|
||||||
|
utool $1D
|
||||||
|
<<<
|
||||||
|
~QASetQuitFlag MAC
|
||||||
|
psw ]1
|
||||||
|
_QASetQuitFlag mac ;_QASetQuitFlag(quitflag)
|
||||||
|
utool $1E
|
||||||
|
<<<
|
||||||
|
~QASetCmdTbl MAC
|
||||||
|
psl ]1
|
||||||
|
_QASetCmdTbl mac ;_QASetCmdTbl(@cmdtbl)
|
||||||
|
utool $1F
|
||||||
|
<<<
|
||||||
|
~QAGetCmdTbl MAC
|
||||||
|
pha
|
||||||
|
pha
|
||||||
|
_QAGetCmdTbl mac ;_QAGetCmdTbl():@cmdtbl
|
||||||
|
utool $20
|
||||||
|
<<<
|
||||||
|
~QAExecCommand MAC
|
||||||
|
psw ]1
|
||||||
|
psw ]2
|
||||||
|
_QAExecCommand mac ;_QAExecCommand(cmdtype,cmdid)
|
||||||
|
utool $21
|
||||||
|
<<<
|
||||||
|
~QAGetMessagebyID MAC
|
||||||
|
pha
|
||||||
|
pha
|
||||||
|
pha
|
||||||
|
psw ]1
|
||||||
|
_QAGetMessagebyID mac ;_QAGetMessagebyID(userid):message,subtype/4
|
||||||
|
utool $22
|
||||||
|
<<<
|
||||||
|
_QARun mac ;_QARun()
|
||||||
|
utool $23
|
||||||
|
<<<
|
||||||
|
_QADispose mac ;_QADispose()
|
||||||
|
utool $24
|
||||||
|
<<<
|
||||||
|
~QAShutdownID MAC
|
||||||
|
psw ]1
|
||||||
|
_QAShutdownID mac ;_QAShutDownID(userid)
|
||||||
|
utool $25
|
||||||
|
<<<
|
||||||
|
~QACompile MAC
|
||||||
|
psw ]1
|
||||||
|
psl ]2
|
||||||
|
_QACompile mac ;_QACompile(message,subtype/4)
|
||||||
|
utool $26
|
||||||
|
<<<
|
||||||
|
~QALink MAC
|
||||||
|
psw ]1
|
||||||
|
psl ]2
|
||||||
|
_QALink mac ;_QALink(message,subtype/4)
|
||||||
|
utool $27
|
||||||
|
<<<
|
||||||
|
~QACompilerActive MAC
|
||||||
|
pha
|
||||||
|
_QACompilerActive mac ;_QAComplierActive():activeflag
|
||||||
|
utool $28
|
||||||
|
<<<
|
||||||
|
~QALinkerActive MAC
|
||||||
|
pha
|
||||||
|
_QALinkerActive mac ;_QALinkerActvie():activeflag
|
||||||
|
utool $29
|
||||||
|
<<<
|
||||||
|
~QAGetCompileID MAC
|
||||||
|
pha
|
||||||
|
_QAGetCompileID mac ;_QAGetCompileID():compileID
|
||||||
|
utool $2A
|
||||||
|
<<<
|
||||||
|
~QASetCompileID MAC
|
||||||
|
psw ]1
|
||||||
|
_QASetCompileID mac ;_QASetCompileID(compileID)
|
||||||
|
utool $2B
|
||||||
|
<<<
|
||||||
|
~QAGetLinkID MAC
|
||||||
|
pha
|
||||||
|
_QAGetLinkID mac ;_QAGetLinkID():linkID
|
||||||
|
utool $2C
|
||||||
|
<<<
|
||||||
|
~QASetLinkID MAC
|
||||||
|
psw ]1
|
||||||
|
_QASetLinkID mac ;_QASetLinkID(linkID)
|
||||||
|
utool $2D
|
||||||
|
<<<
|
||||||
|
~QAGetVector MAC
|
||||||
|
pha
|
||||||
|
pha
|
||||||
|
psw ]1
|
||||||
|
_QAGetVector mac ;_QAGetVector(vect#):@address
|
||||||
|
utool $2E
|
||||||
|
<<<
|
||||||
|
~QASetVector MAC
|
||||||
|
psw ]1
|
||||||
|
psl ]2
|
||||||
|
_QASetVector mac ;_QASetVector(vect#,@address)
|
||||||
|
utool $2F
|
||||||
|
<<<
|
||||||
|
_QAResetVectors mac ;_QAResetVectors()
|
||||||
|
utool $30
|
||||||
|
<<<
|
||||||
|
~QAEvent MAC
|
||||||
|
psl ]1
|
||||||
|
psw ]2
|
||||||
|
_QAEvent mac ;_QAEvent(@eventptr,taskflag)
|
||||||
|
utool $31
|
||||||
|
<<<
|
||||||
|
~QAGetCmdRecSize MAC
|
||||||
|
pha
|
||||||
|
_QAGetCmdRecSize mac ;_QAGetCmdRecSize():recordsize
|
||||||
|
utool $32
|
||||||
|
<<<
|
||||||
|
~QATabToCol MAC
|
||||||
|
psw ]1
|
||||||
|
_QATabToCol mac ;_QATabtoCol(columnnum)
|
||||||
|
utool $33
|
||||||
|
<<<
|
||||||
|
~QAErrorMsg MAC
|
||||||
|
psw ]1
|
||||||
|
_QAErrorMsg mac ;_QAErrorMsg(ErrorCode)
|
||||||
|
utool $34
|
||||||
|
<<<
|
||||||
|
~QABarGraph MAC
|
||||||
|
psw ]1
|
||||||
|
psl ]2
|
||||||
|
_QABarGraph mac ;_QABarGraph(percent,@Message)
|
||||||
|
utool $35
|
||||||
|
<<<
|
||||||
|
~QAConvertPath MAC
|
||||||
|
psl ]1
|
||||||
|
psl ]2
|
||||||
|
_QAConvertPath mac ;_QAConvertPath(@oldpath,@newpath)
|
||||||
|
utool $36
|
||||||
|
<<<
|
||||||
|
~QATyp2Txt MAC
|
||||||
|
psw ]1
|
||||||
|
psl ]2
|
||||||
|
_QATyp2Txt mac
|
||||||
|
_QAConvertTyp2Txt mac ;_QAConvertTyp2Txt(filetype,@typestr)
|
||||||
|
utool $37
|
||||||
|
<<<
|
||||||
|
~QATxt2Typ MAC
|
||||||
|
pha
|
||||||
|
psl ]1
|
||||||
|
_QATxt2Typ mac
|
||||||
|
_QAConvertTxt2Typ mac ;_QAConvertTxt2Typ(@typestr):type
|
||||||
|
utool $38
|
||||||
|
<<<
|
||||||
|
~QAReadDir MAC
|
||||||
|
psl ]1
|
||||||
|
psl ]2
|
||||||
|
psw ]3
|
||||||
|
_QAReadDir mac ;_QAReadDir(@pathname,@doroutine,flags)
|
||||||
|
utool $39
|
||||||
|
<<<
|
||||||
|
~QAInitWildcard MAC
|
||||||
|
psl ]1
|
||||||
|
psw ]2
|
||||||
|
psl ]3
|
||||||
|
psw ]4
|
||||||
|
psl ]5
|
||||||
|
_QAInitWildcard mac ;_QAInitWildcard(@wcstr,ft,aux/4,ftmask,auxmask/4)
|
||||||
|
utool $3A
|
||||||
|
<<<
|
||||||
|
_QAUndefined mac ;_QAUndefined()
|
||||||
|
utool $3B
|
||||||
|
<<<
|
||||||
|
_QAInitTotalErrs mac ;_QAInitTotalErrs()
|
||||||
|
utool $3C
|
||||||
|
<<<
|
||||||
|
_QAIncTotalErrs mac ;_QAIncTotalErrs()
|
||||||
|
utool $3D
|
||||||
|
<<<
|
||||||
|
~QAGetTotalErrs MAC
|
||||||
|
pha
|
||||||
|
_QAGetTotalErrs mac ;_QAGetTotalErrs():totalerrs
|
||||||
|
utool $3E
|
||||||
|
<<<
|
||||||
|
~QAGetCancelFlag MAC
|
||||||
|
pha
|
||||||
|
_QAGetCancelFlag mac ;_QAGetCancelFlag():cancelflag
|
||||||
|
utool $3F
|
||||||
|
<<<
|
||||||
|
~QASetCancelFlag MAC
|
||||||
|
psw ]1
|
||||||
|
_QASetCancelFlag mac ;_QASetCancelFlag(cancelflag)
|
||||||
|
utool $40
|
||||||
|
<<<
|
||||||
|
_QAStartTiming mac ;_QAStartTiming()
|
||||||
|
utool $41
|
||||||
|
<<<
|
||||||
|
~QAEndTiming MAC
|
||||||
|
pha
|
||||||
|
pha
|
||||||
|
pha
|
||||||
|
_QAEndTiming mac ;_QAEndTiming():hours,minutes,seconds
|
||||||
|
utool $42
|
||||||
|
<<<
|
||||||
|
~QAGetSymTable MAC ;; was missing nextLabel.
|
||||||
|
pha
|
||||||
|
pha
|
||||||
|
pha
|
||||||
|
pha
|
||||||
|
pha
|
||||||
|
pha
|
||||||
|
pha
|
||||||
|
_QAGetSymTable mac ;_QAGetSymTable():@table,symhandle/4,numlabels,nextLabel/4
|
||||||
|
utool $43
|
||||||
|
<<<
|
||||||
|
~QASetSymTable MAC ;; was missing nextLabel
|
||||||
|
psl ]1
|
||||||
|
psl ]2
|
||||||
|
psw ]3
|
||||||
|
psl ]4
|
||||||
|
_QASetSymTable mac ;_QASetSymTable(@table,symhandle/4,numlabels,nextLabel/4)
|
||||||
|
utool $44
|
||||||
|
<<<
|
||||||
|
~QASetPath MAC
|
||||||
|
psl ]1
|
||||||
|
_QASetPath mac ;_QASetPath(@pathname)
|
||||||
|
utool $45
|
||||||
|
<<<
|
||||||
|
~QAGetPath MAC
|
||||||
|
psl ]1
|
||||||
|
_QAGetPath mac ;_QAGetPath(@pathname)
|
||||||
|
utool $46
|
||||||
|
<<<
|
||||||
|
~QAGetObjType MAC
|
||||||
|
pha
|
||||||
|
_QAGetObjType mac ;_QAGetObjType():type
|
||||||
|
utool $47
|
||||||
|
<<<
|
||||||
|
~QASetObjType MAC
|
||||||
|
psw ]1
|
||||||
|
_QASetObjType mac ;_QASetObjType(type)
|
||||||
|
utool $48
|
||||||
|
<<<
|
||||||
|
~QAGetObjPath MAC
|
||||||
|
psl ]1
|
||||||
|
_QAGetObjPath mac ;_QAGetObjPath(@pathname)
|
||||||
|
utool $49
|
||||||
|
<<<
|
||||||
|
~QASetObjPath MAC
|
||||||
|
psl ]1
|
||||||
|
_QASetObjPath mac ;_QASetObjPath(@pathname)
|
||||||
|
utool $4A
|
||||||
|
<<<
|
||||||
|
~QACallUSR MAC
|
||||||
|
pha
|
||||||
|
psw ]1
|
||||||
|
psl ]2
|
||||||
|
_QACallUSR mac ;_QACallUSR(opcode,@operand):handled
|
||||||
|
utool $4B
|
||||||
|
<<<
|
||||||
|
~QACallUser MAC
|
||||||
|
psw ]1
|
||||||
|
psw ]2
|
||||||
|
psl ]3
|
||||||
|
psl ]4
|
||||||
|
_QACallUser mac ;_QACallUser(rngstart,rngend,texthandle/4,textlen/4)
|
||||||
|
utool $4C
|
||||||
|
<<<
|
||||||
|
~QAGoEval MAC
|
||||||
|
pha
|
||||||
|
pha
|
||||||
|
psl ]1
|
||||||
|
psw ]2
|
||||||
|
_QAGoEVAL mac ;_QAGoEVAL(@operand,offset):value/4
|
||||||
|
utool $4D
|
||||||
|
<<<
|
||||||
|
~QAGoPutByte MAC
|
||||||
|
psw ]1
|
||||||
|
_QAGoPutByte mac ;_QAGoPutByte(byte)
|
||||||
|
utool $4E
|
||||||
|
<<<
|
||||||
|
~QAGoPutOpcode MAC
|
||||||
|
psw ]1
|
||||||
|
_QAGoPutOpcode mac ;_QAGoPutOpcode(opcodebyte)
|
||||||
|
utool $4F
|
||||||
|
<<<
|
||||||
|
_QAGoRelcorrect mac ;_QAGoRelcorrect()
|
||||||
|
utool $50
|
||||||
|
<<<
|
||||||
|
~QADrawErrChar MAC
|
||||||
|
psw ]1
|
||||||
|
_QADrawErrChar mac ;_QADrawErrChar(char)
|
||||||
|
utool $51
|
||||||
|
<<<
|
||||||
|
~QADrawErrStr MAC
|
||||||
|
psl ]1
|
||||||
|
_QADrawErrStr mac
|
||||||
|
_QADrawErrString mac ;_QADrawErrString(@strptr)
|
||||||
|
utool $52
|
||||||
|
<<<
|
||||||
|
~QAGetWindow MAC
|
||||||
|
pha <<<< wrong!
|
||||||
|
pha
|
||||||
|
_QAGetWindow mac ;_QAGetWindow():windowtype
|
||||||
|
utool $53
|
||||||
|
<<<
|
||||||
|
~QASetWindow MAC
|
||||||
|
psl ]1 <<< wrong!
|
||||||
|
_QASetWindow mac ;_QASetWindow(windowtype)
|
||||||
|
utool $54
|
||||||
|
<<<
|
||||||
|
~QAGetShellID MAC
|
||||||
|
pha
|
||||||
|
_QAGetShellID mac ;_QAGetShellID():userid
|
||||||
|
utool $55
|
||||||
|
<<<
|
||||||
|
~QASetShellID MAC
|
||||||
|
psw ]1
|
||||||
|
_QASetShellID mac ;_QASetShellID(userid)
|
||||||
|
utool $56
|
||||||
|
<<<
|
||||||
|
~QAGotoXY MAC
|
||||||
|
psw ]1
|
||||||
|
psw ]2
|
||||||
|
_QAGotoXY mac ;_QAGotoXY(X,Y)
|
||||||
|
utool $57
|
||||||
|
<<<
|
||||||
|
~QAGetXY MAC
|
||||||
|
pha
|
||||||
|
pha
|
||||||
|
_QAGetXY mac ;_QAGetXY():X,Y
|
||||||
|
utool $58
|
||||||
|
<<<
|
||||||
|
~QAPrNibble MAC
|
||||||
|
psw ]1
|
||||||
|
_QAPrNibble mac ;_QAPrNibble(nibval)
|
||||||
|
utool $59
|
||||||
|
<<<
|
||||||
|
~QADrawHex MAC
|
||||||
|
psl ]1
|
||||||
|
psw ]2
|
||||||
|
psw ]3
|
||||||
|
_QADrawHex mac ;_QADrawHex(hexval/4,flags,fieldsize)
|
||||||
|
utool $5A
|
||||||
|
<<<
|
||||||
|
~QADrawCStr mac
|
||||||
|
~QADrawCString mac
|
||||||
|
psl ]1
|
||||||
|
_QADrawCStr mac
|
||||||
|
_QADrawCString mac
|
||||||
|
_QADrawBlock mac ;_QADrawBlock(@CBlock)
|
||||||
|
utool $5B
|
||||||
|
<<<
|
||||||
|
~QADrawErrCStr MAC
|
||||||
|
psl ]1
|
||||||
|
_QADrawErrCStr mac
|
||||||
|
_QADrawErrBlock mac ;_QADrawErrBlock(@CBlock)
|
||||||
|
utool $5C
|
||||||
|
<<<
|
||||||
|
~QADrawCharX MAC
|
||||||
|
psw ]1
|
||||||
|
psw ]2
|
||||||
|
_QADrawCharX mac ;_QADrawCharX(char,count)
|
||||||
|
utool $5D
|
||||||
|
<<<
|
||||||
|
~QADrawECharX MAC
|
||||||
|
psw ]1
|
||||||
|
psw ]2
|
||||||
|
_QADrawECharX mac ;_QADrawECharX(char,count)
|
||||||
|
utool $5E
|
||||||
|
<<<
|
||||||
|
~QAGetLaunch MAC
|
||||||
|
pha
|
||||||
|
pha
|
||||||
|
pha
|
||||||
|
_QAGetLaunch mac ;_QAGetLaunch():@path,flags
|
||||||
|
utool $5F
|
||||||
|
<<<
|
||||||
|
~QASetLaunch MAC
|
||||||
|
psl ]1
|
||||||
|
psw ]2
|
||||||
|
_QASetLaunch mac ;_QASetLaunch(@path,flags)
|
||||||
|
utool $60
|
||||||
|
<<<
|
||||||
|
~QAGetWord MAC
|
||||||
|
pha
|
||||||
|
pha
|
||||||
|
psl ]1
|
||||||
|
psw ]2
|
||||||
|
psw ]3
|
||||||
|
_QAGetWord mac ;_QAGetWord(@Text,Offset,MaxLen):BegOffset,EndOffset
|
||||||
|
utool $61
|
||||||
|
<<<
|
||||||
|
~QADateTime mac
|
||||||
|
psl ]1
|
||||||
|
psw ]2
|
||||||
|
_QADateTime mac ;_QADateTime(@Date,flags)
|
||||||
|
utool $62
|
||||||
|
<<<
|
||||||
|
_QADrawCR mac ;_QADrawCR()
|
||||||
|
utool $63
|
||||||
|
<<<
|
||||||
|
_QADrawSpace mac ;_QADrawSpace()
|
||||||
|
utool $64
|
||||||
|
<<<
|
||||||
|
~QADrawVersion mac
|
||||||
|
psl ]1
|
||||||
|
_QADrawVersion mac ;_QADrawVersion(Version/4)
|
||||||
|
utool $65
|
||||||
|
<<<
|
||||||
|
~QADrawBox MAC
|
||||||
|
pha
|
||||||
|
pha
|
||||||
|
psw ]1
|
||||||
|
psw ]2
|
||||||
|
psw ]3
|
||||||
|
psw ]4
|
||||||
|
_QADrawBox MAC ;_QADrawBox(x,y,width,height):buffhdl
|
||||||
|
utool $66
|
||||||
|
<<<
|
||||||
|
~QAEraseBox MAC
|
||||||
|
psl ]1
|
||||||
|
_QAEraseBox MAC ;_QAEraseBox(buffhdl)
|
||||||
|
utool $67
|
||||||
|
<<<
|
||||||
|
~QAConvertStr MAC
|
||||||
|
pha
|
||||||
|
psl ]1
|
||||||
|
psl ]2
|
||||||
|
psw ]3
|
||||||
|
_QAConvertStr MAC ;_QAConvertStr(@string/class.1,@buffer/class.1,cmdcode):rtncode
|
||||||
|
utool $68
|
||||||
|
<<<
|
||||||
|
~QADrawStrL MAC
|
||||||
|
psl ]1
|
||||||
|
_QADrawStrL MAC ;_QADrawStrL(@string/class.1)
|
||||||
|
utool $69
|
||||||
|
<<<
|
||||||
|
~QADrawErrStrL MAC
|
||||||
|
psl ]1
|
||||||
|
_QADrawErrStrL MAC ;_QADrawErrStrL(@strptr/class.1)
|
||||||
|
utool $6A
|
||||||
|
<<<
|
||||||
|
~QAGetKeyAdrs MAC
|
||||||
|
pha
|
||||||
|
pha
|
||||||
|
_QAGetKeyAdrs MAC ;_QAGetKeyAdrs():keyaddress/4
|
||||||
|
utool $6B
|
||||||
|
<<<
|
||||||
|
~QANextLine MAC
|
||||||
|
pha
|
||||||
|
pha
|
||||||
|
psl ]1
|
||||||
|
psw ]2
|
||||||
|
psw ]3
|
||||||
|
_QANextLine mac ;_QANextLine(@Text,Offset,MaxLen):NewLineOffset
|
||||||
|
utool $6C
|
||||||
|
<<<
|
||||||
|
_QAClearKey MAC ;_QAClearKey()
|
||||||
|
utool $6D
|
||||||
|
<<<
|
||||||
|
_QAParseWord MAC ;_QAParseWord(???):???
|
||||||
|
utool $6E
|
||||||
|
<<<
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
*utool mac
|
||||||
|
* ldx #]1*256+ToolNum
|
||||||
|
* do userorsys
|
||||||
|
* jsl $E10008
|
||||||
|
* else
|
||||||
|
* jsl $E10000
|
||||||
|
* fin
|
||||||
|
* <<<
|
||||||
|
|
Loading…
Reference in New Issue
Block a user