mirror of
https://github.com/marketideas/qasm.git
synced 2024-06-11 06:29:29 +00:00
use tool macros instead of numbers. also use normal tool macro case
This commit is contained in:
Kelvin Sherlock
parent
8d66e85d2c
commit
1fe4590e2c
|
|
@ -723,7 +723,7 @@ dodiv php
|
|||
pha
|
||||
lda xreg
|
||||
pha
|
||||
tll $0d0b
|
||||
_LongDivide
|
||||
pla
|
||||
sta xreg
|
||||
pla
|
||||
|
|
@ -759,7 +759,7 @@ domod php
|
|||
pha
|
||||
lda xreg
|
||||
pha
|
||||
tll $0d0b
|
||||
_LongDivide
|
||||
pla
|
||||
pla
|
||||
pla
|
||||
|
|
|
|||
|
|
@ -6,7 +6,7 @@ writeexp php
|
|||
pha
|
||||
psl #tempname+12
|
||||
pea 4
|
||||
tll $220b ;int2hex
|
||||
_Int2Hex
|
||||
|
||||
jsr einitvars
|
||||
jcs :errxit
|
||||
|
|
@ -178,7 +178,7 @@ buildexp php
|
|||
pha
|
||||
pea $8000
|
||||
psl #$00
|
||||
_newhandle
|
||||
_NewHandle
|
||||
plx
|
||||
ply
|
||||
jcs :errxit
|
||||
|
|
@ -801,7 +801,7 @@ writeseg php
|
|||
rep $30
|
||||
psl #$00
|
||||
psl seghdrhdl
|
||||
_gethandlesize
|
||||
_GetHandleSize
|
||||
pll outrequest
|
||||
lda seghdrptr
|
||||
sta outbuffer
|
||||
|
|
@ -811,7 +811,7 @@ writeseg php
|
|||
jcs :err
|
||||
psl #$00
|
||||
psl segdatahdl
|
||||
_gethandlesize
|
||||
_GetHandleSize
|
||||
pll outrequest
|
||||
lda segdataptr
|
||||
sta outbuffer
|
||||
|
|
@ -857,24 +857,24 @@ readseg php
|
|||
pha
|
||||
pea $0000
|
||||
psl #$00
|
||||
_newhandle
|
||||
_NewHandle
|
||||
plx
|
||||
ply
|
||||
jcs :errxit
|
||||
stx seghdrhdl
|
||||
sty seghdrhdl+2
|
||||
:resize psl seghdrhdl
|
||||
_Hunlock
|
||||
_HUnlock
|
||||
ldx :offset
|
||||
pea $00
|
||||
lda segdata+headerlen,x
|
||||
pha
|
||||
psl seghdrhdl
|
||||
_sethandlesize
|
||||
_SetHandleSize
|
||||
php
|
||||
pha
|
||||
psl seghdrhdl
|
||||
_Hlock
|
||||
_HLock
|
||||
pla
|
||||
plp
|
||||
jcs :errxit
|
||||
|
|
@ -906,14 +906,14 @@ readseg php
|
|||
pha
|
||||
pea $0000
|
||||
psl #$00
|
||||
_newhandle
|
||||
_NewHandle
|
||||
plx
|
||||
ply
|
||||
jcs :errxit
|
||||
stx segdatahdl
|
||||
sty segdatahdl+2
|
||||
:resize1 psl segdatahdl
|
||||
_Hunlock
|
||||
_HUnlock
|
||||
ldx :offset
|
||||
ldy #$02
|
||||
lda [seghdrptr] ;get bytecnt
|
||||
|
|
@ -927,11 +927,11 @@ readseg php
|
|||
lda inrequest
|
||||
pha
|
||||
psl segdatahdl
|
||||
_sethandlesize
|
||||
_SetHandleSize
|
||||
php
|
||||
pha
|
||||
psl segdatahdl
|
||||
_Hlock
|
||||
_HLock
|
||||
pla
|
||||
plp
|
||||
jcs :errxit
|
||||
|
|
|
|||
|
|
@ -87,7 +87,7 @@ start php
|
|||
lda userid
|
||||
ora #linkmemid
|
||||
pha
|
||||
_disposeall
|
||||
_DisposeAll
|
||||
pla
|
||||
pld
|
||||
plb
|
||||
|
|
@ -240,7 +240,7 @@ doquicklink php
|
|||
phy
|
||||
phx
|
||||
psl #qtextend-qtext
|
||||
tll $2802 ;_PtrToHand
|
||||
_PtrToHand
|
||||
psl #quickname
|
||||
_QAGetPath
|
||||
lda #^quickname
|
||||
|
|
|
|||
|
|
@ -5,7 +5,7 @@ _DisposeAll MAC
|
|||
tll $1102
|
||||
<<<
|
||||
_NewHandle MAC
|
||||
tll $902
|
||||
tll $0902
|
||||
<<<
|
||||
_GetHandleSize MAC
|
||||
tll $1802
|
||||
|
|
@ -19,6 +19,26 @@ _HLock MAC
|
|||
_HUnlock MAC
|
||||
tll $2202
|
||||
<<<
|
||||
_LongDivide MAC
|
||||
tll $0d0b
|
||||
<<<
|
||||
_Int2Hex MAC
|
||||
tll $220b
|
||||
<<<
|
||||
_PtrToHand MAC
|
||||
tll $2802
|
||||
<<<
|
||||
_BlockMove MAC
|
||||
tll $2b02
|
||||
<<<
|
||||
|
||||
_CreateResourceFile MAC
|
||||
tll $091e
|
||||
<<<
|
||||
|
||||
_ReadAsciiTime MAC
|
||||
tll $0f03
|
||||
<<<
|
||||
|
||||
_setmark MAC
|
||||
jsl $e100a8
|
||||
|
|
|
|||
|
|
@ -9,7 +9,7 @@ link php
|
|||
pha
|
||||
phy
|
||||
phx
|
||||
tll $1802
|
||||
_GetHandleSize
|
||||
plx
|
||||
ply
|
||||
jcs :err
|
||||
|
|
@ -57,15 +57,15 @@ link php
|
|||
lda userid
|
||||
ora #linkmemid
|
||||
pha
|
||||
_disposeall
|
||||
_DisposeAll
|
||||
lda userid
|
||||
ora #linkmemid+$100
|
||||
pha
|
||||
_disposeall
|
||||
_DisposeAll
|
||||
lda userid
|
||||
ora #linkmemid+$200
|
||||
pha
|
||||
_disposeall
|
||||
_DisposeAll
|
||||
|
||||
:dxit plp
|
||||
rts
|
||||
|
|
@ -90,7 +90,7 @@ linker php
|
|||
pha
|
||||
pea $8000
|
||||
psl #$00
|
||||
tll $0902
|
||||
_NewHandle
|
||||
plx
|
||||
ply
|
||||
jcs :memerr
|
||||
|
|
@ -106,7 +106,7 @@ linker php
|
|||
pha
|
||||
pea $8000
|
||||
psl #$00
|
||||
tll $0902
|
||||
_NewHandle
|
||||
plx
|
||||
ply
|
||||
jcs :memerr
|
||||
|
|
@ -977,7 +977,7 @@ datop lda passnum
|
|||
clc
|
||||
rts
|
||||
:ok psl #:date+1
|
||||
tll $0F03 ;_ReadAsciiTime
|
||||
_ReadAsciiTime
|
||||
psl #:date
|
||||
_QADrawString
|
||||
lda #$0d
|
||||
|
|
@ -1415,7 +1415,7 @@ impop sec
|
|||
sta :handle+2
|
||||
psl #$00
|
||||
psl :handle
|
||||
_gethandlesize
|
||||
_GetHandlSize
|
||||
pll :aux
|
||||
lda :aux+2
|
||||
jne :toolarge
|
||||
|
|
@ -1425,13 +1425,13 @@ impop sec
|
|||
inc :aux
|
||||
inc :aux
|
||||
psl :handle
|
||||
_Hunlock
|
||||
_HUnlock
|
||||
psl :aux
|
||||
psl :handle
|
||||
_sethandlesize
|
||||
_SetHandleSize
|
||||
jcs :doserr
|
||||
psl :handle
|
||||
_Hlock
|
||||
_HLock
|
||||
dec :aux
|
||||
dec :aux
|
||||
lda :handle
|
||||
|
|
@ -1459,7 +1459,7 @@ impop sec
|
|||
lda segnum
|
||||
sta files+10,x
|
||||
psl :handle
|
||||
_Hlock
|
||||
_HLock
|
||||
lda :aux
|
||||
clc
|
||||
adc reloffset
|
||||
|
|
@ -1650,7 +1650,7 @@ lnkop sec
|
|||
lda segnum
|
||||
sta files+10,x
|
||||
psl :handle
|
||||
_Hlock
|
||||
_HLock
|
||||
lda :aux
|
||||
clc
|
||||
adc reloffset
|
||||
|
|
@ -1812,10 +1812,10 @@ lnkop sec
|
|||
and #$ff
|
||||
sta :byte
|
||||
psl :handle
|
||||
_Hunlock
|
||||
_HUnlock
|
||||
psl #$00
|
||||
psl :handle
|
||||
_gethandlesize
|
||||
_GetHandlSsize
|
||||
pll :size
|
||||
lda :more
|
||||
clc
|
||||
|
|
@ -1825,11 +1825,11 @@ lnkop sec
|
|||
inc :size+2
|
||||
:l1 psl :size
|
||||
psl :handle
|
||||
_sethandlesize
|
||||
_SetHandleSize
|
||||
php
|
||||
pha
|
||||
psl :handle
|
||||
_Hlock
|
||||
_HLock
|
||||
pla
|
||||
plp
|
||||
bcc :deref
|
||||
|
|
@ -1867,7 +1867,7 @@ lnkop sec
|
|||
pea $00
|
||||
lda :more
|
||||
pha
|
||||
tll $2b02 ;_Blockmove
|
||||
_BlockMove
|
||||
ldy :aux
|
||||
ldx #$00
|
||||
sep $20
|
||||
|
|
@ -2137,7 +2137,7 @@ buildfinal
|
|||
pha
|
||||
lda tempptr
|
||||
pha
|
||||
_Hlock
|
||||
_HLock
|
||||
ldy #$02
|
||||
lda [tempptr]
|
||||
tax
|
||||
|
|
@ -3623,7 +3623,7 @@ savop lda #$00
|
|||
ora compresshdl+2
|
||||
beq :plp
|
||||
psl compresshdl
|
||||
_disposehandle
|
||||
_DisposeHandle
|
||||
stz compresshdl
|
||||
stz compresshdl+2
|
||||
:plp plp
|
||||
|
|
@ -3682,7 +3682,7 @@ compress php
|
|||
pha
|
||||
pea $8000
|
||||
psl #$00
|
||||
tll $0902
|
||||
_NewHandle
|
||||
plx
|
||||
ply
|
||||
jcs :badcompress
|
||||
|
|
@ -4898,7 +4898,7 @@ saveseg php
|
|||
psl :handle
|
||||
_HUnlock
|
||||
psl :handle
|
||||
_disposehandle
|
||||
_DisposeHandle
|
||||
plx
|
||||
pla
|
||||
plp
|
||||
|
|
@ -5460,15 +5460,15 @@ disposemem php
|
|||
lda userid
|
||||
ora #linkmemid
|
||||
pha
|
||||
_disposeall
|
||||
_DisposeAll
|
||||
lda userid
|
||||
ora #linkmemid+$100
|
||||
pha
|
||||
_disposeall
|
||||
_DisposeAll
|
||||
lda userid
|
||||
ora #linkmemid+$200
|
||||
pha
|
||||
_disposeall
|
||||
_DisposeAll
|
||||
stz linksymhdl
|
||||
stz linksymhdl+2
|
||||
stz globalhdl
|
||||
|
|
|
|||
|
|
@ -90,7 +90,7 @@ writerez1 php
|
|||
lda :outacc
|
||||
pha
|
||||
psl #asmpath
|
||||
tll $091e ;_CreateResourceFile
|
||||
_CreateResourceFile
|
||||
jcs :err
|
||||
:copy psl #$00
|
||||
psl #rezbuffsize
|
||||
|
|
@ -99,7 +99,7 @@ writerez1 php
|
|||
pha
|
||||
pea $8000
|
||||
psl #$00
|
||||
_newhandle
|
||||
_NewHandle
|
||||
plx
|
||||
ply
|
||||
jcs :err
|
||||
|
|
@ -179,7 +179,7 @@ writerez1 php
|
|||
ora :handle+2
|
||||
beq :pla1
|
||||
psl :handle
|
||||
_disposehandle
|
||||
_DisposeHandle
|
||||
stz :handle
|
||||
stz :handle+2
|
||||
:pla1 pla
|
||||
|
|
@ -344,7 +344,7 @@ jumpentry php
|
|||
:enter jsr newjmpentry
|
||||
bcs :sec
|
||||
psl jmphdl
|
||||
_hlock
|
||||
_HLock
|
||||
lda interseg
|
||||
and #$7fff
|
||||
sta jseg
|
||||
|
|
@ -378,7 +378,7 @@ jumpentry php
|
|||
sec
|
||||
ror dynamic
|
||||
:clc psl jmphdl
|
||||
_hunlock
|
||||
_HUnlock
|
||||
plx
|
||||
ply
|
||||
plp
|
||||
|
|
@ -389,7 +389,7 @@ jumpentry php
|
|||
ora jmphdl+2
|
||||
beq :sec1
|
||||
psl jmphdl
|
||||
_hunlock
|
||||
_HUnlock
|
||||
:sec1 pla
|
||||
plx
|
||||
ply
|
||||
|
|
@ -417,7 +417,7 @@ newjmpentry php
|
|||
pha
|
||||
pea $8000
|
||||
psl #$00
|
||||
_newhandle
|
||||
_NewHandle
|
||||
plx
|
||||
ply
|
||||
jcs :err
|
||||
|
|
@ -436,7 +436,7 @@ newjmpentry php
|
|||
_HUnlock
|
||||
psl #$00
|
||||
psl jmphdl
|
||||
_gethandlesize
|
||||
_GetHandleSize
|
||||
pll :size
|
||||
lda :size
|
||||
clc
|
||||
|
|
@ -449,10 +449,10 @@ newjmpentry php
|
|||
bne :toobig
|
||||
psl :size
|
||||
psl jmphdl
|
||||
_sethandlesize
|
||||
_SetHandleSize
|
||||
bcs :err
|
||||
psl jmphdl
|
||||
_Hlock
|
||||
_HLock
|
||||
ldy #$02
|
||||
lda [jmphdl]
|
||||
sta jmpptr
|
||||
|
|
@ -640,7 +640,7 @@ writejmpseg php
|
|||
|
||||
:omf3
|
||||
psl jmphdl
|
||||
_hlock
|
||||
_HLock
|
||||
lda jmphdl
|
||||
sta jmpptr
|
||||
lda jmphdl+2
|
||||
|
|
@ -652,7 +652,7 @@ writejmpseg php
|
|||
sta :buffer+2
|
||||
psl #$00
|
||||
psl jmphdl
|
||||
_gethandlesize
|
||||
_GetHandleSize
|
||||
pll :request
|
||||
|
||||
lda :request
|
||||
|
|
@ -1518,7 +1518,7 @@ newsegment php
|
|||
pha
|
||||
pea $00
|
||||
psl #$00
|
||||
tll $0902
|
||||
_NewHandle
|
||||
plx
|
||||
ply
|
||||
jcs :sec1
|
||||
|
|
@ -1537,10 +1537,10 @@ newsegment php
|
|||
asl
|
||||
pha
|
||||
psl segmenthdl
|
||||
tll $1902 ;set handle size
|
||||
_SetHandleSize
|
||||
jcs :sec1
|
||||
psl segmenthdl
|
||||
_Hlock
|
||||
_HLock
|
||||
lda segmenthdl
|
||||
sta segmentptr
|
||||
lda segmenthdl+2
|
||||
|
|
@ -1602,7 +1602,7 @@ inclablect php
|
|||
pha
|
||||
pea $8004 ;page aligned/locked
|
||||
psl #$00
|
||||
tll $0902
|
||||
_NewHandle
|
||||
plx
|
||||
ply
|
||||
jcs :sec
|
||||
|
|
@ -1650,7 +1650,7 @@ incasmlablect php
|
|||
pha
|
||||
pea $8004 ;page aligned/locked
|
||||
psl #$00
|
||||
tll $0902
|
||||
_NewHandle
|
||||
plx
|
||||
ply
|
||||
jcs :sec
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user