Uncompressed - The Tech Heap

EXTENDED BASIC UNRAVELLED IIAPPENDIX BDISASSEMBLY OF EXTENDED BASIC 1.1ORIGIN:SPECTRAL ASSOCREVISED:12/26/1999 WALTER K ZYDHEK0097 80E1 81 3C L80E1 FDB L813C EXBAS RESERVED WORD HANDLER0098 80E3 0E L80E3 FCB 14 14 EXBAS SECONDARY COMMANDS0099 80E4 82 1E L80E4 FDB L821E EXBAS SECONDARY RESERVED WORD TABLE0100 80E6 81 68 L80E6 FDB L8168 EXBAS SECONDARY RESERVED WORD HANDLER01010102 80E8 45 58 54 45 4E 44 L80E8 FCC 'EXTENDED COLOR BASIC 1.1'0103 80EE 45 44 20 43 4F 4C0104 80F4 4F 52 20 42 41 530105 80FA 49 43 20 31 2E 310106 8100 0D L8100 FCB CR0107 8101 43 4F 50 59 52 49 L8101 FCC 'COPYRIGHT (C) 1982'0108 8107 47 48 54 20 28 430109 810D 29 20 31 39 38 320110 8113 20 42 59 20 54 41 ' BY TANDY'0111 8119 4E 44 590112 811C 0D L811C FCB CR0113 811D 55 4E 44 45 52 20 L811D FCC 'UNDER LICENSE FROM MICROSOFT'0114 8123 4C 49 43 45 4E 530115 8129 45 20 46 52 4F 4D0116 812F 20 4D 49 43 52 4F0117 8135 53 4F 46 540118 8139 0D 0D 00 L8139 FCB CR,CR,001190120 * EXBAS COMMAND INTERPRETATION LOOP0121 813C 81 CB L813C CMPA #$CB $CB IS LARGEST EX BASIC COMMAND TOKEN0122 813E 22 08 BHI L8148 BRANCH IF > LARGEST TOKEN0123 8140 8E 81 F0 LDX #L81F0 POINT X TO EXBAS DISPATCH TABLE FOR COMMANDS0124 8143 80 B5 SUBA #$B5 $B5 IS SMALLEST EXBAS TOKEN0125 8145 7E AD D4 JMP LADD4 INTERPRET BASIC TOKEN HANDLER0126 8148 81 FF L8148 CMPA #$FF CHECK FOR SECONDARY TOKEN0127 814A 27 08 BEQ L8154 BRANCH IF IT IS SECONDARY0128 814C 81 CD CMPA #$CD LARGEST EXBAS TOKEN0129 814E 23 15 BLS L8165 ‘SYNTAX’ ERROR FOR USING & FN0130 8150 6E 9F 01 37 JMP [COMVEC+23] GO TO DISK BASIC RESERVED WORD HANDLER0131 8154 9D 9F L8154 JSR GETNCH GET AN INPUT CHARACTER FROM BASIC0132 8156 81 90 CMPA #$90 TOKEN FOR MID$0133 8158 10 27 05 7A LBEQ L86D6 BRANCH IF MID$0134 815C 81 9F CMPA #$9F TOKEN FOR TIMER0135 815E 10 27 07 FE LBEQ L8960 BRANCH IF TIMER0136 8162 BD 01 A0 JSR RVEC22 HOOK INTO RAM0137 8165 7E B2 77 L8165 JMP LB277 ‘SYNTAX’ ERROR01380139 * EXBAS SECONDARY COMMAND HANDLER0140 8168 C1 42 L8168 CMPB #2*33 *80+33 IS LARGEST EXBAS SECONDARY COMMAND0141 816A 23 04 BLS L8170 BRANCH IF LEGITIMATE EXBAS SECONDARY TOKEN0142 816C 6E 9F 01 3C JMP [COMVEC+28] GO TO DISK BASIC SECONDARY COMMAND HANDLER0143 8170 C0 28 L8170 SUBB #2*20 SUBTRACT OUT 20 BASIC SECONDARY COMMANDS0144 8172 C1 10 CMPB #2*8 HEX$ TOKEN0145 8174 22 07 BHI L817D BRANCH IF > HEX$0146 8176 34 04 PSHS B SAVE TOKEN OFFSET0147 8178 BD B2 62 JSR LB262 EVALUATE EXPRESSION IN PARENTHESES0148 817B 35 04 PULS B GET TOKEN OFFSET BACK0149 817D 8E 82 57 L817D LDX #L8257 EXBAS SECONDARY COMMAND JUMP TABLE0150 8180 7E B2 CE JMP LB2CE JUMP TO SECONDARY FUNCT1ON HANDLER01510152 * RESERVED WORD TABLE FOR EXTENDED BASIC0153 * TOKEN #0154 8183 44 45 CC L8183 FCC 'DE',$80+'L' B50155 8186 45 44 49 D4 L8186 FCC 'EDI',$80+'T' B60156 818A 54 52 4F CE L818A FCC 'TRO',$80+'N' B70157 818E 54 52 4F 46 C6 L818E FCC 'TROF',$80+'F' B80158 8193 44 45 C6 L8193 FCC 'DE',$80+'F' B90159 8196 4C 45 D4 L8196 FCC 'LE',$80+'T' BA0160 8199 4C 49 4E C5 L8199 FCC 'LIN',$80+'E' BB0161 819D 50 43 4C D3 L819D FCC 'PCL',$80+'S' BC0162 81A1 50 53 45 D4 L81A1 FCC 'PSE',$80+'T' BD0163 81A5 50 52 45 53 45 D4 L81A5 FCC 'PRESE',$80+'T' BE0164 81AB 53 43 52 45 45 CE L81AB FCC 'SCREE',$80+'N' BF0165 81B1 50 43 4C 45 41 D2 L81B1 FCC 'PCLEA',$80+'R' C00166 81B7 43 4F 4C 4F D2 L81B7 FCC 'COLO',$80+'R' C10167 81BC 43 49 52 43 4C C5 L81BC FCC 'CIRCL',$80+'E' C20168 81C2 50 41 49 4E D4 L81C2 FCC 'PAIN',$80+'T' C30169 81C7 47 45 D4 L81C7 FCC 'GE',$80+'T' C40170 81CA 50 55 D4 L81CA FCC 'PU',$80+'T' C50171 81CD 44 52 41 D7 L81CD FCC 'DRA',$80+'W' C60172 81D1 50 43 4F 50 D9 L81D1 FCC 'PCOP',$80+'Y' C70173 81D6 50 4D 4F 44 C5 L81D6 FCC 'PMOD',$80+'E' C80174 81DB 50 4C 41 D9 L81DB FCC 'PLA',$80+'Y' C90175 81DF 44 4C 4F 41 C4 L81DF FCC 'DLOA',$80+'D' CA0176 81E4 52 45 4E 55 CD L81E4 FCC 'RENU',$80+'M' CB0177 81E9 46 CE L81E9 FCC 'F',$80+'N' CC0178 81EB 55 53 49 4E C7 L81EB FCC 'USIN',$80+'G' CD01790180 * DISPATCH TABLE FOR EXTENDED BASIC COMMANDS0181 * TOKEN #0182 81F0 89 70 L81F0 FDB DEL DEL B50183 81F2 85 33 L81F2 FDB EDIT EDIT B60184 81F4 86 A7 L81F4 FDB TRON TRON B70185 81F6 86 A8 L81F6 FDB TROFF TROFF B80186 81F8 88 71 L81F8 FDB DEF DEF B90187 81FA AF 89 L81FA FDB LET LET BA0188 81FC 93 BB L81FC FDB LINE LINE BB0189 81FE 95 32 L81FE FDB PCLS PCLS BC0190 8200 93 61 L8200 FDB PSET PSET BD0191 8202 93 65 L8202 FDB PRESET PRESET BE0192 8204 96 70 L8204 FDB SCREEN SCREEN BFB2