00000000: C2 28 31 29 AF 32 35 31 3A 8F 20 20 20 20 20 20 |.(1).251:. |
00000010: 20 20 20 20 20 20 20 20 42 41 4E 4B 20 53 57 49 | BANK SWI|
00000020: 54 43 48 20 49 4E 20 43 48 41 52 41 43 54 45 52 |TCH IN CHARACTER|
00000030: 20 52 4F 4D 00 6F 09 28 00 81 49 B2 30 A4 32 35 | ROM.o.(..I.0.25|
00000040: 36 AC 38 3A 97 31 32 32 38 38 AA 49 2C C2 28 35 |6.8:.12288.I,.(5|
00000050: 33 32 34 38 AA 53 AA 49 29 3A 82 3A 8F 20 43 4F |3248.S.I):.:. CO|
00000060: 50 59 20 43 48 41 52 41 43 54 45 52 20 44 41 54 |PY CHARACTER DAT|
00000070: 41 00 B5 09 32 00 97 31 2C C2 28 31 29 B0 34 3A |A...2..1,.(1).4:|
00000080: 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000090: 20 20 42 41 4E 4B 20 53 57 49 54 43 48 20 49 4E | BANK SWITCH IN|
000000A0: 20 49 4E 50 55 54 2F 4F 55 54 50 55 54 20 28 49 | INPUT/OUTPUT (I|
000000B0: 2F 4F 29 20 52 4F 4D 00 F5 09 3C 00 97 35 36 33 |/O) ROM...<..563|
000000C0: 33 34 2C C2 28 35 36 33 33 34 29 B0 31 3A 8F 20 |34,.(56334).1:. |
000000D0: 20 20 20 20 20 20 20 20 52 45 53 54 41 52 54 20 | RESTART |
000000E0: 4B 45 59 53 43 41 4E 20 49 4E 54 45 52 52 55 50 |KEYSCAN INTERRUP|
000000F0: 54 20 54 49 4D 45 52 00 2D 0A 64 00 8F 20 20 20 |T TIMER.-.d.. |
00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 49 | DI|
00000120: 53 4B 20 53 41 56 45 20 52 4F 55 54 49 4E 45 00 |SK SAVE ROUTINE.|
00000130: 3F 0A 6E 00 9F 31 35 2C 38 2C 31 35 2C 22 49 30 |?.n..15,8,15,"I0|
00000140: 22 00 59 0A 78 00 9F 33 2C 38 2C 31 2C 22 30 3A |".Y.x..3,8,1,"0:|
00000150: 22 AA 46 24 AA 22 2C 50 2C 57 22 00 6E 0A 82 00 |".F$.",P,W".n...|
00000160: 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 |.15,EN,EM$,ET,ES|
00000170: 00 7C 0A 8C 00 8B 45 4E B2 30 A7 32 32 30 00 9F |.|....EN.0.220..|
00000180: 0A 96 00 8B 45 4E B3 B1 36 33 A7 99 45 4E 3B 45 |....EN..63..EN;E|
00000190: 4D 24 3B 45 54 3B 45 53 3A A0 33 3A A0 31 35 3A |M$;ET;ES:.3:.15:|
000001A0: 80 00 C6 0A A0 00 99 22 46 49 4C 45 20 45 58 49 |......."FILE EXI|
000001B0: 53 54 53 2E 20 52 45 50 4C 41 43 45 20 49 54 20 |STS. REPLACE IT |
000001C0: 28 59 2F 4E 29 3F 22 3B 00 D9 0A AA 00 A1 41 24 |(Y/N)?";......A$|
000001D0: 3A 8B 41 24 B2 22 22 A7 31 37 30 00 F3 0A B4 00 |:.A$."".170.....|
000001E0: 99 41 24 3A 8B 41 24 B3 B1 22 59 22 A7 A0 33 3A |.A$:.A$.."Y"..3:|
000001F0: A0 31 35 3A 80 00 0B 0B BE 00 98 31 35 2C 22 53 |.15:.......15,"S|
00000200: 30 3A 22 AA 46 24 AA 22 2C 50 2C 57 22 00 1B 0B |0:".F$.",P,W"...|
00000210: C8 00 A0 33 3A A0 31 35 3A 89 31 30 30 00 63 0B |...3:.15:.100.c.|
00000220: D2 00 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 |... |
00000230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000240: 20 20 20 20 54 48 45 20 52 45 41 4C 20 47 55 54 | THE REAL GUT|
00000250: 53 20 4F 46 20 54 48 45 20 53 41 56 45 20 52 4F |S OF THE SAVE RO|
00000260: 55 54 49 4E 45 00 A8 0B DC 00 97 31 35 37 2C 31 |UTINE......157,1|
00000270: 32 38 3A 97 32 35 31 2C 30 3A 97 32 35 32 2C 34 |28:.251,0:.252,4|
00000280: 38 3A 8F 20 32 35 31 3D 53 54 52 54 20 41 44 44 |8:. 251=STRT ADD|
00000290: 52 45 53 53 20 4C 4F 57 2D 32 35 32 3D 53 54 52 |RESS LOW-252=STR|
000002A0: 54 20 41 44 44 20 48 49 47 48 00 E6 0B E6 00 97 |T ADD HIGH......|
000002B0: 37 38 30 2C 32 35 31 3A 97 37 38 31 2C 30 3A 97 |780,251:.781,0:.|
000002C0: 37 38 32 2C 35 36 3A 8F 20 54 45 4C 4C 53 20 36 |782,56:. TELLS 6|
000002D0: 34 20 57 48 45 52 45 20 54 4F 20 46 49 4E 44 20 |4 WHERE TO FIND |
000002E0: 53 54 41 52 54 49 4E 47 00 30 0C F0 00 8F 20 41 |STARTING.0.... A|
000002F0: 44 44 52 45 53 53 20 28 50 4F 4B 45 37 38 30 2C |DDRESS (POKE780,|
00000300: 32 35 31 29 20 41 4E 44 20 54 48 45 20 4C 4F 57 |251) AND THE LOW|
00000310: 20 41 4E 44 20 48 49 47 48 20 42 59 54 45 53 20 | AND HIGH BYTES |
00000320: 4F 46 20 54 48 45 20 45 4E 44 20 41 44 44 52 45 |OF THE END ADDRE|
00000330: 53 53 00 60 0C FA 00 9E 36 35 34 39 36 3A A0 33 |SS.`....65496:.3|
00000340: 3A A0 31 35 3A 80 3A 8F 20 20 20 20 20 4B 45 52 |:.15:.:. KER|
00000350: 4E 41 4C 20 27 4C 4F 41 44 27 20 52 4F 55 54 49 |NAL 'LOAD' ROUTI|
00000360: 4E 45 00 6C 0C 2C 01 8F 20 53 45 54 55 50 00 A9 |NE.l.,.. SETUP..|
00000370: 0C 31 01 97 35 32 2C 34 38 3A 97 35 36 2C 34 38 |.1..52,48:.56,48|
00000380: 3A 9C 3A 8F 20 20 20 20 20 20 20 20 20 20 52 45 |:.:. RE|
00000390: 53 45 52 56 45 20 4D 45 4D 4F 52 59 20 46 4F 52 |SERVE MEMORY FOR|
000003A0: 20 43 48 41 52 41 43 54 45 52 53 00 D6 0C 36 01 | CHARACTERS...6.|
000003B0: 99 22 93 90 43 4F 50 59 20 26 20 53 41 56 45 20 |."..COPY & SAVE |
000003C0: 55 50 50 45 52 20 43 41 53 45 20 2D 20 4C 4F 57 |UPPER CASE - LOW|
000003D0: 45 52 20 43 41 53 45 22 00 0F 0D 3B 01 99 22 4F |ER CASE"...;.."O|
000003E0: 52 20 43 4F 4D 50 55 54 45 52 20 43 48 41 52 41 |R COMPUTER CHARA|
000003F0: 43 54 45 52 20 53 45 54 20 28 4D 55 53 54 20 42 |CTER SET (MUST B|
00000400: 45 20 49 4E 20 20 20 20 20 4D 45 4D 4F 52 59 29 |E IN MEMORY)|
00000410: 22 00 2F 0D 40 01 99 22 11 11 11 20 20 20 20 20 |"./.@.."... |
00000420: 20 20 20 20 20 20 28 55 2F 4C 2F 43 29 3F 20 22 | (U/L/C)? "|
00000430: 3B 00 42 0D 4A 01 A1 41 24 3A 8B 41 24 B2 22 22 |;.B.J..A$:.A$.""|
00000440: A7 33 33 30 00 4A 0D 4F 01 99 41 24 00 76 0D 54 |.330.J.O..A$.v.T|
00000450: 01 8B 41 24 B2 22 55 22 A7 46 24 B2 22 55 50 50 |..A$."U".F$."UPP|
00000460: 45 52 43 41 53 45 2E 43 48 52 53 45 54 22 3A 43 |ERCASE.CHRSET":C|
00000470: 48 B2 31 34 32 3A 89 35 00 A8 0D 5E 01 8B 41 24 |H.142:.5...^..A$|
00000480: B2 22 4C 22 A7 46 24 B2 22 4C 4F 57 45 52 43 41 |."L".F$."LOWERCA|
00000490: 53 45 2E 43 48 52 53 45 54 22 3A 53 B2 32 30 34 |SE.CHRSET":S.204|
000004A0: 38 3A 43 48 B2 31 34 3A 89 35 00 CE 0D 68 01 8B |8:CH.14:.5...h..|
000004B0: 41 24 B2 22 43 22 A7 46 24 B2 22 43 4F 4D 50 55 |A$."C".F$."COMPU|
000004C0: 54 45 52 2E 43 48 52 53 45 54 22 3A 89 31 30 30 |TER.CHRSET":.100|
000004D0: 00 DD 0D 72 01 99 22 91 22 3B 3A 89 33 33 30 00 |...r..".";:.330.|
000004E0: 00 00 |.. |
B(1).251:. BANK SWITCH IN C
HARACTER ROM.O.(..I.0.256.8:.12288.I,B(5
3248.S.I):.:. COPY CHARACTER DATA...2..1
,B(1).4:. BANK SWITCH IN
INPUT/OUTPUT (I/O) ROM...<..56334,B(563
34).1:. RESTART KEYSCAN INTERRUP
T TIMER.-.D..
DISK SAVE ROUTINE.?.N..15,8,15,"I0
".Y.X..3,8,1,"0:".F$.",P,W".N....15,EN,E
M$,ET,ES.|....EN.0.220......EN..63..EN;E
M$;ET;ES: 3: 15:..F. .."FILE EXISTS. REP
LACE IT (Y/N)?";.Y....A$:.A$."".170.....
.A$:.A$.."Y". 3: 15:.......15,"S0:".F$."
,P,W"...H. 3: 15:.100.C.R..
THE REAL GUTS OF THE
SAVE ROUTINE......157,128:.251,0:.252,4
8:. 251=STRT ADDRESS LOW-252=STRT ADD HI
GH......780,251:.781,0:.782,56:. TELLS 6
4 WHERE TO FIND STARTING.0.... ADDRESS (
POKE780,251) AND THE LOW AND HIGH BYTES
OF THE END ADDRESS.`....65496: 3: 15:.:.
KERNAL 'LOAD' ROUTINE.L.,.. SETUP..
.1..52,48:.56,48:.:. RESERVE ME
MORY FOR CHARACTERS.V.6.."..COPY & SAVE
UPPER CASE - LOWER CASE"...;.."OR COMPUT
ER CHARACTER SET (MUST BE IN MEMORY)
"./.@.."... (U/L/C)? ";.B.J..A
$:.A$."".330.J.O..A$.V.T..A$."U".F$."UPP
ERCASE.CHRSET":CH.142:.5...^..A$."L".F$.
"LOWERCASE.CHRSET":S.2048:CH.14:.5.N.H..
A$."C".F$."COMPUTER.CHRSET":.100...R..".
";:.330...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL