TITLE c25 RADIX 10. .INSRT NC .CODE ENTRY Zdmper ENTRY Zlex ENTRY Ztok ENTRY Zctok ENTRY Zyrese ENTRY Zlexta ENTRY Zlexin ENTRY Zlexli ENTRY Zdebug ENTRY Zedebu ENTRY Zxflag ENTRY Ztflag ENTRY Zval ENTRY Zline ENTRY Zpv ENTRY Zpl ENTRY Zlinen ENTRY Zparse ENTRY Ztkeem ENTRY Zsave ENTRY Zresto ENTRY Ztklem ENTRY Ztokbu ENTRY Ztct ENTRY Ztwp ENTRY Ztokmo ENTRY Zrtoke EXTERN Zcout EXTERN Zact EXTERN Zg EXTERN Zpg EXTERN Zr1 EXTERN Zr2 EXTERN Za EXTERN Zpa EXTERN Znwpbt EXTERN Zcprin EXTERN Zsyner EXTERN Zqprin EXTERN Zpcurs EXTERN Ztprin EXTERN Zgiveu EXTERN Zstkov EXTERN Zstkun EXTERN Zdelms EXTERN Zskpms EXTERN Ztkbov EXTERN Zbadtw EXTERN Zptoke EXTERN Zcputc EXTERN Zbadto EXTERN Zgetto .UDATA Zlexta: BLOCK 1 Zlexin: BLOCK 1 Zlexli: BLOCK 1 .IDATA Zdebug: 0 Zedebu: 0 Zxflag: 0 Ztflag: 0 .UDATA Zval: BLOCK 1 Zline: BLOCK 1 Zpv: BLOCK 1 Zpl: BLOCK 1 Zlinen: BLOCK 1 I1: BLOCK 1 I2: BLOCK 200 I3: BLOCK 200 I4: BLOCK 200 I5: BLOCK 1 I6: BLOCK 1 I7: BLOCK 1 I8: BLOCK 200 I9: BLOCK 200 I10: BLOCK 200 .IDATA I11: 7 I12: 0 .UDATA I13: BLOCK 1 I14: BLOCK 1 .IDATA I15: 0 I16: 0 .UDATA Ztokbu: BLOCK 90 .IDATA Ztct: Ztokbu Ztwp: Ztokbu Ztokmo: 0 .CODE .PDATA S0: 101 120 101 99 117 116 105 110 103 32 115 116 97 116 101 32 37 100 44 32 116 111 107 101 110 61 37 100 10 0 S30: 114 101 100 117 99 101 32 37 100 10 0 S41: 101 114 114 109 111 100 101 61 48 58 115 116 61 37 100 44 110 115 116 61 37 100 44 116 111 107 61 37 100 10 0 S72: 115 112 111 112 61 37 100 44 116 115 107 105 112 61 37 100 44 116 111 107 101 110 61 37 100 10 0 S99: 115 116 97 99 107 32 115 116 61 37 100 32 118 97 108 61 37 100 10 0 .CODE %A==0 %A,,[ASCIZ/parse/] Zparse: ADDI P,FS1 ; LINE 55 MOVEI A,I2 MOVEM A,I1 ; LINE 56 MOVEI A,I3 MOVEM A,Zpv ; LINE 57 MOVEI A,I4 MOVEM A,Zpl ; LINE 58 MOVEI A,1 MOVEM A,<4-FS1-%P>(P) ; LINE 59 MOVE A,I1 MOVEI C,1 MOVEM C,(A) ; LINE 60 MOVE A,Zpv MOVEI C,0 MOVEM C,(A) ; LINE 61 MOVE A,Zpl MOVEI C,0 MOVEM C,(A) ; LINE 62 CCALL 0,Zlex MOVEM A,<18-FS1-%P>(P) ; LINE 63 MOVE A,I16 JUMPN A,L5000 ; LINE 65 MOVEI A,Zpa MOVEM A,<13-FS1-%P>(P) L1: ; LINE 66 MOVEI A,1 ADDB A,<13-FS1-%P>(P) MOVE A,(A) MOVEM A,<14-FS1-%P>(P) CAMN A,[-1] GO L5001 MOVEI A,Za ADD A,<14-FS1-%P>(P) MOVE C,<13-FS1-%P>(P) MOVEM A,(C) GO L1 L5001: L0: ; LINE 67 MOVEI A,Zpg MOVEM A,<13-FS1-%P>(P) L3: ; LINE 68 MOVEI A,1 ADDB A,<13-FS1-%P>(P) MOVE A,(A) MOVEM A,<14-FS1-%P>(P) CAMN A,[-1] GO L5002 MOVEI A,Zg ADD A,<14-FS1-%P>(P) MOVE C,<13-FS1-%P>(P) MOVEM A,(C) GO L3 L5002: L2: ; LINE 69 MOVEI A,1 MOVEM A,I16 L5000: L5: ; LINE 71 ; LINE 72 MOVEI A,Zpa ADD A,<4-FS1-%P>(P) MOVE A,(A) MOVEM A,<5-FS1-%P>(P) ; LINE 73 MOVE A,Zdebug JUMPE A,L5003 ; LINE 74 MOVEI A,S0 PPUSH A PPUSH <4-FS1-%P>(P) MOVE A,<18-FS1-%P>(P) PPUSH (A) CCALL 3,Zcprin L5003: L7: ; LINE 75 ; LINE 76 MOVEI B,1 MOVE A,<5-FS1-%P>(P) ADDM B,<5-FS1-%P>(P) MOVE A,(A) MOVEM A,<1-FS1-%P>(P) ; LINE 77 MOVE A,<1-FS1-%P>(P) LSH A,-12 MOVEM A,<2-FS1-%P>(P) ; LINE 78 MOVE A,<1-FS1-%P>(P) ANDI A,4095 MOVEM A,<3-FS1-%P>(P) ; LINE 79 MOVE A,<2-FS1-%P>(P) JUMPL A,L5004 CAILE A,5-0 GO L5004 GO @(A)[ L25 L9 L10 L12 L16 L15 ] L9: ; LINE 81 MOVE A,<18-FS1-%P>(P) MOVE A,(A) CAMN A,<3-FS1-%P>(P) GO L5005 MOVEI A,1 ADDB A,<5-FS1-%P>(P) L5005: GO L7 L10: ; LINE 84 MOVE A,<3-FS1-%P>(P) MOVEM A,<4-FS1-%P>(P) L11: ; LINE 85 MOVE A,<18-FS1-%P>(P) MOVE A,1(A) MOVEM A,Zval ; LINE 86 MOVE A,<18-FS1-%P>(P) MOVE A,2(A) MOVEM A,Zline ; LINE 87 CCALL 0,Zlex MOVEM A,<18-FS1-%P>(P) ; LINE 88 MOVE A,I12 JUMPE A,L5006 ; LINE 89 SETO A, ADDB A,I12 ; LINE 90 MOVE A,I12 JUMPN A,L5007 ; LINE 91 PPUSH <18-FS1-%P>(P) CCALL 1,Zdmper MOVEM A,<18-FS1-%P>(P) ; LINE 92 MOVEI A,0 MOVEM A,<7-FS1-%P>(P) GO L8 L5007: L5006: ; LINE 96 MOVEI A,1 MOVEM A,<7-FS1-%P>(P) GO L8 L12: ; LINE 99 MOVE A,Zdebug JUMPE A,L5008 MOVEI A,S30 PPUSH A PPUSH <3-FS1-%P>(P) CCALL 2,Zcprin L5008: ; LINE 100 MOVEI A,Zr2 ADD A,<3-FS1-%P>(P) MOVE A,(A) MOVEM A,<9-FS1-%P>(P) ; LINE 101 MOVE A,I1 SUB A,<9-FS1-%P>(P) MOVEM A,I1 ; LINE 102 MOVE A,Zpv SUB A,<9-FS1-%P>(P) MOVEM A,Zpv ; LINE 103 MOVE A,Zpl SUB A,<9-FS1-%P>(P) MOVEM A,Zpl ; LINE 104 MOVE A,<9-FS1-%P>(P) JUMPLE A,L5009 ; LINE 105 MOVE A,Zpv MOVE A,1(A) MOVEM A,Zval ; LINE 106 MOVE A,Zpl MOVE A,1(A) MOVEM A,Zline GO L5010 L5009: ; LINE 109 MOVE A,<18-FS1-%P>(P) MOVE A,1(A) MOVEM A,Zval ; LINE 110 MOVE A,<18-FS1-%P>(P) MOVE A,2(A) MOVEM A,Zline L5010: ; LINE 112 MOVE A,Zxflag JUMPN A,L5011 MOVEI A,Zact ADD A,<3-FS1-%P>(P) MOVE A,(A) MOVEM A,<15-FS1-%P>(P) JUMPE A,L5011 MOVE A,<15-FS1-%P>(P) CCALL 0,(A) L5011: ; LINE 113 MOVE A,I1 MOVE A,(A) MOVEM A,<4-FS1-%P>(P) ; LINE 114 MOVEI A,Zr1 ADD A,<3-FS1-%P>(P) MOVEI C,Zpg ADD C,(A) MOVE A,(C) MOVEM A,<6-FS1-%P>(P) L14: ; LINE 115 MOVE A,<6-FS1-%P>(P) MOVE A,(A) JUMPE A,L5012 ; LINE 116 MOVE A,<6-FS1-%P>(P) MOVE A,(A) CAMN A,<4-FS1-%P>(P) GO L13 ; LINE 117 MOVE A,<6-FS1-%P>(P) ADDI A,2 MOVEM A,<6-FS1-%P>(P) GO L14 L5012: L13: ; LINE 119 MOVEI A,1 ADDB A,<6-FS1-%P>(P) MOVE A,(A) MOVEM A,<4-FS1-%P>(P) ; LINE 120 MOVEI A,1 MOVEM A,<7-FS1-%P>(P) GO L8 L15: ; LINE 123 MOVE A,<18-FS1-%P>(P) MOVE A,(A) MOVEM A,<16-FS1-%P>(P) ; LINE 124 MOVE A,<16-FS1-%P>(P) LSH A,-4 ADD A,<5-FS1-%P>(P) MOVE C,<16-FS1-%P>(P) ANDI C,15 MOVEI D,1 LSH D,(C) AND D,(A) JUMPE D,L5013 ; LINE 125 MOVE A,<16-FS1-%P>(P) ADD A,<3-FS1-%P>(P) MOVEI C,Za ADD C,A SUBI C,1 MOVE A,(C) MOVEM A,<4-FS1-%P>(P) ; LINE 126 GO L11 L5013: ; LINE 128 MOVE A,<5-FS1-%P>(P) ADD A,Znwpbt MOVEM A,<5-FS1-%P>(P) GO L7 L16: ; LINE 131 MOVE A,I15 JUMPE A,L5014 ; LINE 132 PPUSH <18-FS1-%P>(P) CCALL 1,Zdmper MOVEM A,<18-FS1-%P>(P) ; LINE 133 MOVEI A,0 MOVEM A,<7-FS1-%P>(P) GO L8 L5014: ; LINE 136 MOVEI A,0 SUBI P,FS1+%A+1 GO @<%A+1>(P) L25: ; LINE 138 MOVE A,I15 JUMPL A,L5015 CAILE A,1-0 GO L5015 GO @(A)[ L18 L24 ] L18: ; LINE 140 MOVE A,Zedebu JUMPE A,L5016 MOVEI A,S41 PPUSH A PPUSH <4-FS1-%P>(P) MOVE A,I1 MOVEI C,I2 SUB A,C PPUSH A MOVE A,<18-FS1-%P>(P) PPUSH (A) CCALL 4,Zcprin L5016: ; LINE 142 MOVE A,<18-FS1-%P>(P) PPUSH 2(A) CCALL 1,Zsyner ; LINE 143 MOVEI A,I2 MOVEM A,<12-FS1-%P>(P) L20: ; LINE 144 MOVE A,<12-FS1-%P>(P) CAMLE A,I1 GO L5017 MOVEI B,1 MOVE A,<12-FS1-%P>(P) ADDM B,<12-FS1-%P>(P) PPUSH (A) CCALL 1,Zqprin GO L20 L5017: L19: ; LINE 145 CCALL 0,Zpcurs ; LINE 146 CCALL 0,Ztkeem ; LINE 147 MOVEI A,0 MOVEM A,<8-FS1-%P>(P) L23: MOVE A,<8-FS1-%P>(P) CAIL A,5 GO L5018 ; LINE 148 PPUSH <8-FS1-%P>(P) CCALL 1,Ztok MOVEM A,<19-FS1-%P>(P) ; LINE 149 MOVE A,<19-FS1-%P>(P) MOVE A,(A) CAIN A,1 GO L21 ; LINE 150 PPUSH <19-FS1-%P>(P) CCALL 1,Ztprin L22: ; LINE 147 MOVEI A,1 ADDB A,<8-FS1-%P>(P) GO L23 L5018: L21: ; LINE 152 CCALL 0,Zsave ; LINE 153 MOVE A,I11 MOVEM A,I12 ; LINE 154 MOVEI A,1 MOVEM A,I15 ; LINE 155 MOVEI A,2 IORB A,Zxflag ; LINE 156 MOVEI A,30 SUB A,I11 SUBI A,2 MOVEM A,<10-FS1-%P>(P) ; LINE 157 MOVE A,I1 MOVEI C,I2 SUB A,C MOVEM A,<11-FS1-%P>(P) ; LINE 158 MOVEI A,0 MOVEM A,I13 ; LINE 159 MOVEI A,0 MOVEM A,I14 ; LINE 160 MOVEI A,1 MOVEM A,<17-FS1-%P>(P) L24: ; LINE 162 CCALL 0,Zresto ; LINE 163 CCALL 0,Zyrese ; LINE 164 MOVEI A,1 ADDB A,I13 ANDI A,1 JUMPN A,L5019 SETO A, ADDB A,I14 L5019: ; LINE 165 MOVE A,I14 JUMPL A,L5021 MOVE A,<18-FS1-%P>(P) MOVE A,(A) CAIN A,1 GO L5021 MOVE A,I13 CAMG A,<10-FS1-%P>(P) GO L5020 L5021: ; LINE 166 MOVE A,<17-FS1-%P>(P) AOS <17-FS1-%P>(P) MOVEM A,I14 ; LINE 167 MOVEI A,0 MOVEM A,I13 L5020: ; LINE 169 MOVE A,I14 CAMLE A,<11-FS1-%P>(P) GO L5022 ; LINE 170 PPUSH I13 CCALL 1,Zctok MOVEM A,<18-FS1-%P>(P) ; LINE 171 MOVN A,I14 MOVEM A,<7-FS1-%P>(P) GO L17 L5022: ; LINE 174 MOVE A,<18-FS1-%P>(P) PPUSH 2(A) CCALL 1,Zgiveu ; LINE 175 MOVEI A,1 SUBI P,FS1+%A+1 GO @<%A+1>(P) L5015: L17: ; LINE 177 MOVE A,Zedebu JUMPE A,L5023 MOVEI A,S72 PPUSH A PPUSH I14 PPUSH I13 MOVE A,<18-FS1-%P>(P) PPUSH (A) CCALL 4,Zcprin L5023: GO L8 L5004: L8: ; LINE 181 MOVE A,<7-FS1-%P>(P) JUMPLE A,L5024 ; LINE 182 MOVE A,Zdebug JUMPE A,L5025 MOVEI A,S99 PPUSH A PPUSH <4-FS1-%P>(P) PPUSH Zval CCALL 3,Zcprin L5025: ; LINE 183 MOVEI A,1 ADDB A,I1 MOVE C,<4-FS1-%P>(P) MOVEM C,(A) ; LINE 184 MOVEI A,1 ADDB A,Zpv MOVE C,Zval MOVEM C,(A) ; LINE 185 MOVEI A,1 ADDB A,Zpl MOVE C,Zline MOVEM C,(A) ; LINE 186 MOVE A,I1 MOVEI C,I2 SUB A,C CAIGE A,200 GO L5026 ; LINE 187 MOVE A,<18-FS1-%P>(P) PPUSH 2(A) CCALL 1,Zstkov ; LINE 188 MOVEI A,1 SUBI P,FS1+%A+1 GO @<%A+1>(P) L5026: GO L5027 L5024: ; LINE 191 MOVE A,<7-FS1-%P>(P) JUMPGE A,L5028 ; LINE 192 MOVE A,Zpv ADD A,<7-FS1-%P>(P) MOVEM A,Zpv ; LINE 193 MOVE A,I1 ADD A,<7-FS1-%P>(P) MOVEM A,I1 ; LINE 194 MOVE A,Zpl ADD A,<7-FS1-%P>(P) MOVEM A,Zpl ; LINE 195 MOVE A,I1 MOVEI C,I2 CAML A,C GO L5029 ; LINE 196 MOVE A,<18-FS1-%P>(P) PPUSH 2(A) CCALL 1,Zstkun ; LINE 197 MOVEI A,1 SUBI P,FS1+%A+1 GO @<%A+1>(P) L5029: L5028: L5027: ; LINE 200 MOVE A,I1 MOVE A,(A) MOVEM A,<4-FS1-%P>(P) GO L6 GO L7 L6: GO L5 L4: SUBI P,FS1+%A+1 GO @<%A+1>(P) FS1==20-1 %A==1 %A,,[ASCIZ/dmperr/] Zdmper: ADDI P,FS2 ; LINE 209 CCALL 0,Zyrese ; LINE 210 CCALL 0,Zresto ; LINE 211 MOVE A,I14 JUMPLE A,L5030 MOVE A,<0-FS2-%A-%P>(P) PPUSH 2(A) CCALL 1,Zdelms L5030: ; LINE 212 MOVEI A,1 MOVEM A,<1-FS2-%P>(P) L28: MOVE A,<1-FS2-%P>(P) CAMLE A,I14 GO L5031 ; LINE 213 MOVN A,I14 ADD A,<1-FS2-%P>(P) ADD A,I1 PPUSH (A) CCALL 1,Zqprin L27: ; LINE 212 MOVEI A,1 ADDB A,<1-FS2-%P>(P) GO L28 L5031: L26: ; LINE 214 MOVE A,I13 JUMPLE A,L5032 MOVE A,<0-FS2-%A-%P>(P) PPUSH 2(A) CCALL 1,Zskpms L5032: ; LINE 215 MOVEI A,0 MOVEM A,<1-FS2-%P>(P) L31: MOVE A,<1-FS2-%P>(P) CAML A,I13 GO L5033 ; LINE 216 PPUSH <1-FS2-%P>(P) CCALL 1,Ztok PPUSH A CCALL 1,Ztprin L30: ; LINE 215 MOVEI A,1 ADDB A,<1-FS2-%P>(P) GO L31 L5033: L29: ; LINE 217 MOVNI A,--3 ANDB A,Zxflag ; LINE 218 MOVEI A,0 MOVEM A,I15 ; LINE 219 MOVEI A,0 MOVEM A,I12 ; LINE 220 MOVE A,I1 SUB A,I14 MOVEM A,I1 ; LINE 221 MOVE A,Zpv SUB A,I14 MOVEM A,Zpv ; LINE 222 MOVE A,Zpl SUB A,I14 MOVEM A,Zpl ; LINE 223 PPUSH I13 CCALL 1,Zctok MOVEM A,<2-FS2-%P>(P) ; LINE 224 CCALL 0,Ztklem ; LINE 225 MOVE A,<2-FS2-%P>(P) SUBI P,FS2+%A+1 GO @<%A+1>(P) SUBI P,FS2+%A+1 GO @<%A+1>(P) FS2==3-1 %A==0 %A,,[ASCIZ/save/] Zsave: ADDI P,FS3 ; LINE 229 MOVEI A,I2 MOVEM A,<1-FS3-%P>(P) ; LINE 230 MOVEI A,I8 MOVEM A,<2-FS3-%P>(P) L34: ; LINE 231 MOVEI B,1 MOVE A,<2-FS3-%P>(P) ADDM B,<2-FS3-%P>(P) MOVEI B,1 MOVE C,<1-FS3-%P>(P) ADDM B,<1-FS3-%P>(P) MOVE C,(C) MOVEM C,(A) L33: MOVE A,<1-FS3-%P>(P) CAMG A,I1 GO L34 L32: ; LINE 232 MOVEI A,I3 MOVEM A,<1-FS3-%P>(P) ; LINE 233 MOVEI A,I9 MOVEM A,<2-FS3-%P>(P) L37: ; LINE 234 MOVEI B,1 MOVE A,<2-FS3-%P>(P) ADDM B,<2-FS3-%P>(P) MOVEI B,1 MOVE C,<1-FS3-%P>(P) ADDM B,<1-FS3-%P>(P) MOVE C,(C) MOVEM C,(A) L36: MOVE A,<1-FS3-%P>(P) CAMG A,Zpv GO L37 L35: ; LINE 235 MOVEI A,I4 MOVEM A,<1-FS3-%P>(P) ; LINE 236 MOVEI A,I10 MOVEM A,<2-FS3-%P>(P) L40: ; LINE 237 MOVEI B,1 MOVE A,<2-FS3-%P>(P) ADDM B,<2-FS3-%P>(P) MOVEI B,1 MOVE C,<1-FS3-%P>(P) ADDM B,<1-FS3-%P>(P) MOVE C,(C) MOVEM C,(A) L39: MOVE A,<1-FS3-%P>(P) CAMG A,Zpl GO L40 L38: ; LINE 238 MOVE A,I1 MOVEM A,I5 ; LINE 239 MOVE A,Zpv MOVEM A,I6 ; LINE 240 MOVE A,Zpl MOVEM A,I7 SUBI P,FS3+%A+1 GO @<%A+1>(P) FS3==3-1 %A==0 %A,,[ASCIZ/restore/] Zresto: ADDI P,FS4 ; LINE 244 MOVE A,I5 MOVEM A,I1 ; LINE 245 MOVE A,I6 MOVEM A,Zpv ; LINE 246 MOVE A,I7 MOVEM A,Zpl ; LINE 247 MOVEI A,I2 MOVEM A,<1-FS4-%P>(P) ; LINE 248 MOVEI A,I8 MOVEM A,<2-FS4-%P>(P) L43: ; LINE 249 MOVEI B,1 MOVE A,<1-FS4-%P>(P) ADDM B,<1-FS4-%P>(P) MOVEI B,1 MOVE C,<2-FS4-%P>(P) ADDM B,<2-FS4-%P>(P) MOVE C,(C) MOVEM C,(A) L42: MOVE A,<1-FS4-%P>(P) CAMG A,I1 GO L43 L41: ; LINE 250 MOVEI A,I3 MOVEM A,<1-FS4-%P>(P) ; LINE 251 MOVEI A,I9 MOVEM A,<2-FS4-%P>(P) L46: ; LINE 252 MOVEI B,1 MOVE A,<1-FS4-%P>(P) ADDM B,<1-FS4-%P>(P) MOVEI B,1 MOVE C,<2-FS4-%P>(P) ADDM B,<2-FS4-%P>(P) MOVE C,(C) MOVEM C,(A) L45: MOVE A,<1-FS4-%P>(P) CAMG A,Zpv GO L46 L44: ; LINE 253 MOVEI A,I4 MOVEM A,<1-FS4-%P>(P) ; LINE 254 MOVEI A,I10 MOVEM A,<2-FS4-%P>(P) L49: ; LINE 255 MOVEI B,1 MOVE A,<1-FS4-%P>(P) ADDM B,<1-FS4-%P>(P) MOVEI B,1 MOVE C,<2-FS4-%P>(P) ADDM B,<2-FS4-%P>(P) MOVE C,(C) MOVEM C,(A) L48: MOVE A,<1-FS4-%P>(P) CAMG A,Zpl GO L49 L47: ; LINE 256 MOVE A,I11 MOVEM A,I12 SUBI P,FS4+%A+1 GO @<%A+1>(P) FS4==3-1 %A==0 %A,,[ASCIZ/lex/] Zlex: ADDI P,FS5 ; LINE 263 MOVEI A,3 ADDB A,Ztct CAMGE A,Ztwp GO L5034 ; LINE 264 MOVE A,Ztokmo JUMPN A,L5035 MOVEI A,Ztokbu MOVEM A,Ztwp MOVEM A,Ztct GO L5036 L5035: ; LINE 266 MOVEI A,Ztokbu ADDI A,90 MOVE C,Ztwp CAMGE C,A GO L5037 MOVE A,Ztct PPUSH 2(A) CCALL 1,Ztkbov L5037: ; LINE 267 MOVE A,Ztct CAMG A,Ztwp GO L5038 MOVE A,Ztct PPUSH 2(A) CCALL 1,Zbadtw L5038: L5036: ; LINE 269 MOVEI B,3 MOVE A,Ztwp ADDM B,Ztwp PPUSH A CCALL 1,Zrtoke L5034: ; LINE 271 MOVE A,Ztflag JUMPE A,L5039 MOVE A,Ztokmo JUMPN A,L5039 ; LINE 272 PPUSH Ztct PPUSH Zcout CCALL 2,Zptoke ; LINE 273 PPUSH [10] PPUSH Zcout CCALL 2,Zcputc L5039: ; LINE 275 MOVE A,Ztct MOVE A,2(A) MOVEM A,Zlinen ; LINE 276 MOVE A,Ztct SUBI P,FS5+%A+1 GO @<%A+1>(P) SUBI P,FS5+%A+1 GO @<%A+1>(P) FS5==1-1 %A==1 %A,,[ASCIZ/tok/] Ztok: ADDI P,FS6 ; LINE 280 MOVE A,<0-FS6-%A-%P>(P) IMULI A,3 ADD A,Ztct MOVEM A,<1-FS6-%P>(P) ; LINE 281 MOVE A,<1-FS6-%P>(P) MOVEI C,Ztokbu CAMGE A,C GO L5041 MOVEI A,Ztokbu ADDI A,90 MOVE C,<1-FS6-%P>(P) CAMGE C,A GO L5040 L5041: ; LINE 282 MOVE A,Ztct PPUSH 2(A) PPUSH <0-FS6-%A-%P>(P) CCALL 2,Zbadto L5040: L51: ; LINE 283 MOVE A,<1-FS6-%P>(P) CAMGE A,Ztwp GO L5042 MOVEI B,3 MOVE A,Ztwp ADDM B,Ztwp PPUSH A CCALL 1,Zrtoke GO L51 L5042: L50: ; LINE 284 MOVE A,<1-FS6-%P>(P) SUBI P,FS6+%A+1 GO @<%A+1>(P) SUBI P,FS6+%A+1 GO @<%A+1>(P) FS6==2-1 %A==1 %A,,[ASCIZ/ctok/] Zctok: ADDI P,FS7 ; LINE 287 PPUSH <0-FS7-%A-%P>(P) CCALL 1,Ztok MOVEM A,Ztct SUBI P,FS7+%A+1 GO @<%A+1>(P) SUBI P,FS7+%A+1 GO @<%A+1>(P) FS7==1-1 %A==0 %A,,[ASCIZ/yreset/] Zyrese: ADDI P,FS8 ; LINE 289 MOVEI A,Ztokbu MOVEM A,Ztct SUBI P,FS8+%A+1 GO @<%A+1>(P) SUBI P,FS8+%A+1 GO @<%A+1>(P) FS8==1-1 %A==0 %A,,[ASCIZ/tkeem/] Ztkeem: ADDI P,FS9 ; LINE 293 MOVEI A,1 MOVEM A,Ztokmo ; LINE 294 MOVE A,Ztwp SUB A,Ztct IDIVI A,3 MOVEM A,<1-FS9-%P>(P) MOVEM A,<2-FS9-%P>(P) ; LINE 295 MOVE A,<1-FS9-%P>(P) JUMPLE A,L5043 ; LINE 296 MOVEI A,Ztokbu SUBI A,3 MOVEM A,<3-FS9-%P>(P) ; LINE 297 MOVE A,Ztct SUBI A,3 MOVEM A,<4-FS9-%P>(P) L53: ; LINE 298 MOVE A,<1-FS9-%P>(P) SOS <1-FS9-%P>(P) JUMPE A,L5044 ; LINE 299 MOVEI A,3 ADDB A,<3-FS9-%P>(P) MOVEI C,3 ADDB C,<4-FS9-%P>(P) MOVE C,(C) MOVEM C,(A) ; LINE 300 MOVE A,<3-FS9-%P>(P) MOVE C,<4-FS9-%P>(P) MOVE C,1(C) MOVEM C,1(A) ; LINE 301 MOVE A,<3-FS9-%P>(P) MOVE C,<4-FS9-%P>(P) MOVE C,2(C) MOVEM C,2(A) GO L53 L5044: L52: L5043: ; LINE 304 MOVEI A,Ztokbu MOVEM A,Ztct ; LINE 305 MOVE A,<2-FS9-%P>(P) IMULI A,3 ADD A,Ztct MOVEM A,Ztwp SUBI P,FS9+%A+1 GO @<%A+1>(P) FS9==5-1 %A==0 %A,,[ASCIZ/tklem/] Ztklem: ADDI P,FS10 ; LINE 308 MOVEI A,0 MOVEM A,Ztokmo SUBI P,FS10+%A+1 GO @<%A+1>(P) FS10==1-1 %A==1 %A,,[ASCIZ/rtoken/] Zrtoke: ADDI P,FS11 ; LINE 311 CCALL 0,Zgetto ; LINE 312 MOVE A,<0-FS11-%A-%P>(P) MOVE C,Zlexta MOVEM C,(A) ; LINE 313 MOVE A,<0-FS11-%A-%P>(P) MOVE C,Zlexin MOVEM C,1(A) ; LINE 314 MOVE A,<0-FS11-%A-%P>(P) MOVE C,Zlexli MOVEM C,2(A) SUBI P,FS11+%A+1 GO @<%A+1>(P) FS11==1-1 .PDATA CONSTANTS END