M/L DATA MAKER40

00000000: 01 1C 16 1C 82 00 8B C2  28 31 30 32 34 29 B3 B1  |........(1024)..|
00000010: 36 32 A7 33 33 30 00 49  1C 8C 00 4E 4C B2 C2 28  |62.330.I...NL..(|
00000020: 32 33 35 29 AB 31 3A 8B  4E 4C B1 31 36 A7 99 C7  |235).1:.NL.16...|
00000030: 28 31 38 29 3B 22 54 4F  4F 20 4D 41 4E 59 20 4C  |(18);"TOO MANY L|
00000040: 49 4E 45 53 21 21 22 3A  80 00 77 1C 96 00 45 24  |INES!!":..w...E$|
00000050: B2 C7 28 32 37 29 3A 43  4C 24 B2 45 24 AA 22 40  |..(27):CL$.E$."@|
00000060: 22 3A 42 4C 24 B2 45 24  AA 22 4A 22 3A 45 52 24  |":BL$.E$."J":ER$|
00000070: B2 45 24 AA 22 51 22 00  AD 1C A0 00 41 24 B2 22  |.E$."Q".....A$."|
00000080: 2C 22 AA C7 28 32 39 29  AA C7 28 32 39 29 3A 81  |,"..(29)..(29):.|
00000090: 4A B2 31 A4 37 3A 43 4F  24 B2 43 4F 24 AA 41 24  |J.1.7:CO$.CO$.A$|
000000A0: 3A 82 3A 43 55 24 B2 C7  28 31 34 35 29 00 D2 1C  |:.:CU$..(145)...|
000000B0: AA 00 44 41 24 B2 22 20  20 20 20 20 20 22 AA 45  |..DA$."      ".E|
000000C0: 24 AA 22 41 44 41 54 41  22 AA 45 24 AA C7 28 36  |$."ADATA".E$..(6|
000000D0: 37 29 00 05 1D B4 00 81  4A B2 31 A4 34 3A 4B B2  |7)......J.1.4:K.|
000000E0: C2 28 31 30 32 35 AA 4A  29 3A 4B B2 4B AB 36 34  |.(1025.J):K.K.64|
000000F0: AC 28 4B B3 37 29 3A 42  41 24 B2 42 41 24 AA C7  |.(K.7):BA$.BA$..|
00000100: 28 4B 29 3A 82 00 41 1D  BE 00 48 49 24 B2 C7 28  |(K):..A...HI$..(|
00000110: C2 28 31 30 32 35 29 29  3A 48 49 B2 36 35 35 33  |.(1025)):HI.6553|
00000120: 36 AC C5 28 48 49 24 29  3A 42 41 B2 48 49 AA D1  |6..(HI$):BA.HI..|
00000130: 28 42 41 24 29 3A 42 41  24 B2 48 49 24 AA 42 41  |(BA$):BA$.HI$.BA|
00000140: 24 00 6C 1D C8 00 45 41  B2 42 41 AA 38 AC 4E 4C  |$.l...EA.BA.8.NL|
00000150: AB 31 3A 45 41 24 B2 48  49 24 AA D2 28 45 41 AB  |.1:EA$.HI$..(EA.|
00000160: 48 49 29 3A 99 43 55 24  3B 43 4C 24 00 8E 1D D2  |HI):.CU$;CL$....|
00000170: 00 46 4C B2 42 41 3A 99  43 55 24 3B 22 46 49 52  |.FL.BA:.CU$;"FIR|
00000180: 53 54 20 4C 49 4E 45 23  22 3B 3A 85 46 4C 00 C1  |ST LINE#";:.FL..|
00000190: 1D DC 00 49 4E B2 38 3A  85 22 20 20 49 4E 43 52  |...IN.8:."  INCR|
000001A0: 45 4D 45 4E 54 22 3B 49  4E 3A 99 C7 28 31 38 29  |EMENT";IN:..(18)|
000001B0: 3B 22 57 4F 52 4B 49 4E  47 22 3B C7 28 31 39 29  |;"WORKING";.(19)|
000001C0: 3B 00 00 1E E6 00 81 4A  B2 31 A4 4E 4C 3A 4C 4E  |;......J.1.NL:LN|
000001D0: B2 46 4C AA 49 4E AC 28  4A AB 31 29 3A 99 A3 33  |.FL.IN.(J.1):..3|
000001E0: 30 29 3B 45 52 24 3B 42  4C 24 3B 44 41 24 3B 42  |0);ER$;BL$;DA$;B|
000001F0: 4C 24 3B 4C 4E 3B A3 31  33 29 3B 43 4F 24 3A 82  |L$;LN;.13);CO$:.|
00000200: 00 3A 1E F0 00 81 4A B2  31 A4 4E 4C 3A 81 4B B2  |.:....J.1.NL:.K.|
00000210: 30 A4 37 3A 42 59 24 B2  22 22 3A 81 4C B2 30 A4  |0.7:BY$."":.L.0.|
00000220: 31 3A 4D B2 C2 28 31 30  33 35 AA 34 30 AC 28 4A  |1:M..(1035.40.(J|
00000230: AB 31 29 AA 33 AC 4B AA  4C 29 00 6B 1E FA 00 4D  |.1).3.K.L).k...M|
00000240: B2 4D AB 36 34 AC 28 4D  B3 37 29 3A 42 59 24 B2  |.M.64.(M.7):BY$.|
00000250: 42 59 24 AA C7 28 4D 29  3A 82 3A 43 4B B2 43 4B  |BY$..(M):.:CK.CK|
00000260: AA D1 28 42 59 24 29 3A  82 3A 82 00 C8 1E 04 01  |..(BY$):.:......|
00000270: 99 43 4C 24 3B 4C 4E AA  49 4E 3B 22 46 4F 52 4A  |.CL$;LN.IN;"FORJ|
00000280: 3D 31 54 4F 22 3B 38 AC  4E 4C 3B 22 3A 52 45 41  |=1TO";8.NL;":REA|
00000290: 44 4B 24 3A 4C 3D 44 45  43 28 4B 24 29 3A 43 53  |DK$:L=DEC(K$):CS|
000002A0: 3D 43 53 2B 4C 3A 4E 45  58 54 3A 52 45 53 54 4F  |=CS+L:NEXT:RESTO|
000002B0: 52 45 3A 49 46 43 53 3C  3E 22 3B 43 4B 3B 22 54  |RE:IFCS<>";CK;"T|
000002C0: 48 45 4E 53 54 4F 50 22  00 0C 1F 0E 01 99 4C 4E  |HENSTOP"......LN|
000002D0: AA 32 AC 49 4E 3B 22 46  4F 52 4A 3D 22 3B 42 41  |.2.IN;"FORJ=";BA|
000002E0: 3B 22 54 4F 22 3B 42 41  AA 38 AC 4E 4C AB 31 3B  |;"TO";BA.8.NL.1;|
000002F0: 22 3A 52 45 41 44 4B 24  3A 50 4F 4B 45 4A 2C 44  |":READK$:POKEJ,D|
00000300: 45 43 28 4B 24 29 3A 4E  45 58 54 22 00 37 1F 18  |EC(K$):NEXT".7..|
00000310: 01 99 4C 4E AA 33 AC 49  4E 22 52 45 4D 22 4E 4C  |..LN.3.IN"REM"NL|
00000320: AC 38 22 42 59 54 45 53  2E 20 43 48 45 43 4B 53  |.8"BYTES. CHECKS|
00000330: 55 4D 20 3D 22 43 4B 00  66 1F 22 01 99 4C 4E AA  |UM ="CK.f."..LN.|
00000340: 34 AC 49 4E 22 52 45 4D  20 24 22 3B 42 41 24 3B  |4.IN"REM $";BA$;|
00000350: 22 2D 24 22 3B 45 41 24  22 20 2F 22 3B 42 41 3B  |"-$";EA$" /";BA;|
00000360: 22 2D 22 3B 45 41 00 7B  1F 2C 01 97 38 34 32 2C  |"-";EA.{.,..842,|
00000370: 31 39 3A 97 32 30 38 2C  31 3A 80 00 81 1F 36 01  |19:.208,1:....6.|
00000380: 3A 00 94 1F 40 01 8F 20  49 4E 53 54 52 55 43 54  |:...@.. INSTRUCT|
00000390: 49 4F 4E 53 00 D3 1F 4A  01 43 44 24 B2 C7 28 31  |IONS...J.CD$..(1|
000003A0: 37 29 3A 99 C7 28 31 34  37 29 3B 43 44 24 3B 22  |7):..(147);CD$;"|
000003B0: 54 48 49 53 20 43 4F 4E  56 45 52 54 53 20 43 2D  |THIS CONVERTS C-|
000003C0: 31 32 38 20 4D 4F 4E 49  54 4F 52 20 4D 45 4D 4F  |128 MONITOR MEMO|
000003D0: 52 59 22 00 00 20 54 01  99 22 44 55 4D 50 53 20  |RY".. T.."DUMPS |
000003E0: 54 4F 20 42 41 53 49 43  20 44 41 54 41 20 4C 49  |TO BASIC DATA LI|
000003F0: 4E 45 53 2E 20 54 4F 20  55 53 45 20 49 54 3A 22  |NES. TO USE IT:"|
00000400: 00 32 20 5E 01 99 43 44  24 3B 22 31 2E 20 55 53  |.2 ^..CD$;"1. US|
00000410: 45 20 54 48 45 20 4D 4F  4E 49 54 4F 52 20 54 4F  |E THE MONITOR TO|
00000420: 20 44 55 4D 50 20 54 48  45 20 41 52 45 41 20 4F  | DUMP THE AREA O|
00000430: 46 22 00 61 20 68 01 99  22 20 20 20 49 4E 54 45  |F".a h.."   INTE|
00000440: 52 45 53 54 20 4F 4E 54  4F 20 54 48 45 20 53 43  |REST ONTO THE SC|
00000450: 52 45 45 4E 2C 20 54 48  45 4E 20 45 58 49 54 2E  |REEN, THEN EXIT.|
00000460: 22 00 91 20 72 01 99 43  44 24 3B 22 32 2E 20 43  |".. r..CD$;"2. C|
00000470: 55 52 53 4F 52 20 44 4F  57 4E 20 55 4E 54 49 4C  |URSOR DOWN UNTIL|
00000480: 20 54 48 45 20 54 4F 50  20 4C 49 4E 45 20 4F 46  | THE TOP LINE OF|
00000490: 22 00 BE 20 7C 01 99 22  20 20 20 54 48 45 20 4D  |".. |.."   THE M|
000004A0: 45 4D 4F 52 59 20 44 55  4D 50 20 49 53 20 4F 4E  |EMORY DUMP IS ON|
000004B0: 20 54 48 45 20 54 4F 50  20 4C 49 4E 45 22 00 D7  | THE TOP LINE"..|
000004C0: 20 86 01 99 22 20 20 20  4F 46 20 54 48 45 20 53  | ..."   OF THE S|
000004D0: 43 52 45 45 4E 2E 22 00  08 21 90 01 99 43 44 24  |CREEN."..!...CD$|
000004E0: 3B 22 33 2E 20 50 55 54  20 54 48 45 20 43 55 52  |;"3. PUT THE CUR|
000004F0: 53 4F 52 20 4A 55 53 54  20 42 45 4C 4F 57 20 54  |SOR JUST BELOW T|
00000500: 48 45 20 4C 41 53 54 22  00 31 21 9A 01 99 22 20  |HE LAST".1!..." |
00000510: 20 20 44 55 4D 50 20 4C  49 4E 45 20 59 4F 55 20  |  DUMP LINE YOU |
00000520: 57 41 4E 54 20 54 4F 20  43 4F 4E 56 45 52 54 2E  |WANT TO CONVERT.|
00000530: 22 00 5D 21 A4 01 99 43  44 24 3B 22 34 2E 20 54  |".]!...CD$;"4. T|
00000540: 59 50 45 20 27 52 55 4E  3A 27 20 41 4E 44 20 50  |YPE 'RUN:' AND P|
00000550: 52 45 53 53 20 52 45 54  55 52 4E 2E 22 00 90 21  |RESS RETURN."..!|
00000560: AE 01 99 43 44 24 3B 22  35 2E 20 52 45 53 50 4F  |...CD$;"5. RESPO|
00000570: 4E 44 20 54 4F 20 54 48  45 20 50 52 4F 4D 50 54  |ND TO THE PROMPT|
00000580: 53 2E 20 44 45 46 41 55  4C 54 53 20 41 52 45 22  |S. DEFAULTS ARE"|
00000590: 00 BD 21 B8 01 99 22 20  20 20 42 45 47 49 4E 4E  |..!..."   BEGINN|
000005A0: 49 4E 47 20 41 44 44 52  45 53 53 2C 20 49 4E 43  |ING ADDRESS, INC|
000005B0: 52 45 4D 45 4E 54 20 4F  46 20 38 2E 22 00 E5 21  |REMENT OF 8."..!|
000005C0: C2 01 99 43 44 24 3B 22  36 2E 20 41 44 44 20 54  |...CD$;"6. ADD T|
000005D0: 48 45 20 4E 45 57 20 44  41 54 41 20 4C 49 4E 45  |HE NEW DATA LINE|
000005E0: 53 20 42 59 22 00 0D 22  CC 01 99 22 20 20 20 53  |S BY".."..."   S|
000005F0: 55 43 43 45 53 53 49 56  45 4C 59 20 50 52 45 53  |UCCESSIVELY PRES|
00000600: 53 49 4E 47 20 52 45 54  55 52 4E 2E 22 00 00 00  |SING RETURN."...|

.......B(1024)..62.330.I...NL.B(235).1:.
NL.16..G(18);"TOO MANY LINES!!":..W...E$
.G(27):CL$.E$."@":BL$.E$."J":ER$.E$."Q".
.. .A$.",".G(29).G(29):.J.1.7:CO$.CO$.A$
:.:CU$.G(145).R...DA$."      ".E$."ADATA
".E$.G(67)......J.1.4:K.B(1025.J):K.K.64
.(K.7):BA$.BA$.G(K):..A...HI$.G(B(1025))
:HI.65536.E(HI$):BA.HI.Q(BA$):BA$.HI$.BA
$.L.H.EA.BA.8.NL.1:EA$.HI$.R(EA.HI):.CU$
;CL$...R.FL.BA:.CU$;"FIRST LINE#";:.FL.A
...IN.8:."  INCREMENT";IN:.G(18);"WORKIN
G";G(19);......J.1.NL:LN.FL.IN.(J.1):..3
0);ER$;BL$;DA$;BL$;LN;.13);CO$:..:....J.
1.NL:.K.0.7:BY$."":.L.0.1:M.B(1035.40.(J
.1).3.K.L).K...M.M.64.(M.7):BY$.BY$.G(M)
:.:CK.CK.Q(BY$):.:..H....CL$;LN.IN;"FORJ
=1TO";8.NL;":READK$:L=DEC(K$):CS=CS+L:NE
XT:RESTORE:IFCS<>";CK;"THENSTOP"......LN
.2.IN;"FORJ=";BA;"TO";BA.8.NL.1;":READK$
:POKEJ,DEC(K$):NEXT".7....LN.3.IN"REM"NL
.8"BYTES. CHECKSUM ="CK.F."..LN.4.IN"REM
 $";BA$;"-$";EA$" /";BA;"-";EA.{.,..842,
19:.208,1:....6.:...@.. INSTRUCTIONS.S.J
.CD$.G(17):.G(147);CD$;"THIS CONVERTS C-
128 MONITOR MEMORY".. T.."DUMPS TO BASIC
 DATA LINES. TO USE IT:".2 ^..CD$;"1. US
E THE MONITOR TO DUMP THE AREA OF".A H..
"   INTEREST ONTO THE SCREEN, THEN EXIT.
".. R..CD$;"2. CURSOR DOWN UNTIL THE TOP
 LINE OF".. |.."   THE MEMORY DUMP IS ON
 THE TOP LINE".W ..."   OF THE SCREEN.".
.!...CD$;"3. PUT THE CURSOR JUST BELOW T
HE LAST".1!..."   DUMP LINE YOU WANT TO 
CONVERT.".]!...CD$;"4. TYPE 'RUN:' AND P
RESS RETURN."..!...CD$;"5. RESPOND TO TH
E PROMPTS. DEFAULTS ARE"..!..."   BEGINN
ING ADDRESS, INCREMENT OF 8."..!B..CD$;"
6. ADD THE NEW DATA LINES BY".."L.."   S
UCCESSIVELY PRESSING RETURN."...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL