RS128
FILE INFORMATION
FILENAME(S): RS128
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-11-30 18:12:44
APPEARS ON: 1 disk(s)
FILE HASH
59422dc92bf9c68696cd2545bc5825fb114851620dc96681a0d03e5221ccfee9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RERUN PROD PAK | RS128 | PRG | Sailor, Ganheden | 13 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 28 1C 0A 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 2A 2A 00 4F 1C 14 00 8F 20 20 |********.O.... |
00000030: 20 20 20 20 20 20 20 42 4F 4F 54 20 50 52 4F 47 | BOOT PROG|
00000040: 52 41 4D 20 20 20 20 20 20 20 20 20 20 20 2A 00 |RAM *.|
00000050: 76 1C 1E 00 8F 20 20 20 20 20 20 20 20 20 20 20 |v.... |
00000060: 20 20 46 4F 52 20 20 20 20 20 20 20 20 20 20 20 | FOR |
00000070: 20 20 20 20 20 2A 00 9D 1C 28 00 8F 20 20 43 4F | *...(.. CO|
00000080: 4D 4D 4F 44 4F 52 45 20 31 32 38 20 52 55 4E 53 |MMODORE 128 RUNS|
00000090: 43 52 49 50 54 20 32 2E 34 30 20 20 2A 00 C4 1C |CRIPT 2.40 *...|
000000A0: 32 00 8F 20 20 20 20 20 20 20 20 20 4A 55 4E 45 |2.. JUNE|
000000B0: 20 31 36 2C 20 31 39 38 36 20 20 20 20 20 20 20 | 16, 1986 |
000000C0: 20 20 20 2A 00 EB 1C 3C 00 8F 20 20 20 20 20 20 | *...<.. |
000000D0: 42 59 20 52 4F 42 45 52 54 20 52 4F 43 4B 45 46 |BY ROBERT ROCKEF|
000000E0: 45 4C 4C 45 52 20 20 20 20 20 2A 00 12 1D 46 00 |ELLER *...F.|
000000F0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000110: 2A 2A 00 18 1D 50 00 3A 00 4A 1D 5A 00 44 45 56 |**...P.:.J.Z.DEV|
00000120: B2 38 20 3A 20 8F 20 53 45 54 20 44 45 56 20 45 |.8 : . SET DEV E|
00000130: 51 55 41 4C 20 54 4F 20 4C 4F 41 44 20 44 45 56 |QUAL TO LOAD DEV|
00000140: 49 43 45 20 4E 55 4D 42 45 52 00 7F 1D 64 00 48 |ICE NUMBER...d.H|
00000150: 4C 50 24 B2 22 22 3A 20 8F 20 4D 41 4B 45 20 48 |LP$."": . MAKE H|
00000160: 4C 50 24 20 45 51 55 41 4C 20 46 49 4C 45 4E 41 |LP$ EQUAL FILENA|
00000170: 4D 45 20 4F 46 20 48 45 4C 50 20 46 49 4C 45 00 |ME OF HELP FILE.|
00000180: C1 1D 6E 00 53 45 54 24 B2 22 43 31 32 38 20 43 |..n.SET$."C128 C|
00000190: 48 41 52 20 53 45 54 22 3A 20 8F 20 4D 41 4B 45 |HAR SET": . MAKE|
000001A0: 20 53 45 54 24 20 45 51 55 41 4C 20 4E 41 4D 45 | SET$ EQUAL NAME|
000001B0: 20 4F 46 20 43 48 41 52 41 43 54 45 52 20 53 45 | OF CHARACTER SE|
000001C0: 54 00 C7 1D 78 00 3A 00 F5 1D 82 00 86 20 50 53 |T...x.:...... PS|
000001D0: 24 28 39 29 3A 20 8F 20 48 4F 4C 44 53 20 46 49 |$(9): . HOLDS FI|
000001E0: 4C 45 4E 41 4D 45 53 20 4F 46 20 50 52 49 4E 54 |LENAMES OF PRINT|
000001F0: 20 53 45 54 53 00 FB 1D 8C 00 3A 00 20 1E 96 00 | SETS.....:. ...|
00000200: 50 53 24 28 31 29 B2 22 22 3A 20 8F 20 4E 41 4D |PS$(1)."": . NAM|
00000210: 45 20 4F 46 20 50 52 49 4E 54 20 53 45 54 20 31 |E OF PRINT SET 1|
00000220: 00 45 1E A0 00 50 53 24 28 32 29 B2 22 22 3A 20 |.E...PS$(2)."": |
00000230: 8F 20 4E 41 4D 45 20 4F 46 20 50 52 49 4E 54 20 |. NAME OF PRINT |
00000240: 53 45 54 20 32 00 6A 1E AA 00 50 53 24 28 33 29 |SET 2.j...PS$(3)|
00000250: B2 22 22 3A 20 8F 20 4E 41 4D 45 20 4F 46 20 50 |."": . NAME OF P|
00000260: 52 49 4E 54 20 53 45 54 20 33 00 8F 1E B4 00 50 |RINT SET 3.....P|
00000270: 53 24 28 34 29 B2 22 22 3A 20 8F 20 4E 41 4D 45 |S$(4)."": . NAME|
00000280: 20 4F 46 20 50 52 49 4E 54 20 53 45 54 20 34 00 | OF PRINT SET 4.|
00000290: B4 1E BE 00 50 53 24 28 35 29 B2 22 22 3A 20 8F |....PS$(5)."": .|
000002A0: 20 4E 41 4D 45 20 4F 46 20 50 52 49 4E 54 20 53 | NAME OF PRINT S|
000002B0: 45 54 20 35 00 D9 1E C8 00 50 53 24 28 36 29 B2 |ET 5.....PS$(6).|
000002C0: 22 22 3A 20 8F 20 4E 41 4D 45 20 4F 46 20 50 52 |"": . NAME OF PR|
000002D0: 49 4E 54 20 53 45 54 20 36 00 FE 1E D2 00 50 53 |INT SET 6.....PS|
000002E0: 24 28 37 29 B2 22 22 3A 20 8F 20 4E 41 4D 45 20 |$(7)."": . NAME |
000002F0: 4F 46 20 50 52 49 4E 54 20 53 45 54 20 37 00 23 |OF PRINT SET 7.#|
00000300: 1F DC 00 50 53 24 28 38 29 B2 22 22 3A 20 8F 20 |...PS$(8)."": . |
00000310: 4E 41 4D 45 20 4F 46 20 50 52 49 4E 54 20 53 45 |NAME OF PRINT SE|
00000320: 54 20 38 00 48 1F E6 00 50 53 24 28 39 29 B2 22 |T 8.H...PS$(9)."|
00000330: 22 3A 20 8F 20 4E 41 4D 45 20 4F 46 20 50 52 49 |": . NAME OF PRI|
00000340: 4E 54 20 53 45 54 20 39 00 4E 1F F0 00 3A 00 80 |NT SET 9.N...:..|
00000350: 1F FA 00 FE 02 20 30 3A 20 97 20 32 35 36 34 2C |..... 0: . 2564,|
00000360: C2 28 32 35 36 34 29 AF 32 35 34 3A 20 8F 20 44 |.(2564).254: . D|
00000370: 49 53 41 42 4C 45 20 42 41 53 49 43 20 49 52 51 |ISABLE BASIC IRQ|
00000380: 00 A4 1F 04 01 97 20 32 35 39 32 2C 32 30 3A 20 |...... 2592,20: |
00000390: 8F 20 32 30 20 42 59 54 45 20 4B 45 59 20 42 55 |. 20 BYTE KEY BU|
000003A0: 46 46 45 52 00 AA 1F 0E 01 3A 00 0B 20 18 01 8B |FFER.....:.. ...|
000003B0: 20 CC 28 30 29 B2 30 20 A7 20 99 20 C7 28 31 34 | .(0).0 . . .(14|
000003C0: 37 29 3A 20 E0 20 31 2C 20 30 2C 31 32 2C 20 22 |7): . 1, 0,12, "|
000003D0: 45 4E 41 42 4C 45 20 38 30 20 43 4F 4C 55 4D 4E |ENABLE 80 COLUMN|
000003E0: 20 4D 4F 4E 49 54 4F 52 22 3A 20 99 3A 20 99 20 | MONITOR": .: . |
000003F0: 22 54 48 45 4E 20 50 52 45 53 53 20 41 4E 59 20 |"THEN PRESS ANY |
00000400: 4B 45 59 22 3A 20 A1 F9 20 41 24 00 27 20 22 01 |KEY": .. A$.' ".|
00000410: DE 20 35 3A 20 FE 1A 20 30 2C 30 2C 37 39 2C 32 |. 5: .. 0,0,79,2|
00000420: 34 2C 31 3A 20 FE 25 00 2D 20 2C 01 3A 00 41 20 |4,1: .%.- ,.:.A |
00000430: 36 01 8B 20 48 4C 50 24 B3 B1 22 22 20 A7 20 FE |6.. HLP$.."" . .|
00000440: 18 00 55 20 40 01 81 20 4A B2 31 20 A4 20 C3 28 |..U @.. J.1 . .(|
00000450: 48 4C 50 24 29 00 76 20 4A 01 97 20 D1 28 22 30 |HLP$).v J.. .("0|
00000460: 32 34 35 22 29 AA 4A 2C C6 28 CA 28 48 4C 50 24 |245").J,.(.(HLP$|
00000470: 2C 4A 2C 31 29 29 00 7E 20 54 01 82 20 4A 00 85 |,J,1)).~ T.. J..|
00000480: 20 5E 01 FE 19 00 9D 20 68 01 97 20 D1 28 22 30 | ^..... h.. .("0|
00000490: 32 34 35 22 29 2C C3 28 48 4C 50 24 29 00 A3 20 |245"),.(HLP$).. |
000004A0: 72 01 3A 00 D4 20 7C 01 41 44 52 B2 D1 28 22 43 |r.:.. |.ADR..("C|
000004B0: 38 30 30 22 29 3A 20 8F 20 4C 4F 41 44 20 41 44 |800"): . LOAD AD|
000004C0: 44 52 45 53 53 20 4F 46 20 50 52 49 4E 54 20 53 |DRESS OF PRINT S|
000004D0: 45 54 20 31 00 F2 20 86 01 8F 20 4C 4F 41 44 20 |ET 1.. ... LOAD |
000004E0: 50 52 49 4E 54 20 53 45 54 53 2C 20 49 46 20 41 |PRINT SETS, IF A|
000004F0: 4E 59 00 00 21 90 01 81 20 4A B2 31 20 A4 20 39 |NY..!... J.1 . 9|
00000500: 00 33 21 9A 01 8B 20 50 53 24 28 4A 29 B3 B1 22 |.3!... PS$(J).."|
00000510: 22 20 A7 20 FE 11 20 28 50 53 24 28 4A 29 29 2C |" . .. (PS$(J)),|
00000520: 20 55 28 44 45 56 29 2C 20 50 28 41 44 52 29 2C | U(DEV), P(ADR),|
00000530: 20 42 30 00 49 21 A4 01 41 44 52 B2 41 44 52 AA | B0.I!..ADR.ADR.|
00000540: D1 28 22 30 34 30 30 22 29 00 51 21 AE 01 82 20 |.("0400").Q!... |
00000550: 4A 00 57 21 B8 01 3A 00 95 21 C2 01 FE 11 20 28 |J.W!..:..!.... (|
00000560: 53 45 54 24 29 2C 20 55 28 44 45 56 29 2C 20 50 |SET$), U(DEV), P|
00000570: 28 D1 28 22 43 30 30 30 22 29 29 2C 20 42 30 3A |(.("C000")), B0:|
00000580: 20 8F 20 4C 4F 41 44 20 43 48 41 52 41 43 54 45 | . LOAD CHARACTE|
00000590: 52 20 53 45 54 00 9B 21 CC 01 3A 00 D7 21 D6 01 |R SET..!..:..!..|
000005A0: FE 11 20 22 4F 42 2E 52 53 20 4E 4D 49 22 2C 20 |.. "OB.RS NMI", |
000005B0: 55 28 44 45 56 29 2C 20 50 28 D1 28 22 31 33 30 |U(DEV), P(.("130|
000005C0: 30 22 29 29 2C 20 42 30 3A 20 8F 20 4E 4D 49 20 |0")), B0: . NMI |
000005D0: 52 4F 55 54 49 4E 45 00 DD 21 E0 01 3A 00 27 22 |ROUTINE..!..:.'"|
000005E0: EA 01 FE 11 20 22 4F 42 2E 52 53 31 32 38 20 32 |.... "OB.RS128 2|
000005F0: 2E 34 30 22 2C 20 55 28 44 45 56 29 2C 20 50 28 |.40", U(DEV), P(|
00000600: D1 28 22 30 34 30 30 22 29 29 2C 20 42 31 3A 20 |.("0400")), B1: |
00000610: 8F 20 4C 4F 41 44 20 4D 41 43 48 49 4E 45 20 4C |. LOAD MACHINE L|
00000620: 41 4E 47 55 41 47 45 00 37 22 F4 01 FE 02 20 31 |ANGUAGE.7".... 1|
00000630: 3A 9E 20 31 30 32 34 00 00 00 |:. 1024... |
..(.... ********************************
.O.... BOOT PROGRAM *.
V.... FOR *..
.(.. COMMODORE 128 RUNSCRIPT 2.40 *.D.
2.. JUNE 16, 1986 *...<
.. BY ROBERT ROCKEFELLER *...F.
. ********************************...P.:
.J.Z.DEV.8 : . SET DEV EQUAL TO LOAD DEV
ICE NUMBER..D.HLP$."": . MAKE HLP$ EQUA
L FILENAME OF HELP FILE.A.N.SET$."C128 C
HAR SET": . MAKE SET$ EQUAL NAME OF CHAR
ACTER SET.G.X.:...... PS$(9): . HOLDS FI
LENAMES OF PRINT SETS.....:. ...PS$(1)."
": . NAME OF PRINT SET 1.E. .PS$(2)."":
. NAME OF PRINT SET 2.J...PS$(3)."": . N
AME OF PRINT SET 3.....PS$(4)."": . NAME
OF PRINT SET 4.....PS$(5)."": . NAME OF
PRINT SET 5.Y.H.PS$(6)."": . NAME OF PR
INT SET 6...R.PS$(7)."": . NAME OF PRINT
SET 7.#...PS$(8)."": . NAME OF PRINT SE
T 8.H...PS$(9)."": . NAME OF PRINT SET 9
.N...:....... 0: . 2564,B(2564).254: . D
ISABLE BASIC IRQ...... 2592,20: . 20 BYT
E KEY BUFFER.....:.. ... L(0).0 . . G(14
7): . 1, 0,12, "ENABLE 80 COLUMN MONITOR
": .: . "THEN PRESS ANY KEY": .. A$.' ".
. 5: .. 0,0,79,24,1: .%.- ,.:.A 6.. HLP$
.."" . ...U @.. J.1 . C(HLP$).V J.. Q("0
245").J,F(J(HLP$,J,1)).~ T.. J.. ^.....
H.. Q("0245"),C(HLP$).. R.:.T |.ADR.Q("C
800"): . LOAD ADDRESS OF PRINT SET 1.. .
.. LOAD PRINT SETS, IF ANY..!... J.1 . 9
.3!... PS$(J).."" . .. (PS$(J)), U(DEV),
P(ADR), B0.I!..ADR.ADR.Q("0400").Q!...
J.W!..:..!B... (SET$), U(DEV), P(Q("C000
")), B0: . LOAD CHARACTER SET..!L.:.W!V.
.. "OB.RS NMI", U(DEV), P(Q("1300")), B0
: . NMI ROUTINE..!..:.'".... "OB.RS128 2
.40", U(DEV), P(Q("0400")), B1: . LOAD M
ACHINE LANGUAGE.7".... 1:. 1024...
> CLICK IMAGE PREVIEW FOR FULL MODAL