DEATH SECTOR.PAL

FILE INFORMATION

FILENAME(S): DEATH SECTOR.PAL

FILE TYPE(S): PRG

FILE SIZE: 2.3K

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

APPEARS ON: 1 disk(s)

FILE HASH

2c4d506f85c263541d8c97aadeeb240dcd305519abead057a17afec3a2458bcf

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
TRANSACTOR DISK	DEATH SECTOR.PAL	PRG	DuncanTwain	10	19	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 83 12 B9 12 00 00 8F 20  54 48 45 20 54 52 41 4E  |....... THE TRAN|
00000010: 53 41 43 54 4F 52 20 56  4F 4C 55 4D 45 20 38 20  |SACTOR VOLUME 8 |
00000020: 49 53 53 55 45 20 30 33  20 20 20 20 20 20 20 20  |ISSUE 03        |
00000030: 50 41 47 45 20 33 39 00  D9 12 0A 00 9E 20 37 30  |PAGE 39...... 70|
00000040: 30 20 3B 45 4E 41 42 4C  45 20 50 41 4C 20 41 53  |0 ;ENABLE PAL AS|
00000050: 53 45 4D 42 4C 45 52 00  DF 12 64 00 3B 00 F7 12  |SEMBLER...d.;...|
00000060: 6E 00 3B 44 49 53 4B 20  44 45 53 54 52 4F 59 45  |n.;DISK DESTROYE|
00000070: 52 AD 53 52 43 00 11 13  73 00 3B 31 35 34 31 20  |R.SRC...s.;1541 |
00000080: 44 49 53 4B 20 44 52 49  56 45 20 43 4F 44 45 00  |DISK DRIVE CODE.|
00000090: 17 13 78 00 3B 00 2A 13  82 00 3B 46 52 41 4E 4B  |..x.;.*...;FRANK|
000000A0: 20 44 49 47 49 4F 49 41  00 38 13 8C 00 3B 30 39  | DIGIOIA.8...;09|
000000B0: AD 32 38 AD 38 36 00 3E  13 96 00 3B 00 61 13 A0  |.28.86.>...;.a..|
000000C0: 00 AC B2 24 30 33 30 30  20 20 20 20 20 20 3B A8  |...$0300      ;.|
000000D0: 20 52 45 4C 4F 43 41 54  41 42 4C 45 21 21 21 00  | RELOCATABLE!!!.|
000000E0: 67 13 AA 00 3B 00 75 13  B4 00 45 4E 54 52 59 20  |g...;.u...ENTRY |
000000F0: 4E 4F 50 00 7D 13 BE 00  4E 4F 50 00 85 13 C8 00  |NOP.}...NOP.....|
00000100: 4E 4F 50 00 9E 13 D2 00  4C 44 41 20 23 24 30 31  |NOP.....LDA #$01|
00000110: 20 20 20 20 3B 54 52 41  43 4B 20 31 00 B9 13 DC  |    ;TRACK 1....|
00000120: 00 53 54 41 20 24 30 36  20 20 20 20 20 3B 53 45  |.STA $06     ;SE|
00000130: 54 20 54 52 41 43 4B 00  D2 13 E6 00 4C 44 41 20  |T TRACK.....LDA |
00000140: 23 24 30 30 20 20 20 20  3B 53 45 43 A4 52 20 30  |#$00    ;SEC.R 0|
00000150: 00 ED 13 F0 00 53 54 41  20 24 30 37 20 20 20 20  |.....STA $07    |
00000160: 20 3B 53 45 54 20 53 45  43 A4 52 00 0F 14 FA 00  | ;SET SEC.R.....|
00000170: 4C 44 41 20 4A 4D 50 49  4E 53 20 20 3B 43 4F 50  |LDA JMPINS  ;COP|
00000180: 59 20 4A 4D 50 20 49 4E  53 54 52 20 A4 00 30 14  |Y JMP INSTR ..0.|
00000190: 04 01 4C 44 58 20 4A 4D  50 49 4E 53 AA 31 20 3B  |..LDX JMPINS.1 ;|
000001A0: 45 4E 54 52 59 20 50 4F  B5 2E 20 BF 43 45 00 55  |ENTRY PO.. .CE.U|
000001B0: 14 0E 01 4C 44 59 20 4A  4D 50 49 4E 53 AA 32 20  |...LDY JMPINS.2 |
000001C0: 3B 45 58 45 43 55 54 49  91 20 57 49 4C 4C 20 4A  |;EXECUTI. WILL J|
000001D0: 55 4D 50 00 78 14 18 01  53 54 41 20 45 4E 54 52  |UMP.x...STA ENTR|
000001E0: 59 20 20 20 3B A4 20 45  4E 54 52 59 20 41 53 20  |Y   ;. ENTRY AS |
000001F0: 53 4F 91 20 41 53 00 9E  14 22 01 53 54 58 20 45  |SO. AS...".STX E|
00000200: 4E 54 52 59 AA 31 20 3B  54 48 45 20 24 45 30 20  |NTRY.1 ;THE $E0 |
00000210: 49 53 20 50 4C 41 43 45  44 20 49 4E 00 BE 14 2C  |IS PLACED IN...,|
00000220: 01 53 54 59 20 45 4E 54  52 59 AA 32 20 3B 54 48  |.STY ENTRY.2 ;TH|
00000230: 45 20 4A 4F 42 20 51 55  45 55 45 2E 00 E0 14 36  |E JOB QUEUE....6|
00000240: 01 4C 44 41 20 23 24 45  30 20 20 20 20 3B 4A 4F  |.LDA #$E0    ;JO|
00000250: 42 20 43 4F 44 45 B2 45  58 45 43 55 54 45 00 04  |B CODE.EXECUTE..|
00000260: 15 40 01 53 54 41 20 24  30 30 20 20 20 20 20 3B  |.@.STA $00     ;|
00000270: 50 4C 41 43 45 20 49 4E  20 4A 4F 42 20 51 55 45  |PLACE IN JOB QUE|
00000280: 55 45 00 27 15 4A 01 92  20 4C 44 41 20 24 30 30  |UE.'.J.. LDA $00|
00000290: 20 3B 47 49 56 45 20 49  54 20 41 20 46 45 57 20  | ;GIVE IT A FEW |
000002A0: 4D 49 4C 49 AB 00 47 15  54 01 42 4D 49 20 92 20  |MILI..G.T.BMI . |
000002B0: 20 20 20 3B 53 45 43 91  44 53 20 A4 20 4B 49 43  |   ;SEC.DS . KIC|
000002C0: 4B 20 49 4E 2E 00 4F 15  5E 01 52 54 53 00 55 15  |K IN..O.^.RTS.U.|
000002D0: 68 01 3B 00 63 15 72 01  50 55 52 47 45 20 B2 20  |h.;.c.r.PURGE . |
000002E0: AC 00 83 15 7C 01 4C 44  41 20 24 32 32 20 20 20  |....|.LDA $22   |
000002F0: 20 3B A1 20 43 55 52 52  45 4E 54 20 54 52 41 43  | ;. CURRENT TRAC|
00000300: 4B 00 9B 15 86 01 42 45  51 20 AC AA 36 20 20 20  |K.....BEQ ..6   |
00000310: 20 3B 5A 45 52 4F 99 99  99 00 BD 15 90 01 43 4D  | ;ZERO........CM|
00000320: 50 20 23 24 32 34 20 20  20 3B 42 49 47 47 45 52  |P #$24   ;BIGGER|
00000330: 20 54 48 41 4E 20 33 36  99 99 99 00 DF 15 9A 01  | THAN 36........|
00000340: 42 43 43 20 42 41 43 4B  20 20 20 3B 4E 4F AD CB  |BCC BACK   ;NO..|
00000350: 20 41 48 45 41 44 20 26  20 4D 4F 56 45 00 E5 15  | AHEAD & MOVE...|
00000360: A4 01 3B 00 04 16 AE 01  4C 44 41 20 23 24 32 45  |..;.....LDA #$2E|
00000370: 20 20 20 3B 53 45 54 20  54 52 41 43 4B 20 A4 20  |   ;SET TRACK . |
00000380: 34 36 00 27 16 B8 01 53  54 41 20 24 32 32 20 20  |46.'...STA $22  |
00000390: 20 20 3B 54 48 41 54 20  53 48 4F 55 4C 44 20 46  |  ;THAT SHOULD F|
000003A0: 49 58 20 49 54 00 2D 16  C2 01 3B 00 50 16 CC 01  |IX IT.-...;.P...|
000003B0: 42 41 43 4B 20 B2 20 AC  20 3B A9 20 48 45 41 44  |BACK . . ;. HEAD|
000003C0: 20 42 41 43 4B 20 A4 20  54 52 41 4B 20 31 00 70  | BACK . TRAK 1.p|
000003D0: 16 D6 01 4A 53 52 20 A9  20 3B A9 20 48 45 41 44  |...JSR . ;. HEAD|
000003E0: 20 42 41 43 4B 20 31 AD  32 20 54 52 41 4B 00 90  | BACK 1.2 TRAK..|
000003F0: 16 E0 01 4A 53 52 20 A9  20 3B A9 20 48 45 41 44  |...JSR . ;. HEAD|
00000400: 20 42 41 43 4B 20 31 AD  32 20 54 52 41 4B 00 B3  | BACK 1.2 TRAK..|
00000410: 16 EA 01 44 45 43 20 24  32 32 20 20 20 20 3B 44  |...DEC $22    ;D|
00000420: 45 43 52 20 43 55 52 52  45 4E 54 20 54 52 41 43  |ECR CURRENT TRAC|
00000430: 4B 00 D7 16 F4 01 42 4E  45 20 42 41 43 4B 20 20  |K.....BNE BACK  |
00000440: 20 3B 55 4E 54 49 4C 20  41 54 20 54 52 41 43 4B  | ;UNTIL AT TRACK|
00000450: 20 5A 45 52 4F 00 F5 16  FE 01 49 4E 43 20 24 32  | ZERO.....INC $2|
00000460: 32 20 20 20 20 3B 53 45  54 20 54 52 41 43 4B 20  |2    ;SET TRACK |
00000470: A4 20 31 00 FB 16 08 02  3B 00 1A 17 12 02 57 49  |. 1.....;.....WI|
00000480: 50 45 20 4A 53 52 20 24  46 44 41 33 20 3B 57 49  |PE JSR $FDA3 ;WI|
00000490: 50 45 20 54 52 41 43 4B  00 37 17 1C 02 4A 53 52  |PE TRACK.7...JSR|
000004A0: 20 24 46 45 30 30 20 20  3B 53 45 54 20 87 20 4D  | $FE00  ;SET . M|
000004B0: 4F 44 45 20 91 00 57 17  26 02 4C 44 41 20 24 32  |ODE ..W.&.LDA $2|
000004C0: 32 20 20 20 20 3B A1 20  43 55 52 52 45 4E 54 20  |2    ;. CURRENT |
000004D0: 54 52 41 43 4B 00 77 17  30 02 43 4D 50 20 23 33  |TRACK.w.0.CMP #3|
000004E0: 36 20 20 20 20 3B 42 49  47 47 45 52 20 54 48 41  |6    ;BIGGER THA|
000004F0: 4E 20 33 35 99 00 96 17  3A 02 42 43 53 20 46 49  |N 35....:.BCS FI|
00000500: 4E 49 53 48 20 3B 44 91  45 AD 4E 4F 20 50 52 4F  |NISH ;D.E.NO PRO|
00000510: 42 4C 45 4D 00 B1 17 44  02 49 4E 43 20 24 32 32  |BLEM...D.INC $22|
00000520: 20 20 20 20 3B 42 55 4D  50 20 54 52 41 43 4B 00  |    ;BUMP TRACK.|
00000530: CD 17 4E 02 4A 53 52 20  A9 42 20 20 3B 4D 4F 56  |..N.JSR .B  ;MOV|
00000540: 45 20 31 AD 32 20 54 52  41 43 4B 00 E9 17 58 02  |E 1.2 TRACK...X.|
00000550: 4A 53 52 20 A9 42 20 20  3B 4D 4F 56 45 20 31 AD  |JSR .B  ;MOVE 1.|
00000560: 32 20 54 52 41 43 4B 00  06 18 62 02 4A 4D 50 20  |2 TRACK...b.JMP |
00000570: 57 49 50 45 20 20 20 3B  57 49 50 45 20 82 20 54  |WIPE   ;WIPE . T|
00000580: 52 41 43 4B 00 0C 18 6C  02 3B 00 2C 18 76 02 46  |RACK...l.;.,.v.F|
00000590: 49 4E 49 53 48 20 B2 20  AC 20 3B 43 4C 45 41 4E  |INISH . . ;CLEAN|
000005A0: 55 50 20 AF 20 A1 20 4F  55 54 00 48 18 80 02 4C  |UP . . OUT.H...L|
000005B0: 44 41 20 4E 4F 50 49 4E  53 20 3B A1 20 4E 4F 50  |DA NOPINS ;. NOP|
000005C0: 20 49 4E 53 54 52 00 6B  18 8A 02 53 54 41 20 57  | INSTR.k...STA W|
000005D0: 49 50 45 20 20 20 3B 52  80 45 52 20 43 4F 44 45  |IPE   ;R.ER CODE|
000005E0: 20 48 41 52 4D 4C 45 53  53 00 7A 18 94 02 53 54  | HARMLESS.z...ST|
000005F0: 41 20 57 49 50 45 AA 31  00 89 18 9E 02 53 54 41  |A WIPE.1.....STA|
00000600: 20 57 49 50 45 AA 32 00  A4 18 A8 02 4C 44 41 20  | WIPE.2.....LDA |
00000610: 23 24 30 31 20 20 20 3B  53 45 54 20 8E 20 43 4F  |#$01   ;SET . CO|
00000620: 44 45 00 C6 18 B2 02 4A  4D 50 20 24 46 39 36 39  |DE.....JMP $F969|
00000630: 20 20 3B 4D 41 49 4E 20  45 52 52 B0 20 52 4F 55  |  ;MAIN ERR. ROU|
00000640: 54 49 4E 45 00 CC 18 BC  02 3B 00 EC 18 C6 02 A9  |TINE.....;......|
00000650: 20 B2 20 AC 20 20 3B A9  20 48 45 41 44 20 42 41  | . .  ;. HEAD BA|
00000660: 43 4B 20 31 AD 32 20 54  52 4B 00 06 19 D0 02 4C  |CK 1.2 TRK.....L|
00000670: 44 58 20 24 31 43 30 30  20 3B A1 20 9A 52 4F 4C  |DX $1C00 ;. .ROL|
00000680: 20 52 45 47 00 2A 19 DA  02 44 45 58 20 20 20 20  | REG.*...DEX    |
00000690: 20 20 20 3B 52 4F 54 41  54 45 20 4C 4F 57 20 B0  |   ;ROTATE LOW .|
000006A0: 44 45 52 20 42 49 54 53  00 37 19 E4 02 4A 4D 50  |DER BITS.7...JMP|
000006B0: 20 A9 42 AA 34 00 3D 19  EE 02 3B 00 5D 19 F8 02  | .B.4.=...;.]...|
000006C0: A9 42 20 B2 20 AC 20 3B  A9 20 48 45 41 44 20 46  |.B . . ;. HEAD F|
000006D0: 52 57 44 20 31 AD 32 20  54 52 4B 00 77 19 02 03  |RWD 1.2 TRK.w...|
000006E0: 4C 44 58 20 24 31 43 30  30 20 3B A1 20 9A 52 4F  |LDX $1C00 ;. .RO|
000006F0: 4C 20 52 45 47 00 9B 19  0C 03 49 4E 58 20 20 20  |L REG.....INX   |
00000700: 20 20 20 20 3B 52 4F 54  41 54 45 20 4C 4F 57 20  |    ;ROTATE LOW |
00000710: B0 44 45 52 20 42 49 54  53 00 B4 19 16 03 54 58  |.DER BITS.....TX|
00000720: 41 20 20 20 20 20 20 20  3B 50 55 54 20 49 4E 20  |A       ;PUT IN |
00000730: 2E 41 00 D7 19 20 03 AF  20 23 24 30 33 20 20 3B  |.A... .. #$03  ;|
00000740: 49 53 4F 4C 41 54 45 20  4C 4F 57 20 B0 44 45 52  |ISOLATE LOW .DER|
00000750: 20 42 49 54 53 00 EB 19  2A 03 53 54 41 20 54 45  | BITS...*.STA TE|
00000760: 4D 50 20 20 3B 94 20 49  54 00 0B 1A 34 03 4C 44  |MP  ;. IT...4.LD|
00000770: 41 20 24 31 43 30 30 20  3B A1 20 9A 52 4F 4C 20  |A $1C00 ;. .ROL |
00000780: 52 45 47 20 41 47 41 49  4E 00 2C 1A 3E 03 AF 20  |REG AGAIN.,.>.. |
00000790: 23 24 46 43 20 20 3B 43  4C 45 41 52 20 4C 4F 57  |#$FC  ;CLEAR LOW|
000007A0: 20 B0 44 45 52 20 42 49  54 53 00 4E 1A 48 03 B0  | .DER BITS.N.H..|
000007B0: 41 20 54 45 4D 50 20 20  3B 53 45 54 20 4C 4F 57  |A TEMP  ;SET LOW|
000007C0: 45 52 20 B0 44 45 52 20  42 49 54 53 00 6A 1A 52  |ER .DER BITS.j.R|
000007D0: 03 53 54 41 20 24 31 43  30 30 20 3B 53 45 54 20  |.STA $1C00 ;SET |
000007E0: 9A 52 4F 4C 20 52 45 47  00 70 1A 5C 03 3B 00 95  |.ROL REG.p.\.;..|
000007F0: 1A 66 03 4C 44 59 20 23  24 30 35 20 20 3B 54 49  |.f.LDY #$05  ;TI|
00000800: 4D 49 4E 47 20 4C 4F 4F  50 20 49 54 45 52 41 54  |MING LOOP ITERAT|
00000810: 49 91 53 00 B6 1A 70 03  4C 44 58 20 23 24 46 46  |I.S...p.LDX #$FF|
00000820: 20 20 3B 49 4E 4E 45 52  20 4C 4F 4F 50 20 54 49  |  ;INNER LOOP TI|
00000830: 4D 49 4E 47 00 DA 1A 7A  03 44 45 4C 41 59 20 44  |MING...z.DELAY D|
00000840: 45 58 20 20 3B 41 4C 4C  4F 57 20 48 45 41 44 20  |EX  ;ALLOW HEAD |
00000850: A4 20 53 45 54 54 4C 45  00 F4 1A 84 03 42 4E 45  |. SETTLE.....BNE|
00000860: 20 44 45 4C 41 59 20 3B  49 4E 4E 45 52 20 4C 4F  | DELAY ;INNER LO|
00000870: 4F 50 00 0E 1B 8E 03 44  45 59 20 20 20 20 20 20  |OP.....DEY      |
00000880: 20 3B 4F 55 54 45 52 20  4C 4F 4F 50 00 23 1B 98  | ;OUTER LOOP.#..|
00000890: 03 42 4E 45 20 44 45 4C  41 59 20 3B 9A 49 4E 55  |.BNE DELAY ;.INU|
000008A0: 45 00 2B 1B A2 03 52 54  53 00 31 1B AC 03 3B 00  |E.+...RTS.1...;.|
000008B0: 51 1B B6 03 4E 4F 50 49  4E 53 20 4E 4F 50 20 20  |Q...NOPINS NOP  |
000008C0: 20 20 20 20 20 3B 54 48  49 53 20 49 53 20 83 00  |     ;THIS IS ..|
000008D0: 71 1B C0 03 4A 4D 50 49  4E 53 20 4A 4D 50 20 50  |q...JMPINS JMP P|
000008E0: 55 52 47 45 20 3B 54 48  49 53 20 49 53 20 83 00  |URGE ;THIS IS ..|
000008F0: 95 1B CA 03 54 45 4D 50  20 2E 42 59 54 45 20 24  |....TEMP .BYTE $|
00000900: 30 30 20 20 20 3B 57 B0  4B 49 4E 47 20 53 A4 52  |00   ;W.KING S.R|
00000910: 41 47 45 00 00 00                                 |AGE...          |

