;; These macros are copyrighted by Apple Computer,Inc ;; or by Byte Works, Inc. ;; ;; ;; MACRO &lab _WriteGS ¶ms &lab jsl $E100A8 dc i2"$2013" dc i4"¶ms" MEND MACRO &lab _GetScrapHandle &lab ldx #$0E16 jsl $E10000 MEND MACRO &lab _WriteChar &lab ldx #$180C jsl $E10000 MEND macro &l plax &loc &l pla plx aif c:&loc,.store mexit .store sta &loc stx &loc+2 mend macro &l phxa &l phx pha mend macro &l stax &loc lclc &c &c amid &loc,1,1 aif "&c"="[",.deref &l sta &loc stx &loc+2 mexit .deref &l ldy #2 sta &loc txa sta &loc,y mend macro &l ldax &loc lclc &c &c amid &loc,1,1 aif "&c"="#",.direct aif "&c"="[",.deref &l lda &loc ldx &loc+2 mexit .direct &loc amid &loc,2,l:&loc-1 &l lda #&loc ldx #^&loc mexit .deref &l ldy #2 lda &loc,y tax lda &loc mend macro &l ph4 &n1 &l anop aif "&n1"="*",.f lclc &c &c amid &n1,1,1 aif "&c"="#",.d aif s:longa=1,.a rep #%00100000 .a aif "&c"<>"{",.b &c amid &n1,l:&n1,1 aif "&c"<>"}",.g &n1 amid &n1,2,l:&n1-2 ldy #2 lda (&n1),y pha lda (&n1) pha ago .e .b aif "&c"<>"[",.c ldy #2 lda &n1,y pha lda &n1 pha ago .e .c aif "&c"<>"<",.c1 &n1 amid &n1,2,l:&n1-1 pei &n1+2 pei &n1 ago .e .c1 lda &n1+2 pha lda &n1 pha ago .e .d &n1 amid &n1,2,l:&n1-1 pea +(&n1)|-16 pea &n1 ago .f .e aif s:longa=1,.f sep #%00100000 .f mexit .g mnote "Missing closing '}'",16 mend MACRO &lab _GetEOFGS ¶ms &lab jsl $E100A8 dc i2"$2019" dc i4"¶ms" MEND MACRO &lab _ReadGS ¶ms &lab jsl $E100A8 dc i2"$2012" dc i4"¶ms" MEND MACRO &lab _PutScrap &lab ldx #$0C16 jsl $E10000 MEND MACRO &lab _ZeroScrap &lab ldx #$0B16 jsl $E10000 MEND MACRO &lab _NewHandle &lab ldx #$0902 jsl $E10000 MEND macro &l ~GetHandleSize &p1 &l ph4 &p1 ldx #$1802 jsl $E10000 mend macro &l ~ErrWriteCString &p1 &l ph4 &p1 ldx #$210C jsl $E10000 mend MACRO &lab _HLock &lab ldx #$2002 jsl $E10000 MEND MACRO &lab _HUnlock &lab ldx #$2202 jsl $E10000 MEND MACRO &lab _SetHandleSize &lab ldx #$1902 jsl $E10000 MEND MACRO &lab _DisposeHandle &lab ldx #$1002 jsl $E10000 MEND