00000000: 01 04 26 1C 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..&.d.. ********|
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 2C 1C 6E 00 8F 00 4E 1C 78 |******.,.n...N.x|
00000030: 00 8F 20 20 20 20 20 44 20 41 20 54 20 41 20 20 |.. D A T A |
00000040: 20 42 20 55 20 49 20 4C 20 44 20 45 20 52 00 54 | B U I L D E R.T|
00000050: 1C 82 00 8F 00 74 1C 8C 00 8F 20 20 20 20 20 20 |.....t.... |
00000060: 20 42 59 3A 20 52 4F 42 45 52 54 20 57 2E 20 42 | BY: ROBERT W. B|
00000070: 41 4B 45 52 00 7A 1C 96 00 8F 00 9F 1C A0 00 8F |AKER.z..........|
00000080: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000000A0: A5 1C AA 00 3A 00 CD 1C B4 00 4C 4E B2 31 30 3A |....:.....LN.10:|
000000B0: 20 8F 20 53 54 41 52 54 49 4E 47 20 42 41 53 49 | . STARTING BASI|
000000C0: 43 20 4C 49 4E 45 20 4E 55 4D 42 45 52 00 F0 1C |C LINE NUMBER...|
000000D0: BE 00 4C 49 B2 31 30 3A 20 8F 20 4C 49 4E 45 20 |..LI.10: . LINE |
000000E0: 4E 55 4D 42 45 52 20 49 4E 43 52 45 4D 45 4E 54 |NUMBER INCREMENT|
000000F0: 00 F6 1C C8 00 3A 00 13 1D D2 00 99 22 93 4D 41 |.....:......".MA|
00000100: 43 48 49 4E 45 20 4C 41 4E 47 55 41 47 45 20 50 |CHINE LANGUAGE P|
00000110: 47 4D 22 00 32 1D DC 00 99 22 54 4F 20 42 45 20 |GM".2...."TO BE |
00000120: 43 4F 4E 56 45 52 54 45 44 20 49 53 20 2D 22 3A |CONVERTED IS -":|
00000130: 20 99 00 3B 1D E6 00 85 20 46 24 00 49 1D F0 00 | ..;.... F$.I...|
00000140: 9F 20 31 35 2C 38 2C 31 35 00 6B 1D FA 00 9F 20 |. 15,8,15.k.... |
00000150: 31 2C 38 2C 35 2C 22 30 3A 22 AA C8 28 46 24 2C |1,8,5,"0:"..(F$,|
00000160: 31 36 29 AA 22 2C 50 2C 52 29 22 00 A3 1D 04 01 |16).",P,R)".....|
00000170: 84 31 35 2C 45 4E 2C 45 4D 24 3A 20 8B 20 45 4E |.15,EN,EM$: . EN|
00000180: B3 B1 30 20 A7 20 99 22 44 49 53 4B 20 45 52 52 |..0 . ."DISK ERR|
00000190: 4F 52 20 2D 22 3B 45 4E 3B 45 4D 24 3A 20 89 20 |OR -";EN;EM$: . |
000001A0: 36 35 30 00 C3 1D 0E 01 99 3A 20 99 22 42 41 53 |650......: ."BAS|
000001B0: 49 43 20 50 47 4D 20 54 4F 20 42 45 20 42 55 49 |IC PGM TO BE BUI|
000001C0: 4C 54 22 00 E0 1D 18 01 99 22 53 48 4F 55 4C 44 |LT"......"SHOULD|
000001D0: 20 42 45 20 43 41 4C 4C 45 44 20 2D 22 3A 20 99 | BE CALLED -": .|
000001E0: 00 E9 1D 22 01 85 20 46 24 00 0A 1E 2C 01 9F 20 |...".. F$...,.. |
000001F0: 32 2C 38 2C 36 2C 22 30 3A 22 AA C8 28 46 24 2C |2,8,6,"0:"..(F$,|
00000200: 31 36 29 AA 22 2C 50 2C 57 22 00 42 1E 36 01 84 |16).",P,W".B.6..|
00000210: 31 35 2C 45 4E 2C 45 4D 24 3A 20 8B 20 45 4E B3 |15,EN,EM$: . EN.|
00000220: B1 30 20 A7 20 99 22 44 49 53 4B 20 45 52 52 4F |.0 . ."DISK ERRO|
00000230: 52 20 2D 22 3B 45 4E 3B 45 4D 24 3A 20 89 20 36 |R -";EN;EM$: . 6|
00000240: 35 30 00 6D 1E 40 01 99 3A 20 99 22 4F 4B 2C 22 |50.m.@..: ."OK,"|
00000250: 3A 20 99 22 42 55 49 4C 44 49 4E 47 20 4E 45 57 |: ."BUILDING NEW|
00000260: 20 50 47 4D 20 46 49 4C 45 22 3A 20 99 00 87 1E | PGM FILE": ....|
00000270: 4A 01 A1 23 31 2C 43 24 3A 20 8B 20 53 54 B3 B1 |J..#1,C$: . ST..|
00000280: 30 20 A7 20 36 34 30 00 A5 1E 54 01 41 44 B2 30 |0 . 640...T.AD.0|
00000290: 3A 20 8B 20 43 24 B3 B1 22 22 20 A7 20 41 44 B2 |: . C$.."" . AD.|
000002A0: C6 28 43 24 29 00 BF 1E 5E 01 A1 23 31 2C 43 24 |.(C$)...^..#1,C$|
000002B0: 3A 20 8B 20 53 54 B3 B1 30 20 A7 20 36 34 30 00 |: . ST..0 . 640.|
000002C0: DB 1E 68 01 43 B2 30 3A 20 8B 20 43 24 B3 B1 22 |..h.C.0: . C$.."|
000002D0: 22 20 A7 20 43 B2 C6 28 43 24 29 00 0A 1F 72 01 |" . C..(C$)...r.|
000002E0: 41 44 B2 41 44 AA 28 32 35 36 AC 43 29 3A 20 99 |AD.AD.(256.C): .|
000002F0: 22 53 54 41 52 54 49 4E 47 20 41 44 44 52 45 53 |"STARTING ADDRES|
00000300: 53 20 3D 22 3B 41 44 3A 20 99 00 1C 1F 7C 01 4C |S =";AD: ....|.L|
00000310: 4B B2 31 30 32 35 3A 20 4E 42 B2 30 00 2E 1F 86 |K.1025: NB.0....|
00000320: 01 98 32 2C C7 28 31 29 3B C7 28 34 29 3B 00 4C |..2,.(1);.(4);.L|
00000330: 1F 90 01 4C 24 B2 C7 28 31 33 31 29 3A 20 8F 20 |...L$..(131): . |
00000340: 22 44 41 54 41 22 20 54 4F 4B 45 4E 00 6D 1F 9A |"DATA" TOKEN.m..|
00000350: 01 A1 23 31 2C 43 24 3A 20 53 53 B2 53 54 3A 20 |..#1,C$: SS.ST: |
00000360: 8B 20 53 53 B3 B1 30 20 A7 20 34 37 30 00 89 1F |. SS..0 . 470...|
00000370: A4 01 43 B2 30 3A 20 8B 20 43 24 B3 B1 22 22 20 |..C.0: . C$.."" |
00000380: A7 20 43 B2 C6 28 43 24 29 00 A3 1F AE 01 8B 20 |. C..(C$)...... |
00000390: C3 28 4C 24 29 B1 31 20 A7 20 4C 24 B2 4C 24 AA |.(L$).1 . L$.L$.|
000003A0: 22 2C 22 00 C0 1F B8 01 4C 24 B2 4C 24 AA CA 28 |",".....L$.L$..(|
000003B0: C4 28 43 29 2C 32 29 3A 20 4E 42 B2 4E 42 AA 31 |.(C),2): NB.NB.1|
000003C0: 00 D5 1F C2 01 8B 20 C3 28 4C 24 29 B3 36 35 20 |...... .(L$).65 |
000003D0: A7 20 34 31 30 00 E6 1F CC 01 8D 20 35 38 30 3A |. 410...... 580:|
000003E0: 20 89 20 34 30 30 00 F9 1F D6 01 8B 20 53 53 B3 | . 400...... SS.|
000003F0: B1 36 34 20 A7 20 36 34 30 00 0F 20 E0 01 8B 20 |.64 . 640.. ... |
00000400: C3 28 4C 24 29 B1 31 20 A7 20 8D 20 35 38 30 00 |.(L$).1 . . 580.|
00000410: 20 20 EA 01 8B 20 4E 42 B2 30 20 A7 20 36 35 30 | ... NB.0 . 650|
00000420: 00 4A 20 F4 01 8F 20 46 4F 4C 4C 4F 57 49 4E 47 |.J ... FOLLOWING|
00000430: 20 4C 49 4E 45 53 20 43 52 45 41 54 45 20 41 20 | LINES CREATE A |
00000440: 42 41 53 49 43 20 4C 49 4E 45 00 78 20 FE 01 8F |BASIC LINE.x ...|
00000450: 20 46 4F 52 20 58 3D 30 20 54 4F 20 2E 2E 2E 3A | FOR X=0 TO ...:|
00000460: 52 45 41 44 20 43 3A 20 50 4F 4B 45 2E 2E 2E 2B |READ C: POKE...+|
00000470: 58 2C 43 3A 4E 45 58 54 00 9C 20 08 02 4C 24 B2 |X,C:NEXT.. ..L$.|
00000480: C7 28 31 32 39 29 AA 22 58 22 AA C7 28 31 37 38 |.(129)."X"..(178|
00000490: 29 AA 22 30 22 AA C7 28 31 36 34 29 00 C3 20 12 |)."0"..(164).. .|
000004A0: 02 4C 24 B2 4C 24 AA CA 28 C4 28 4E 42 AB 31 29 |.L$.L$..(.(NB.1)|
000004B0: 2C 32 29 AA 22 3A 22 AA C7 28 31 33 35 29 AA 22 |,2).":"..(135)."|
000004C0: 43 3A 22 00 F4 20 1C 02 4C 24 B2 4C 24 AA C7 28 |C:".. ..L$.L$..(|
000004D0: 31 35 31 29 AA CA 28 C4 28 41 44 29 2C 32 29 AA |151)..(.(AD),2).|
000004E0: C7 28 31 37 30 29 AA 22 58 2C 43 3A 22 AA C7 28 |.(170)."X,C:"..(|
000004F0: 31 33 30 29 00 0D 21 26 02 8D 20 35 38 30 3A 20 |130)..!&.. 580: |
00000500: 98 32 2C C7 28 30 29 3B C7 28 30 29 3B 00 2D 21 |.2,.(0);.(0);.-!|
00000510: 30 02 99 22 4C 45 4E 47 54 48 20 3D 22 3B 4E 42 |0.."LENGTH =";NB|
00000520: AA 31 3B 22 42 59 54 45 53 22 3A 20 99 00 4B 21 |.1;"BYTES": ..K!|
00000530: 3A 02 99 22 44 4F 4E 45 20 43 4F 4E 56 45 52 53 |:.."DONE CONVERS|
00000540: 49 4F 4E 22 3A 20 89 20 36 35 30 00 6F 21 44 02 |ION": . 650.o!D.|
00000550: 4C B2 C3 28 4C 24 29 3A 20 4C 4B B2 4C 4B AA 35 |L..(L$): LK.LK.5|
00000560: AA 4C 3A 20 58 B2 4C 4B 3A 20 8D 20 36 32 30 00 |.L: X.LK: . 620.|
00000570: 89 21 4E 02 58 B2 4C 4E 3A 20 8D 20 36 32 30 3A |.!N.X.LN: . 620:|
00000580: 20 4C 4E B2 4C 4E AA 4C 49 00 A9 21 58 02 81 20 | LN.LN.LI..!X.. |
00000590: 58 B2 31 20 A4 20 4C 3A 20 98 32 2C CA 28 4C 24 |X.1 . L: .2,.(L$|
000005A0: 2C 58 2C 31 29 3B 3A 20 82 00 B9 21 62 02 98 32 |,X,1);: ...!b..2|
000005B0: 2C C7 28 30 29 3B 3A 20 8E 00 D8 21 6C 02 58 31 |,.(0);: ...!l.X1|
000005C0: B2 B5 28 58 AD 32 35 36 29 3A 20 58 32 B2 58 AB |..(X.256): X2.X.|
000005D0: 28 58 31 AC 32 35 36 29 00 EF 21 76 02 98 32 2C |(X1.256)..!v..2,|
000005E0: C7 28 58 32 29 3B C7 28 58 31 29 3B 3A 20 8E 00 |.(X2);.(X1);: ..|
000005F0: 19 22 80 02 99 3A 20 99 22 44 49 53 4B 20 45 52 |."...: ."DISK ER|
00000600: 52 4F 52 2C 22 3A 20 99 22 50 52 4F 47 52 41 4D |ROR,": ."PROGRAM|
00000610: 20 41 42 4F 52 54 45 44 22 00 2C 22 8A 02 A0 20 | ABORTED".,"... |
00000620: 31 3A 20 A0 20 32 3A 20 A0 20 31 35 00 00 00 |1: . 2: . 15... |
..&.D.. ******************************.,
.N...N.X.. D A T A B U I L D E R.T
.....T.... BY: ROBERT W. BAKER.Z..
..... .. ******************************.
....:.M...LN.10: . STARTING BASIC LINE N
UMBER.....LI.10: . LINE NUMBER INCREMENT
...H.:...R..".MACHINE LANGUAGE PGM".2...
."TO BE CONVERTED IS -": ..;.... F$.I...
. 15,8,15.K.... 1,8,5,"0:".H(F$,16).",P,
R)"......15,EN,EM$: . EN..0 . ."DISK ERR
OR -";EN;EM$: . 650.C....: ."BASIC PGM T
O BE BUILT"......"SHOULD BE CALLED -": .
...".. F$...,.. 2,8,6,"0:".H(F$,16).",P,
W".B.6..15,EN,EM$: . EN..0 . ."DISK ERRO
R -";EN;EM$: . 650.M.@..: ."OK,": ."BUIL
DING NEW PGM FILE": ....J..#1,C$: . ST..
0 . 640...T.AD.0: . C$.."" . AD.F(C$)...
^..#1,C$: . ST..0 . 640...H.C.0: . C$.."
" . C.F(C$)...R.AD.AD.(256.C): ."STARTIN
G ADDRESS =";AD: ....|.LK.1025: NB.0....
..2,G(1);G(4);.L...L$.G(131): . "DATA" T
OKEN.M....#1,C$: SS.ST: . SS..0 . 470...
..C.0: . C$.."" . C.F(C$)...... C(L$).1
. L$.L$.",".....L$.L$.J(D(C),2): NB.NB.1
.U.B.. C(L$).65 . 410...L.. 580: . 400..
.V.. SS..64 . 640.. ... C(L$).1 . . 580.
... NB.0 . 650.J ... FOLLOWING LINES C
REATE A BASIC LINE.X ... FOR X=0 TO ...:
READ C: POKE...+X,C:NEXT.. ..L$.G(129)."
X".G(178)."0".G(164).C ..L$.L$.J(D(NB.1)
,2).":".G(135)."C:".. ..L$.L$.G(151).J(D
(AD),2).G(170)."X,C:".G(130)..!&.. 580:
.2,G(0);G(0);.-!0.."LENGTH =";NB.1;"BYTE
S": ..K!:.."DONE CONVERSION": . 650.O!D.
L.C(L$): LK.LK.5.L: X.LK: . 620..!N.X.LN
: . 620: LN.LN.LI..!X.. X.1 . L: .2,J(L$
,X,1);: ...!B..2,G(0);: ..X!L.X1..(X.256
): X2.X.(X1.256)..!V..2,G(X2);G(X1);: ..
."...: ."DISK ERROR,": ."PROGRAM ABORTED
".,".. 1: 2: 15...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL