mirror of
https://github.com/antoinevignau/source.git
synced 2024-11-16 19:05:36 +00:00
1 line
2.6 KiB
Plaintext
1 line
2.6 KiB
Plaintext
MACRO
|
|
&lab _CompactMem
|
|
&lab ldx #$1F02
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _DisposeHandle
|
|
&lab ldx #$1002
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _MMShutDown
|
|
&lab ldx #$0302
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _MMStartUp
|
|
&lab ldx #$0202
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _NewHandle
|
|
&lab ldx #$0902
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab pulllong &addr1,&addr2
|
|
&lab ANOP
|
|
AIF C:&addr1=0,.a
|
|
AIF C:&addr2=0,.b
|
|
LCLC &C
|
|
&C AMID &addr1,1,1
|
|
AIF "&C"="[",.zeropage
|
|
pullword &addr1
|
|
sta &addr2
|
|
pullword &addr1+2
|
|
sta &addr2+2
|
|
MEXIT
|
|
.a
|
|
pullword
|
|
pullword
|
|
MEXIT
|
|
.b
|
|
pullword &addr1
|
|
pullword &addr1+2
|
|
MEXIT
|
|
.zeropage
|
|
ldy #&addr2
|
|
pullword &addr1,y
|
|
ldy #&addr2+2
|
|
pullword &addr1,y
|
|
MEND
|
|
MACRO
|
|
&lab pullword &SYSOPR
|
|
&lab ANOP
|
|
pla
|
|
AIF C:&SYSOPR=0,.end
|
|
sta &SYSOPR
|
|
.end
|
|
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
|
|
&C AMID "&SYSOPR",1,1
|
|
AIF ("&C"="#").AND.(S:LONGA),.immediate
|
|
lda &SYSOPR
|
|
pha
|
|
MEXIT
|
|
.b
|
|
pha
|
|
MEXIT
|
|
.immediate
|
|
LCLC &REST
|
|
LCLA &BL
|
|
&BL ASEARCH "&SYSOPR"," ",1
|
|
AIF &BL>0,.a
|
|
&BL SETA L:&SYSOPR+1
|
|
.a
|
|
&REST AMID "&SYSOPR",2,&BL-2
|
|
dc I1'$F4',I2'&REST'
|
|
MEND
|
|
MACRO
|
|
&lab _TLShutDown
|
|
&lab ldx #$0301
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _TLStartUp
|
|
&lab ldx #$0201
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _UnPackBytes
|
|
&lab ldx #$2703
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab str &string
|
|
&lab dc i1'L:&string',C'&string'
|
|
MEND
|
|
MACRO
|
|
&lab _GetHandleSize
|
|
&lab ldx #$1802
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _MTStartUp
|
|
&lab ldx #$0203
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _IntSource
|
|
&lab ldx #$2303
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _IMShutDown
|
|
&lab ldx #$030B
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _IMStartUp
|
|
&lab ldx #$020B
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _Long2Dec
|
|
&lab ldx #$270B
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _MTShutDown
|
|
&lab ldx #$0303
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _SetSoundMIRQV
|
|
&lab ldx #$1208
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _WriteRamBlock
|
|
&lab ldx #$0908
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _SoundShutDown
|
|
&lab ldx #$0308
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _SoundStartUp
|
|
&lab ldx #$0208
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _DelHeartBeat
|
|
&lab ldx #$1303
|
|
jsl $E10000
|
|
MEND
|
|
MACRO
|
|
&lab _SetHeartBeat
|
|
&lab ldx #$1203
|
|
jsl $E10000
|
|
MEND
|