UNNEW.128
FILE INFORMATION
FILENAME(S): UNNEW.128
FILE TYPE(S): PRG
FILE SIZE: 1.8K
FIRST SEEN: 2025-10-19 22:48:42
APPEARS ON: 1 disk(s)
FILE HASH
4c5697c45229d410a2cc1dd9a752aa6d5d6f23c331f517f56cae2dec3fcd8d7c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COMPUTE NOV JAN | UNNEW.128 | PRG | Radd Maxx | 14 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 1F 1C 0A 00 E7 30 2C 31 3A E7 31 2C 32 3A |.......0,1:.1,2:| 00000010: E7 34 2C 31 3A E7 36 2C 31 33 3A E7 35 2C 34 00 |.4,1:.6,13:.5,4.| 00000020: 3E 1C 14 00 8B CC 28 30 29 B2 35 A7 20 FE 25 3A |>.....(0).5. .%:| 00000030: 58 B2 32 33 3A D5 20 FE 26 20 3A 58 B2 30 00 51 |X.23:. .& :X.0.Q| 00000040: 1C 1E 00 45 B2 30 3A E8 3A 8D 31 35 30 3A 43 B2 |...E.0:.:.150:C.| 00000050: 30 00 7D 1C 28 00 FE 15 44 30 2C 55 38 3A FE 0D |0.}.(...D0,U8:..| 00000060: 23 31 2C 22 55 4E 4E 45 57 20 31 32 38 20 2E 4F |#1,"UNNEW 128 .O| 00000070: 42 4A 2C 50 22 2C 44 30 2C 55 38 2C 57 00 99 1C |BJ,P",D0,U8,W...| 00000080: 32 00 81 49 B2 31 A4 33 30 3A 43 B2 43 AA 31 3A |2..I.1.30:C.C.1:| 00000090: 8B 43 B2 31 35 A7 43 B2 31 00 AA 1C 3C 00 3A 87 |.C.15.C.1...<.:.| 000000A0: 41 24 3A 41 B2 D1 28 41 24 29 00 DE 1C 46 00 3A |A$:A..(A$)...F.:| 000000B0: 3A 8B 44 53 B3 B1 30 A7 20 45 B2 31 3A 8D 31 35 |:.DS..0. E.1:.15| 000000C0: 30 3A 99 22 44 49 53 4B 20 44 52 49 56 45 52 20 |0:."DISK DRIVER | 000000D0: 45 52 52 4F 52 20 20 20 22 44 53 24 3A 80 00 EC |ERROR "DS$:...| 000000E0: 1C 50 00 3A 3A 43 4B B2 43 4B AA 41 00 FB 1C 5A |.P.::CK.CK.A...Z| 000000F0: 00 3A E7 36 2C 43 3A E7 30 2C 43 00 08 1D 64 00 |.:.6,C:.0,C...d.| 00000100: 98 31 2C C7 28 41 29 3B 00 25 1D 6E 00 82 3A E7 |.1,.(A);.%.n..:.| 00000110: 36 2C 37 3A E7 30 2C 37 3A FE 0F 3A FE 15 44 30 |6,7:.0,7:..:..D0| 00000120: 2C 55 38 3A E8 00 81 1D 78 00 8B 43 4B B3 B1 32 |,U8:....x..CK..2| 00000130: 38 34 34 A7 20 E7 36 2C 33 3A E7 30 2C 33 3A E0 |844. .6,3:.0,3:.| 00000140: 31 2C 58 2C 31 30 2C 28 C7 28 31 35 29 AA 22 43 |1,X,10,(.(15)."C| 00000150: 48 45 43 4B 53 55 4D 20 45 52 52 4F 52 2C 20 43 |HECKSUM ERROR, C| 00000160: 48 45 43 4B 20 44 41 54 41 20 53 54 41 54 45 4D |HECK DATA STATEM| 00000170: 45 4E 54 53 22 29 3A 45 B2 31 3A 8D 31 35 30 3A |ENTS"):E.1:.150:| 00000180: 80 00 EB 1D 82 00 58 24 B2 22 22 3A E8 3A E0 31 |......X$."":.:.1| 00000190: 2C 31 2C 31 32 2C 22 43 4F 4D 50 4C 45 54 45 44 |,1,12,"COMPLETED| 000001A0: 20 57 4F 55 4C 44 20 59 4F 55 20 4C 49 4B 45 20 | WOULD YOU LIKE | 000001B0: 54 4F 20 53 41 56 45 20 54 48 49 53 20 20 54 4F |TO SAVE THIS TO| 000001C0: 20 41 4E 4F 54 48 45 52 20 44 49 53 4B 3F 20 28 | ANOTHER DISK? (| 000001D0: 59 2F 4E 29 22 3A A1 F9 58 24 3A 8B 58 24 B3 B1 |Y/N)":..X$:.X$..| 000001E0: 22 59 22 A7 20 80 3A 20 D5 20 8A 00 F9 1D 8C 00 |"Y". .: . ......| 000001F0: 8B 20 45 B2 30 20 A7 20 E8 00 54 1E 96 00 FE 0F |. E.0 . ..T.....| 00000200: 3A 20 FE 15 44 30 2C 55 38 3A E0 31 2C 58 2C 31 |: ..D0,U8:.1,X,1| 00000210: 32 2C 22 53 43 52 41 54 43 48 49 4E 47 20 55 4E |2,"SCRATCHING UN| 00000220: 4E 45 57 20 31 32 38 20 2E 4F 42 4A 20 20 20 20 |NEW 128 .OBJ | 00000230: 20 20 20 20 22 3A F2 22 55 4E 4E 45 57 20 31 32 | ":."UNNEW 12| 00000240: 38 20 2E 4F 42 4A 22 2C 44 30 2C 55 38 3A 8B 45 |8 .OBJ",D0,U8:.E| 00000250: B2 31 A7 8E 00 CD 1E A0 00 8B C5 28 C9 28 44 53 |.1.........(.(DS| 00000260: 24 2C 35 29 29 20 B1 20 30 A7 E0 31 2C 58 2C 31 |$,5)) . 0..1,X,1| 00000270: 32 2C 22 55 4E 4E 45 57 20 31 32 38 20 2E 4F 42 |2,"UNNEW 128 .OB| 00000280: 4A 20 57 41 53 20 53 43 52 41 54 43 48 45 44 22 |J WAS SCRATCHED"| 00000290: 3A FE 0B 32 3A D5 20 E0 31 2C 58 2C 31 32 2C 22 |:..2:. .1,X,12,"| 000002A0: 55 4E 4E 45 57 20 31 32 38 20 2E 4F 42 4A 20 57 |UNNEW 128 .OBJ W| 000002B0: 41 53 20 4E 4F 54 20 46 4F 55 4E 44 20 20 20 20 |AS NOT FOUND | 000002C0: 20 20 20 20 20 20 20 22 20 3A FE 0B 32 00 08 1F | " :..2...| 000002D0: AA 00 E0 31 2C 58 2C 31 32 2C 22 43 52 45 41 54 |...1,X,12,"CREAT| 000002E0: 49 4E 47 20 55 4E 4E 45 57 20 31 32 38 20 2E 4F |ING UNNEW 128 .O| 000002F0: 42 4A 20 4F 4E 20 54 48 49 53 20 44 49 53 4B 45 |BJ ON THIS DISKE| 00000300: 54 54 45 20 20 22 3A 8E 00 0E 1F B4 00 8F 00 3D |TTE ":........=| 00000310: 1F BE 00 8F 20 20 4F 50 43 4F 44 45 20 20 20 20 |.... OPCODE | 00000320: 20 20 20 20 20 20 20 53 4F 55 52 43 45 20 43 4F | SOURCE CO| 00000330: 44 45 20 20 20 43 4F 4D 4D 45 4E 54 53 00 6C 1F |DE COMMENTS.l.| 00000340: C8 00 8F 20 20 2D 2D 2D 2D 2D 2D 20 20 20 20 20 |... ------ | 00000350: 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 20 2D 2D 2D | ------ ---| 00000360: 2D 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 00 72 1F D2 |- --------.r..| 00000370: 00 8F 00 AE 1F DC 00 83 20 30 30 2C 30 42 20 20 |........ 00,0B | 00000380: 20 20 20 20 3A 8F 20 20 4F 52 47 20 24 30 42 30 | :. ORG $0B0| 00000390: 30 20 20 20 20 20 50 52 4F 47 52 41 4D 20 53 54 |0 PROGRAM ST| 000003A0: 41 52 54 49 4E 47 20 41 44 44 52 45 53 53 00 13 |ARTING ADDRESS..| 000003B0: 20 E6 00 83 20 38 44 2C 30 33 2C 46 46 20 20 20 | ... 8D,03,FF | 000003C0: 3A 8F 20 20 53 54 41 20 24 46 46 30 33 20 20 20 |:. STA $FF03 | 000003D0: 20 20 54 55 52 4E 20 4F 4E 20 4B 45 52 4E 41 4C | TURN ON KERNAL| 000003E0: 20 41 4E 44 20 42 41 53 49 43 20 52 4F 4D 53 2C | AND BASIC ROMS,| 000003F0: 52 41 4D 20 42 41 4E 4B 20 30 2C 20 41 4E 44 20 |RAM BANK 0, AND | 00000400: 43 48 41 52 41 43 54 45 52 20 47 45 4E 45 52 41 |CHARACTER GENERA| 00000410: 54 4F 52 00 4D 20 F0 00 83 20 41 39 2C 30 30 20 |TOR.M ... A9,00 | 00000420: 20 20 20 20 20 3A 8F 20 20 4C 44 41 20 23 30 30 | :. LDA #00| 00000430: 20 20 20 20 20 20 20 45 4E 44 20 4F 46 20 42 41 | END OF BA| 00000440: 53 49 43 20 4C 49 4E 45 20 46 4C 41 47 00 87 20 |SIC LINE FLAG.. | 00000450: FA 00 83 20 41 38 20 20 20 20 20 20 20 20 20 3A |... A8 :| 00000460: 8F 20 20 54 41 59 20 20 20 20 20 20 20 20 20 20 |. TAY | 00000470: 20 5A 45 52 4F 20 54 48 45 20 49 4E 44 45 58 20 | ZERO THE INDEX | 00000480: 50 4F 49 4E 54 45 52 00 CF 20 04 01 83 20 43 36 |POINTER.. ... C6| 00000490: 2C 32 44 20 20 20 20 20 20 3A 8F 20 20 44 45 43 |,2D :. DEC| 000004A0: 20 24 32 44 20 20 20 20 20 20 20 53 45 54 20 50 | $2D SET P| 000004B0: 52 4F 47 52 41 4D 20 53 54 41 52 54 20 54 4F 20 |ROGRAM START TO | 000004C0: 50 52 4F 47 52 41 4D 20 53 54 41 52 54 2D 31 00 |PROGRAM START-1.| 000004D0: 0D 21 0E 01 83 20 39 31 2C 32 44 20 20 20 20 20 |.!... 91,2D | 000004E0: 20 3A 8F 20 20 53 54 41 20 28 24 32 44 29 2C 59 | :. STA ($2D),Y| 000004F0: 20 20 20 53 45 54 20 45 4E 44 20 4F 46 20 42 41 | SET END OF BA| 00000500: 53 49 43 20 4C 49 4E 45 20 46 4C 41 47 00 51 21 |SIC LINE FLAG.Q!| 00000510: 18 01 83 20 45 36 2C 32 44 20 20 20 20 20 20 3A |... E6,2D :| 00000520: 8F 20 20 49 4E 43 20 24 32 44 20 20 20 20 20 20 |. INC $2D | 00000530: 20 52 45 53 54 4F 52 45 20 50 52 4F 47 52 41 4D | RESTORE PROGRAM| 00000540: 20 53 54 41 52 54 49 4E 47 20 41 44 44 52 45 53 | STARTING ADDRES| 00000550: 53 00 86 21 19 01 83 20 41 39 2C 30 31 20 20 20 |S..!... A9,01 | 00000560: 20 20 20 3A 8F 20 20 4C 44 41 20 23 24 30 31 20 | :. LDA #$01 | 00000570: 20 20 20 20 20 50 53 45 55 44 4F 20 4C 49 4E 45 | PSEUDO LINE| 00000580: 20 4C 49 4E 4B 53 00 CB 21 22 01 83 20 39 31 2C | LINKS..!".. 91,| 00000590: 32 44 20 20 20 20 20 20 3A 8F 20 20 53 54 41 20 |2D :. STA | 000005A0: 28 24 32 44 29 2C 59 20 20 20 53 41 56 45 20 41 |($2D),Y SAVE A| 000005B0: 53 20 4C 49 4E 45 20 50 53 45 55 44 4F 20 4C 49 |S LINE PSEUDO LI| 000005C0: 4E 45 20 4C 49 4E 4B 20 4C 53 42 00 0D 22 2C 01 |NE LINK LSB..",.| 000005D0: 83 20 43 38 20 20 20 20 20 20 20 20 20 3A 8F 20 |. C8 :. | 000005E0: 20 49 4E 59 20 20 20 20 20 20 20 20 20 20 20 49 | INY I| 000005F0: 4E 43 52 45 4D 45 4E 54 20 49 4E 44 45 58 20 50 |NCREMENT INDEX P| 00000600: 4F 49 4E 54 45 52 20 54 4F 20 4D 53 42 00 52 22 |OINTER TO MSB.R"| 00000610: 36 01 83 20 39 31 2C 32 44 20 20 20 20 20 20 3A |6.. 91,2D :| 00000620: 8F 20 20 53 54 41 20 28 24 32 44 29 2C 59 20 20 |. STA ($2D),Y | 00000630: 20 53 41 56 45 20 41 53 20 4C 49 4E 45 20 50 53 | SAVE AS LINE PS| 00000640: 45 55 44 4F 20 4C 49 4E 45 20 4C 49 4E 4B 20 4D |EUDO LINE LINK M| 00000650: 53 42 00 8C 22 40 01 83 20 32 30 2C 34 46 2C 34 |SB.."@.. 20,4F,4| 00000660: 46 20 20 20 3A 8F 20 20 4A 53 52 20 24 34 46 34 |F :. JSR $4F4| 00000670: 46 20 20 20 20 20 52 45 4C 49 4E 4B 20 54 48 45 |F RELINK THE| 00000680: 20 42 41 53 49 43 20 4C 49 4E 45 53 00 D7 22 4A | BASIC LINES.."J| 00000690: 01 83 20 32 30 2C 38 32 2C 34 46 20 20 20 3A 8F |.. 20,82,4F :.| 000006A0: 20 20 4A 53 52 20 24 34 46 38 32 20 20 20 20 20 | JSR $4F82 | 000006B0: 50 4C 41 43 45 20 54 48 45 20 45 4E 44 20 49 4E |PLACE THE END IN| 000006C0: 54 4F 20 45 4E 44 20 4F 46 20 54 45 58 54 20 50 |TO END OF TEXT P| 000006D0: 4F 49 4E 54 45 52 53 00 17 23 54 01 83 20 34 43 |OINTERS..#T.. 4C| 000006E0: 2C 33 37 2C 34 44 20 20 20 3A 8F 20 20 4A 4D 50 |,37,4D :. JMP| 000006F0: 20 24 34 44 33 37 20 20 20 20 20 50 52 49 4E 54 | $4D37 PRINT| 00000700: 20 27 52 45 41 44 59 2E 27 20 54 4F 20 54 48 45 | 'READY.' TO THE| 00000710: 20 53 43 52 45 45 4E 00 00 00 | SCREEN... |
.......0,1:.1,2:.4,1:.6,13:.5,4.>....L(0
).5. .%:X.23:U .& :X.0.Q...E.0:.:.150:C.
0.}.(...D0,U8:..#1,"UNNEW 128 .OBJ,P",D0
,U8,W...2..I.1.30:C.C.1:.C.15.C.1...<.:.
A$:A.Q(A$)...F.::.DS..0. E.1:.150:."DISK
DRIVER ERROR "DS$:....P.::CK.CK.A...Z
.:.6,C:.0,C...D..1,G(A);.%.N..:.6,7:.0,7
:..:..D0,U8:....X..CK..2844. .6,3:.0,3:.
1,X,10,(G(15)."CHECKSUM ERROR, CHECK DAT
A STATEMENTS"):E.1:.150:......X$."":.:.1
,1,12,"COMPLETED WOULD YOU LIKE TO SAVE
THIS TO ANOTHER DISK? (Y/N)":..X$:.X$..
"Y". .: U ....... E.0 . ..T.....: ..D0,U
8:.1,X,12,"SCRATCHING UNNEW 128 .OBJ
":."UNNEW 128 .OBJ",D0,U8:.E.1...M.
..E(I(DS$,5)) . 0..1,X,12,"UNNEW 128 .OB
J WAS SCRATCHED":..2:U .1,X,12,"UNNEW 12
8 .OBJ WAS NOT FOUND " :..2...
...1,X,12,"CREATING UNNEW 128 .OBJ ON TH
IS DISKETTE ":........=.... OPCODE
SOURCE CODE COMMENTS.L.H.. ---
--- ------ ---- --------.R.R
........ 00,0B :. ORG $0B00 PR
OGRAM STARTING ADDRESS.. ... 8D,03,FF
:. STA $FF03 TURN ON KERNAL AND BAS
IC ROMS,RAM BANK 0, AND CHARACTER GENERA
TOR.M ... A9,00 :. LDA #00 E
ND OF BASIC LINE FLAG.. ... A8 :
. TAY ZERO THE INDEX POINTER.
O ... C6,2D :. DEC $2D SET P
ROGRAM START TO PROGRAM START-1..!... 91
,2D :. STA ($2D),Y SET END OF BA
SIC LINE FLAG.Q!... E6,2D :. INC $
2D RESTORE PROGRAM STARTING ADDRES
S..!... A9,01 :. LDA #$01 PSE
UDO LINE LINKS.K!".. 91,2D :. STA
($2D),Y SAVE AS LINE PSEUDO LINE LINK
LSB..",.. C8 :. INY I
NCREMENT INDEX POINTER TO MSB.R"6.. 91,2
D :. STA ($2D),Y SAVE AS LINE PS
EUDO LINE LINK MSB.."@.. 20,4F,4F :.
JSR $4F4F RELINK THE BASIC LINES.W"J
.. 20,82,4F :. JSR $4F82 PLACE TH
E END INTO END OF TEXT POINTERS..#T.. 4C
,37,4D :. JMP $4D37 PRINT 'READY.
' TO THE SCREEN...
> CLICK IMAGE PREVIEW FOR FULL MODAL