antoine-source/appleworksgs/IW.CL/Src/iw.macros

1 line
1.2 KiB
Plaintext
Executable File

MACRO
&Lab _Names &MyName
bra Skip&SysCnt
dc i1'$42'
dc i1'L:&MyName'
msb on
dc c'&MyName'
msb off
Skip&SysCnt Anop
Mend
MACRO
&lab _PmGetPrinterName
&lab ldx #19+256*40
jsl $E10000
MEND
MACRO
&lab _PrDevPrChanged
&lab ldx #19+256*25
jsl $E10000
MEND
MACRO
&lab _PrDevStartup
&lab ldx #19+256*26
jsl $E10000
MEND
MACRO
&lab _PrDevShutdown
&lab ldx #19+256*27
jsl $E10000
MEND
MACRO
&lab _PrDevOpen
&lab ldx #19+256*28
jsl $E10000
MEND
MACRO
&lab _PrDevRead
&lab ldx #19+256*29
jsl $E10000
MEND
MACRO
&lab _PrDevWrite
&lab ldx #19+256*30
jsl $E10000
MEND
MACRO
&lab _PrDevClose
&lab ldx #19+256*31
jsl $E10000
MEND
MACRO
&lab _PrDevStatus
&lab ldx #19+256*32
jsl $E10000
MEND
MACRO
&lab _PrDevInitBack
&lab ldx #19+256*33
jsl $E10000
MEND
MACRO
&lab _PrDevFillBack
&lab ldx #19+256*34
jsl $E10000
MEND
MACRO
&lab _PrDevAsyncRead
&lab ldx #19+256*33
jsl $E10000
MEND
MACRO
&lab _PrDevAsyncWrite
&lab ldx #19+256*34
jsl $E10000
MEND
MACRO
&lab _error
&lab bcc @1
dc.b 0,$4c ; brk $4c
@1
mend
MACRO
&lab _DevIsItSafe
&lab ldx #19+256*48
jsl $E10000
MEND
MACRO
&lab MoveRect &Src,&Dest
&lab lda &Src
sta &Dest
lda &Src+2
sta &Dest+2
lda &Src+4
sta &Dest+4
lda &Src+6
sta &Dest+6
MEND