S-C DocuMentor — Applesoft
SAVE S.D000
1010 *--------------------------------
1020 * APPLESOFT TOKENS
1030 *--------------------------------
81- 1040 TOKEN.FOR .EQ $81
83- 1050 TOKEN.DATA .EQ $83
A1- 1060 TOKEN.POP .EQ $A1
AB- 1070 TOKEN.GOTO .EQ $AB
B0- 1080 TOKEN.GOSUB .EQ $B0
B2- 1090 TOKEN.REM .EQ $B2
BA- 1100 TOKEN.PRINT .EQ $BA
C0- 1110 TOKEN.TAB .EQ $C0
C1- 1120 TOKEN.TO .EQ $C1
C2- 1130 TOKEN.FN .EQ $C2
C3- 1140 TOKEN.SPC .EQ $C3
C4- 1150 TOKEN.THEN .EQ $C4
C5- 1160 TOKEN.AT .EQ $C5
C6- 1170 TOKEN.NOT .EQ $C6
C7- 1180 TOKEN.STEP .EQ $C7
C8- 1190 TOKEN.PLUS .EQ $C8
C9- 1200 TOKEN.MINUS .EQ $C9
CF- 1210 TOKEN.GREATER .EQ $CF
D0- 1220 TOKEN.EQUAL .EQ $D0
D2- 1230 TOKEN.SGN .EQ $D2
D7- 1240 TOKEN.SCRN .EQ $D7
E8- 1250 TOKEN.LEFTSTR .EQ $E8
1260 *--------------------------------
1270 * BRANCH TABLE FOR TOKENS
1280 *--------------------------------
1290 TOKEN.ADDRESS.TABLE
D000- 6F D8 1300 .DA END-1 $80...128...END
D002- 65 D7 1310 .DA FOR-1 $81...129...FOR
D004- F8 DC 1320 .DA NEXT-1 $82...130...NEXT
D006- 94 D9 1330 .DA DATA-1 $83...131...DATA
D008- B1 DB 1340 .DA INPUT-1 $84...132...INPUT
D00A- 30 F3 1350 .DA DEL-1 $85...133...DEL
D00C- D8 DF 1360 .DA DIM-1 $86...134...DIM
D00E- E1 DB 1370 .DA READ-1 $87...135...READ
D010- 8F F3 1380 .DA GR-1 $88...136...GR
D012- 98 F3 1390 .DA TEXT-1 $89...137...TEXT
D014- E4 F1 1400 .DA PR.NUMBER-1 $8A...138...PR#
D016- DD F1 1410 .DA IN.NUMBER-1 $8B...139...IN#
D018- D4 F1 1420 .DA CALL-1 $8C...140...CALL
D01A- 24 F2 1430 .DA PLOT-1 $8D...141...PLOT
D01C- 31 F2 1440 .DA HLIN-1 $8E...142...HLIN
D01E- 40 F2 1450 .DA VLIN-1 $8F...143...VLIN
D020- D7 F3 1460 .DA HGR2-1 $90...144...HGR2
D022- E1 F3 1470 .DA HGR-1 $91...145...HGR
D024- E8 F6 1480 .DA HCOLOR-1 $92...146...HCOLOR=
D026- FD F6 1490 .DA HPLOT-1 $93...147...HPLOT
D028- 68 F7 1500 .DA DRAW-1 $94...148...DRAW
D02A- 6E F7 1510 .DA XDRAW-1 $95...149...XDRAW
D02C- E6 F7 1520 .DA HTAB-1 $96...150...HTAB
D02E- 57 FC 1530 .DA MON.HOME-1 $97...151...HOME
D030- 20 F7 1540 .DA ROT-1 $98...152...ROT=
D032- 26 F7 1550 .DA SCALE-1 $99...153...SCALE=
D034- 74 F7 1560 .DA SHLOAD-1 $9A...154...SHLOAD
D036- 6C F2 1570 .DA TRACE-1 $9B...155...TRACE
D038- 6E F2 1580 .DA NOTRACE-1 $9C...156...NOTRACE
D03A- 72 F2 1590 .DA NORMAL-1 $9D...157...NORMAL
D03C- 76 F2 1600 .DA INVERSE-1 $9E...158...INVERSE
D03E- 7F F2 1610 .DA FLASH-1 $9F...159...FLASH
D040- 4E F2 1620 .DA COLOR-1 $A0...160...COLOR=
D042- 6A D9 1630 .DA POP-1 $A1...161...POP
D044- 55 F2 1640 .DA VTAB-1 $A2...162...VTAB
D046- 85 F2 1650 .DA HIMEM-1 $A3...163...HIMEM:
D048- A5 F2 1660 .DA LOMEM-1 $A4...164...LOMEM:
D04A- CA F2 1670 .DA ONERR-1 $A5...165...ONERR
D04C- 17 F3 1680 .DA RESUME-1 $A6...166...RESUME
D04E- BB F3 1690 .DA RECALL-1 $A7...167...RECALL
D050- 9E F3 1700 .DA STORE-1 $A8...168...STORE
D052- 61 F2 1710 .DA SPEED-1 $A9...169...SPEED=
D054- 45 DA 1720 .DA LET-1 $AA...170...LET
D056- 3D D9 1730 .DA GOTO-1 $AB...171...GOTO
D058- 11 D9 1740 .DA RUN-1 $AC...172...RUN
D05A- C8 D9 1750 .DA IF-1 $AD...173...IF
D05C- 48 D8 1760 .DA RESTORE-1 $AE...174...RESTORE
D05E- F4 03 1770 .DA AMPERSAND.VECTOR-1 $AF...175...&
D060- 20 D9 1780 .DA GOSUB-1 $B0...176...GOSUB
D062- 6A D9 1790 .DA POP-1 $B1...177...RETURN
D064- DB D9 1800 .DA REM-1 $B2...178...REM
D066- 6D D8 1810 .DA STOP-1 $B3...179...STOP
D068- EB D9 1820 .DA ONGOTO-1 $B4...180...ON
D06A- 83 E7 1830 .DA WAIT-1 $B5...181...WAIT
D06C- C8 D8 1840 .DA LOAD-1 $B6...182...LOAD
D06E- AF D8 1850 .DA SAVE-1 $B7...183...SAVE
D070- 12 E3 1860 .DA DEF-1 $B8...184...DEF
D072- 7A E7 1870 .DA POKE-1 $B9...185...POKE
D074- D4 DA 1880 .DA PRINT-1 $BA...186...PRINT
D076- 95 D8 1890 .DA CONT-1 $BB...187...CONT
D078- A4 D6 1900 .DA LIST-1 $BC...188...LIST
D07A- 69 D6 1910 .DA CLEAR-1 $BD...189...CLEAR
D07C- 9F DB 1920 .DA GET-1 $BE...190...GET
D07E- 48 D6 1930 .DA NEW-1 $BF...191...NEW
1940 *--------------------------------
1950 UNFNC
D080- 90 EB 1960 .DA SGN $D2...210...SGN
D082- 23 EC 1970 .DA INT $D3...211...INT
D084- AF EB 1980 .DA ABS $D4...212...ABS
D086- 0A 00 1990 .DA USR $D5...213...USR
D088- DE E2 2000 .DA FRE $D6...214...FRE
D08A- 12 D4 2010 .DA ERROR $D7...215...SCRN(
D08C- CD DF 2020 .DA PDL $D8...216...PDL
D08E- FF E2 2030 .DA POS $D9...217...POS
D090- 8D EE 2040 .DA SQR $DA...218...SQR
D092- AE EF 2050 .DA RND $DB...219...RND
D094- 41 E9 2060 .DA LOG $DC...220...LOG
D096- 09 EF 2070 .DA EXP $DD...221...EXP
D098- EA EF 2080 .DA COS $DE...222...COS
D09A- F1 EF 2090 .DA SIN $DF...223...SIN
D09C- 3A F0 2100 .DA TAN $E0...224...TAN
D09E- 9E F0 2110 .DA ATN $E1...225...ATN
D0A0- 64 E7 2120 .DA PEEK $E2...226...PEEK
D0A2- D6 E6 2130 .DA LEN $E3...227...LEN
D0A4- C5 E3 2140 .DA STR $E4...228...STR$
D0A6- 07 E7 2150 .DA VAL $E5...229...VAL
D0A8- E5 E6 2160 .DA ASC $E6...230...ASC
D0AA- 46 E6 2170 .DA CHRSTR $E7...231...CHR$
D0AC- 5A E6 2180 .DA LEFTSTR $E8...232...LEFT$
D0AE- 86 E6 2190 .DA RIGHTSTR $E9...233...RIGHT$
D0B0- 91 E6 2200 .DA MIDSTR $EA...234...MID$
2210 *--------------------------------
2220 * MATH OPERATOR BRANCH TABLE
2230 *
2240 * ONE-BYTE PRECEDENCE CODE
2250 * TWO-BYTE ADDRESS
2260 *--------------------------------
46- 2270 P.OR .EQ $46 "OR" IS LOWEST PRECEDENCE
50- 2280 P.AND .EQ $50
64- 2290 P.REL .EQ $64 RELATIONAL OPERATORS
79- 2300 P.ADD .EQ $79 BINARY + AND -
7B- 2310 P.MUL .EQ $7B * AND /
7D- 2320 P.PWR .EQ $7D EXPONENTIATION
7F- 2330 P.NEQ .EQ $7F UNARY - AND COMPARISON =
2340 *--------------------------------
2350 MATHTBL
D0B2- 79 C0 E7 2360 .DA #P.ADD,FADDT-1 $C8...200...+
D0B5- 79 A9 E7 2370 .DA #P.ADD,FSUBT-1 $C9...201...-
D0B8- 7B 81 E9 2380 .DA #P.MUL,FMULTT-1 $CA...202...*
D0BB- 7B 68 EA 2390 .DA #P.MUL,FDIVT-1 $CB...203.../
D0BE- 7D 96 EE 2400 .DA #P.PWR,FPWRT-1 $CC...204...^
D0C1- 50 54 DF 2410 .DA #P.AND,AND-1 $CD...205...AND
D0C4- 46 4E DF 2420 .DA #P.OR,OR-1 $CE...206...OR
D0C7- 7F CF EE 2430 M.NEG .DA #P.NEQ,NEGOP-1 $CF...207...>
D0CA- 7F 97 DE 2440 M.EQU .DA #P.NEQ,EQUOP-1 $D0...208...=
D0CD- 64 64 DF 2450 M.REL .DA #P.REL,RELOPS-1 $D1...209...<
2460 *--------------------------------
2470 * TOKEN NAME TABLE
2480 *--------------------------------
2490 TOKEN.NAME.TABLE
D0D0- 45 4E C4 2500 .AT "END" $80...128
D0D3- 46 4F D2 2510 .AT "FOR" $81...129
D0D6- 4E 45 58
D0D9- D4 2520 .AT "NEXT" $82...130
D0DA- 44 41 54
D0DD- C1 2530 .AT "DATA" $83...131
D0DE- 49 4E 50
D0E1- 55 D4 2540 .AT "INPUT" $84...132
D0E3- 44 45 CC 2550 .AT "DEL" $85...133
D0E6- 44 49 CD 2560 .AT "DIM" $86...134
D0E9- 52 45 41
D0EC- C4 2570 .AT "READ" $87...135
D0ED- 47 D2 2580 .AT "GR" $88...136
D0EF- 54 45 58
D0F2- D4 2590 .AT "TEXT" $89...137
D0F3- 50 52 A3 2600 .AT "PR#" $8A...138
D0F6- 49 4E A3 2610 .AT "IN#" $8B...139
D0F9- 43 41 4C
D0FC- CC 2620 .AT "CALL" $8C...140
D0FD- 50 4C 4F
D100- D4 2630 .AT "PLOT" $8D...141
D101- 48 4C 49
D104- CE 2640 .AT "HLIN" $8E...142
D105- 56 4C 49
D108- CE 2650 .AT "VLIN" $8F...143
D109- 48 47 52
D10C- B2 2660 .AT "HGR2" $90...144
D10D- 48 47 D2 2670 .AT "HGR" $91...145
D110- 48 43 4F
D113- 4C 4F 52
D116- BD 2680 .AT "HCOLOR=" $92...146
D117- 48 50 4C
D11A- 4F D4 2690 .AT "HPLOT" $93...147
D11C- 44 52 41
D11F- D7 2700 .AT "DRAW" $94...148
D120- 58 44 52
D123- 41 D7 2710 .AT "XDRAW" $95...149
D125- 48 54 41
D128- C2 2720 .AT "HTAB" $96...150
D129- 48 4F 4D
D12C- C5 2730 .AT "HOME" $97...151
D12D- 52 4F 54
D130- BD 2740 .AT "ROT=" $98...152
D131- 53 43 41
D134- 4C 45 BD 2750 .AT "SCALE=" $99...153
D137- 53 48 4C
D13A- 4F 41 C4 2760 .AT "SHLOAD" $9A...154
D13D- 54 52 41
D140- 43 C5 2770 .AT "TRACE" $9B...155
D142- 4E 4F 54
D145- 52 41 43
D148- C5 2780 .AT "NOTRACE" $9C...156
D149- 4E 4F 52
D14C- 4D 41 CC 2790 .AT "NORMAL" $9D...157
D14F- 49 4E 56
D152- 45 52 53
D155- C5 2800 .AT "INVERSE" $9E...158
D156- 46 4C 41
D159- 53 C8 2810 .AT "FLASH" $9F...159
D15B- 43 4F 4C
D15E- 4F 52 BD 2820 .AT "COLOR=" $A0...160
D161- 50 4F D0 2830 .AT "POP" $A1...161
D164- 56 54 41
D167- C2 2840 .AT "VTAB" $A2...162
D168- 48 49 4D
D16B- 45 4D BA 2850 .AT "HIMEM:" $A3...163
D16E- 4C 4F 4D
D171- 45 4D BA 2860 .AT "LOMEM:" $A4...164
D174- 4F 4E 45
D177- 52 D2 2870 .AT "ONERR" $A5...165
D179- 52 45 53
D17C- 55 4D C5 2880 .AT "RESUME" $A6...166
D17F- 52 45 43
D182- 41 4C CC 2890 .AT "RECALL" $A7...167
D185- 53 54 4F
D188- 52 C5 2900 .AT "STORE" $A8...168
D18A- 53 50 45
D18D- 45 44 BD 2910 .AT "SPEED=" $A9...169
D190- 4C 45 D4 2920 .AT "LET" $AA...170
D193- 47 4F 54
D196- CF 2930 .AT "GOTO" $AB...171
D197- 52 55 CE 2940 .AT "RUN" $AC...172
D19A- 49 C6 2950 .AT "IF" $AD...173
D19C- 52 45 53
D19F- 54 4F 52
D1A2- C5 2960 .AT "RESTORE" $AE...174
D1A3- A6 2970 .AT "&" $AF...175
D1A4- 47 4F 53
D1A7- 55 C2 2980 .AT "GOSUB" $B0...176
D1A9- 52 45 54
D1AC- 55 52 CE 2990 .AT "RETURN" $B1...177
D1AF- 52 45 CD 3000 .AT "REM" $B2...178
D1B2- 53 54 4F
D1B5- D0 3010 .AT "STOP" $B3...179
D1B6- 4F CE 3020 .AT "ON" $B4...180
D1B8- 57 41 49
D1BB- D4 3030 .AT "WAIT" $B5...181
D1BC- 4C 4F 41
D1BF- C4 3040 .AT "LOAD" $B6...182
D1C0- 53 41 56
D1C3- C5 3050 .AT "SAVE" $B7...183
D1C4- 44 45 C6 3060 .AT "DEF" $B8...184
D1C7- 50 4F 4B
D1CA- C5 3070 .AT "POKE" $B9...185
D1CB- 50 52 49
D1CE- 4E D4 3080 .AT "PRINT" $BA...186
D1D0- 43 4F 4E
D1D3- D4 3090 .AT "CONT" $BB...187
D1D4- 4C 49 53
D1D7- D4 3100 .AT "LIST" $BC...188
D1D8- 43 4C 45
D1DB- 41 D2 3110 .AT "CLEAR" $BD...189
D1DD- 47 45 D4 3120 .AT "GET" $BE...190
D1E0- 4E 45 D7 3130 .AT "NEW" $BF...191
D1E3- 54 41 42
D1E6- A8 3140 .AT "TAB(" $C0...192
D1E7- 54 CF 3150 .AT "TO" $C1...193
D1E9- 46 CE 3160 .AT "FN" $C2...194
D1EB- 53 50 43
D1EE- A8 3170 .AT "SPC(" $C3...195
D1EF- 54 48 45
D1F2- CE 3180 .AT "THEN" $C4...196
D1F3- 41 D4 3190 .AT "AT" $C5...197
D1F5- 4E 4F D4 3200 .AT "NOT" $C6...198
D1F8- 53 54 45
D1FB- D0 3210 .AT "STEP" $C7...199
D1FC- AB 3220 .AT "+" $C8...200
D1FD- AD 3230 .AT "-" $C9...201
D1FE- AA 3240 .AT "*" $CA...202
D1FF- AF 3250 .AT "/" $CB...203
D200- DE 3260 .AT "^" $CC...204
D201- 41 4E C4 3270 .AT "AND" $CD...205
D204- 4F D2 3280 .AT "OR" $CE...206
D206- BE 3290 .AT ">" $CF...207
D207- BD 3300 .AT "=" $D0...208
D208- BC 3310 .AT "<" $D1...209
D209- 53 47 CE 3320 .AT "SGN" $D2...210
D20C- 49 4E D4 3330 .AT "INT" $D3...211
D20F- 41 42 D3 3340 .AT "ABS" $D4...212
D212- 55 53 D2 3350 .AT "USR" $D5...213
D215- 46 52 C5 3360 .AT "FRE" $D6...214
D218- 53 43 52
D21B- 4E A8 3370 .AT "SCRN(" $D7...215
D21D- 50 44 CC 3380 .AT "PDL" $D8...216
D220- 50 4F D3 3390 .AT "POS" $D9...217
D223- 53 51 D2 3400 .AT "SQR" $DA...218
D226- 52 4E C4 3410 .AT "RND" $DB...219
D229- 4C 4F C7 3420 .AT "LOG" $DC...220
D22C- 45 58 D0 3430 .AT "EXP" $DD...221
D22F- 43 4F D3 3440 .AT "COS" $DE...222
D232- 53 49 CE 3450 .AT "SIN" $DF...223
D235- 54 41 CE 3460 .AT "TAN" $E0...224
D238- 41 54 CE 3470 .AT "ATN" $E1...225
D23B- 50 45 45
D23E- CB 3480 .AT "PEEK" $E2...226
D23F- 4C 45 CE 3490 .AT "LEN" $E3...227
D242- 53 54 52
D245- A4 3500 .AT "STR$" $E4...228
D246- 56 41 CC 3510 .AT "VAL" $E5...229
D249- 41 53 C3 3520 .AT "ASC" $E6...230
D24C- 43 48 52
D24F- A4 3530 .AT "CHR$" $E7...231
D250- 4C 45 46
D253- 54 A4 3540 .AT "LEFT$" $E8...232
D255- 52 49 47
D258- 48 54 A4 3550 .AT "RIGHT$" $E9...233
D25B- 4D 49 44
D25E- A4 3560 .AT "MID$" $EA...234
D25F- 00 3570 .HS 00 END OF TOKEN NAME TABLE
3580 *--------------------------------
S.DEFINITIONS