mirror of https://github.com/marketideas/qasm.git
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
|
||||
:dec1 dex
|
||||
|
||||
:nodec stx filelendd
|
||||
:nodec stx filelen
|
||||
sty filelen+2
|
||||
|
||||
ldy #$04
|
||||
|
|
|
@ -3,19 +3,18 @@
|
|||
;use ../macs/qatools.macs.s
|
||||
;use ../macs/toolmacs.s
|
||||
|
||||
put asm.vars
|
||||
put asm.1
|
||||
put asm.eval
|
||||
put asm.cond
|
||||
put asm.opcodes
|
||||
put asm.dsk
|
||||
put asm.errors
|
||||
put ../data/opdata
|
||||
ovr all
|
||||
* put asm.vars
|
||||
* put asm.1
|
||||
* put asm.eval
|
||||
* put asm.cond
|
||||
* put asm.opcodes
|
||||
* put asm.dsk
|
||||
* put asm.errors
|
||||
* put ../data/opdata
|
||||
asm asm.header
|
||||
|
||||
lnk ../utility/qasmgs.l
|
||||
lnk qasmgs.l
|
||||
typ exe
|
||||
sav ../utility/qasmgs
|
||||
mylable equ $1234
|
||||
ent
|
||||
sav qasmgs
|
||||
|
||||
|
|
|
@ -9,9 +9,13 @@
|
|||
mx %00 ; make sure we're in 16-bit mode!
|
||||
|
||||
;use util.macs
|
||||
use qatools.macs
|
||||
use ../macros/builtin.macs
|
||||
use ../macros/qatools.macs
|
||||
use ../data/qa.equates
|
||||
|
||||
use asm.macs
|
||||
|
||||
|
||||
brl start
|
||||
|
||||
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
|
||||
da 323,527,850,1377,2227
|
||||
|
||||
do 0
|
||||
err *-array-34
|
||||
fin
|
||||
|
||||
*=================================================
|
||||
* SEED seeds generator from 16 bit contents of AXY
|
||||
|
@ -477,5 +483,5 @@ randomize php
|
|||
lst off
|
||||
|
||||
;typ exe
|
||||
;sav utility/qasmgs.l
|
||||
sav qasmgs.l
|
||||
|
||||
|
|
|
@ -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
|
||||
opcl 'XBA ';onebyte.m65816;$EB
|
||||
opwcode opco 'WDM ';m65816;wdmop
|
||||
opcl 'WAI ';onebyte.m65c02;$CB
|
||||
opcl 'WAI ';onebyte.m65C02;$CB
|
||||
opvcode opcl 'VAR ';psuedo.p6502;varop
|
||||
opucode opco 'USR ';psuedo.p6502;opcop ;*** change this
|
||||
opcl 'USE ';psuedo.p6502;useop
|
||||
|
@ -42,9 +42,9 @@ optcode opco 'TYX ';onebyte.m65816;$BB
|
|||
opco 'TTL ';psuedo.p6502;ttlop
|
||||
opco 'TSX ';onebyte.m6502;$BA
|
||||
opco 'TSC ';onebyte.m65816;$3B
|
||||
opco 'TSB ';m65c02.general;tsbtbl
|
||||
opco 'TSB ';m65C02.general;tsbtbl
|
||||
opco 'TSA ';onebyte.m65816;$3B
|
||||
opco 'TRB ';m65c02.general;trbtbl
|
||||
opco 'TRB ';m65C02.general;trbtbl
|
||||
opco 'TR ';psuedo.p6502;trop
|
||||
opco 'TDC ';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 'STRL';psuedo.p6502;strlop
|
||||
opco 'STR ';psuedo.p6502;strop
|
||||
opco 'STP ';onebyte.m65c02;$db
|
||||
opco 'STP ';onebyte.m65C02;$db
|
||||
opco 'STAL';general.long.m65816.mA;statbl
|
||||
opco 'STA ';general.m6502.mA;statbl
|
||||
opco 'SKP ';psuedo.p6502;skpop
|
||||
|
|
|
@ -128,11 +128,11 @@ maxsymbols = $2000
|
|||
* GSOS equates * call ID numbers
|
||||
|
||||
* Set 'Class1' to $2000 to use Class 1 calls, $0000 for Class 0 calls
|
||||
|
||||
prodos = $E100A8
|
||||
prodosIL = $E100B0
|
||||
inline = 1 ;stack or inline?
|
||||
|
||||
do 0
|
||||
_Create = $0001.Class1
|
||||
_Destroy = $0002.Class1
|
||||
_OSShutdown = $2003 ;class '1' only
|
||||
|
@ -190,4 +190,4 @@ _DRename = $2036 ;class '1' only
|
|||
_GetStdRefNum = $2037 ;class '1' only
|
||||
_GetRefNum = $2038 ;class '1' only
|
||||
_GetRefInfo = $2039 ;class '1' only
|
||||
|
||||
fin
|
||||
|
|
|
@ -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
|
|
@ -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