1flpint jsr ayint 2 lda facmo 3 ldy faclo 4 rts 5intidx jsr chrget 6 jsr frmevl 7posint jsr chknum 8 lda facsgn 9 bpl :+ 10 jmp fcerr 11: jmp ayint 12 13isary lda dimflg 14 ora intflg 15 pha 16 lda valtyp 17 pha 18 ldy #0 19indlop tya 20 pha 21 lda varnam+1 22 pha 23 lda varnam 24 pha 25 jsr intidx 26 pla 27 sta varnam 28 pla 29 sta varnam+1 30 pla 31 tay 32 tsx 33 lda 258,x 34 pha 35 lda 257,x 36 pha 37 lda indice 38 sta 258,x 39 lda indice+1 40 sta 257,x 41 iny 42 jsr chrgot 43 cmp #44 44 beq indlop 45 sty count 46 jsr chkcls 47 pla 48 sta valtyp 49 pla 50 sta intflg 51 and #127 52 sta dimflg 53 ldx arytab 54 lda arytab+1 55lopfda stx lowtr 56 sta lowtr+1 57 cmp strend+1 58 bne lopfdv 59 cpx strend 60 beq notfdd 61lopfdv ldy #0 62 lda (lowtr),y 63 iny 64 cmp varnam 65 bne nmary1 66 lda varnam+1 67 cmp (lowtr),y 68 beq gotary 69nmary1 iny 70 lda (lowtr),y 71 clc 72 adc lowtr 73 tax 74 iny 75 lda (lowtr),y 76 adc lowtr+1 77 bcc lopfda 78bserr ldx #errbs 79 bra errgo3 80fcerr ldx #errfc 81errgo3 jmp error 82gotary ldx #errdd 83 lda dimflg 84 bne errgo3 85 jsr fmaptr 86 lda count 87 ldy #4 88 cmp (lowtr),y 89 bne bserr 90 jmp getdef 91notfdd jsr fmaptr 92 jsr reason 93 ldy #0 94 sty curtol+1 95 ldx #5 96 lda varnam 97 sta (lowtr),y 98 bpl notflt 99 dex 100notflt iny 101 lda varnam+1 102 sta (lowtr),y 103 bpl stomlt 104 dex 105 dex 106stomlt stx curtol 107 lda count 108 iny 109 iny 110 iny 111 sta (lowtr),y 112loppta ldx #11 113 lda #0 114 bit dimflg 115 bvc notdim 116 pla 117 clc 118 adc #1 119 tax 120 pla 121 adc #0 122notdim iny 123 sta (lowtr),y 124 iny 125 txa 126 sta (lowtr),y 127 jsr umult 128 stx curtol 129 sta curtol+1 130 ldy index 131 dec count 132 bne loppta 133 adc arypnt+1 134 bcs omerr1 135 sta arypnt+1 136 tay 137 txa 138 adc arypnt 139 bcc grease 140 iny 141 beq omerr1 142grease jsr reason 143 sta strend 144 sty strend+1 145 lda #0 146 inc curtol+1 147 148