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