_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

DISK ERR.PAL

FILE INFORMATION

FILENAME(S): DISK ERR.PAL

FILE TYPE(S): PRG

FILE SIZE: 1.2K

FIRST SEEN: 2025-11-30 21:12:48

APPEARS ON: 1 disk(s)

FILE HASH

9f9d8f2c29ced770550a1d0706684e81aade7781071fd49507a30cd79d486dd0

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
TRANSACTOR DISK DISK ERR.PAL PRG DuncanTwain 30 14 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 04 0B 04 64 00 9E 20  37 30 30 00 2D 04 6E 00  |....d.. 700.-.n.|
00000010: 3B 20 20 20 20 20 87 20  54 48 45 20 44 49 53 4B  |;     . THE DISK|
00000020: 20 45 52 52 B0 20 43 48  41 4E 4E 45 4C 00 52 04  | ERR. CHANNEL.R.|
00000030: 78 00 3B 20 20 55 BF 47  20 54 48 45 20 53 59 4D  |x.;  U.G THE SYM|
00000040: 41 53 53 20 33 2E 31 33  20 41 53 53 45 4D 42 4C  |ASS 3.13 ASSEMBL|
00000050: 45 52 00 60 04 82 00 AC  20 B2 20 24 30 33 33 43  |ER.`.... . $033C|
00000060: 00 66 04 8C 00 3B 00 88  04 96 00 4C 44 41 20 23  |.f...;.....LDA #|
00000070: 31 35 20 20 20 20 20 20  20 20 20 3B 20 46 49 4C  |15         ; FIL|
00000080: 45 20 4E 55 4D 42 45 52  00 AC 04 A0 00 4C 44 58  |E NUMBER.....LDX|
00000090: 20 44 52 56 4E 52 20 20  20 20 20 20 20 3B 20 44  | DRVNR       ; D|
000000A0: 45 56 49 43 45 20 4E 55  4D 42 45 52 00 D3 04 AA  |EVICE NUMBER....|
000000B0: 00 4C 44 59 20 23 31 35  20 20 20 20 20 20 20 20  |.LDY #15        |
000000C0: 20 3B 20 53 45 43 91 44  41 52 59 20 41 44 44 52  | ; SEC.DARY ADDR|
000000D0: 45 53 53 00 F8 04 B4 00  4A 53 52 20 24 46 46 42  |ESS.....JSR $FFB|
000000E0: 41 20 20 20 20 20 20 20  3B 20 53 45 54 20 50 41  |A       ; SET PA|
000000F0: 52 41 4D 45 54 45 52 53  00 FE 04 BE 00 3B 00 23  |RAMETERS.....;.#|
00000100: 05 C8 00 4C 44 41 20 23  30 20 20 20 20 20 20 20  |...LDA #0       |
00000110: 20 20 20 3B 20 C3 47 54  48 20 4F 46 20 46 49 C3  |   ; .GTH OF FI.|
00000120: 41 4D 45 00 44 05 D2 00  4A 53 52 20 24 46 46 42  |AME.D...JSR $FFB|
00000130: 44 20 20 20 20 20 20 20  3B 20 53 45 54 20 46 49  |D       ; SET FI|
00000140: C3 41 4D 45 00 61 05 DC  00 4A 53 52 20 24 46 46  |.AME.a...JSR $FF|
00000150: 43 30 20 20 20 20 20 20  20 3B 20 9F 20 46 49 4C  |C0       ; . FIL|
00000160: 45 00 67 05 E6 00 3B 00  8B 05 F0 00 4C 44 58 20  |E.g...;.....LDX |
00000170: 23 31 35 20 20 20 20 20  20 20 20 20 3B 20 23 31  |#15         ; #1|
00000180: 35 AB 45 52 52 B0 20 46  49 4C 45 00 B0 05 FA 00  |5.ERR. FILE.....|
00000190: 4A 53 52 20 24 46 46 43  36 20 20 20 20 20 20 20  |JSR $FFC6       |
000001A0: 3B 20 85 20 46 52 4F 4D  20 46 49 4C 45 20 31 35  |; . FROM FILE 15|
000001B0: 00 D3 05 04 01 4A 53 52  20 24 46 46 45 34 20 20  |.....JSR $FFE4  |
000001C0: 20 20 20 20 20 3B 20 A1  20 46 49 52 53 54 20 43  |     ; . FIRST C|
000001D0: 48 41 52 00 F3 05 0E 01  53 54 41 20 54 45 4D 50  |HAR.....STA TEMP|
000001E0: 31 20 20 20 20 20 20 20  3B 20 8F 45 4D 42 45 52  |1       ; .EMBER|
000001F0: 20 49 54 00 16 06 18 01  4A 53 52 20 24 46 46 45  | IT.....JSR $FFE|
00000200: 34 20 20 20 20 20 20 20  3B 20 A1 20 53 45 43 91  |4       ; . SEC.|
00000210: 44 20 43 48 41 52 00 36  06 22 01 53 54 41 20 54  |D CHAR.6.".STA T|
00000220: 45 4D 50 32 20 20 20 20  20 20 20 3B 20 8F 45 4D  |EMP2       ; .EM|
00000230: 42 45 52 20 49 54 00 5C  06 2C 01 43 4D 50 20 54  |BER IT.\.,.CMP T|
00000240: 45 4D 50 31 20 20 20 20  20 20 20 3B 20 43 4F 4D  |EMP1       ; COM|
00000250: 50 41 52 45 20 23 31 20  A4 20 23 32 00 83 06 36  |PARE #1 . #2...6|
00000260: 01 42 4E 45 20 50 52 4E  54 45 52 52 20 20 20 20  |.BNE PRNTERR    |
00000270: 20 3B 20 8B 20 A8 20 B2  20 99 20 45 52 52 B0 20  | ; . . . . ERR. |
00000280: 4D 53 47 00 A8 06 40 01  AF 20 23 24 30 46 20 20  |MSG...@.. #$0F  |
00000290: 20 20 20 20 20 20 3B 20  4D 41 53 4B 20 48 49 47  |      ; MASK HIG|
000002A0: 48 20 4E 59 42 42 4C 45  00 CF 06 4A 01 42 4E 45  |H NYBBLE...J.BNE|
000002B0: 20 50 52 4E 54 45 52 52  20 20 20 20 20 3B 20 8B  | PRNTERR     ; .|
000002C0: 20 A8 20 5A 45 52 4F 20  A7 20 99 20 45 52 52 00  | . ZERO . . ERR.|
000002D0: F6 06 54 01 4E 4F 45 52  52 20 4A 53 52 20 24 46  |..T.NOERR JSR $F|
000002E0: 46 45 34 20 3B 20 4E 4F  20 45 52 52 B0 20 53 4F  |FE4 ; NO ERR. SO|
000002F0: 20 9A 49 4E 55 45 00 18  07 5E 01 43 4D 50 20 23  | .INUE...^.CMP #|
00000300: 24 30 44 20 20 20 20 20  20 20 20 3B 20 43 4F 4D  |$0D        ; COM|
00000310: 50 41 52 45 20 A4 20 8E  00 26 07 68 01 42 4E 45  |PARE . ..&.h.BNE|
00000320: 20 4E 4F 45 52 52 00 32  07 72 01 4A 4D 50 20 44  | NOERR.2.r.JMP D|
00000330: 91 45 00 38 07 7C 01 3B  00 4D 07 86 01 3B 20 99  |.E.8.|.;.M...; .|
00000340: 20 45 52 52 B0 20 52 4F  55 54 49 4E 45 00 63 07  | ERR. ROUTINE.c.|
00000350: 90 01 50 52 4E 54 45 52  52 20 4C 44 41 20 54 45  |..PRNTERR LDA TE|
00000360: 4D 50 31 00 71 07 9A 01  4A 53 52 20 24 46 46 44  |MP1.q...JSR $FFD|
00000370: 32 00 7F 07 A4 01 4C 44  41 20 54 45 4D 50 32 00  |2.....LDA TEMP2.|
00000380: 8D 07 AE 01 4A 53 52 20  24 46 46 44 32 00 AF 07  |....JSR $FFD2...|
00000390: B8 01 4C 4F 4F 50 20 4A  53 52 20 24 46 46 45 34  |..LOOP JSR $FFE4|
000003A0: 20 20 3B 20 A1 20 43 48  41 52 41 43 54 45 52 00  |  ; . CHARACTER.|
000003B0: D0 07 C2 01 4A 53 52 20  24 46 46 44 32 20 20 20  |....JSR $FFD2   |
000003C0: 20 20 20 20 3B 20 99 20  A4 20 53 43 52 45 45 4E  |    ; . . SCREEN|
000003D0: 00 EE 07 CC 01 43 4D 50  20 23 24 30 44 20 20 20  |.....CMP #$0D   |
000003E0: 20 20 20 20 20 3B 20 49  53 20 49 54 20 8E 00 0E  |     ; IS IT ...|
000003F0: 08 D6 01 42 4E 45 20 4C  4F 4F 50 20 20 20 20 20  |...BNE LOOP     |
00000400: 20 20 20 3B 20 4E 4F 20  A7 20 4C 4F 4F 50 00 14  |   ; NO . LOOP..|
00000410: 08 E0 01 3B 00 33 08 EA  01 44 91 45 20 4A 53 52  |...;.3...D.E JSR|
00000420: 20 24 46 46 43 43 20 20  3B 20 52 45 53 45 54 20  | $FFCC  ; RESET |
00000430: 49 AD 4F 00 52 08 F4 01  4C 44 41 20 23 31 35 20  |I.O.R...LDA #15 |
00000440: 20 20 20 20 20 20 20 20  3B 20 46 49 4C 45 20 23  |        ; FILE #|
00000450: 31 35 00 73 08 FE 01 4A  53 52 20 24 46 46 43 33  |15.s...JSR $FFC3|
00000460: 20 20 20 20 20 20 20 3B  20 A0 20 54 48 45 20 46  |       ; . THE F|
00000470: 49 4C 45 00 9A 08 08 02  4A 4D 50 20 24 45 33 37  |ILE.....JMP $E37|
00000480: 42 20 20 20 20 20 20 20  3B 20 42 41 53 49 43 20  |B       ; BASIC |
00000490: 57 41 52 4D 20 53 54 41  52 54 00 A8 08 12 02 54  |WARM START.....T|
000004A0: 45 4D 50 31 20 4E 4F 50  00 B6 08 1C 02 54 45 4D  |EMP1 NOP.....TEM|
000004B0: 50 32 20 4E 4F 50 00 D9  08 26 02 44 52 56 4E 52  |P2 NOP...&.DRVNR|
000004C0: 20 2E 42 59 54 45 20 38  20 20 20 3B 20 45 49 54  | .BYTE 8   ; EIT|
000004D0: 48 45 52 20 38 20 B0 20  39 00 E0 08 30 02 2E 80  |HER 8 . 9...0...|
000004E0: 00 00 00                                          |...             |
....D.. 700.-.N.;     . THE DISK ERR. CH
ANNEL.R.X.;  U.G THE SYMASS 3.13 ASSEMBL
ER.`.... . $033C.F...;.....LDA #15      
   ; FILE NUMBER... .LDX DRVNR       ; D
