mirror of
https://github.com/antoinevignau/source.git
synced 2025-01-04 04:31:04 +00:00
295 lines
3.6 KiB
Plaintext
295 lines
3.6 KiB
Plaintext
MACRO
|
|
&lab _SetPort
|
|
&lab ldx #$1B04
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _GetPort
|
|
&lab ldx #$1C04
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _SetPenMode
|
|
&lab ldx #$2E04
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _GetPenMode
|
|
&lab ldx #$2F04
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _SetSolidPenPat
|
|
&lab ldx #$3704
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _SetRect
|
|
&lab ldx #$4A04
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _PtInRect
|
|
&lab ldx #$4F04
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _FrameRect
|
|
&lab ldx #$5304
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _InvertRect
|
|
&lab ldx #$5604
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _PPToPort
|
|
&lab ldx #$D604
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _HiliteControl
|
|
&lab ldx #$1110
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _CloseDialog
|
|
&lab ldx #$0C15
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _GetControlDItem
|
|
&lab ldx #$1E15
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _GetMouse
|
|
&lab ldx #$0C06
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _NewHandle
|
|
&lab ldx #$0902
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _DisposeHandle
|
|
&lab ldx #$1002
|
|
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 _SetClip
|
|
&lab ldx #$2404
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _GetClip
|
|
&lab ldx #$2504
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _ClipRect
|
|
&lab ldx #$2604
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _SetPenPat
|
|
&lab ldx #$3004
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _MoveTo
|
|
&lab ldx #$3A04
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _LineTo
|
|
&lab ldx #$3C04
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _Line
|
|
&lab ldx #$3D04
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _OffsetRect
|
|
&lab ldx #$4B04
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _EmptyRect
|
|
&lab ldx #$5204
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _PaintRect
|
|
&lab ldx #$5404
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _FillRect
|
|
&lab ldx #$5704
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _FrameOval
|
|
&lab ldx #$5804
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _PaintOval
|
|
&lab ldx #$5904
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _FrameRRect
|
|
&lab ldx #$5D04
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _PaintRRect
|
|
&lab ldx #$5E04
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _NewRgn
|
|
&lab ldx #$6704
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _DisposeRgn
|
|
&lab ldx #$6804
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _HideCursor
|
|
&lab ldx #$9004
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _ShowCursor
|
|
&lab ldx #$9104
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _SetTextMode
|
|
&lab ldx #$9C04
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _GetTextMode
|
|
&lab ldx #$9D04
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _SetForeColor
|
|
&lab ldx #$A004
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _DrawChar
|
|
&lab ldx #$A404
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _DrawString
|
|
&lab ldx #$A504
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _NewModelessDialog
|
|
&lab ldx #$0B15
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _DialogSelect
|
|
&lab ldx #$1115
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _CautionAlert
|
|
&lab ldx #$1A15
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _GetNewDItem
|
|
&lab ldx #$3315
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _GetNextEvent
|
|
&lab ldx #$0A06
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _StillDown
|
|
&lab ldx #$0E06
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _InstallFont
|
|
&lab ldx #$0E1B
|
|
jsl $E10000
|
|
MEND
|