1 pha 2 lda txtptr 3 pha 4 jsr data 5 jmp deffin 6getfnm lda #fntk 7 jsr synchr 8 ora #128 9 sta subflg 10 jsr ptrgt2 11 sta defpnt 12 sty defpnt+1 13 jmp chknum 14fndoer jsr getfnm 15 lda defpnt+1 16 pha 17 lda defpnt 18 pha 19 jsr parchk 20 jsr chknum 21 pla 22 sta defpnt 23 pla 24 sta defpnt+1 25 ldy #2 26 lda (defpnt),y 27 sta varpnt 28 tax 29 iny 30 lda (defpnt),y 31 beq errguf 32 sta varpnt+1 33 iny 34defstf lda (varpnt),y 35 pha 36 dey 37 bpl defstf 38 ldy varpnt+1 39 jsr movmf 40 lda txtptr+1 41 pha 42 lda txtptr 43 pha 44 lda (defpnt),y 45 sta txtptr 46 iny 47 lda (defpnt),y 48 sta txtptr+1 49 lda varpnt+1 50 pha 51 lda varpnt 52 pha 53 jsr frmnum 54 pla 55 sta defpnt 56 pla 57 sta defpnt+1 58 jsr chrgot 59 beq *+5 60 jmp snerr 61 pla 62 sta txtptr 63 pla 64 sta txtptr+1 65deffin ldy #0 66 pla 67 sta (defpnt),y 68 pla 69 iny 70 sta (defpnt),y 71 pla 72 iny 73 sta (defpnt),y 74 pla 75 iny 76 sta (defpnt),y 77 pla 78 iny 79 sta (defpnt),y 80 rts 81strd jsr chknum 82 ldy #0 83 jsr foutc 84 pla 85 pla 86 lda #<lofbuf 87 ldy #>lofbuf 88 beq strlit 89strini ldx facmo 90 ldy facmo+1 91 stx dscpnt 92 sty dscpnt+1 93strspa jsr getspa 94 stx dsctmp+1 95 sty dsctmp+2 96 sta dsctmp 97 rts 98strlit ldx #34 99 stx charac 100 stx endchr 101strlt2 sta strng1 102 sty strng1+1 103 sta dsctmp+1 104 sty dsctmp+2 105 ldy #255 106strget iny 107 lda (strng1),y 108 beq strfi1 109 cmp charac 110 beq strfin 111 cmp endchr 112 bne strget 113strfin cmp #34 114 beq strfi2 115strfi1 clc 116strfi2 sty dsctmp 117 tya 118 adc strng1 119 sta strng2 120 ldx strng1+1 121 bcc strst2 122 inx 123strst2 stx strng2+1 124 lda strng1+1 125 beq strcp 126 cmp #bufpag 127 bne putnew 128strcp tya 129 jsr strini 130 ldx strng1 131 ldy strng1+1 132 jsr movstr 133putnew ldx temppt 134 cpx #tempst+strsiz+strsiz+strsiz 135 bne putnw1 136 ldx #errst 137errgo2 jmp error 138putnw1 lda dsctmp 139 sta 0,x 140 lda dsctmp+1 141 sta 1,x 142 lda dsctmp+2 143 sta 2,x 144 ldy #0 145 stx facmo 146 sty facmo+1 147 sty facov 148 dey 149 sty valtyp 150 stx lastpt 151 inx 152 inx 153 inx 154 stx temppt 155 rts 156getspa lsr garbfl 157tryag2 pha 158 eor #255 159 sec 160 adc fretop 161 ldy fretop+1 162 bcs tryag3 163 dey 164tryag3 cpy strend+1 165 bcc garbag 166 bne strfre 167 cmp strend 168 bcc garbag 169strfre sta fretop 170 sty fretop+1 171 sta frespc 172 sty frespc+1 173 tax 174 pla 175 rts 176garbag ldx #errom 177 lda garbfl 178 bmi errgo2 179 jsr garba2 180 lda #128 181 sta garbfl 182 pla 183 bne tryag2 184garba2 ldx memsiz 185 lda memsiz+1 186fndvar stx fretop 187 sta fretop+1 188 ldy #0 189 sty grbpnt+1 190 sty grbpnt 191 lda strend 192 ldx strend+1 193 sta grbtop 194 stx grbtop+1 195 lda #<tempst 196 ldx #>tempst 197 sta index1 198 stx index1+1 199tvar cmp temppt 200 beq svars 201 jsr dvar 202 beq tvar 203svars lda #6+addprc 204 sta four6 205 lda vartab 206 ldx vartab+1 207 208