EVICE NUMBER.S...LDY #15         ; SEC.D
ARY ADDRESS.....JSR $FFBA       ; SET PA
RAMETERS.....;.#.H.LDA #0          ; CGT
H OF FICAME.D.R.JSR $FFBD       ; SET FI
CAME.A...JSR $FFC0       ; . FILE.G...;.
....LDX #15         ; #15.ERR. FILE.....
JSR $FFC6       ; . FROM FILE 15.S...JSR
 $FFE4       ; . FIRST CHAR.....STA TEMP
1       ; .EMBER IT.....JSR $FFE4       
; . SEC.D CHAR.6.".STA TEMP2       ; .EM
BER IT.\.,.CMP TEMP1       ; COMPARE #1 
. #2...6.BNE PRNTERR     ; . . . . ERR. 
MSG...@.. #$0F        ; MASK HIGH NYBBLE
.O.J.BNE PRNTERR     ; . . ZERO . . ERR.
..T.NOERR JSR $FFE4 ; NO ERR. SO .INUE..
.^.CMP #$0D        ; COMPARE . ..&.H.BNE
 NOERR.2.R.JMP D.E.8.|.;.M...; . ERR. RO
UTINE.C...PRNTERR LDA TEMP1.Q...JSR $FFD
2....LDA TEMP2.....JSR $FFD2.....LOOP J
SR $FFE4  ; . CHARACTER.P.B.JSR $FFD2   
    ; . . SCREEN...L.CMP #$0D        ; I
S IT ....V.BNE LOOP        ; NO . LOOP..
...;.3...D.E JSR $FFCC  ; RESET I.O.R...
LDA #15         ; FILE #15.S...JSR $FFC3
       ;   THE FILE.....JMP $E37B       
; BASIC WARM START.....TEMP1 NOP.....TEM
P2 NOP.Y.&.DRVNR .BYTE 8   ; EITHER 8 . 
9...0......
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL