antoine-source/showoff/MACROS/TESTPRODOS.MAC

 MACRO
&lab pushword &sysopr,&reg
&lab ANOP
 AIF C:&sysopr,.ok
 phd
 MEXIT
.ok
 AIF C:&reg,.indexed
 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),.zeropage
 AIF ("&C"="#").AND.(S:LONGA),.immediate
 lda &sysopr
.b
 pha
 MEXIT
.zeropage
 pei &REST
 MEXIT
.immediate
 pea &REST
 MEXIT
.indexed
 lda &sysopr,&reg
 pha
 MEND
 MACRO
&lab str &string
&lab dc i1'l:&string',c'&string'
 MEND
 MACRO
&lab _EMShutDown
&lab ldx #$0306
 jsl $E10000
 MEND
 MACRO
&lab _IMStartUp
&lab ldx #$020B
 jsl $E10000
 MEND
 MACRO
&lab _IMShutDown
&lab ldx #$030B
 jsl $E10000
 MEND
 MACRO
&lab _TLStartUp
&lab ldx #$0201
 jsl $E10000
 MEND
 MACRO
&lab _TLShutDown
&lab ldx #$0301
 jsl $E10000
 MEND
 MACRO
&lab _MMStartUp
&lab ldx #$0202
 jsl $E10000
 MEND
 MACRO
&lab _MMShutDown
&lab ldx #$0302
 jsl $E10000
 MEND
 MACRO
&lab _MTStartUp
&lab ldx #$0203
 jsl $E10000
 MEND
 MACRO
&lab _MTShutDown
&lab ldx #$0303
 jsl $E10000
 MEND
 MACRO
&lab _SysBeep
&lab ldx #$2C03
 jsl $E10000
 MEND
 MACRO
&lab _GETDEVNUM &params
&lab jsl $E100A8
 dc i2"$20"
 dc i4"&params"
 MEND
 MACRO
&lab _GETDIB &params
&lab jsl $E100A8
 dc i2"$21"
 dc i4"&params"
 MEND
 MACRO
&lab _FORMAT &params
&lab jsl $E100A8
 dc i2"$24"
 dc i4"&params"
 MEND
 MACRO
&lab _QUIT &params
&lab jsl $E100A8
 dc i2"$29"
 dc i4"&params"
 MEND
 MACRO
&lab _InitCursor
&lab ldx #$CA04
 jsl $E10000
 MEND
 MACRO
&lab _TextStartUp
&lab ldx #$020C
 jsl $E10000
 MEND
 MACRO
&lab _TextShutDown
&lab ldx #$030C
 jsl $E10000
 MEND
 MACRO
&lab _ReadChar
&lab ldx #$220C
 jsl $E10000
 MEND