mirror of
https://github.com/antoinevignau/source.git
synced 2024-10-06 06:54:46 +00:00
240 lines
3.0 KiB
Plaintext
240 lines
3.0 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 _CloseDialog
|
|
&lab ldx #$0C15
|
|
jsl $E10000
|
|
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 _PtInRect
|
|
&lab ldx #$4F04
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _FrameRect
|
|
&lab ldx #$5304
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _PaintRect
|
|
&lab ldx #$5404
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _SetPenMode
|
|
&lab ldx #$2E04
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _LineTo
|
|
&lab ldx #$3C04
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _SetTextMode
|
|
&lab ldx #$9C04
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _Line
|
|
&lab ldx #$3D04
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _HiliteControl
|
|
&lab ldx #$1110
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _GetControlDItem
|
|
&lab ldx #$1E15
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _SetPenSize
|
|
&lab ldx #$2C04
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _PaintOval
|
|
&lab ldx #$5904
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _Int2Dec
|
|
&lab ldx #$260B
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _UDivide
|
|
&lab ldx #$0B0B
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _NewModelessDialog
|
|
&lab ldx #$0B15
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _DialogSelect
|
|
&lab ldx #$1115
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _GetNewDItem
|
|
&lab ldx #$3315
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _StopAlert
|
|
&lab ldx #$1815
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _PaintArc
|
|
&lab ldx #$6304
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _FrameArc
|
|
&lab ldx #$6204
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _LongMul
|
|
&lab ldx #$0C0B
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _LongDivide
|
|
&lab ldx #$0D0B
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _Long2Dec
|
|
&lab ldx #$270B
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _Dec2Long
|
|
&lab ldx #$290B
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _GetIText
|
|
&lab ldx #$1F15
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _SetIText
|
|
&lab ldx #$2015
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _SetDItemValue
|
|
&lab ldx #$2F15
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _PostEvent
|
|
&lab ldx #$1406
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _GetPenSize
|
|
&lab ldx #$2D04
|
|
jsl $E10000
|
|
MEND
|