1 sta index1 2 stx index1+1 3svar cpx arytab+1 4 bne svargo 5 cmp arytab 6 beq aryvar 7svargo jsr dvars 8 beq svar 9aryvar sta arypnt 10 stx arypnt+1 11 lda #strsiz 12 sta four6 13aryva2 lda arypnt 14 ldx arypnt+1 15aryva3 cpx strend+1 16 bne aryvgo 17 cmp strend 18 bne *+5 19 jmp grbpas 20aryvgo sta index1 21 stx index1+1 22 ldy #1-addprc 23 lda (index1),y 24 tax 25 iny 26 lda (index1),y 27 php 28 iny 29 lda (index1),y 30 adc arypnt 31 sta arypnt 32 iny 33 lda (index1),y 34 adc arypnt+1 35 sta arypnt+1 36 plp 37 bpl aryva2 38 txa 39 bmi aryva2 40 iny 41 lda (index1),y 42 ldy #0 43 asl a 44 adc #5 45 adc index1 46 sta index1 47 bcc aryget 48 inc index1+1 49aryget ldx index1+1 50arystr cpx arypnt+1 51 bne gogo 52 cmp arypnt 53 beq aryva3 54gogo jsr dvar 55 beq arystr 56dvars lda (index1),y 57 bmi dvarts 58 iny 59 lda (index1),y 60 bpl dvarts 61 iny 62dvar lda (index1),y 63 beq dvarts 64 iny 65 lda (index1),y 66 tax 67 iny 68 lda (index1),y 69 cmp fretop+1 70 bcc dvar2 71 bne dvarts 72 cpx fretop 73 bcs dvarts 74dvar2 cmp grbtop+1 75 bcc dvarts 76 bne dvar3 77 cpx grbtop 78 bcc dvarts 79dvar3 stx grbtop 80 sta grbtop+1 81 lda index1 82 ldx index1+1 83 sta grbpnt 84 stx grbpnt+1 85 lda four6 86 sta size 87dvarts lda four6 88 clc 89 adc index1 90 sta index1 91 bcc grbrts 92 inc index1+1 93grbrts ldx index1+1 94 ldy #0 95 rts 96grbpas lda grbpnt+1 97 ora grbpnt 98 beq grbrts 99 lda size 100 and #4 101 lsr a 102 tay 103 sta size 104 lda (grbpnt),y 105 adc lowtr 106 sta hightr 107 lda lowtr+1 108 adc #0 109 sta hightr+1 110 lda fretop 111 ldx fretop+1 112 sta highds 113 stx highds+1 114 jsr bltuc 115 ldy size 116 iny 117 lda highds 118 sta (grbpnt),y 119 tax 120 inc highds+1 121 lda highds+1 122 iny 123 sta (grbpnt),y 124 jmp fndvar 125cat lda faclo 126 pha 127 lda facmo 128 pha 129 jsr eval 130 jsr chkstr 131 pla 132 sta strng1 133 pla 134 sta strng1+1 135 ldy #0 136 lda (strng1),y 137 clc 138 adc (facmo),y 139 bcc sizeok 140 ldx #errls 141 jmp error 142sizeok jsr strini 143 jsr movins 144 lda dscpnt 145 ldy dscpnt+1 146 jsr fretmp 147 jsr movdo 148 lda strng1 149 ldy strng1+1 150 jsr fretmp 151 jsr putnew 152 jmp tstop 153movins ldy #0 154 lda (strng1),y 155 pha 156 iny 157 158