TINY-COMPILER
FILE INFORMATION
FILENAME(S): TINY-COMPILER
FILE TYPE(S): PRG
FILE SIZE: 8.8K
FIRST SEEN: 2025-12-02 23:21:52
APPEARS ON: 2 disk(s)
FILE HASH
ae4e88dc5123dafcbfe4028066d0b8f38932d6fe3d63b4d42b6c56e5038e44e6
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPRACHEN | TINY-COMPILER | PRG | swasti, dinkel | 22 | 9 | DOWNLOAD FILE |
| SPRACHEN | TINY-COMPILER | PRG | swasti, dinkel | 22 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 16 08 01 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |....... ********|
00000010: 2A 2A 2A 2A 2A 2A 00 2B 08 02 00 8F 20 2A 54 49 |******.+.... *TI|
00000020: 4E 59 20 42 41 53 49 43 20 20 2A 00 40 08 03 00 |NY BASIC *.@...|
00000030: 8F 20 2A 43 4F 4D 50 49 4C 45 52 20 20 20 20 2A |. *COMPILER *|
00000040: 00 55 08 04 00 8F 20 2A 46 4F 52 20 54 48 45 20 |.U.... *FOR THE |
00000050: 56 49 43 20 2A 00 6A 08 05 00 8F 20 2A 20 20 20 |VIC *.j.... * |
00000060: 20 20 20 20 20 20 20 20 20 2A 00 7F 08 06 00 8F | *......|
00000070: 20 2A 27 52 55 4E 36 32 30 30 30 27 20 20 2A 00 | *'RUN62000' *.|
00000080: 94 08 07 00 8F 20 2A 54 4F 20 43 4F 4D 50 49 4C |..... *TO COMPIL|
00000090: 45 20 20 2A 00 A9 08 08 00 8F 20 2A 20 20 20 20 |E *...... * |
000000A0: 20 20 20 20 20 20 20 20 2A 00 BE 08 09 00 8F 20 | *...... |
000000B0: 2A 28 43 29 31 39 38 31 20 42 59 20 20 2A 00 D2 |*(C)1981 BY *..|
000000C0: 08 0A 00 8F 2A 4D 41 52 4B 20 20 20 20 20 20 20 |....*MARK |
000000D0: 20 2A 00 E6 08 0B 00 8F 2A 20 20 5A 49 4D 4D 45 | *......* ZIMME|
000000E0: 52 4D 41 4E 4E 2A 00 FA 08 0C 00 8F 2A 44 41 56 |RMANN*......*DAV|
000000F0: 49 44 20 20 20 20 20 20 20 2A 00 0E 09 0D 00 8F |ID *......|
00000100: 2A 20 20 4D 41 4C 4D 42 45 52 47 20 20 2A 00 22 |* MALMBERG *."|
00000110: 09 0E 00 8F 2A 20 20 20 20 20 20 20 20 20 20 20 |....* |
00000120: 20 2A 00 36 09 0F 00 8F 2A 20 20 20 20 46 52 4F | *.6....* FRO|
00000130: 4D 20 20 20 20 2A 00 4A 09 10 00 8F 2A 20 20 20 |M *.J....* |
00000140: 41 42 41 43 55 53 20 20 20 2A 00 5E 09 11 00 8F |ABACUS *.^....|
00000150: 2A 20 20 53 4F 46 54 57 41 52 45 20 20 2A 00 72 |* SOFTWARE *.r|
00000160: 09 12 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |....************|
00000170: 2A 2A 00 9D 09 14 00 8F 20 53 41 4D 50 4C 45 20 |**...... SAMPLE |
00000180: 53 4F 55 52 43 45 20 50 52 4F 47 52 41 4D 2D 2D |SOURCE PROGRAM--|
00000190: 3E 4C 49 4E 45 53 20 32 30 2D 31 32 30 00 D8 09 |>LINES 20-120...|
000001A0: 15 00 8F 20 43 41 4C 43 55 4C 41 54 45 53 20 54 |... CALCULATES T|
000001B0: 41 42 4C 45 20 4F 46 20 58 5E 32 2C 58 5E 33 2C |ABLE OF X^2,X^3,|
000001C0: 53 51 52 28 58 29 20 46 4F 52 20 58 20 46 52 4F |SQR(X) FOR X FRO|
000001D0: 4D 20 41 20 54 4F 20 42 00 EC 09 16 00 88 20 43 |M A TO B...... C|
000001E0: B2 31 3A 88 20 44 20 B2 20 33 2E 30 00 0B 0A 19 |.1:. D . 3.0....|
000001F0: 00 85 22 45 4E 54 45 52 20 52 41 4E 47 45 20 54 |.."ENTER RANGE T|
00000200: 4F 2D 46 52 4F 4D 22 3B 41 2C 42 00 30 0A 1B 00 |O-FROM";A,B.0...|
00000210: 99 22 20 20 58 20 20 20 20 20 58 2A 32 20 20 20 |." X X*2 |
00000220: 20 20 58 5E 33 20 20 20 20 53 51 52 28 58 29 22 | X^3 SQR(X)"|
00000230: 00 3E 0A 1E 00 47 20 B2 20 42 20 AB 20 41 00 4E |.>...G . B . A.N|
00000240: 0A 23 00 8B 20 47 20 A7 20 8D 20 31 30 30 00 5B |.#.. G . . 100.[|
00000250: 0A 28 00 8B 20 47 20 89 20 33 30 00 61 0A 2D 00 |.(.. G . 30.a.-.|
00000260: 80 00 74 0A 64 00 45 20 B2 20 41 AC 41 3A 48 B2 |..t.d.E . A.A:H.|
00000270: BA 28 41 29 00 89 0A 69 00 46 20 B2 20 41 AE 44 |.(A)...i.F . A.D|
00000280: 3A 8F 20 43 55 42 45 20 41 00 97 0A 6E 00 99 20 |:. CUBE A...n.. |
00000290: 41 3B 45 2C 46 2C 48 00 A5 0A 73 00 41 20 B2 20 |A;E,F,H...s.A . |
000002A0: 41 20 AA 20 43 00 AB 0A 78 00 8E 00 D4 0A 80 BB |A . C...x.......|
000002B0: 44 24 B2 22 22 3A 4E 5A 25 B2 30 3A 54 4E B2 54 |D$."":NZ%.0:TN.T|
000002C0: 50 3A 98 4A 25 2C 22 51 55 4F 54 45 20 53 54 52 |P:.J%,"QUOTE STR|
000002D0: 49 4E 47 22 00 F2 0A E4 BB 54 4E B2 54 4E AA 31 |ING".....TN.TN.1|
000002E0: 3A 48 43 B2 C2 28 54 4E 29 3A 47 24 B2 C7 28 48 |:HC..(TN):G$..(H|
000002F0: 43 29 00 18 0B EE BB 8B 48 43 B3 B1 33 34 A7 44 |C)......HC..34.D|
00000300: 24 B2 44 24 AA 47 24 3A 4E 5A 25 B2 4E 5A 25 AA |$.D$.G$:NZ%.NZ%.|
00000310: 31 3A 89 34 38 31 30 30 00 34 0B F8 BB 98 4E 25 |1:.48100.4....N%|
00000320: 2C 32 34 3B 43 24 3B 3A 98 4A 25 2C 50 43 2C 22 |,24;C$;:.J%,PC,"|
00000330: 43 4C 43 22 00 5C 0B FA BB 98 4E 25 2C 31 34 34 |CLC".\....N%,144|
00000340: 3B 43 24 3B 3A 98 4A 25 2C 50 43 AA 31 2C 22 42 |;C$;:.J%,PC.1,"B|
00000350: 43 43 20 3D 2B 22 3B 4E 5A 25 AA 31 00 77 0B FC |CC =+";NZ%.1.w..|
00000360: BB 98 4E 25 2C 4E 5A 25 AA 31 3B 43 24 3B 3A 81 |..N%,NZ%.1;C$;:.|
00000370: 4B B2 31 A4 4E 5A 25 00 9F 0B FE BB 47 24 B2 CA |K.1.NZ%.....G$..|
00000380: 28 44 24 2C 4B 2C 31 29 3A 48 43 B2 C6 28 47 24 |(D$,K,1):HC..(G$|
00000390: 29 3A 98 4E 25 2C 48 43 3B 43 24 3B 3A 82 4B 00 |):.N%,HC;C$;:.K.|
000003A0: C7 0B 00 BC 98 4E 25 2C 30 3B 43 24 3B 3A 98 4A |.....N%,0;C$;:.J|
000003B0: 25 2C 50 43 AA 33 2C 22 2E 42 59 20 23 27 22 3B |%,PC.3,".BY #'";|
000003C0: 44 24 3B 22 20 30 22 00 F9 0B 01 BC 50 43 B2 50 |D$;" 0".....PC.P|
000003D0: 43 AA 33 3A 50 48 B2 B5 28 50 43 AD 32 35 36 29 |C.3:PH..(PC.256)|
000003E0: 3A 50 4C B2 50 43 AB 50 48 AC 32 35 36 3A 50 43 |:PL.PC.PH.256:PC|
000003F0: B2 50 43 AA 4E 5A 25 AA 31 00 37 0C 07 BC 98 4E |.PC.NZ%.1.7....N|
00000400: 25 2C 31 36 30 3B 43 24 3B 3A 98 4E 25 2C 50 48 |%,160;C$;:.N%,PH|
00000410: 3B 43 24 3B 3A 98 4A 25 2C 50 43 2C 22 4C 44 59 |;C$;:.J%,PC,"LDY|
00000420: 20 23 22 3B 50 48 3B 22 20 3B 53 45 54 20 50 4F | #";PH;" ;SET PO|
00000430: 49 4E 54 45 52 53 22 00 52 0C 0C BC 98 4E 25 2C |INTERS".R....N%,|
00000440: 31 36 39 3B 43 24 3B 3A 98 4E 25 2C 50 4C 3B 43 |169;C$;:.N%,PL;C|
00000450: 24 3B 00 7E 0C 0D BC 98 4A 25 2C 50 43 AA 32 2C |$;.~....J%,PC.2,|
00000460: 22 4C 44 41 20 23 22 3B 50 4C 3B 22 20 3B 54 4F |"LDA #";PL;" ;TO|
00000470: 20 51 55 4F 54 45 20 53 54 52 49 4E 47 22 00 A4 | QUOTE STRING"..|
00000480: 0C 11 BC 98 4E 25 2C 33 32 3B 43 24 3B 3A 98 4E |....N%,32;C$;:.N|
00000490: 25 2C 33 30 3B 43 24 3B 3A 98 4E 25 2C 32 30 33 |%,30;C$;:.N%,203|
000004A0: 3B 43 24 3B 00 CC 0C 16 BC 98 4A 25 2C 50 43 AA |;C$;......J%,PC.|
000004B0: 34 2C 22 4A 53 52 20 24 43 42 31 45 20 20 3B 50 |4,"JSR $CB1E ;P|
000004C0: 52 49 4E 54 20 53 54 52 49 4E 47 22 00 E0 0C 1B |RINT STRING"....|
000004D0: BC 50 43 B2 50 43 AA 37 3A 54 50 B2 54 4E 3A 8E |.PC.PC.7:TP.TN:.|
000004E0: 00 25 0D 68 BF 58 B2 20 20 20 20 20 20 20 20 20 |.%.h.X. |
000004F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000520: 20 20 20 3A 8E 00 47 0D CC BF 54 50 B2 54 50 AA | :..G...TP.TP.|
00000530: 31 3A 43 48 B2 C2 28 54 50 29 3A 8B 43 48 B2 33 |1:CH..(TP):.CH.3|
00000540: 32 A7 34 39 31 30 30 00 4D 0D E0 BF 8E 00 68 0D |2.49100.M.....h.|
00000550: 26 C0 8B 28 43 48 B1 36 34 29 AF 28 43 48 B3 39 |&..(CH.64).(CH.9|
00000560: 31 29 A7 34 39 33 30 30 00 93 0D 30 C0 98 4A 25 |1).49300...0..J%|
00000570: 2C 3A 98 4A 25 2C 22 2A 2A 2A 45 52 52 4F 52 20 |,:.J%,"***ERROR |
00000580: 49 4E 20 4C 49 4E 45 20 22 3B 4C 49 3A 89 36 31 |IN LINE ";LI:.61|
00000590: 30 30 30 00 C0 0D 94 C0 5A B2 35 AC 28 43 48 AB |000.....Z.5.(CH.|
000005A0: 36 35 29 AA 4F 56 3A 5A 48 B2 B5 28 5A AD 32 35 |65).OV:ZH..(Z.25|
000005B0: 36 29 3A 5A 4C B2 5A AB 32 35 36 AC 5A 48 3A 8E |6):ZL.Z.256.ZH:.|
000005C0: 00 F2 0D F8 C0 98 4E 25 2C 31 36 39 3B 43 24 3B |......N%,169;C$;|
000005D0: 3A 98 4E 25 2C 5A 4C 3B 43 24 3B 3A 98 4E 25 2C |:.N%,ZL;C$;:.N%,|
000005E0: 31 36 30 3B 43 24 3B 3A 98 4E 25 2C 5A 48 3B 43 |160;C$;:.N%,ZH;C|
000005F0: 24 3B 00 08 0E F9 C0 98 4A 25 2C 50 43 2C 22 4C |$;......J%,PC,"L|
00000600: 44 41 20 23 22 3B 5A 4C 00 20 0E FA C0 98 4A 25 |DA #";ZL. ....J%|
00000610: 2C 50 43 AA 32 2C 22 4C 44 59 20 23 22 3B 5A 48 |,PC.2,"LDY #";ZH|
00000620: 00 52 0E FB C0 98 4A 25 2C 50 43 AA 34 2C 22 4A |.R....J%,PC.4,"J|
00000630: 53 52 20 24 44 42 41 32 20 20 20 3B 56 41 52 20 |SR $DBA2 ;VAR |
00000640: 22 3B C7 28 43 48 29 3B 22 20 54 4F 20 50 46 41 |";.(CH);" TO PFA|
00000650: 43 22 00 83 0E 0C C1 98 4E 25 2C 33 32 3B 43 24 |C"......N%,32;C$|
00000660: 3B 3A 98 4E 25 2C 31 36 32 3B 43 24 3B 3A 98 4E |;:.N%,162;C$;:.N|
00000670: 25 2C 32 31 39 3B 43 24 3B 3A 50 43 B2 50 43 AA |%,219;C$;:PC.PC.|
00000680: 37 3A 8E 00 95 0E C0 C1 83 35 37 2C 32 32 30 2C |7:.......57,220,|
00000690: 22 53 47 4E 22 00 A8 0E C1 C1 83 32 30 34 2C 32 |"SGN"......204,2|
000006A0: 32 30 2C 22 49 4E 54 22 00 BA 0E C2 C1 83 38 38 |20,"INT"......88|
000006B0: 2C 32 32 30 2C 22 41 42 53 22 00 C9 0E C3 C1 83 |,220,"ABS"......|
000006C0: 30 2C 30 2C 22 55 53 52 22 00 DC 0E C4 C1 83 31 |0,0,"USR"......1|
000006D0: 32 35 2C 32 31 31 2C 22 46 52 45 22 00 EF 0E C5 |25,211,"FRE"....|
000006E0: C1 83 31 35 38 2C 32 31 31 2C 22 50 4F 53 22 00 |..158,211,"POS".|
000006F0: 02 0F E8 C1 83 31 31 33 2C 32 32 33 2C 22 53 51 |.....113,223,"SQ|
00000700: 52 22 00 15 0F E9 C1 83 31 34 38 2C 32 32 34 2C |R"......148,224,|
00000710: 22 52 4E 44 22 00 28 0F EA C1 83 32 33 34 2C 32 |"RND".(....234,2|
00000720: 31 37 2C 22 4C 4F 47 22 00 3B 0F EB C1 83 32 33 |17,"LOG".;....23|
00000730: 37 2C 32 32 33 2C 22 45 58 50 22 00 4D 0F EC C1 |7,223,"EXP".M...|
00000740: 83 39 37 2C 32 32 36 2C 22 43 4F 53 22 00 60 0F |.97,226,"COS".`.|
00000750: ED C1 83 31 30 34 2C 32 32 36 2C 22 53 49 4E 22 |...104,226,"SIN"|
00000760: 00 73 0F 10 C2 83 31 37 37 2C 32 32 36 2C 22 54 |.s....177,226,"T|
00000770: 41 4E 22 00 85 0F 11 C2 83 31 31 2C 32 32 37 2C |AN"......11,227,|
00000780: 22 41 54 4E 22 00 98 0F 12 C2 83 31 33 2C 32 31 |"ATN"......13,21|
00000790: 36 2C 22 50 45 45 4B 22 00 AB 0F 13 C2 83 31 30 |6,"PEEK"......10|
000007A0: 33 2C 32 31 36 2C 22 27 2B 27 22 00 BD 0F 14 C2 |3,216,"'+'".....|
000007B0: 83 38 33 2C 32 31 36 2C 22 27 2D 27 22 00 CF 0F |.83,216,"'-'"...|
000007C0: 15 C2 83 34 30 2C 32 31 38 2C 22 27 2A 27 22 00 |...40,218,"'*'".|
000007D0: E1 0F 16 C2 83 31 32 2C 32 31 39 2C 22 27 2F 27 |.....12,219,"'/'|
000007E0: 22 00 F4 0F 17 C2 83 31 32 33 2C 32 32 33 2C 22 |"......123,223,"|
000007F0: 27 5E 27 22 00 1C 10 38 C2 81 58 B2 30 A4 31 39 |'^'"...8..X.0.19|
00000800: 3A 87 4D 4C 25 28 58 2C 30 29 2C 4D 4C 25 28 58 |:.ML%(X,0),ML%(X|
00000810: 2C 31 29 2C 46 24 28 58 29 3A 82 58 00 3C 10 4C |,1),F$(X):.X.<.L|
00000820: C2 81 58 B2 30 A4 32 35 35 3A 4C 4E 25 28 58 29 |..X.0.255:LN%(X)|
00000830: B2 AB 33 32 37 36 37 3A 82 58 3A 8E 00 63 10 18 |..32767:.X:..c..|
00000840: C4 4C 49 B2 C2 28 54 50 AB 31 29 AA 32 35 36 AC |.LI..(TP.1).256.|
00000850: C2 28 54 50 29 3A 8B 4C 49 B1 32 35 35 A7 36 30 |.(TP):.LI.255.60|
00000860: 30 30 30 00 95 10 2C C4 4C 4E 25 28 4C 49 29 B2 |000...,.LN%(LI).|
00000870: 50 43 AB 33 32 37 36 37 3A 98 4A 25 2C 3A 98 4A |PC.32767:.J%,:.J|
00000880: 25 2C 22 43 4F 4D 50 49 4C 49 4E 47 20 4C 49 4E |%,"COMPILING LIN|
00000890: 45 22 3B 4C 49 00 A0 10 40 C4 8D 34 39 31 30 30 |E";LI...@..49100|
000008A0: 00 C9 10 54 C4 8B 43 48 B2 30 A7 54 50 B2 54 50 |...T..CH.0.TP.TP|
000008B0: AA 34 3A 89 35 30 32 30 30 3A 8F 20 47 45 54 20 |.4:.50200:. GET |
000008C0: 4E 45 58 54 20 4C 49 4E 45 00 FE 10 68 C4 8B 43 |NEXT LINE...h..C|
000008D0: 48 B2 35 38 A7 98 4A 25 2C 3A 98 4A 25 2C 22 27 |H.58..J%,:.J%,"'|
000008E0: 3A 27 20 53 54 41 54 45 4D 45 4E 54 20 53 45 50 |:' STATEMENT SEP|
000008F0: 41 52 41 54 45 52 22 3A 89 35 30 32 34 30 00 34 |ARATER":.50240.4|
00000900: 11 7C C4 8B 43 48 B2 31 33 36 A7 98 4A 25 2C 3A |.|..CH.136..J%,:|
00000910: 98 4A 25 2C 22 4C 45 54 20 41 53 49 47 4E 4D 45 |.J%,"LET ASIGNME|
00000920: 4E 54 20 53 54 41 54 45 4D 45 4E 54 22 3A 89 35 |NT STATEMENT":.5|
00000930: 38 30 30 30 00 62 11 90 C4 8B 43 48 B2 31 35 33 |8000.b....CH.153|
00000940: A7 98 4A 25 2C 3A 98 4A 25 2C 22 50 52 49 4E 54 |..J%,:.J%,"PRINT|
00000950: 20 53 54 41 54 45 4D 45 4E 54 22 3A 89 35 39 30 | STATEMENT":.590|
00000960: 30 30 00 90 11 A4 C4 8B 43 48 B2 31 33 33 A7 98 |00......CH.133..|
00000970: 4A 25 2C 3A 98 4A 25 2C 22 49 4E 50 55 54 20 53 |J%,:.J%,"INPUT S|
00000980: 54 41 54 45 4D 45 4E 54 22 3A 89 35 39 35 30 30 |TATEMENT":.59500|
00000990: 00 BB 11 B8 C4 8B 43 48 B2 31 33 39 A7 98 4A 25 |......CH.139..J%|
000009A0: 2C 3A 98 4A 25 2C 22 49 46 20 53 54 41 54 45 4D |,:.J%,"IF STATEM|
000009B0: 45 4E 54 22 3A 89 35 38 35 30 30 00 F5 11 CC C4 |ENT":.58500.....|
000009C0: 8B 28 43 48 B2 31 33 37 29 B0 28 43 48 B2 31 34 |.(CH.137).(CH.14|
000009D0: 31 29 A7 98 4A 25 2C 3A 98 4A 25 2C 22 47 4F 54 |1)..J%,:.J%,"GOT|
000009E0: 4F 20 4F 52 20 47 4F 53 55 42 20 53 54 41 54 45 |O OR GOSUB STATE|
000009F0: 4D 45 4E 54 22 00 12 12 CD C4 8B 28 43 48 B2 31 |MENT"......(CH.1|
00000A00: 33 37 29 B0 28 43 48 B2 31 34 31 29 A7 35 38 37 |37).(CH.141).587|
00000A10: 30 30 00 3E 12 E0 C4 8B 43 48 B2 31 34 33 A7 98 |00.>....CH.143..|
00000A20: 4A 25 2C 3A 98 4A 25 2C 22 52 45 4D 20 53 54 41 |J%,:.J%,"REM STA|
00000A30: 54 45 4D 45 4E 54 22 3A 89 35 36 35 30 30 00 79 |TEMENT":.56500.y|
00000A40: 12 F4 C4 8B 43 48 B2 31 34 32 A7 98 4E 25 2C 39 |....CH.142..N%,9|
00000A50: 36 3B 43 24 3B 3A 50 43 B2 50 43 AA 31 3A 98 4A |6;C$;:PC.PC.1:.J|
00000A60: 25 2C 3A 98 4A 25 2C 22 52 45 54 55 52 4E 20 53 |%,:.J%,"RETURN S|
00000A70: 54 41 54 45 4D 45 4E 54 22 00 9B 12 F5 C4 8B 43 |TATEMENT"......C|
00000A80: 48 B2 31 34 32 A7 98 4A 25 2C 50 43 AB 31 2C 22 |H.142..J%,PC.1,"|
00000A90: 52 54 53 22 3A 89 35 30 32 34 30 00 D3 12 FE C4 |RTS":.50240.....|
00000AA0: 8B 43 48 B2 31 32 38 A7 98 4E 25 2C 39 36 3B 43 |.CH.128..N%,96;C|
00000AB0: 24 3B 3A 50 43 B2 50 43 AA 31 3A 98 4A 25 2C 3A |$;:PC.PC.1:.J%,:|
00000AC0: 98 4A 25 2C 22 45 4E 44 20 53 54 41 54 45 4D 45 |.J%,"END STATEME|
00000AD0: 4E 54 22 00 F5 12 FF C4 8B 43 48 B2 31 32 38 A7 |NT"......CH.128.|
00000AE0: 98 4A 25 2C 50 43 AB 31 2C 22 52 54 53 22 3A 89 |.J%,PC.1,"RTS":.|
00000AF0: 35 30 32 34 30 00 15 13 08 C5 8D 34 39 31 39 30 |50240......49190|
00000B00: 3A 56 4C B2 5A 4C 3A 56 48 B2 5A 48 3A 42 24 B2 |:VL.ZL:VH.ZH:B$.|
00000B10: C7 28 43 48 29 00 2F 13 1C C5 8D 34 39 31 30 30 |.(CH)./....49100|
00000B20: 3A 8B 43 48 B3 B1 31 37 38 A7 34 39 32 30 30 00 |:.CH..178.49200.|
00000B30: 53 13 30 C5 8D 34 39 31 30 30 3A 8B 28 43 48 B1 |S.0..49100:.(CH.|
00000B40: 31 37 39 29 AF 28 43 48 B3 31 39 35 29 A7 35 30 |179).(CH.195).50|
00000B50: 37 32 35 00 84 13 44 C5 8B 43 48 B2 31 37 31 A7 |725...D..CH.171.|
00000B60: 98 4A 25 2C 3A 98 4A 25 2C 22 4E 45 47 41 54 49 |.J%,:.J%,"NEGATI|
00000B70: 4F 4E 20 53 54 41 54 45 4D 45 4E 54 22 3A 89 35 |ON STATEMENT":.5|
00000B80: 35 36 30 30 00 A9 13 58 C5 8D 34 39 31 39 30 3A |5600...X..49190:|
00000B90: 57 4C B2 5A 4C 3A 57 48 B2 5A 48 3A 56 24 B2 C7 |WL.ZL:WH.ZH:V$..|
00000BA0: 28 43 48 29 3A 5A 5A B2 5A 00 E4 13 6C C5 8D 34 |(CH):ZZ.Z...l..4|
00000BB0: 39 31 30 30 3A 8B 28 43 48 B2 30 29 B0 28 43 48 |9100:.(CH.0).(CH|
00000BC0: B2 35 38 29 A7 98 4A 25 2C 3A 98 4A 25 2C 22 53 |.58)..J%,:.J%,"S|
00000BD0: 49 4D 50 4C 45 20 41 53 49 47 4E 4D 45 4E 54 20 |IMPLE ASIGNMENT |
00000BE0: 41 3D 42 22 00 FE 13 6D C5 8B 28 43 48 B2 30 29 |A=B"...m..(CH.0)|
00000BF0: B0 28 43 48 B2 35 38 29 A7 35 38 33 30 30 00 1B |.(CH.58).58300..|
00000C00: 14 80 C5 8B 28 43 48 B3 31 37 30 29 B0 28 43 48 |....(CH.170).(CH|
00000C10: B1 31 37 34 29 A7 34 39 32 30 30 00 50 14 8A C5 |.174).49200.P...|
00000C20: 98 4A 25 2C 3A 98 4A 25 2C 22 53 49 4D 50 4C 45 |.J%,:.J%,"SIMPLE|
00000C30: 20 41 52 49 54 48 4D 45 54 49 43 20 4F 50 45 52 | ARITHMETIC OPER|
00000C40: 41 54 49 4F 4E 20 2B 2C 2D 2C 2A 2C 2F 2C 5E 22 |ATION +,-,*,/,^"|
00000C50: 00 73 14 94 C5 46 55 B2 43 48 AB 31 35 35 3A 8D |.s...FU.CH.155:.|
00000C60: 34 39 31 30 30 3A 8D 34 39 31 39 30 3A 8D 34 39 |49100:.49190:.49|
00000C70: 34 30 30 00 AD 14 E4 C5 98 4E 25 2C 31 36 39 3B |400......N%,169;|
00000C80: 43 24 3B 3A 98 4E 25 2C 57 4C 3B 43 24 3B 3A 98 |C$;:.N%,WL;C$;:.|
00000C90: 4E 25 2C 31 36 30 3B 43 24 3B 3A 98 4E 25 2C 57 |N%,160;C$;:.N%,W|
00000CA0: 48 3B 43 24 3B 3A 50 43 B2 50 43 AA 34 00 DF 14 |H;C$;:PC.PC.4...|
00000CB0: E5 C5 98 4A 25 2C 50 43 AB 34 2C 22 4C 44 41 20 |...J%,PC.4,"LDA |
00000CC0: 23 22 3B 57 4C 3B 22 20 3B 20 53 45 54 20 50 54 |#";WL;" ; SET PT|
00000CD0: 52 53 20 54 4F 20 56 41 52 49 41 42 4C 45 22 00 |RS TO VARIABLE".|
00000CE0: 08 15 E6 C5 98 4A 25 2C 50 43 AB 32 2C 22 4C 44 |.....J%,PC.2,"LD|
00000CF0: 59 20 23 22 3B 57 48 3B 22 20 3B 20 22 56 24 3B |Y #";WH;" ; "V$;|
00000D00: 22 20 41 54 22 3B 5A 5A 00 23 15 0C C6 8B 28 46 |" AT";ZZ.#....(F|
00000D10: 55 B2 31 35 29 B0 28 46 55 B2 31 37 29 A7 35 31 |U.15).(FU.17).51|
00000D20: 30 38 30 00 52 15 20 C6 98 4E 25 2C 33 32 3B 43 |080.R. ..N%,32;C|
00000D30: 24 3B 3A 98 4E 25 2C 31 34 30 3B 43 24 3B 3A 98 |$;:.N%,140;C$;:.|
00000D40: 4E 25 2C 32 31 38 3B 43 24 3B 3A 50 43 B2 50 43 |N%,218;C$;:PC.PC|
00000D50: AA 33 00 88 15 21 C6 98 4A 25 2C 50 43 AB 33 2C |.3...!..J%,PC.3,|
00000D60: 22 4A 53 52 20 24 44 41 38 43 20 20 20 3B 56 41 |"JSR $DA8C ;VA|
00000D70: 52 20 22 3B 56 24 3B 22 20 54 4F 20 53 46 41 43 |R ";V$;" TO SFAC|
00000D80: 22 3A 89 35 31 30 38 30 00 B5 15 25 C6 98 4A 25 |":.51080...%..J%|
00000D90: 2C 3A 98 4A 25 2C 22 46 55 4E 43 54 49 4F 4E 20 |,:.J%,"FUNCTION |
00000DA0: 45 56 41 4C 55 41 54 49 4F 4E 20 53 54 41 54 45 |EVALUATION STATE|
00000DB0: 4D 45 4E 54 22 00 D8 15 38 C7 46 55 B2 43 48 AB |MENT"...8.FU.CH.|
00000DC0: 31 38 30 3A 8D 34 39 31 30 30 3A 8B 43 48 B3 B1 |180:.49100:.CH..|
00000DD0: 34 30 A7 34 39 32 30 30 00 F1 15 60 C7 8D 34 39 |40.49200...`..49|
00000DE0: 31 30 30 3A 8D 34 39 31 39 30 3A 8D 34 39 34 30 |100:.49190:.4940|
00000DF0: 30 00 0A 16 74 C7 8D 34 39 31 30 30 3A 8B 43 48 |0...t..49100:.CH|
00000E00: B3 B1 34 31 A7 34 39 32 30 30 00 35 16 88 C7 41 |..41.49200.5...A|
00000E10: 4C B2 4D 4C 25 28 46 55 2C 30 29 3A 41 48 B2 4D |L.ML%(FU,0):AH.M|
00000E20: 4C 25 28 46 55 2C 31 29 3A 41 44 B2 32 35 36 AC |L%(FU,1):AD.256.|
00000E30: 41 48 AA 41 4C 00 5A 16 89 C7 98 4E 25 2C 33 32 |AH.AL.Z....N%,32|
00000E40: 3B 43 24 3B 3A 98 4E 25 2C 41 4C 3B 43 24 3B 3A |;C$;:.N%,AL;C$;:|
00000E50: 98 4E 25 2C 41 48 3B 43 24 3B 00 96 16 8A C7 98 |.N%,AH;C$;......|
00000E60: 4A 25 2C 50 43 2C 22 4A 53 52 20 22 3B 41 44 3B |J%,PC,"JSR ";AD;|
00000E70: 22 20 22 3B 46 24 28 46 55 29 3B 22 20 46 55 4E |" ";F$(FU);" FUN|
00000E80: 43 54 49 4F 4E 20 52 4F 55 54 49 4E 45 22 3A 50 |CTION ROUTINE":P|
00000E90: 43 B2 50 43 AA 33 00 C8 16 9C C7 98 4E 25 2C 31 |C.PC.3......N%,1|
00000EA0: 36 32 3B 43 24 3B 3A 98 4E 25 2C 56 4C 3B 43 24 |62;C$;:.N%,VL;C$|
00000EB0: 3B 3A 98 4E 25 2C 31 36 30 3B 43 24 3B 3A 98 4E |;:.N%,160;C$;:.N|
00000EC0: 25 2C 56 48 3B 43 24 3B 00 F6 16 9D C7 98 4A 25 |%,VH;C$;......J%|
00000ED0: 2C 50 43 2C 22 4C 44 58 20 23 22 3B 56 4C 3B 22 |,PC,"LDX #";VL;"|
00000EE0: 20 3B 4C 4F 57 20 50 41 52 54 20 4F 46 20 54 4F | ;LOW PART OF TO|
00000EF0: 2D 41 44 44 52 22 00 1F 17 9E C7 98 4A 25 2C 50 |-ADDR"......J%,P|
00000F00: 43 AA 32 2C 22 4C 44 59 20 23 22 3B 56 48 3B 22 |C.2,"LDY #";VH;"|
00000F10: 20 3B 48 49 47 48 20 54 4F 2D 41 44 44 52 22 00 | ;HIGH TO-ADDR".|
00000F20: 46 17 B0 C7 98 4E 25 2C 33 32 3B 43 24 3B 3A 98 |F....N%,32;C$;:.|
00000F30: 4E 25 2C 32 31 32 3B 43 24 3B 3A 98 4E 25 2C 32 |N%,212;C$;:.N%,2|
00000F40: 31 39 3B 43 24 3B 00 7F 17 B1 C7 98 4A 25 2C 50 |19;C$;......J%,P|
00000F50: 43 AA 34 2C 22 4A 53 52 20 24 44 42 44 34 20 20 |C.4,"JSR $DBD4 |
00000F60: 3B 53 54 4F 52 45 20 52 45 53 55 4C 54 53 20 49 |;STORE RESULTS I|
00000F70: 4E 20 56 41 52 49 41 42 4C 45 20 22 3B 42 24 00 |N VARIABLE ";B$.|
00000F80: 92 17 B2 C7 50 43 B2 50 43 AA 37 3A 89 35 30 32 |....PC.PC.7:.502|
00000F90: 34 30 00 C3 17 30 D9 8D 34 39 31 30 30 3A 8D 34 |40...0..49100:.4|
00000FA0: 39 31 39 30 3A 8D 34 39 34 30 30 3A 98 4E 25 2C |9190:.49400:.N%,|
00000FB0: 31 36 39 3B 43 24 3B 3A 98 4E 25 2C 32 35 35 3B |169;C$;:.N%,255;|
00000FC0: 43 24 3B 00 E6 17 31 D9 98 4A 25 2C 50 43 2C 22 |C$;...1..J%,PC,"|
00000FD0: 4C 44 41 20 23 24 46 46 20 20 4E 45 47 41 54 45 |LDA #$FF NEGATE|
00000FE0: 20 50 46 41 43 22 00 19 18 6C D9 98 4E 25 2C 36 | PFAC"...l..N%,6|
00000FF0: 39 3B 43 24 3B 3A 98 4E 25 2C 31 30 32 3B 43 24 |9;C$;:.N%,102;C$|
00001000: 3B 3A 98 4E 25 2C 31 33 33 3B 43 24 3B 3A 98 4E |;:.N%,133;C$;:.N|
00001010: 25 2C 31 30 32 3B 43 24 3B 00 4B 18 6D D9 50 43 |%,102;C$;.K.m.PC|
00001020: B2 50 43 AA 36 3A 98 4A 25 2C 50 43 AB 34 2C 22 |.PC.6:.J%,PC.4,"|
00001030: 45 4F 52 20 24 36 36 20 20 53 49 47 4E 20 42 54 |EOR $66 SIGN BT|
00001040: 59 45 20 4F 46 20 50 46 41 43 22 00 77 18 6E D9 |YE OF PFAC".w.n.|
00001050: 98 4A 25 2C 50 43 AB 32 2C 22 53 54 41 20 24 36 |.J%,PC.2,"STA $6|
00001060: 36 20 20 53 49 47 4E 20 46 4C 49 50 50 45 44 22 |6 SIGN FLIPPED"|
00001070: 3A 89 35 31 31 30 30 00 AD 18 B4 DC 8D 34 39 31 |:.51100......491|
00001080: 30 30 3A 8B 43 48 B1 30 A7 35 36 35 30 30 3A 8F |00:.CH.0.56500:.|
00001090: 20 22 52 45 4D 22 20 4C 4F 4F 50 20 55 4E 54 49 | "REM" LOOP UNTI|
000010A0: 4C 20 45 4E 44 20 4F 46 20 4C 49 4E 45 00 B8 18 |L END OF LINE...|
000010B0: DC DC 89 35 30 32 36 30 00 D9 18 8F E2 8F 20 22 |...50260...... "|
000010C0: 4C 45 54 22 20 41 53 53 49 47 4E 4D 45 4E 54 20 |LET" ASSIGNMENT |
000010D0: 53 54 41 54 45 4D 45 4E 54 00 F4 18 90 E2 8D 34 |STATEMENT......4|
000010E0: 39 31 30 30 3A 8D 34 39 31 39 30 3A 56 24 B2 C7 |9100:.49190:V$..|
000010F0: 28 43 48 29 00 16 19 91 E2 8D 34 39 31 30 30 3A |(CH)......49100:|
00001100: 56 4C B2 54 50 AA 31 3A 8B 43 48 B3 B1 31 37 38 |VL.TP.1:.CH..178|
00001110: A7 34 39 32 30 30 00 39 19 E0 E2 8D 34 39 31 30 |.49200.9....4910|
00001120: 30 3A 8B 28 43 48 B3 B1 35 38 29 AF 28 43 48 B3 |0:.(CH..58).(CH.|
00001130: B1 30 29 A7 35 38 30 38 30 00 62 19 F4 E2 8B 54 |.0).58080.b....T|
00001140: 50 AB 56 4C B1 36 30 A7 98 4A 25 2C 22 4C 49 4E |P.VL.60..J%,"LIN|
00001150: 45 20 54 4F 20 4C 4F 4E 47 21 22 3A 89 34 39 32 |E TO LONG!":.492|
00001160: 30 30 00 88 19 08 E3 81 4C B2 56 4C A4 54 50 AB |00......L.VL.TP.|
00001170: 31 3A 57 4C B2 C2 28 4C 29 3A 97 58 4C AA 4C AB |1:WL..(L):.XL.L.|
00001180: 56 4C 2C 57 4C 3A 82 4C 00 AD 19 30 E3 8D 34 39 |VL,WL:.L...0..49|
00001190: 30 30 30 3A 81 4C B2 56 4C A4 54 50 AB 31 3A 97 |000:.L.VL.TP.1:.|
000011A0: 58 4C AA 4C AB 56 4C 2C 33 32 3A 82 4C 00 DA 19 |XL.L.VL,32:.L...|
000011B0: 44 E3 98 4E 25 2C 32 34 3B 43 24 3B 3A 98 4E 25 |D..N%,24;C$;:.N%|
000011C0: 2C 31 34 34 3B 43 24 3B 3A 98 4E 25 2C 35 3B 43 |,144;C$;:.N%,5;C|
000011D0: 24 3B 3A 50 43 B2 50 43 AA 33 00 F9 19 45 E3 56 |$;:PC.PC.3...E.V|
000011E0: 4C B2 32 35 36 AC C2 28 34 36 AA 5A 51 29 AA C2 |L.256..(46.ZQ)..|
000011F0: 28 34 35 AA 5A 51 29 AA 32 00 2F 1A 46 E3 98 4A |(45.ZQ).2./.F..J|
00001200: 25 2C 50 43 AB 33 2C 22 43 4C 43 22 3A 98 4A 25 |%,PC.3,"CLC":.J%|
00001210: 2C 50 43 AB 32 2C 22 42 43 43 20 3D 2B 35 20 20 |,PC.2,"BCC =+5 |
00001220: 53 4B 49 50 20 4F 56 45 52 20 44 41 54 41 22 00 |SKIP OVER DATA".|
00001230: 43 1A 47 E3 98 4A 25 2C 50 43 2C 22 2E 42 59 20 |C.G..J%,PC,".BY |
00001240: 20 22 3B 00 6C 1A 6C E3 81 4C B2 56 4C A4 56 4C | ";.l.l..L.VL.VL|
00001250: AA 34 3A 98 4E 25 2C C2 28 4C 29 3B 43 24 3B 3A |.4:.N%,.(L);C$;:|
00001260: 98 4A 25 2C C2 28 4C 29 3B 3A 82 4C 00 8A 1A 6D |.J%,.(L);:.L...m|
00001270: E3 57 48 B2 B5 28 50 43 AD 32 35 36 29 3A 57 4C |.WH..(PC.256):WL|
00001280: B2 50 43 AB 32 35 36 AC 57 48 00 A7 1A 80 E3 56 |.PC.256.WH.....V|
00001290: 4C B2 5A 4C 3A 56 48 B2 5A 48 3A 50 43 B2 50 43 |L.ZL:VH.ZH:PC.PC|
000012A0: AA 35 3A 98 4A 25 2C 00 C1 1A BC E3 98 4E 25 2C |.5:.J%,......N%,|
000012B0: 31 36 32 3B 43 24 3B 3A 98 4E 25 2C 34 3B 43 24 |162;C$;:.N%,4;C$|
000012C0: 3B 00 E7 1A BD E3 98 4E 25 2C 31 38 39 3B 43 24 |;......N%,189;C$|
000012D0: 3B 3A 98 4E 25 2C 57 4C 3B 43 24 3B 3A 98 4E 25 |;:.N%,WL;C$;:.N%|
000012E0: 2C 57 48 3B 43 24 3B 00 10 1B BE E3 98 4A 25 2C |,WH;C$;......J%,|
000012F0: 50 43 2C 22 4C 44 58 20 23 30 34 20 20 3B 53 49 |PC,"LDX #04 ;SI|
00001300: 4D 50 4C 45 20 41 53 53 49 47 4E 4D 45 4E 54 22 |MPLE ASSIGNMENT"|
00001310: 00 3A 1B BF E3 98 4A 25 2C 50 43 AA 32 2C 22 4C |.:....J%,PC.2,"L|
00001320: 44 41 20 22 3B 50 43 AB 35 3B 22 2C 58 20 20 3B |DA ";PC.5;",X ;|
00001330: 47 45 54 20 56 41 4C 55 45 22 00 6C 1B E4 E3 98 |GET VALUE".l....|
00001340: 4E 25 2C 31 35 37 3B 43 24 3B 3A 98 4E 25 2C 56 |N%,157;C$;:.N%,V|
00001350: 4C 3B 43 24 3B 3A 98 4E 25 2C 56 48 3B 43 24 3B |L;C$;:.N%,VH;C$;|
00001360: 3A 98 4E 25 2C 32 30 32 3B 43 24 3B 00 9D 1B E5 |:.N%,202;C$;....|
00001370: E3 98 4A 25 2C 50 43 AA 35 2C 22 53 54 41 20 22 |..J%,PC.5,"STA "|
00001380: 3B 5A 3B 22 2C 58 20 3B 4D 4F 56 45 20 54 4F 20 |;Z;",X ;MOVE TO |
00001390: 56 41 52 49 41 42 4C 45 20 22 3B 56 24 00 B0 1B |VARIABLE ";V$...|
000013A0: E6 E3 98 4A 25 2C 50 43 AA 38 2C 22 44 45 58 22 |...J%,PC.8,"DEX"|
000013B0: 00 CB 1B F8 E3 98 4E 25 2C 31 36 3B 43 24 3B 3A |......N%,16;C$;:|
000013C0: 98 4E 25 2C 32 34 37 3B 43 24 3B 00 F5 1B F9 E3 |.N%,247;C$;.....|
000013D0: 98 4A 25 2C 50 43 AA 39 2C 22 42 50 4C 20 23 22 |.J%,PC.9,"BPL #"|
000013E0: 3B 50 43 AA 32 3B 22 20 20 3B 4C 4F 4F 50 20 41 |;PC.2;" ;LOOP A|
000013F0: 47 41 49 4E 22 00 09 1C FA E3 50 43 B2 50 43 AA |GAIN".....PC.PC.|
00001400: 31 31 3A 89 35 30 32 36 30 00 1E 1C 83 E4 8F 20 |11:.50260...... |
00001410: 22 49 46 22 20 53 54 41 54 45 4D 45 4E 54 00 30 |"IF" STATEMENT.0|
00001420: 1C 84 E4 8D 34 39 31 30 30 3A 8D 34 39 31 39 30 |....49100:.49190|
00001430: 00 62 1C 85 E4 98 4E 25 2C 31 37 33 3B 43 24 3B |.b....N%,173;C$;|
00001440: 3A 98 4E 25 2C 5A 4C 3B 43 24 3B 3A 98 4E 25 2C |:.N%,ZL;C$;:.N%,|
00001450: 5A 48 3B 43 24 3B 3A 98 4E 25 2C 32 34 30 3B 43 |ZH;C$;:.N%,240;C|
00001460: 24 3B 00 93 1C 86 E4 98 4A 25 2C 50 43 2C 22 4C |$;......J%,PC,"L|
00001470: 44 41 20 22 3B C7 28 43 48 29 3B 22 20 20 3B 56 |DA ";.(CH);" ;V|
00001480: 41 52 49 41 42 4C 45 20 41 46 54 45 52 20 27 49 |ARIABLE AFTER 'I|
00001490: 46 27 22 00 BE 1C 87 E4 98 4A 25 2C 50 43 AA 33 |F'"......J%,PC.3|
000014A0: 2C 22 42 45 51 20 3D 2B 33 20 20 3B 53 4B 49 50 |,"BEQ =+3 ;SKIP|
000014B0: 20 4E 45 58 54 20 33 20 42 59 54 45 53 22 00 EA | NEXT 3 BYTES"..|
000014C0: 1C D4 E4 98 4E 25 2C 33 3B 43 24 3B 3A 50 43 B2 |....N%,3;C$;:PC.|
000014D0: 50 43 AA 35 3A 8D 34 39 31 30 30 3A 8B 43 48 B2 |PC.5:.49100:.CH.|
000014E0: 31 36 37 A7 8D 34 39 31 30 30 00 09 1D DE E4 8B |167..49100......|
000014F0: 28 43 48 B3 B1 31 33 37 29 AF 28 43 48 B3 B1 31 |(CH..137).(CH..1|
00001500: 34 31 29 A7 34 39 32 30 30 00 3B 1D 4C E5 8B 43 |41).49200.;.L..C|
00001510: 48 B2 31 34 31 A7 98 4E 25 2C 33 32 3B 43 24 3B |H.141..N%,32;C$;|
00001520: 3A 98 4A 25 2C 50 43 2C 22 4A 53 52 20 24 30 30 |:.J%,PC,"JSR $00|
00001530: 30 30 22 3B 3A 89 35 38 37 36 30 00 5E 1D 74 E5 |00";:.58760.^.t.|
00001540: 98 4E 25 2C 37 36 3B 43 24 3B 3A 98 4A 25 2C 50 |.N%,76;C$;:.J%,P|
00001550: 43 2C 22 4A 4D 50 20 24 30 30 30 30 22 3B 00 96 |C,"JMP $0000";..|
00001560: 1D 88 E5 47 4E 25 28 47 43 2C 30 29 B2 50 43 AB |...GN%(GC,0).PC.|
00001570: 33 32 37 36 36 3A 98 4E 25 2C 30 3B 43 24 3B 3A |32766:.N%,0;C$;:|
00001580: 98 4E 25 2C 30 3B 43 24 3B 3A 50 43 B2 50 43 AA |.N%,0;C$;:PC.PC.|
00001590: 33 3A 54 4C B2 30 00 B8 1D B0 E5 8D 34 39 31 30 |3:TL.0......4910|
000015A0: 30 3A 8B 28 43 48 B3 34 38 29 B0 28 43 48 B1 35 |0:.(CH.48).(CH.5|
000015B0: 37 29 A7 35 38 38 33 30 00 D2 1D C4 E5 54 4C B2 |7).58830.....TL.|
000015C0: 31 30 AC 54 4C AA 43 48 AB 34 38 3A 89 35 38 38 |10.TL.CH.48:.588|
000015D0: 30 30 00 EB 1D CE E5 98 4A 25 2C 22 20 3B 54 4F |00......J%," ;TO|
000015E0: 20 4C 49 4E 45 20 23 22 3B 54 4C 00 0B 1E D8 E5 | LINE #";TL.....|
000015F0: 47 4E 25 28 47 43 2C 31 29 B2 54 4C 3A 47 43 B2 |GN%(GC,1).TL:GC.|
00001600: 47 43 AA 31 3A 89 35 30 32 36 30 00 23 1E 77 E6 |GC.1:.50260.#.w.|
00001610: 8F 20 22 50 52 49 4E 54 22 20 53 54 41 54 45 4D |. "PRINT" STATEM|
00001620: 45 4E 54 00 44 1E 78 E6 8D 34 39 31 30 30 3A 8B |ENT.D.x..49100:.|
00001630: 28 43 48 B2 30 29 B0 28 43 48 B2 35 38 29 A7 35 |(CH.0).(CH.58).5|
00001640: 39 34 30 30 00 5F 1E A0 E6 8B 28 43 48 B2 34 34 |9400._....(CH.44|
00001650: 29 B0 28 43 48 B2 35 39 29 A7 35 39 30 30 30 00 |).(CH.59).59000.|
00001660: 78 1E AA E6 8B 43 48 B2 33 34 A7 8D 34 38 30 30 |x....CH.34..4800|
00001670: 30 3A 89 35 39 30 30 30 00 91 1E AF E6 98 4A 25 |0:.59000......J%|
00001680: 2C 22 50 52 49 4E 54 20 56 41 52 49 41 42 4C 45 |,"PRINT VARIABLE|
00001690: 22 00 C6 1E C8 E6 8D 34 39 31 39 30 3A 8D 34 39 |"......49190:.49|
000016A0: 34 30 30 3A 98 4E 25 2C 33 32 3B 43 24 3B 3A 98 |400:.N%,32;C$;:.|
000016B0: 4E 25 2C 32 32 31 3B 43 24 3B 3A 98 4E 25 2C 32 |N%,221;C$;:.N%,2|
000016C0: 32 31 3B 43 24 3B 00 F1 1E C9 E6 98 4A 25 2C 50 |21;C$;......J%,P|
000016D0: 43 2C 22 4A 53 52 20 24 44 44 44 44 20 20 3B 20 |C,"JSR $DDDD ; |
000016E0: 43 4F 4E 56 45 52 54 20 54 4F 20 41 53 43 49 49 |CONVERT TO ASCII|
000016F0: 22 00 0B 1F DC E6 98 4E 25 2C 31 36 32 3B 43 24 |"......N%,162;C$|
00001700: 3B 3A 98 4E 25 2C 30 3B 43 24 3B 00 2F 1F DD E6 |;:.N%,0;C$;./...|
00001710: 98 4E 25 2C 31 38 39 3B 43 24 3B 3A 98 4E 25 2C |.N%,189;C$;:.N%,|
00001720: 30 3B 43 24 3B 3A 98 4E 25 2C 31 3B 43 24 3B 00 |0;C$;:.N%,1;C$;.|
00001730: 50 1F DE E6 98 4A 25 2C 50 43 AA 33 2C 22 4C 44 |P....J%,PC.3,"LD|
00001740: 58 20 23 30 20 20 3B 4C 45 4E 47 54 48 3D 30 22 |X #0 ;LENGTH=0"|
00001750: 00 6B 1F DF E6 98 4A 25 2C 50 43 AA 35 2C 22 4C |.k....J%,PC.5,"L|
00001760: 44 41 20 24 30 31 30 30 2C 58 22 00 85 1F F0 E6 |DA $0100,X".....|
00001770: 98 4E 25 2C 32 34 30 3B 43 24 3B 3A 98 4E 25 2C |.N%,240;C$;:.N%,|
00001780: 36 3B 43 24 3B 00 B3 1F F1 E6 98 4A 25 2C 50 43 |6;C$;......J%,PC|
00001790: AA 38 2C 22 42 45 51 20 23 22 3B 50 43 AA 31 36 |.8,"BEQ #";PC.16|
000017A0: 3B 22 20 20 3B 45 4E 44 20 4F 46 20 53 54 52 49 |;" ;END OF STRI|
000017B0: 4E 47 22 00 EB 1F F2 E6 50 43 B2 50 43 AA 31 30 |NG".....PC.PC.10|
000017C0: 3A 8D 35 39 33 30 30 3A 98 4E 25 2C 32 33 32 3B |:.59300:.N%,232;|
000017D0: 43 24 3B 3A 98 4E 25 2C 32 30 38 3B 43 24 3B 3A |C$;:.N%,208;C$;:|
000017E0: 98 4E 25 2C 32 34 35 3B 43 24 3B 00 0E 20 F3 E6 |.N%,245;C$;.. ..|
000017F0: 98 4A 25 2C 50 43 2C 22 49 4E 58 20 20 3B 4C 45 |.J%,PC,"INX ;LE|
00001800: 4E 47 54 48 3D 4C 45 4E 47 54 48 2B 31 22 00 40 |NGTH=LENGTH+1".@|
00001810: 20 F4 E6 98 4A 25 2C 50 43 AA 31 2C 22 42 4E 45 | ...J%,PC.1,"BNE|
00001820: 20 23 22 3B 50 43 AB 38 3B 22 20 20 3B 4C 4F 4F | #";PC.8;" ;LOO|
00001830: 50 20 41 47 41 49 4E 22 3A 50 43 B2 50 43 AA 33 |P AGAIN":PC.PC.3|
00001840: 00 5B 20 18 E7 98 4E 25 2C 31 36 39 3B 43 24 3B |.[ ...N%,169;C$;|
00001850: 3A 98 4E 25 2C 33 32 3B 43 24 3B 00 78 20 19 E7 |:.N%,32;C$;.x ..|
00001860: 98 4A 25 2C 50 43 2C 22 4C 44 41 20 23 33 32 20 |.J%,PC,"LDA #32 |
00001870: 20 3B 42 4C 41 4E 4B 22 00 92 20 1A E7 50 43 B2 | ;BLANK".. ..PC.|
00001880: 50 43 AA 32 3A 8D 35 39 33 30 30 3A 89 35 39 30 |PC.2:.59300:.590|
00001890: 30 30 00 B9 20 A4 E7 98 4E 25 2C 33 32 3B 43 24 |00.. ...N%,32;C$|
000018A0: 3B 3A 98 4E 25 2C 32 31 30 3B 43 24 3B 3A 98 4E |;:.N%,210;C$;:.N|
000018B0: 25 2C 32 35 35 3B 43 24 3B 00 DC 20 A5 E7 98 4A |%,255;C$;.. ...J|
000018C0: 25 2C 50 43 2C 22 4A 53 52 20 24 46 46 44 32 20 |%,PC,"JSR $FFD2 |
000018D0: 20 3B 50 52 49 4E 54 20 41 43 43 22 00 EA 20 A6 | ;PRINT ACC".. .|
000018E0: E7 50 43 B2 50 43 AA 33 3A 8E 00 25 21 08 E8 98 |.PC.PC.3:..%!...|
000018F0: 4E 25 2C 31 36 39 3B 43 24 3B 3A 98 4E 25 2C 31 |N%,169;C$;:.N%,1|
00001900: 33 3B 43 24 3B 3A 98 4A 25 2C 50 43 2C 22 4C 44 |3;C$;:.J%,PC,"LD|
00001910: 41 20 23 24 30 44 20 3B 43 52 4C 46 22 3A 50 43 |A #$0D ;CRLF":PC|
00001920: B2 50 43 AA 32 00 37 21 09 E8 8D 35 39 33 30 30 |.PC.2.7!...59300|
00001930: 3A 89 35 30 32 36 30 00 4F 21 6B E8 8F 20 22 49 |:.50260.O!k.. "I|
00001940: 4E 50 55 54 22 20 53 54 41 54 45 4D 45 4E 54 00 |NPUT" STATEMENT.|
00001950: 70 21 6C E8 8D 34 39 31 30 30 3A 8B 28 43 48 B2 |p!l..49100:.(CH.|
00001960: 30 29 B0 28 43 48 B2 35 38 29 89 35 30 32 36 30 |0).(CH.58).50260|
00001970: 00 8B 21 94 E8 8B 28 43 48 B2 34 34 29 B0 28 43 |..!...(CH.44).(C|
00001980: 48 B2 35 39 29 A7 35 39 35 30 30 00 A4 21 9E E8 |H.59).59500..!..|
00001990: 8B 43 48 B2 33 34 A7 8D 34 38 30 30 30 3A 89 35 |.CH.34..48000:.5|
000019A0: 39 35 30 30 00 BD 21 A3 E8 98 4A 25 2C 22 49 4E |9500..!...J%,"IN|
000019B0: 50 55 54 20 56 41 52 49 41 42 4C 45 22 00 DF 21 |PUT VARIABLE"..!|
000019C0: A8 E8 8D 34 39 31 39 30 3A 98 4E 25 2C 31 36 39 |...49190:.N%,169|
000019D0: 3B 43 24 3B 3A 98 4E 25 2C 43 48 3B 43 24 3B 00 |;C$;:.N%,CH;C$;.|
000019E0: 0D 22 A9 E8 98 4A 25 2C 50 43 2C 22 4C 44 41 20 |."...J%,PC,"LDA |
000019F0: 23 27 22 3B C7 28 43 48 29 3B 22 20 20 3B 49 4E |#'";.(CH);" ;IN|
00001A00: 50 55 54 20 56 41 52 49 41 42 4C 45 22 00 20 22 |PUT VARIABLE". "|
00001A10: AA E8 50 43 B2 50 43 AA 32 3A 8D 35 39 33 30 30 |..PC.PC.2:.59300|
00001A20: 00 59 22 BC E8 98 4E 25 2C 31 36 39 3B 43 24 3B |.Y"...N%,169;C$;|
00001A30: 3A 98 4E 25 2C 36 33 3B 43 24 3B 3A 98 4A 25 2C |:.N%,63;C$;:.J%,|
00001A40: 50 43 2C 22 4C 44 41 20 23 24 33 46 20 20 3B 41 |PC,"LDA #$3F ;A|
00001A50: 53 43 49 49 20 27 3F 27 22 00 6C 22 BD E8 50 43 |SCII '?'".l"..PC|
00001A60: B2 50 43 AA 32 3A 8D 35 39 33 30 30 00 86 22 D0 |.PC.2:.59300..".|
00001A70: E8 98 4E 25 2C 31 36 32 3B 43 24 3B 3A 98 4E 25 |..N%,162;C$;:.N%|
00001A80: 2C 30 3B 43 24 3B 00 AD 22 D1 E8 98 4E 25 2C 33 |,0;C$;.."...N%,3|
00001A90: 32 3B 43 24 3B 3A 98 4E 25 2C 32 30 37 3B 43 24 |2;C$;:.N%,207;C$|
00001AA0: 3B 3A 98 4E 25 2C 32 35 35 3B 43 24 3B 00 CC 22 |;:.N%,255;C$;.."|
00001AB0: D2 E8 98 4A 25 2C 50 43 2C 22 4C 44 58 20 23 30 |...J%,PC,"LDX #0|
00001AC0: 20 20 3B 4C 45 4E 47 54 48 3D 30 22 00 F2 22 D3 | ;LENGTH=0"..".|
00001AD0: E8 98 4A 25 2C 50 43 AA 32 2C 22 4A 53 52 20 24 |..J%,PC.2,"JSR $|
00001AE0: 46 46 43 46 20 20 3B 20 49 4E 50 55 54 20 43 48 |FFCF ; INPUT CH|
00001AF0: 52 22 00 17 23 E4 E8 98 4E 25 2C 31 35 37 3B 43 |R"..#...N%,157;C|
00001B00: 24 3B 3A 98 4E 25 2C 33 32 3B 43 24 3B 3A 98 4E |$;:.N%,32;C$;:.N|
00001B10: 25 2C 32 3B 43 24 3B 00 3E 23 E5 E8 98 4E 25 2C |%,2;C$;.>#...N%,|
00001B20: 32 33 32 3B 43 24 3B 3A 98 4E 25 2C 32 30 31 3B |232;C$;:.N%,201;|
00001B30: 43 24 3B 3A 98 4E 25 2C 31 33 3B 43 24 3B 00 6A |C$;:.N%,13;C$;.j|
00001B40: 23 E6 E8 98 4A 25 2C 50 43 AA 35 2C 22 53 54 41 |#...J%,PC.5,"STA|
00001B50: 20 24 32 32 30 2C 58 20 20 3B 53 54 4F 52 45 20 | $220,X ;STORE |
00001B60: 49 4E 20 42 55 46 46 45 52 22 00 8F 23 E7 E8 98 |IN BUFFER"..#...|
00001B70: 4A 25 2C 50 43 AA 38 2C 22 49 4E 58 20 20 3B 4C |J%,PC.8,"INX ;L|
00001B80: 45 4E 47 54 48 3D 4C 45 4E 47 54 48 2B 31 22 00 |ENGTH=LENGTH+1".|
00001B90: AF 23 E8 E8 98 4A 25 2C 50 43 AA 39 2C 22 43 4D |.#...J%,PC.9,"CM|
00001BA0: 50 20 23 24 44 20 20 3B 43 52 4C 46 20 3F 22 00 |P #$D ;CRLF ?".|
00001BB0: CB 23 0C E9 98 4E 25 2C 32 30 38 3B 43 24 3B 3A |.#...N%,208;C$;:|
00001BC0: 98 4E 25 2C 32 34 35 3B 43 24 3B 00 06 24 0D E9 |.N%,245;C$;..$..|
00001BD0: 98 4A 25 2C 50 43 AA 31 31 2C 22 42 4E 45 20 23 |.J%,PC.11,"BNE #|
00001BE0: 22 3B 50 43 AA 32 3B 22 20 20 3B 4C 4F 4F 50 20 |";PC.2;" ;LOOP |
00001BF0: 41 47 41 49 4E 22 3A 50 43 B2 50 43 AA 31 33 3A |AGAIN":PC.PC.13:|
00001C00: 8D 35 39 33 30 30 00 20 24 20 E9 98 4E 25 2C 31 |.59300. $ ..N%,1|
00001C10: 36 39 3B 43 24 3B 3A 98 4E 25 2C 32 3B 43 24 3B |69;C$;:.N%,2;C$;|
00001C20: 00 47 24 21 E9 98 4E 25 2C 31 33 33 3B 43 24 3B |.G$!..N%,133;C$;|
00001C30: 3A 98 4E 25 2C 33 35 3B 43 24 3B 3A 98 4E 25 2C |:.N%,35;C$;:.N%,|
00001C40: 31 36 39 3B 43 24 3B 00 7B 24 22 E9 98 4E 25 2C |169;C$;.{$"..N%,|
00001C50: 33 32 3B 43 24 3B 3A 98 4A 25 2C 50 43 2C 22 4C |32;C$;:.J%,PC,"L|
00001C60: 44 41 20 23 24 30 32 22 3A 98 4A 25 2C 50 43 AA |DA #$02":.J%,PC.|
00001C70: 32 2C 22 53 54 41 20 24 32 33 22 00 BA 24 23 E9 |2,"STA $23"..$#.|
00001C80: 98 4A 25 2C 50 43 AA 34 2C 22 4C 44 41 20 23 24 |.J%,PC.4,"LDA #$|
00001C90: 32 30 22 3A 98 4A 25 2C 50 43 AA 36 2C 22 53 54 |20":.J%,PC.6,"ST|
00001CA0: 41 20 24 32 32 20 20 3B 53 45 54 20 50 54 52 53 |A $22 ;SET PTRS|
00001CB0: 20 54 4F 20 49 4E 50 55 54 22 00 D5 24 34 E9 98 | TO INPUT"..$4..|
00001CC0: 4E 25 2C 31 33 33 3B 43 24 3B 3A 98 4E 25 2C 33 |N%,133;C$;:.N%,3|
00001CD0: 34 3B 43 24 3B 00 FC 24 35 E9 98 4E 25 2C 32 30 |4;C$;..$5..N%,20|
00001CE0: 32 3B 43 24 3B 3A 98 4E 25 2C 31 33 38 3B 43 24 |2;C$;:.N%,138;C$|
00001CF0: 3B 3A 98 4E 25 2C 33 32 3B 43 24 3B 00 3A 25 36 |;:.N%,32;C$;.:%6|
00001D00: E9 98 4E 25 2C 31 38 31 3B 43 24 3B 3A 98 4A 25 |..N%,181;C$;:.J%|
00001D10: 2C 50 43 AA 38 2C 22 44 45 58 22 3A 98 4A 25 2C |,PC.8,"DEX":.J%,|
00001D20: 50 43 AA 39 2C 22 54 58 41 20 20 3B 4C 45 4E 47 |PC.9,"TXA ;LENG|
00001D30: 54 48 20 54 4F 20 41 43 43 22 00 64 25 37 E9 98 |TH TO ACC".d%7..|
00001D40: 4A 25 2C 50 43 AA 31 30 2C 22 4A 53 52 20 24 44 |J%,PC.10,"JSR $D|
00001D50: 37 42 35 20 20 53 54 52 49 4E 47 20 54 4F 20 50 |7B5 STRING TO P|
00001D60: 46 41 43 22 00 80 25 70 E9 98 4E 25 2C 32 31 35 |FAC"..%p..N%,215|
00001D70: 3B 43 24 3B 3A 98 4E 25 2C 31 36 32 3B 43 24 3B |;C$;:.N%,162;C$;|
00001D80: 00 A6 25 71 E9 98 4E 25 2C 5A 4C 3B 43 24 3B 3A |..%q..N%,ZL;C$;:|
00001D90: 98 4E 25 2C 31 36 30 3B 43 24 3B 3A 98 4E 25 2C |.N%,160;C$;:.N%,|
00001DA0: 5A 48 3B 43 24 3B 00 D1 25 72 E9 98 4A 25 2C 50 |ZH;C$;..%r..J%,P|
00001DB0: 43 AA 31 33 2C 22 4C 44 58 20 22 3B 5A 4C 3B 22 |C.13,"LDX ";ZL;"|
00001DC0: 20 3B 50 54 52 53 20 54 4F 20 53 54 4F 52 45 20 | ;PTRS TO STORE |
00001DD0: 22 00 03 26 73 E9 98 4A 25 2C 50 43 AA 31 35 2C |"..&s..J%,PC.15,|
00001DE0: 22 4C 44 59 20 22 3B 5A 48 3B 22 20 3B 49 4E 50 |"LDY ";ZH;" ;INP|
00001DF0: 55 54 20 56 41 4C 55 45 20 49 4E 20 22 3B C7 28 |UT VALUE IN ";.(|
00001E00: 43 48 29 00 2A 26 84 E9 98 4E 25 2C 33 32 3B 43 |CH).*&...N%,32;C|
00001E10: 24 3B 3A 98 4E 25 2C 32 31 32 3B 43 24 3B 3A 98 |$;:.N%,212;C$;:.|
00001E20: 4E 25 2C 32 31 39 3B 43 24 3B 00 60 26 85 E9 98 |N%,219;C$;.`&...|
00001E30: 4A 25 2C 50 43 AA 31 37 2C 22 4A 53 52 20 24 44 |J%,PC.17,"JSR $D|
00001E40: 42 44 34 20 3B 53 54 4F 52 45 20 50 46 41 43 22 |BD4 ;STORE PFAC"|
00001E50: 3A 50 43 B2 50 43 AA 32 30 3A 89 35 39 35 30 30 |:PC.PC.20:.59500|
00001E60: 00 86 26 60 EA 98 4A 25 2C 3A 98 4A 25 2C 22 46 |..&`..J%,:.J%,"F|
00001E70: 49 52 53 54 20 50 41 53 53 20 46 49 4E 49 53 48 |IRST PASS FINISH|
00001E80: 45 44 21 21 21 22 00 B4 26 61 EA 98 4A 25 2C 22 |ED!!!"..&a..J%,"|
00001E90: 53 4F 55 52 43 45 20 43 4F 44 45 20 4F 43 43 55 |SOURCE CODE OCCU|
00001EA0: 50 49 45 53 20 22 3B 4F 43 3B 22 20 54 4F 22 3B |PIES ";OC;" TO";|
00001EB0: 50 43 AB 31 00 DE 26 74 EA 98 4A 25 2C 22 56 41 |PC.1..&t..J%,"VA|
00001EC0: 52 49 41 42 4C 45 53 20 4F 43 43 55 50 59 22 3B |RIABLES OCCUPY";|
00001ED0: 4F 56 3B 22 54 4F 22 3B 4F 56 AA 31 32 39 00 F9 |OV;"TO";OV.129..|
00001EE0: 26 9C EA 98 4E 25 2C AB 31 3B 43 24 3B 3A 8B 47 |&...N%,.1;C$;:.G|
00001EF0: 43 B2 30 A7 36 31 30 30 30 00 13 27 A6 EA 98 4A |C.0.61000..'...J|
00001F00: 25 2C 3A 98 4A 25 2C 22 4A 55 4D 50 20 54 41 42 |%,:.J%,"JUMP TAB|
00001F10: 4C 45 22 00 52 27 B0 EA 81 58 B2 30 A4 47 43 AB |LE".R'...X.0.GC.|
00001F20: 31 3A 98 4E 25 2C 47 4E 25 28 58 2C 30 29 AA 33 |1:.N%,GN%(X,0).3|
00001F30: 32 37 36 37 3B 43 24 3B 3A 4C B2 47 4E 25 28 58 |2767;C$;:L.GN%(X|
00001F40: 2C 31 29 3A 5A B2 4C 4E 25 28 4C 29 AA 33 32 37 |,1):Z.LN%(L).327|
00001F50: 36 37 00 88 27 C4 EA 8B 5A B2 30 A7 98 4A 25 2C |67..'...Z.0..J%,|
00001F60: 22 4A 55 4D 50 20 54 4F 20 4E 4F 4E 45 58 49 53 |"JUMP TO NONEXIS|
00001F70: 54 45 4E 54 20 20 20 20 4C 49 4E 45 20 23 22 3B |TENT LINE #";|
00001F80: 4C 3A 89 36 31 30 30 30 00 BA 27 D8 EA 5A 48 B2 |L:.61000..'..ZH.|
00001F90: B5 28 5A AD 32 35 36 29 3A 5A 4C B2 5A AB 32 35 |.(Z.256):ZL.Z.25|
00001FA0: 36 AC 5A 48 3A 98 4E 25 2C 5A 4C 3B 43 24 3B 3A |6.ZH:.N%,ZL;C$;:|
00001FB0: 98 4E 25 2C 5A 48 3B 43 24 3B 00 D8 27 E2 EA 98 |.N%,ZH;C$;..'...|
00001FC0: 4A 25 2C 47 4E 25 28 58 2C 30 29 AA 33 32 37 36 |J%,GN%(X,0).3276|
00001FD0: 37 3B 4C 3B 5A 3A 82 58 00 F1 27 48 EE 98 4E 25 |7;L;Z:.X..'H..N%|
00001FE0: 2C AB 31 3B 43 24 3B 3A A0 4E 25 3A A0 4A 25 3A |,.1;C$;:.N%:.J%:|
00001FF0: 80 00 32 28 30 F2 86 58 2C 4C 4E 25 28 32 35 35 |..2(0..X,LN%(255|
00002000: 29 2C 47 4E 25 28 31 32 37 2C 31 29 2C 4D 4C 25 |),GN%(127,1),ML%|
00002010: 28 31 39 2C 31 29 2C 46 24 28 31 39 29 3A 8F 20 |(19,1),F$(19):. |
00002020: 4D 55 53 54 20 42 45 20 46 49 52 53 54 20 53 54 |MUST BE FIRST ST|
00002030: 4D 54 00 50 28 35 F2 99 22 93 12 54 49 4E 59 20 |MT.P(5.."..TINY |
00002040: 42 41 53 49 43 20 43 4F 4D 50 49 4C 45 52 92 22 |BASIC COMPILER."|
00002050: 00 6A 28 3A F2 99 22 42 59 20 41 42 41 43 55 53 |.j(:.."BY ABACUS|
00002060: 20 53 4F 46 54 57 41 52 45 22 00 9C 28 44 F2 99 | SOFTWARE"..(D..|
00002070: 22 11 28 43 29 31 39 38 31 20 4D 2E 20 5A 49 4D |".(C)1981 M. ZIM|
00002080: 4D 45 52 4D 41 4E 4E 20 20 20 20 20 20 20 20 20 |MERMANN |
00002090: 44 2E 20 4D 41 4C 4D 42 45 52 47 22 00 AD 28 4E |D. MALMBERG"..(N|
000020A0: F2 81 49 B2 31 A4 31 35 33 36 3A 82 49 00 F1 28 |..I.1.1536:.I..(|
000020B0: 4F F2 5A 51 B2 30 3A 8F 20 2A 2A 2A 2A 2A 20 54 |O.ZQ.0:. ***** T|
000020C0: 4F 20 43 4F 4D 50 49 4C 45 20 56 49 43 20 50 52 |O COMPILE VIC PR|
000020D0: 4F 47 52 41 4D 53 20 4F 4E 20 54 48 45 20 50 45 |OGRAMS ON THE PE|
000020E0: 54 20 53 45 54 20 5A 51 3D 2D 33 20 2A 2A 2A 2A |T SET ZQ=-3 ****|
000020F0: 2A 00 0D 29 53 F2 47 43 B2 30 3A 4E 25 B2 31 3A |*..)S.GC.0:N%.1:|
00002100: 4A 25 B2 33 3A 43 24 B2 C7 28 31 33 29 00 29 29 |J%.3:C$..(13).))|
00002110: 54 F2 50 B2 C2 28 34 34 AA 5A 51 29 AC 32 35 36 |T.P..(44.ZQ).256|
00002120: AA 31 3A 54 50 B2 50 AA 33 00 4A 29 58 F2 85 22 |.1:TP.P.3.J)X.."|
00002130: 11 4C 49 53 54 20 4F 4E 20 50 52 49 4E 54 45 52 |.LIST ON PRINTER|
00002140: 20 20 4E 9D 9D 9D 22 3B 41 24 00 66 29 62 F2 41 | N...";A$.f)b.A|
00002150: 24 B2 C8 28 41 24 2C 31 29 3A 8B 41 24 B2 22 59 |$..(A$,1):.A$."Y|
00002160: 22 A7 4A 25 B2 34 00 83 29 76 F2 99 22 11 2E 2E |".J%.4..)v.."...|
00002170: 2E 2E 2E 2E 2E 4A 55 53 54 20 41 20 4D 4F 4D 45 |.....JUST A MOME|
00002180: 4E 54 22 00 9B 29 80 F2 4C B2 C2 28 50 AA 32 29 |NT"..)..L..(P.2)|
00002190: AA 32 35 36 AC C2 28 50 AA 33 29 00 C2 29 8A F2 |.256..(P.3)..)..|
000021A0: 8B 4C B3 B1 34 39 30 30 30 A7 50 B2 C2 28 50 29 |.L..49000.P..(P)|
000021B0: AA 32 35 36 AC C2 28 50 AA 31 29 3A 89 36 32 30 |.256..(P.1):.620|
000021C0: 38 30 00 EB 29 94 F2 58 4C B2 50 AA 36 3A 8D 34 |80..)..XL.P.6:.4|
000021D0: 39 36 30 30 3A 99 22 11 4E 41 4D 45 20 46 4F 52 |9600:.".NAME FOR|
000021E0: 20 43 4F 44 45 22 3A 85 43 43 24 00 19 2A 96 F2 | CODE":.CC$..*..|
000021F0: 99 22 11 43 4F 44 45 20 54 4F 20 12 44 92 49 53 |.".CODE TO .D.IS|
00002200: 4B 20 4F 52 20 12 54 92 41 50 45 22 3A 85 22 20 |K OR .T.APE":." |
00002210: 20 54 9D 9D 9D 22 3B 41 24 00 40 2A 98 F2 8B C8 | T...";A$.@*....|
00002220: 28 41 24 2C 31 29 B3 B1 22 44 22 A7 44 56 25 B2 |(A$,1).."D".DV%.|
00002230: 31 3A 46 49 24 B2 43 43 24 3A 89 36 32 31 31 30 |1:FI$.CC$:.62110|
00002240: 00 5E 2A 99 F2 85 22 11 44 52 49 56 45 20 30 20 |.^*...".DRIVE 0 |
00002250: 4F 52 20 31 20 20 30 9D 9D 9D 22 3B 4B 24 00 79 |OR 1 0...";K$.y|
00002260: 2A 9A F2 8B 4B 24 B3 B1 22 30 22 AF 4B 24 B3 B1 |*...K$.."0".K$..|
00002270: 22 31 22 A7 36 32 31 30 35 00 9F 2A 9B F2 46 49 |"1".62105..*..FI|
00002280: 24 B2 C7 28 33 34 29 AA 4B 24 AA 22 3A 22 AA 43 |$..(34).K$.":".C|
00002290: 43 24 AA 22 2C 53 2C 57 22 3A 44 56 25 B2 38 00 |C$.",S,W":DV%.8.|
000022A0: CF 2A 9E F2 85 22 11 43 4F 44 45 20 4F 52 49 47 |.*...".CODE ORIG|
000022B0: 49 4E 20 20 35 36 33 32 9D 9D 9D 9D 9D 9D 22 3B |IN 5632......";|
000022C0: 4F 43 3A 50 43 B2 4F 43 3A 9F 4A 25 2C 4A 25 00 |OC:PC.OC:.J%,J%.|
000022D0: F5 2A A8 F2 85 22 11 56 41 52 49 41 42 4C 45 20 |.*...".VARIABLE |
000022E0: 54 41 42 4C 45 20 20 35 33 37 36 9D 9D 9D 9D 9D |TABLE 5376.....|
000022F0: 9D 22 3B 4F 56 00 10 2B BC F2 99 3A 98 4A 25 2C |.";OV..+...:.J%,|
00002300: 22 43 4F 4D 50 49 4C 49 4E 47 20 22 3B 43 43 24 |"COMPILING ";CC$|
00002310: 00 2D 2B C6 F2 9F 4E 25 2C 44 56 25 2C 31 2C 46 |.-+...N%,DV%,1,F|
00002320: 49 24 3A 98 4E 25 2C 4F 43 3B 43 24 3B 00 3E 2B |I$:.N%,OC;C$;.>+|
00002330: D0 F2 54 53 B2 54 49 3A 8F 20 54 49 4D 45 00 49 |..TS.TI:. TIME.I|
00002340: 2B DA F2 89 35 30 32 30 30 00 00 00 58 31 AA AA |+...50200...X1..|
00002350: 00 FF C6 32 99 |...2. |
....... **************.+.... *TINY BASIC
*.@.... *COMPILER *.U.... *FOR THE
VIC *.J.... * *..... *'RUN62
000' *...... *TO COMPILE *...... *
*...... *(C)1981 BY *.R....*MAR
K *......* ZIMMERMANN*......*DAV
ID *......* MALMBERG *."....*
*.6....* FROM *.J....*
ABACUS *.^....* SOFTWARE *.R....****
**********...... SAMPLE SOURCE PROGRAM--
>LINES 20-120.X.... CALCULATES TABLE OF
X^2,X^3,SQR(X) FOR X FROM A TO B...... C
.1:. D . 3.0......"ENTER RANGE TO-FROM";
A,B.0...." X X*2 X^3 SQR(X)"
.>...G . B . A.N.#.. G . . 100.[.(.. G .
30.A.-...T.D.E . A.A:H..(A)...I.F . A.D
:. CUBE A...N.. A;E,F,H...S.A . A . C...
X...T...D$."":NZ%.0:TN.TP:.J%,"QUOTE STR
ING".....TN.TN.1:HC.B(TN):G$.G(HC)......
HC..34.D$.D$.G$:NZ%.NZ%.1:.48100.4....N%
,24;C$;:.J%,PC,"CLC".\....N%,144;C$;:.J%
,PC.1,"BCC =+";NZ%.1.W....N%,NZ%.1;C$;:.
K.1.NZ%.....G$.J(D$,K,1):HC.F(G$):.N%,HC
;C$;:.K.G....N%,0;C$;:.J%,PC.3,".BY #'";
D$;" 0".....PC.PC.3:PH..(PC.256):PL.PC.P
H.256:PC.PC.NZ%.1.7....N%,160;C$;:.N%,PH
;C$;:.J%,PC,"LDY #";PH;" ;SET POINTERS".
R....N%,169;C$;:.N%,PL;C$;.~....J%,PC.2,
"LDA #";PL;" ;TO QUOTE STRING"......N%,3
2;C$;:.N%,30;C$;:.N%,203;C$;.L....J%,PC.
4,"JSR $CB1E ;PRINT STRING".....PC.PC.7
:TP.TN:..%.H.X.
:..G.
L.TP.TP.1:CH.B(TP):.CH.32.49100.M.....H.
&..(CH.64).(CH.91).49300...0..J%,:.J%,"*
**ERROR IN LINE ";LI:.61000.....Z.5.(CH.
65).OV:ZH..(Z.256):ZL.Z.256.ZH:.......N%
,169;C$;:.N%,ZL;C$;:.N%,160;C$;:.N%,ZH;C
$;......J%,PC,"LDA #";ZL. ....J%,PC.2,"L
DY #";ZH.R....J%,PC.4,"JSR $DBA2 ;VAR
";G(CH);" TO PFAC"....A.N%,32;C$;:.N%,16
2;C$;:.N%,219;C$;:PC.PC.7:.....A.57,220,
"SGN"...AA.204,220,"INT"...BA.88,220,"AB
S".I.CA.0,0,"USR"...DA.125,211,"FRE"...E
A.158,211,"POS"....A.113,223,"SQR"....A.
148,224,"RND".(..A.234,217,"LOG".;..A.23
7,223,"EXP".M..A.97,226,"COS".`..A.104,2
26,"SIN".S..B.177,226,"TAN"....B.11,227,
"ATN"....B.13,216,"PEEK"....B.103,216,"'
+'"....B.83,216,"'-'".O..B.40,218,"'*'".
...B.12,219,"'/'"....B.123,223,"'^'"...8
B.X.0.19:.ML%(X,0),ML%(X,1),F$(X):.X.<.L
B.X.0.255:LN%(X)..32767:.X:..C..DLI.B(TP
.1).256.B(TP):.LI.255.60000...,DLN%(LI).
PC.32767:.J%,:.J%,"COMPILING LINE";LI. .
@D.49100.I.TD.CH.0.TP.TP.4:.50200:. GET
NEXT LINE...HD.CH.58..J%,:.J%,"':' STATE
MENT SEPARATER":.50240.4.|D.CH.136..J%,:
.J%,"LET ASIGNMENT STATEMENT":.58000.B..
D.CH.153..J%,:.J%,"PRINT STATEMENT":.590
00....D.CH.133..J%,:.J%,"INPUT STATEMENT
":.59500....D.CH.139..J%,:.J%,"IF STATEM
ENT":.58500...LD.(CH.137).(CH.141)..J%,:
.J%,"GOTO OR GOSUB STATEMENT"...MD.(CH.1
37).(CH.141).58700.>..D.CH.143..J%,:.J%,
"REM STATEMENT":.56500.Y..D.CH.142..N%,9
6;C$;:PC.PC.1:.J%,:.J%,"RETURN STATEMENT
"....D.CH.142..J%,PC.1,"RTS":.50240.S..D
.CH.128..N%,96;C$;:PC.PC.1:.J%,:.J%,"END
STATEMENT"....D.CH.128..J%,PC.1,"RTS":.
50240....E.49190:VL.ZL:VH.ZH:B$.G(CH)./.
.E.49100:.CH..178.49200.S.0E.49100:.(CH.
179).(CH.195).50725...DE.CH.171..J%,:.J%
,"NEGATION STATEMENT":.55600...XE.49190:
WL.ZL:WH.ZH:V$.G(CH):ZZ.Z...LE.49100:.(C
H.0).(CH.58)..J%,:.J%,"SIMPLE ASIGNMENT
A=B"...ME.(CH.0).(CH.58).58300....E.(CH.
170).(CH.174).49200.P..E.J%,:.J%,"SIMPLE
ARITHMETIC OPERATION +,-,*,/,^".S..EFU.
CH.155:.49100:.49190:.49400....E.N%,169;
C$;:.N%,WL;C$;:.N%,160;C$;:.N%,WH;C$;:PC
.PC.4....E.J%,PC.4,"LDA #";WL;" ; SET PT
RS TO VARIABLE"....E.J%,PC.2,"LDY #";WH;
" ; "V$;" AT";ZZ.#..F.(FU.15).(FU.17).51
080.R. F.N%,32;C$;:.N%,140;C$;:.N%,218;C
$;:PC.PC.3...!F.J%,PC.3,"JSR $DA8C ;VA
R ";V$;" TO SFAC":.51080...%F.J%,:.J%,"F
UNCTION EVALUATION STATEMENT".X.8GFU.CH.
180:.49100:.CH..40.49200...`G.49100:.491
90:.49400...TG.49100:.CH..41.49200.5..GA
L.ML%(FU,0):AH.ML%(FU,1):AD.256.AH.AL.Z.
.G.N%,32;C$;:.N%,AL;C$;:.N%,AH;C$;....G.
J%,PC,"JSR ";AD;" ";F$(FU);" FUNCTION RO
UTINE":PC.PC.3.H..G.N%,162;C$;:.N%,VL;C$
;:.N%,160;C$;:.N%,VH;C$;....G.J%,PC,"LDX
#";VL;" ;LOW PART OF TO-ADDR"....G.J%,P
C.2,"LDY #";VH;" ;HIGH TO-ADDR".F..G.N%,
32;C$;:.N%,212;C$;:.N%,219;C$;...G.J%,P
C.4,"JSR $DBD4 ;STORE RESULTS IN VARIAB
LE ";B$....GPC.PC.7:.50240.C.0Y.49100:.4
9190:.49400:.N%,169;C$;:.N%,255;C$;...1Y
.J%,PC,"LDA #$FF NEGATE PFAC"...LY.N%,6
9;C$;:.N%,102;C$;:.N%,133;C$;:.N%,102;C$
;.K.MYPC.PC.6:.J%,PC.4,"EOR $66 SIGN BT
YE OF PFAC".W.NY.J%,PC.2,"STA $66 SIGN
FLIPPED":.51100......49100:.CH.0.56500:.
"REM" LOOP UNTIL END OF LINE......50260
.Y.... "LET" ASSIGNMENT STATEMENT......4
9100:.49190:V$.G(CH)......49100:VL.TP.1:
.CH..178.49200.9....49100:.(CH..58).(CH.
.0).58080.B....TP.VL.60..J%,"LINE TO LON
G!":.49200......L.VL.TP.1:WL.B(L):.XL.L.
VL,WL:.L...0..49000:.L.VL.TP.1:.XL.L.VL,
32:.L.Z.D..N%,24;C$;:.N%,144;C$;:.N%,5;C
$;:PC.PC.3...E.VL.256.B(46.ZQ).B(45.ZQ).
2./.F..J%,PC.3,"CLC":.J%,PC.2,"BCC =+5
SKIP OVER DATA".C.G..J%,PC,".BY ";.L.L.
.L.VL.VL.4:.N%,B(L);C$;:.J%,B(L);:.L...M
.WH..(PC.256):WL.PC.256.WH.....VL.ZL:VH.
ZH:PC.PC.5:.J%,.A....N%,162;C$;:.N%,4;C$
;......N%,189;C$;:.N%,WL;C$;:.N%,WH;C$;.
.....J%,PC,"LDX #04 ;SIMPLE ASSIGNMENT"
.:....J%,PC.2,"LDA ";PC.5;",X ;GET VALU
E".L....N%,157;C$;:.N%,VL;C$;:.N%,VH;C$;
:.N%,202;C$;......J%,PC.5,"STA ";Z;",X ;
MOVE TO VARIABLE ";V$......J%,PC.8,"DEX"
.K....N%,16;C$;:.N%,247;C$;......J%,PC.9
,"BPL #";PC.2;" ;LOOP AGAIN".....PC.PC.
11:.50260...... "IF" STATEMENT.0....4910
0:.49190.B....N%,173;C$;:.N%,ZL;C$;:.N%,
ZH;C$;:.N%,240;C$;......J%,PC,"LDA ";G(C
H);" ;VARIABLE AFTER 'IF'"......J%,PC.3
,"BEQ =+3 ;SKIP NEXT 3 BYTES"...T..N%,3
;C$;:PC.PC.5:.49100:.CH.167..49100......
(CH..137).(CH..141).49200.;.L..CH.141..N
%,32;C$;:.J%,PC,"JSR $0000";:.58760.^.T.
.N%,76;C$;:.J%,PC,"JMP $0000";.....GN%(G
C,0).PC.32766:.N%,0;C$;:.N%,0;C$;:PC.PC.
3:TL.0......49100:.(CH.48).(CH.57).58830
.R.D.TL.10.TL.CH.48:.58800...N..J%," ;TO
LINE #";TL...X.GN%(GC,1).TL:GC.GC.1:.50
260.#.W.. "PRINT" STATEMENT.D.X..49100:.
(CH.0).(CH.58).59400._. ..(CH.44).(CH.59
).59000.X....CH.34..48000:.59000......J%
,"PRINT VARIABLE".F.H..49190:.49400:.N%,
32;C$;:.N%,221;C$;:.N%,221;C$;...I..J%,P
C,"JSR $DDDD ; CONVERT TO ASCII"......N
%,162;C$;:.N%,0;C$;./....N%,189;C$;:.N%,
0;C$;:.N%,1;C$;.P....J%,PC.3,"LDX #0 ;L
ENGTH=0".K....J%,PC.5,"LDA $0100,X".....
.N%,240;C$;:.N%,6;C$;......J%,PC.8,"BEQ
#";PC.16;" ;END OF STRING".....PC.PC.10
:.59300:.N%,232;C$;:.N%,208;C$;:.N%,245;
C$;.. ...J%,PC,"INX ;LENGTH=LENGTH+1".@
...J%,PC.1,"BNE #";PC.8;" ;LOOP AGAIN"
:PC.PC.3.[ ...N%,169;C$;:.N%,32;C$;.X ..
.J%,PC,"LDA #32 ;BLANK".. ..PC.PC.2:.59
300:.59000.. ...N%,32;C$;:.N%,210;C$;:.N
%,255;C$;.. ...J%,PC,"JSR $FFD2 ;PRINT
ACC".. ..PC.PC.3:..%!...N%,169;C$;:.N%,1
3;C$;:.J%,PC,"LDA #$0D ;CRLF":PC.PC.2.7!
...59300:.50260.O!K.. "INPUT" STATEMENT.
P!L..49100:.(CH.0).(CH.58).50260..!...(C
H.44).(CH.59).59500..!...CH.34..48000:.5
9500..!...J%,"INPUT VARIABLE"..!...49190
:.N%,169;C$;:.N%,CH;C$;.."...J%,PC,"LDA
#'";G(CH);" ;INPUT VARIABLE". "..PC.PC.
2:.59300.Y"...N%,169;C$;:.N%,63;C$;:.J%,
PC,"LDA #$3F ;ASCII '?'".L"..PC.PC.2:.5
9300.."P..N%,162;C$;:.N%,0;C$;.."Q..N%,3
2;C$;:.N%,207;C$;:.N%,255;C$;.L"R..J%,PC
,"LDX #0 ;LENGTH=0".."S..J%,PC.2,"JSR $
FFCF ; INPUT CHR"..#...N%,157;C$;:.N%,3
2;C$;:.N%,2;C$;.>#...N%,232;C$;:.N%,201;
C$;:.N%,13;C$;.J#...J%,PC.5,"STA $220,X
;STORE IN BUFFER"..#...J%,PC.8,"INX ;L
ENGTH=LENGTH+1"..#...J%,PC.9,"CMP #$D ;
CRLF ?".K#...N%,208;C$;:.N%,245;C$;..$..
.J%,PC.11,"BNE #";PC.2;" ;LOOP AGAIN":P
C.PC.13:.59300. $ ..N%,169;C$;:.N%,2;C$;
.G$!..N%,133;C$;:.N%,35;C$;:.N%,169;C$;.
{$"..N%,32;C$;:.J%,PC,"LDA #$02":.J%,PC.
2,"STA $23"..$#..J%,PC.4,"LDA #$20":.J%,
PC.6,"STA $22 ;SET PTRS TO INPUT".U$4..
N%,133;C$;:.N%,34;C$;..$5..N%,202;C$;:.N
%,138;C$;:.N%,32;C$;.:%6..N%,181;C$;:.J%
,PC.8,"DEX":.J%,PC.9,"TXA ;LENGTH TO AC
C".D%7..J%,PC.10,"JSR $D7B5 STRING TO P
FAC"..%P..N%,215;C$;:.N%,162;C$;..%Q..N%
,ZL;C$;:.N%,160;C$;:.N%,ZH;C$;.Q%R..J%,P
C.13,"LDX ";ZL;" ;PTRS TO STORE "..&S..J
%,PC.15,"LDY ";ZH;" ;INPUT VALUE IN ";G(
CH).*&...N%,32;C$;:.N%,212;C$;:.N%,219;C
$;.`&...J%,PC.17,"JSR $DBD4 ;STORE PFAC"
:PC.PC.20:.59500..&`..J%,:.J%,"FIRST PAS
S FINISHED!!!"..&A..J%,"SOURCE CODE OCCU
PIES ";OC;" TO";PC.1..&T..J%,"VARIABLES
OCCUPY";OV;"TO";OV.129..&...N%,.1;C$;:.G
C.0.61000..'...J%,:.J%,"JUMP TABLE".R'..
.X.0.GC.1:.N%,GN%(X,0).32767;C$;:L.GN%(X
,1):Z.LN%(L).32767..'D..Z.0..J%,"JUMP TO
NONEXISTENT LINE #";L:.61000..'X.ZH.
.(Z.256):ZL.Z.256.ZH:.N%,ZL;C$;:.N%,ZH;C
$;.X'...J%,GN%(X,0).32767;L;Z:.X..'H..N%
,.1;C$;: N%: J%:..2(0..X,LN%(255),GN%(12
7,1),ML%(19,1),F$(19):. MUST BE FIRST ST
MT.P(5.."..TINY BASIC COMPILER.".J(:.."B
Y ABACUS SOFTWARE"..(D..".(C)1981 M. ZIM
MERMANN D. MALMBERG"..(N..I.1.15
36:.I..(O.ZQ.0:. ***** TO COMPILE VIC PR
OGRAMS ON THE PET SET ZQ=-3 *****..)S.GC
.0:N%.1:J%.3:C$.G(13).))T.P.B(44.ZQ).256
.1:TP.P.3.J)X..".LIST ON PRINTER N...";
A$.F)B.A$.H(A$,1):.A$."Y".J%.4..)V.."...
.....JUST A MOMENT"..)..L.B(P.2).256.B(P
.3).B)...L..49000.P.B(P).256.B(P.1):.620
80..)..XL.P.6:.49600:.".NAME FOR CODE":.
CC$..*...".CODE TO .D.ISK OR .T.APE":."
T...";A$.@*...H(A$,1).."D".DV%.1:FI$.CC
$:.62110.^*...".DRIVE 0 OR 1 0...";K$.Y
*...K$.."0".K$.."1".62105..*..FI$.G(34).
K$.":".CC$.",S,W":DV%.8.O*...".CODE ORIG
IN 5632......";OC:PC.OC:.J%,J%..*...".V
ARIABLE TABLE 5376......";OV..+...:.J%,
"COMPILING ";CC$.-+F..N%,DV%,1,FI$:.N%,O
C;C$;.>+P.TS.TI:. TIME.I+Z..50200...X1..
..F2.
> CLICK IMAGE PREVIEW FOR FULL MODAL