....... THE TRANSACTOR VOLUME 8 ISSUE 03
        PAGE 39.Y.... 700 ;ENABLE PAL AS
SEMBLER...D.;...N.;DISK DESTROYER.SRC...
S.;1541 DISK DRIVE CODE...X.;.*...;FRANK
 DIGIOIA.8...;09.28.86.>...;.A. ...$0300
      ;. RELOCATABLE!!!.G...;.U...ENTRY 
NOP.}...NOP...H.NOP...R.LDA #$01    ;TRA
CK 1.....STA $06     ;SET TRACK.R...LDA 
#$00    ;SEC.R 0.....STA $07     ;SET SE
C.R.....LDA JMPINS  ;COPY JMP INSTR ..0.
..LDX JMPINS.1 ;ENTRY PO.. .CE.U...LDY J
MPINS.2 ;EXECUTI. WILL JUMP.X...STA ENTR
Y   ;. ENTRY AS SO. AS...".STX ENTRY.1 ;
THE $E0 IS PLACED IN...,.STY ENTRY.2 ;TH
E JOB QUEUE....6.LDA #$E0    ;JOB CODE.E
XECUTE...@.STA $00     ;PLACE IN JOB QUE
UE.'.J.. LDA $00 ;GIVE IT A FEW MILI..G.
T.BMI .    ;SEC.DS . KICK IN..O.^.RTS.U.
H.;.C.R.PURGE . ....|.LDA $22    ;. CURR
ENT TRACK.....BEQ ..6    ;ZERO........CM
P #$24   ;BIGGER THAN 36........BCC BACK
   ;NO.K AHEAD & MOVE.....;.....LDA #$2E
   ;SET TRACK . 46.'...STA $22    ;THAT 
