goapple2/source/applesoft/S.D000
2014-05-09 17:59:16 -07:00

259 lines
9.4 KiB
Plaintext

1010 *--------------------------------
1020 * APPLESOFT TOKENS
1030 *--------------------------------
1040 TOKEN.FOR .EQ $81
1050 TOKEN.DATA .EQ $83
1060 TOKEN.POP .EQ $A1
1070 TOKEN.GOTO .EQ $AB
1080 TOKEN.GOSUB .EQ $B0
1090 TOKEN.REM .EQ $B2
1100 TOKEN.PRINT .EQ $BA
1110 TOKEN.TAB .EQ $C0
1120 TOKEN.TO .EQ $C1
1130 TOKEN.FN .EQ $C2
1140 TOKEN.SPC .EQ $C3
1150 TOKEN.THEN .EQ $C4
1160 TOKEN.AT .EQ $C5
1170 TOKEN.NOT .EQ $C6
1180 TOKEN.STEP .EQ $C7
1190 TOKEN.PLUS .EQ $C8
1200 TOKEN.MINUS .EQ $C9
1210 TOKEN.GREATER .EQ $CF
1220 TOKEN.EQUAL .EQ $D0
1230 TOKEN.SGN .EQ $D2
1240 TOKEN.SCRN .EQ $D7
1250 TOKEN.LEFTSTR .EQ $E8
1260 *--------------------------------
1270 * BRANCH TABLE FOR TOKENS
1280 *--------------------------------
1290 TOKEN.ADDRESS.TABLE
1300 .DA END-1 $80...128...END
1310 .DA FOR-1 $81...129...FOR
1320 .DA NEXT-1 $82...130...NEXT
1330 .DA DATA-1 $83...131...DATA
1340 .DA INPUT-1 $84...132...INPUT
1350 .DA DEL-1 $85...133...DEL
1360 .DA DIM-1 $86...134...DIM
1370 .DA READ-1 $87...135...READ
1380 .DA GR-1 $88...136...GR
1390 .DA TEXT-1 $89...137...TEXT
1400 .DA PR.NUMBER-1 $8A...138...PR#
1410 .DA IN.NUMBER-1 $8B...139...IN#
1420 .DA CALL-1 $8C...140...CALL
1430 .DA PLOT-1 $8D...141...PLOT
1440 .DA HLIN-1 $8E...142...HLIN
1450 .DA VLIN-1 $8F...143...VLIN
1460 .DA HGR2-1 $90...144...HGR2
1470 .DA HGR-1 $91...145...HGR
1480 .DA HCOLOR-1 $92...146...HCOLOR=
1490 .DA HPLOT-1 $93...147...HPLOT
1500 .DA DRAW-1 $94...148...DRAW
1510 .DA XDRAW-1 $95...149...XDRAW
1520 .DA HTAB-1 $96...150...HTAB
1530 .DA MON.HOME-1 $97...151...HOME
1540 .DA ROT-1 $98...152...ROT=
1550 .DA SCALE-1 $99...153...SCALE=
1560 .DA SHLOAD-1 $9A...154...SHLOAD
1570 .DA TRACE-1 $9B...155...TRACE
1580 .DA NOTRACE-1 $9C...156...NOTRACE
1590 .DA NORMAL-1 $9D...157...NORMAL
1600 .DA INVERSE-1 $9E...158...INVERSE
1610 .DA FLASH-1 $9F...159...FLASH
1620 .DA COLOR-1 $A0...160...COLOR=
1630 .DA POP-1 $A1...161...POP
1640 .DA VTAB-1 $A2...162...VTAB
1650 .DA HIMEM-1 $A3...163...HIMEM:
1660 .DA LOMEM-1 $A4...164...LOMEM:
1670 .DA ONERR-1 $A5...165...ONERR
1680 .DA RESUME-1 $A6...166...RESUME
1690 .DA RECALL-1 $A7...167...RECALL
1700 .DA STORE-1 $A8...168...STORE
1710 .DA SPEED-1 $A9...169...SPEED=
1720 .DA LET-1 $AA...170...LET
1730 .DA GOTO-1 $AB...171...GOTO
1740 .DA RUN-1 $AC...172...RUN
1750 .DA IF-1 $AD...173...IF
1760 .DA RESTORE-1 $AE...174...RESTORE
1770 .DA AMPERSAND.VECTOR-1 $AF...175...&
1780 .DA GOSUB-1 $B0...176...GOSUB
1790 .DA POP-1 $B1...177...RETURN
1800 .DA REM-1 $B2...178...REM
1810 .DA STOP-1 $B3...179...STOP
1820 .DA ONGOTO-1 $B4...180...ON
1830 .DA WAIT-1 $B5...181...WAIT
1840 .DA LOAD-1 $B6...182...LOAD
1850 .DA SAVE-1 $B7...183...SAVE
1860 .DA DEF-1 $B8...184...DEF
1870 .DA POKE-1 $B9...185...POKE
1880 .DA PRINT-1 $BA...186...PRINT
1890 .DA CONT-1 $BB...187...CONT
1900 .DA LIST-1 $BC...188...LIST
1910 .DA CLEAR-1 $BD...189...CLEAR
1920 .DA GET-1 $BE...190...GET
1930 .DA NEW-1 $BF...191...NEW
1940 *--------------------------------
1950 UNFNC
1960 .DA SGN $D2...210...SGN
1970 .DA INT $D3...211...INT
1980 .DA ABS $D4...212...ABS
1990 .DA USR $D5...213...USR
2000 .DA FRE $D6...214...FRE
2010 .DA ERROR $D7...215...SCRN(
2020 .DA PDL $D8...216...PDL
2030 .DA POS $D9...217...POS
2040 .DA SQR $DA...218...SQR
2050 .DA RND $DB...219...RND
2060 .DA LOG $DC...220...LOG
2070 .DA EXP $DD...221...EXP
2080 .DA COS $DE...222...COS
2090 .DA SIN $DF...223...SIN
2100 .DA TAN $E0...224...TAN
2110 .DA ATN $E1...225...ATN
2120 .DA PEEK $E2...226...PEEK
2130 .DA LEN $E3...227...LEN
2140 .DA STR $E4...228...STR$
2150 .DA VAL $E5...229...VAL
2160 .DA ASC $E6...230...ASC
2170 .DA CHRSTR $E7...231...CHR$
2180 .DA LEFTSTR $E8...232...LEFT$
2190 .DA RIGHTSTR $E9...233...RIGHT$
2200 .DA MIDSTR $EA...234...MID$
2210 *--------------------------------
2220 * MATH OPERATOR BRANCH TABLE
2230 *
2240 * ONE-BYTE PRECEDENCE CODE
2250 * TWO-BYTE ADDRESS
2260 *--------------------------------
2270 P.OR .EQ $46 "OR" IS LOWEST PRECEDENCE
2280 P.AND .EQ $50
2290 P.REL .EQ $64 RELATIONAL OPERATORS
2300 P.ADD .EQ $79 BINARY + AND -
2310 P.MUL .EQ $7B * AND /
2320 P.PWR .EQ $7D EXPONENTIATION
2330 P.NEQ .EQ $7F UNARY - AND COMPARISON =
2340 *--------------------------------
2350 MATHTBL
2360 .DA #P.ADD,FADDT-1 $C8...200...+
2370 .DA #P.ADD,FSUBT-1 $C9...201...-
2380 .DA #P.MUL,FMULTT-1 $CA...202...*
2390 .DA #P.MUL,FDIVT-1 $CB...203.../
2400 .DA #P.PWR,FPWRT-1 $CC...204...^
2410 .DA #P.AND,AND-1 $CD...205...AND
2420 .DA #P.OR,OR-1 $CE...206...OR
2430 M.NEG .DA #P.NEQ,NEGOP-1 $CF...207...>
2440 M.EQU .DA #P.NEQ,EQUOP-1 $D0...208...=
2450 M.REL .DA #P.REL,RELOPS-1 $D1...209...<
2460 *--------------------------------
2470 * TOKEN NAME TABLE
2480 *--------------------------------
2490 TOKEN.NAME.TABLE
2500 .AT "END" $80...128
2510 .AT "FOR" $81...129
2520 .AT "NEXT" $82...130
2530 .AT "DATA" $83...131
2540 .AT "INPUT" $84...132
2550 .AT "DEL" $85...133
2560 .AT "DIM" $86...134
2570 .AT "READ" $87...135
2580 .AT "GR" $88...136
2590 .AT "TEXT" $89...137
2600 .AT "PR#" $8A...138
2610 .AT "IN#" $8B...139
2620 .AT "CALL" $8C...140
2630 .AT "PLOT" $8D...141
2640 .AT "HLIN" $8E...142
2650 .AT "VLIN" $8F...143
2660 .AT "HGR2" $90...144
2670 .AT "HGR" $91...145
2680 .AT "HCOLOR=" $92...146
2690 .AT "HPLOT" $93...147
2700 .AT "DRAW" $94...148
2710 .AT "XDRAW" $95...149
2720 .AT "HTAB" $96...150
2730 .AT "HOME" $97...151
2740 .AT "ROT=" $98...152
2750 .AT "SCALE=" $99...153
2760 .AT "SHLOAD" $9A...154
2770 .AT "TRACE" $9B...155
2780 .AT "NOTRACE" $9C...156
2790 .AT "NORMAL" $9D...157
2800 .AT "INVERSE" $9E...158
2810 .AT "FLASH" $9F...159
2820 .AT "COLOR=" $A0...160
2830 .AT "POP" $A1...161
2840 .AT "VTAB" $A2...162
2850 .AT "HIMEM:" $A3...163
2860 .AT "LOMEM:" $A4...164
2870 .AT "ONERR" $A5...165
2880 .AT "RESUME" $A6...166
2890 .AT "RECALL" $A7...167
2900 .AT "STORE" $A8...168
2910 .AT "SPEED=" $A9...169
2920 .AT "LET" $AA...170
2930 .AT "GOTO" $AB...171
2940 .AT "RUN" $AC...172
2950 .AT "IF" $AD...173
2960 .AT "RESTORE" $AE...174
2970 .AT "&" $AF...175
2980 .AT "GOSUB" $B0...176
2990 .AT "RETURN" $B1...177
3000 .AT "REM" $B2...178
3010 .AT "STOP" $B3...179
3020 .AT "ON" $B4...180
3030 .AT "WAIT" $B5...181
3040 .AT "LOAD" $B6...182
3050 .AT "SAVE" $B7...183
3060 .AT "DEF" $B8...184
3070 .AT "POKE" $B9...185
3080 .AT "PRINT" $BA...186
3090 .AT "CONT" $BB...187
3100 .AT "LIST" $BC...188
3110 .AT "CLEAR" $BD...189
3120 .AT "GET" $BE...190
3130 .AT "NEW" $BF...191
3140 .AT "TAB(" $C0...192
3150 .AT "TO" $C1...193
3160 .AT "FN" $C2...194
3170 .AT "SPC(" $C3...195
3180 .AT "THEN" $C4...196
3190 .AT "AT" $C5...197
3200 .AT "NOT" $C6...198
3210 .AT "STEP" $C7...199
3220 .AT "+" $C8...200
3230 .AT "-" $C9...201
3240 .AT "*" $CA...202
3250 .AT "/" $CB...203
3260 .AT "^" $CC...204
3270 .AT "AND" $CD...205
3280 .AT "OR" $CE...206
3290 .AT ">" $CF...207
3300 .AT "=" $D0...208
3310 .AT "<" $D1...209
3320 .AT "SGN" $D2...210
3330 .AT "INT" $D3...211
3340 .AT "ABS" $D4...212
3350 .AT "USR" $D5...213
3360 .AT "FRE" $D6...214
3370 .AT "SCRN(" $D7...215
3380 .AT "PDL" $D8...216
3390 .AT "POS" $D9...217
3400 .AT "SQR" $DA...218
3410 .AT "RND" $DB...219
3420 .AT "LOG" $DC...220
3430 .AT "EXP" $DD...221
3440 .AT "COS" $DE...222
3450 .AT "SIN" $DF...223
3460 .AT "TAN" $E0...224
3470 .AT "ATN" $E1...225
3480 .AT "PEEK" $E2...226
3490 .AT "LEN" $E3...227
3500 .AT "STR$" $E4...228
3510 .AT "VAL" $E5...229
3520 .AT "ASC" $E6...230
3530 .AT "CHR$" $E7...231
3540 .AT "LEFT$" $E8...232
3550 .AT "RIGHT$" $E9...233
3560 .AT "MID$" $EA...234
3570 .HS 00 END OF TOKEN NAME TABLE
3580 *--------------------------------