mirror of
https://github.com/antoinevignau/source.git
synced 2025-01-07 07:29:49 +00:00
190 lines
2.4 KiB
Plaintext
190 lines
2.4 KiB
Plaintext
|
MACRO
|
||
|
|
&lab _GetNextEvent
|
||
|
|
&lab ldx #$0A06
|
||
|
|
jsl $E10000
|
||
|
|
MEND
|
||
|
|
MACRO
|
||
|
|
&lab _MoveTo
|
||
|
|
&lab ldx #$3A04
|
||
|
|
jsl $E10000
|
||
|
|
MEND
|
||
|
|
MACRO
|
||
|
|
&lab _SetForeColor
|
||
|
|
&lab ldx #$A004
|
||
|
|
jsl $E10000
|
||
|
|
MEND
|
||
|
|
MACRO
|
||
|
|
&lab _DrawString
|
||
|
|
&lab ldx #$A504
|
||
|
|
jsl $E10000
|
||
|
|
MEND
|
||
|
|
MACRO
|
||
|
|
&lab pushlong &addr,&offset
|
||
|
|
&lab ANOP
|
||
|
|
LCLC &C
|
||
|
|
LCLC &REST
|
||
|
|
&C AMID &addr,1,1
|
||
|
|
AIF "&C"="#",.immediate
|
||
|
|
AIF "&C"="[",.zeropage
|
||
|
|
AIF C:&offset=0,.nooffset
|
||
|
|
AIF "&offset"="s",.stack
|
||
|
|
pushword &addr+2,&offset
|
||
|
|
pushword &addr,&offset
|
||
|
|
MEXIT
|
||
|
|
.nooffset
|
||
|
|
pushword &addr+2
|
||
|
|
pushword &addr
|
||
|
|
MEXIT
|
||
|
|
.immediate
|
||
|
|
&REST AMID &addr,2,L:&addr-1
|
||
|
|
dc I1'$F4',I2'(&REST)|-16'
|
||
|
|
dc I1'$F4',I2'&REST'
|
||
|
|
MEXIT
|
||
|
|
.stack
|
||
|
|
pushword &addr+2,s
|
||
|
|
pushword &addr+2,s
|
||
|
|
MEXIT
|
||
|
|
.zeropage
|
||
|
|
ldy #&offset+2
|
||
|
|
pushword &addr,y
|
||
|
|
ldy #&offset
|
||
|
|
pushword &addr,y
|
||
|
|
MEND
|
||
|
|
MACRO
|
||
|
|
&lab pushword &sysopr
|
||
|
|
&lab ANOP
|
||
|
|
AIF c:&sysopr=0,.b
|
||
|
|
LCLC &C
|
||
|
|
LCLC &REST
|
||
|
|
LCLA &BL
|
||
|
|
&C AMID "&sysopr",1,1
|
||
|
|
&BL ASEARCH "&sysopr"," ",1
|
||
|
|
AIF &BL>0,.a
|
||
|
|
&BL SETA L:&sysopr+1
|
||
|
|
.a
|
||
|
|
&REST AMID "&sysopr",2,&BL-2
|
||
|
|
AIF ("&C"="#").AND.(S:LONGA),.immediate
|
||
|
|
lda &sysopr
|
||
|
|
pha
|
||
|
|
MEXIT
|
||
|
|
.b
|
||
|
|
pha
|
||
|
|
MEXIT
|
||
|
|
.immediate
|
||
|
|
dc I1'$F4',I2'&REST'
|
||
|
|
MEND
|
||
|
|
MACRO
|
||
|
|
&lab str &string
|
||
|
|
&lab dc i1'l:&string',c'&string'
|
||
|
|
MEND
|
||
|
|
MACRO
|
||
|
|
&lab _SetPort
|
||
|
|
&lab ldx #$1B04
|
||
|
|
jsl $E10000
|
||
|
|
MEND
|
||
|
|
MACRO
|
||
|
|
&lab _GetPort
|
||
|
|
&lab ldx #$1C04
|
||
|
|
jsl $E10000
|
||
|
|
MEND
|
||
|
|
MACRO
|
||
|
|
&lab _SetSolidPenPat
|
||
|
|
&lab ldx #$3704
|
||
|
|
jsl $E10000
|
||
|
|
MEND
|
||
|
|
MACRO
|
||
|
|
&lab _FrameRect
|
||
|
|
&lab ldx #$5304
|
||
|
|
jsl $E10000
|
||
|
|
MEND
|
||
|
|
MACRO
|
||
|
|
&lab _PaintRect
|
||
|
|
&lab ldx #$5404
|
||
|
|
jsl $E10000
|
||
|
|
MEND
|
||
|
|
MACRO
|
||
|
|
&lab _SetTextMode
|
||
|
|
&lab ldx #$9C04
|
||
|
|
jsl $E10000
|
||
|
|
MEND
|
||
|
|
MACRO
|
||
|
|
&lab _HiliteControl
|
||
|
|
&lab ldx #$1110
|
||
|
|
jsl $E10000
|
||
|
|
MEND
|
||
|
|
MACRO
|
||
|
|
&lab _GetControlDItem
|
||
|
|
&lab ldx #$1E15
|
||
|
|
jsl $E10000
|
||
|
|
MEND
|
||
|
|
MACRO
|
||
|
|
&lab _Int2Dec
|
||
|
|
&lab ldx #$260B
|
||
|
|
jsl $E10000
|
||
|
|
MEND
|
||
|
|
MACRO
|
||
|
|
&lab _SetDItemValue
|
||
|
|
&lab ldx #$2F15
|
||
|
|
jsl $E10000
|
||
|
|
MEND
|
||
|
|
MACRO
|
||
|
|
&lab _GetTextMode
|
||
|
|
&lab ldx #$9D04
|
||
|
|
jsl $E10000
|
||
|
|
MEND
|
||
|
|
MACRO
|
||
|
|
&lab _GetForeColor
|
||
|
|
&lab ldx #$A104
|
||
|
|
jsl $E10000
|
||
|
|
MEND
|
||
|
|
MACRO
|
||
|
|
&lab _GetIText
|
||
|
|
&lab ldx #$1F15
|
||
|
|
jsl $E10000
|
||
|
|
MEND
|
||
|
|
MACRO
|
||
|
|
&lab _Dec2Int
|
||
|
|
&lab ldx #$280B
|
||
|
|
jsl $E10000
|
||
|
|
MEND
|
||
|
|
MACRO
|
||
|
|
&lab _NewModelessDialog
|
||
|
|
&lab ldx #$0B15
|
||
|
|
jsl $E10000
|
||
|
|
MEND
|
||
|
|
MACRO
|
||
|
|
&lab _CloseDialog
|
||
|
|
&lab ldx #$0C15
|
||
|
|
jsl $E10000
|
||
|
|
MEND
|
||
|
|
MACRO
|
||
|
|
&lab _DialogSelect
|
||
|
|
&lab ldx #$1115
|
||
|
|
jsl $E10000
|
||
|
|
MEND
|
||
|
|
MACRO
|
||
|
|
&lab _GetNewDItem
|
||
|
|
&lab ldx #$3315
|
||
|
|
jsl $E10000
|
||
|
|
MEND
|
||
|
|
MACRO
|
||
|
|
&lab _SetIText
|
||
|
|
&lab ldx #$2015
|
||
|
|
jsl $E10000
|
||
|
|
MEND
|
||
|
|
MACRO
|
||
|
|
&lab _GetDItemValue
|
||
|
|
&lab ldx #$2E15
|
||
|
|
jsl $E10000
|
||
|
|
MEND
|
||
|
|
MACRO
|
||
|
|
&lab _SetCtlParams
|
||
|
|
&lab ldx #$1B10
|
||
|
|
jsl $E10000
|
||
|
|
MEND
|
||
|
|
MACRO
|
||
|
|
&lab _InvertRect
|
||
|
|
&lab ldx #$5604
|
||
|
|
jsl $E10000
|
||
|
|
MEND
|