SHOULD FIX IT.-.B.;.P.L.BACK . . ;. HEAD
 BACK . TRAK 1.P.V.JSR . ;. HEAD BACK 1.
2 TRAK.....JSR . ;. HEAD BACK 1.2 TRAK..
...DEC $22    ;DECR CURRENT TRACK.W...BN
E BACK   ;UNTIL AT TRACK ZERO.....INC $2
2    ;SET TRACK . 1.....;.....WIPE JSR $
FDA3 ;WIPE TRACK.7...JSR $FE00  ;SET . M
ODE ..W.&.LDA $22    ;. CURRENT TRACK.W.
0.CMP #36    ;BIGGER THAN 35....:.BCS FI
NISH ;D.E.NO PROBLEM...D.INC $22    ;BUM
P TRACK.M.N.JSR .B  ;MOVE 1.2 TRACK...X.
JSR .B  ;MOVE 1.2 TRACK...B.JMP WIPE   ;
WIPE . TRACK...L.;.,.V.FINISH . . ;CLEAN
UP . . OUT.H...LDA NOPINS ;. NOP INSTR.K
...STA WIPE   ;R.ER CODE HARMLESS.Z...ST
A WIPE.1.....STA WIPE.2.....LDA #$01   ;
SET . CODE.F...JMP $F969  ;MAIN ERR. ROU
TINE.L...;...F.. . .  ;. HEAD BACK 1.2 T
RK...P.LDX $1C00 ;. .ROL REG.*.Z.DEX    
   ;ROTATE LOW .DER BITS.7...JMP .B.4.=.
..;.]....B . . ;. HEAD FRWD 1.2 TRK.W...
LDX $1C00 ;. .ROL REG.....INX       ;ROT
ATE LOW .DER BITS.....TXA       ;PUT IN 
.A.W. .. #$03  ;ISOLATE LOW .DER BITS...
*.STA TEMP  ;. IT...4.LDA $1C00 ;. .ROL 
REG AGAIN.,.>.. #$FC  ;CLEAR LOW .DER BI
TS.N.H..A TEMP  ;SET LOWER .DER BITS.J.R
.STA $1C00 ;SET .ROL REG.P.\.;...F.LDY #
$05  ;TIMING LOOP ITERATI.S...P.LDX #$FF
  ;INNER LOOP TIMING.Z.Z.DELAY DEX  ;ALL
OW HEAD . SETTLE.....BNE DELAY ;INNER LO
OP.....DEY       ;OUTER LOOP.#...BNE DEL
AY ;.INUE.+...RTS.1...;.Q...NOPINS NOP  
     ;THIS IS ..Q...JMPINS JMP PURGE ;TH
IS IS ....J.TEMP .BYTE $00   ;W.KING S.R
AGE...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL