54
FILE INFORMATION
FILENAME(S): 54
FILE TYPE(S): PRG
FILE SIZE: 2.5K
FIRST SEEN: 2025-11-30 20:31:02
APPEARS ON: 1 disk(s)
FILE HASH
efe75b75e8e43d58dcad120763414b8610f388827d5bb8f89fa4a4c9862144aa
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DR ZIG | 54 | PRG | Curtcool, Nigel | 29 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 0D 0D 0D 20 20 20 20 20 20 20 20 20 2A 3D |..... *=| 00000010: 20 24 31 30 30 30 0D 20 20 20 20 20 20 20 20 20 | $1000. | 00000020: 4A 4D 50 20 42 45 47 49 4E 0D 0D 53 49 4E 31 0D |JMP BEGIN..SIN1.| 00000030: 20 20 20 20 20 20 20 20 20 4C 44 58 20 24 32 30 | LDX $20| 00000040: 0D 5A 32 20 20 20 20 20 20 20 4C 44 41 20 24 34 |.Z2 LDA $4| 00000050: 30 30 30 2C 58 0D 5A 31 20 20 20 20 20 20 20 4C |000,X.Z1 L| 00000060: 44 59 20 24 34 31 30 30 2C 58 0D 4C 41 20 20 20 |DY $4100,X.LA | 00000070: 20 20 20 20 4F 52 41 20 24 34 35 30 30 0D 20 20 | ORA $4500. | 00000080: 20 20 20 20 20 20 20 54 41 58 0D 20 20 20 20 20 | TAX. | 00000090: 20 20 20 20 4C 44 41 20 24 34 33 30 30 2C 58 0D | LDA $4300,X.| 000000A0: 58 32 20 20 20 20 20 20 20 53 54 41 20 24 30 34 |X2 STA $04| 000000B0: 32 38 2C 59 0D 20 20 20 20 20 20 20 20 20 4C 44 |28,Y. LD| 000000C0: 41 20 24 34 32 30 30 2C 58 0D 58 31 20 20 20 20 |A $4200,X.X1 | 000000D0: 20 20 20 53 54 41 20 24 30 34 30 30 2C 59 0D 0D | STA $0400,Y..| 000000E0: 0D 42 45 47 49 4E 20 20 20 20 3D 20 2A 0D 0D 20 |.BEGIN = *.. | 000000F0: 20 20 20 20 20 20 20 20 4C 44 58 20 23 30 0D 50 | LDX #0.P| 00000100: 49 4B 20 20 20 20 20 20 4C 44 41 20 53 49 4E 31 |IK LDA SIN1| 00000110: 2C 58 0D 4C 45 4D 20 20 20 20 20 20 53 54 41 20 |,X.LEM STA | 00000120: 24 35 30 30 30 2C 58 0D 20 20 20 20 20 20 20 20 |$5000,X. | 00000130: 20 49 4E 58 0D 20 20 20 20 20 20 20 20 20 43 50 | INX. CP| 00000140: 58 20 23 32 34 0D 20 20 20 20 20 20 20 20 20 42 |X #24. B| 00000150: 4E 45 20 50 49 4B 0D 20 20 20 20 20 20 20 20 20 |NE PIK. | 00000160: 4C 44 41 20 4C 45 4D 2B 31 0D 20 20 20 20 20 20 |LDA LEM+1. | 00000170: 20 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 20 | CLC. | 00000180: 41 44 43 20 23 32 34 0D 20 20 20 20 20 20 20 20 |ADC #24. | 00000190: 20 53 54 41 20 4C 45 4D 2B 31 0D 20 20 20 20 20 | STA LEM+1. | 000001A0: 20 20 20 20 4C 44 41 20 4C 45 4D 2B 32 0D 20 20 | LDA LEM+2. | 000001B0: 20 20 20 20 20 20 20 41 44 43 20 23 30 0D 20 20 | ADC #0. | 000001C0: 20 20 20 20 20 20 20 53 54 41 20 4C 45 4D 2B 32 | STA LEM+2| 000001D0: 0D 20 20 20 20 20 20 20 20 20 49 4E 43 20 4C 41 |. INC LA| 000001E0: 2B 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |+1. LDA | 000001F0: 5A 31 2B 31 0D 20 20 20 20 20 20 20 20 20 43 4C |Z1+1. CL| 00000200: 43 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 23 |C. ADC #| 00000210: 33 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 5A |3. STA Z| 00000220: 31 2B 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |1+1. LDA| 00000230: 20 5A 31 2B 32 0D 20 20 20 20 20 20 20 20 20 41 | Z1+2. A| 00000240: 44 43 20 23 30 0D 20 20 20 20 20 20 20 20 20 53 |DC #0. S| 00000250: 54 41 20 5A 31 2B 32 0D 0D 20 20 20 20 20 20 20 |TA Z1+2.. | 00000260: 20 20 4C 44 41 20 5A 32 2B 31 0D 20 20 20 20 20 | LDA Z2+1. | 00000270: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 | CLC. | 00000280: 20 41 44 43 20 23 33 0D 20 20 20 20 20 20 20 20 | ADC #3. | 00000290: 20 53 54 41 20 5A 32 2B 31 0D 20 20 20 20 20 20 | STA Z2+1. | 000002A0: 20 20 20 4C 44 41 20 5A 32 2B 32 0D 20 20 20 20 | LDA Z2+2. | 000002B0: 20 20 20 20 20 41 44 43 20 23 30 0D 20 20 20 20 | ADC #0. | 000002C0: 20 20 20 20 20 53 54 41 20 5A 32 2B 32 0D 20 20 | STA Z2+2. | 000002D0: 20 20 20 20 20 20 20 49 4E 43 20 58 32 2B 31 0D | INC X2+1.| 000002E0: 20 20 20 20 20 20 20 20 20 49 4E 43 20 58 31 2B | INC X1+| 000002F0: 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 54 |1. LDA T| 00000300: 59 52 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 |YR. BEQ | 00000310: 4E 4F 0D 20 20 20 20 20 20 20 20 20 44 45 43 20 |NO. DEC | 00000320: 54 59 52 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 |TYR. JMP| 00000330: 20 42 45 47 49 4E 0D 54 59 52 20 20 20 20 20 20 | BEGIN.TYR | 00000340: 2E 42 59 54 45 20 33 39 0D 4E 4F 20 20 20 20 20 |.BYTE 39.NO | 00000350: 20 20 4C 44 41 20 4C 45 4D 2B 31 0D 20 20 20 20 | LDA LEM+1. | 00000360: 20 20 20 20 20 53 54 41 20 4E 4E 2B 31 0D 20 20 | STA NN+1. | 00000370: 20 20 20 20 20 20 20 4C 44 41 20 4C 45 4D 2B 32 | LDA LEM+2| 00000380: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 4E 4E |. STA NN| 00000390: 2B 32 0D 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 |+2... LD| 000003A0: 41 20 23 24 36 30 0D 4E 4E 20 20 20 20 20 20 20 |A #$60.NN | 000003B0: 53 54 41 20 24 35 30 30 30 0D 0D 0D 0D 20 20 20 |STA $5000.... | 000003C0: 20 20 20 20 20 20 4C 44 41 20 23 30 0D 20 20 20 | LDA #0. | 000003D0: 20 20 20 20 20 20 53 54 41 20 24 32 30 0D 20 20 | STA $20. | 000003E0: 20 20 20 20 20 20 20 53 54 41 20 24 44 30 32 30 | STA $D020| 000003F0: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 |. STA $D| 00000400: 30 32 31 0D 20 20 20 20 20 20 20 20 20 53 54 41 |021. STA| 00000410: 20 24 30 32 38 36 0D 20 20 20 20 20 20 20 20 20 | $0286. | 00000420: 50 48 41 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |PHA. JSR| 00000430: 20 24 45 35 34 34 0D 20 20 20 20 20 20 20 20 20 | $E544. | 00000440: 50 4C 41 0D 20 20 20 20 20 20 20 20 20 54 41 58 |PLA. TAX| 00000450: 0D 51 51 53 20 20 20 20 20 20 4C 44 41 20 23 30 |.QQS LDA #0| 00000460: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 30 |. STA $0| 00000470: 34 30 30 2B 28 30 2A 34 30 29 2C 58 0D 20 20 20 |400+(0*40),X. | 00000480: 20 20 20 20 20 20 53 54 41 20 24 30 34 30 30 2B | STA $0400+| 00000490: 28 31 2A 34 30 29 2C 58 0D 20 20 20 20 20 20 20 |(1*40),X. | 000004A0: 20 20 53 54 41 20 24 30 34 30 30 2B 28 32 2A 34 | STA $0400+(2*4| 000004B0: 30 29 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 |0),X. ST| 000004C0: 41 20 24 30 34 30 30 2B 28 33 2A 34 30 29 2C 58 |A $0400+(3*40),X| 000004D0: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 34 |. STA $4| 000004E0: 35 30 30 2C 58 0D 20 20 20 20 20 20 20 20 20 49 |500,X. I| 000004F0: 4E 58 0D 20 20 20 20 20 20 20 20 20 43 50 58 20 |NX. CPX | 00000500: 23 34 30 0D 20 20 20 20 20 20 20 20 20 42 4E 45 |#40. BNE| 00000510: 20 51 51 53 0D 0D 20 20 20 20 20 20 20 20 20 53 | QQS.. S| 00000520: 45 49 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |EI. LDA | 00000530: 23 31 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |#1. STA | 00000540: 24 44 30 31 41 0D 20 20 20 20 20 20 20 20 20 53 |$D01A. S| 00000550: 54 41 20 24 44 43 30 44 0D 20 20 20 20 20 20 20 |TA $DC0D. | 00000560: 20 20 4C 44 41 20 23 24 31 42 0D 20 20 20 20 20 | LDA #$1B. | 00000570: 20 20 20 20 53 54 41 20 24 44 30 31 31 0D 20 20 | STA $D011. | 00000580: 20 20 20 20 20 20 20 4C 44 41 20 23 3C 49 4E 54 | LDA #<INT| 00000590: 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 3E |. LDY #>| 000005A0: 49 4E 54 0D 20 20 20 20 20 20 20 20 20 53 54 41 |INT. STA| 000005B0: 20 24 30 33 31 34 0D 20 20 20 20 20 20 20 20 20 | $0314. | 000005C0: 53 54 59 20 24 30 33 31 35 0D 20 20 20 20 20 20 |STY $0315. | 000005D0: 20 20 20 43 4C 49 0D 53 53 20 20 20 20 20 20 20 | CLI.SS | 000005E0: 3D 20 2A 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 |= *. JMP| 000005F0: 20 53 53 0D 0D 0D 49 4E 54 20 20 20 20 20 20 3D | SS...INT =| 00000600: 20 2A 0D 20 20 20 20 20 20 20 20 20 52 4F 4C 20 | *. ROL | 00000610: 24 44 30 31 39 0D 20 20 20 20 20 20 20 20 20 4C |$D019. L| 00000620: 44 41 20 23 30 0D 20 20 20 20 20 20 20 20 20 53 |DA #0. S| 00000630: 54 41 20 24 44 30 32 30 0D 20 20 20 20 20 20 20 |TA $D020. | 00000640: 20 20 53 54 41 20 24 44 30 32 31 0D 20 20 20 20 | STA $D021. | 00000650: 20 20 20 20 20 4C 44 41 20 23 32 34 0D 20 20 20 | LDA #24. | 00000660: 20 20 20 20 20 20 53 54 41 20 24 44 30 31 38 0D | STA $D018.| 00000670: 56 41 20 20 20 20 20 20 20 4C 44 41 20 23 37 0D |VA LDA #7.| 00000680: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 30 | STA $D0| 00000690: 31 36 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |16. JSR | 000006A0: 24 35 30 30 30 0D 20 20 20 20 20 20 20 20 20 4A |$5000. J| 000006B0: 53 52 20 50 4C 0D 20 20 20 20 20 20 20 20 20 4A |SR PL. J| 000006C0: 53 52 20 4C 50 0D 20 20 20 20 20 20 20 20 20 4C |SR LP. L| 000006D0: 44 41 20 23 31 30 30 0D 20 20 20 20 20 20 20 20 |DA #100. | 000006E0: 20 53 54 41 20 24 44 30 31 32 0D 20 20 20 20 20 | STA $D012. | 000006F0: 20 20 20 20 4A 4D 50 20 24 45 41 38 31 0D 0D 0D | JMP $EA81...| 00000700: 0D 50 4C 20 20 20 20 20 20 20 3D 20 2A 0D 20 20 |.PL = *. | 00000710: 20 20 20 20 20 20 20 4C 44 41 20 24 32 30 0D 20 | LDA $20. | 00000720: 20 20 20 20 20 20 20 20 53 45 43 0D 20 20 20 20 | SEC. | 00000730: 20 20 20 20 20 53 42 43 20 23 32 0D 20 20 20 20 | SBC #2. | 00000740: 20 20 20 20 20 41 4E 44 20 23 24 37 46 0D 20 20 | AND #$7F. | 00000750: 20 20 20 20 20 20 20 53 54 41 20 24 32 30 0D 20 | STA $20. | 00000760: 20 20 20 20 20 20 20 20 52 54 53 0D 0D 4C 50 20 | RTS..LP | 00000770: 20 20 20 20 20 20 3D 20 2A 0D 20 20 20 20 20 20 | = *. | 00000780: 20 20 20 4C 44 41 20 56 41 2B 31 0D 20 20 20 20 | LDA VA+1. | 00000790: 20 20 20 20 20 53 45 43 0D 20 20 20 20 20 20 20 | SEC. | 000007A0: 20 20 53 42 43 20 23 32 0D 20 20 20 20 20 20 20 | SBC #2. | 000007B0: 20 20 42 4D 49 20 4C 53 0D 20 20 20 20 20 20 20 | BMI LS. | 000007C0: 20 20 53 54 41 20 56 41 2B 31 0D 20 20 20 20 20 | STA VA+1. | 000007D0: 20 20 20 20 52 54 53 0D 4C 53 20 20 20 20 20 20 | RTS.LS | 000007E0: 20 4C 44 41 20 23 37 0D 20 20 20 20 20 20 20 20 | LDA #7. | 000007F0: 20 53 54 41 20 56 41 2B 31 0D 20 20 20 20 20 20 | STA VA+1. | 00000800: 20 20 20 4C 44 58 20 23 30 0D 53 53 41 20 20 20 | LDX #0.SSA | 00000810: 20 20 20 4C 44 41 20 24 34 35 30 31 2C 58 0D 20 | LDA $4501,X. | 00000820: 20 20 20 20 20 20 20 20 53 54 41 20 24 34 35 30 | STA $450| 00000830: 30 2C 58 0D 20 20 20 20 20 20 20 20 20 49 4E 58 |0,X. INX| 00000840: 0D 20 20 20 20 20 20 20 20 20 43 50 58 20 23 34 |. CPX #4| 00000850: 30 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 53 |0. BNE S| 00000860: 53 41 0D 44 52 20 20 20 20 20 20 20 4C 44 41 20 |SA.DR LDA | 00000870: 54 45 54 31 0D 20 20 20 20 20 20 20 20 20 42 45 |TET1. BE| 00000880: 51 20 52 45 54 31 0D 20 20 20 20 20 20 20 20 20 |Q RET1. | 00000890: 41 4E 44 20 23 24 33 46 0D 20 20 20 20 20 20 20 |AND #$3F. | 000008A0: 20 20 41 53 4C 20 41 0D 20 20 20 20 20 20 20 20 | ASL A. | 000008B0: 20 41 53 4C 20 41 0D 20 20 20 20 20 20 20 20 20 | ASL A. | 000008C0: 41 53 4C 20 41 0D 20 20 20 20 20 20 20 20 20 53 |ASL A. S| 000008D0: 54 41 20 24 34 35 32 37 0D 20 20 20 20 20 20 20 |TA $4527. | 000008E0: 20 20 49 4E 43 20 44 52 2B 31 0D 20 20 20 20 20 | INC DR+1. | 000008F0: 20 20 20 20 42 4E 45 20 44 0D 20 20 20 20 20 20 | BNE D. | 00000900: 20 20 20 49 4E 43 20 44 52 2B 32 0D 44 0D 20 20 | INC DR+2.D. | 00000910: 20 20 20 20 20 20 20 52 54 53 0D 52 45 54 31 20 | RTS.RET1 | 00000920: 20 20 20 20 4A 53 52 20 52 45 53 32 0D 20 20 20 | JSR RES2. | 00000930: 20 20 20 20 20 20 4A 4D 50 20 44 52 0D 0D 52 45 | JMP DR..RE| 00000940: 53 32 20 20 20 20 20 4C 44 41 20 23 3C 54 45 54 |S2 LDA #<TET| 00000950: 31 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 |1. LDY #| 00000960: 3E 54 45 54 31 0D 20 20 20 20 20 20 20 20 20 53 |>TET1. S| 00000970: 54 41 20 44 52 2B 31 0D 20 20 20 20 20 20 20 20 |TA DR+1. | 00000980: 20 53 54 59 20 44 52 2B 32 0D 20 20 20 20 20 20 | STY DR+2. | 00000990: 20 20 20 52 54 53 0D 0D 0D 0D 54 45 54 31 20 20 | RTS....TET1 | 000009A0: 20 20 20 3D 20 2A 0D 20 20 20 20 20 20 20 20 20 | = *. | 000009B0: 2E 54 45 58 54 20 22 20 4E 49 47 45 4C 20 52 55 |.TEXT " NIGEL RU| 000009C0: 4C 45 53 20 5B 5B 5B 20 20 20 22 0D 20 20 20 20 |LES [[[ ". | 000009D0: 20 20 20 20 20 2E 42 59 54 45 20 30 0D 0D | .BYTE 0.. |
..... *= $1000. JMP BEGI
N..SIN1. LDX $20.Z2 LDA $4
000,X.Z1 LDY $4100,X.LA ORA
$4500. TAX. LDA $4300,X.
X2 STA $0428,Y. LDA $4200,
X.X1 STA $0400,Y...BEGIN = *..
LDX #0.PIK LDA SIN1,X.LEM
STA $5000,X. INX. CP
X #24. BNE PIK. LDA LEM+
1. CLC. ADC #24.
STA LEM+1. LDA LEM+2. A
DC #0. STA LEM+2. INC LA
+1. LDA Z1+1. CLC.
ADC #3. STA Z1+1. LDA
Z1+2. ADC #0. STA Z1+2.
. LDA Z2+1. CLC.
ADC #3. STA Z2+1. LDA Z
2+2. ADC #0. STA Z2+2.
INC X2+1. INC X1+1.
LDA TYR. BEQ NO. DEC
TYR. JMP BEGIN.TYR .BYTE 39
.NO LDA LEM+1. STA NN+1.
LDA LEM+2. STA NN+2...
LDA #$60.NN STA $5000....
LDA #0. STA $20. S
TA $D020. STA $D021. STA
$0286. PHA. JSR $E544.
PLA. TAX.QQS LDA #0
. STA $0400+(0*40),X. ST
A $0400+(1*40),X. STA $0400+(2*4
0),X. STA $0400+(3*40),X.
STA $4500,X. INX. CPX
#40. BNE QQS.. SEI.
LDA #1. STA $D01A. S
TA $DC0D. LDA #$1B. STA
$D011. LDA #<INT. LDY #>
INT. STA $0314. STY $031
5. CLI.SS = *. JMP
SS...INT = *. ROL $D019.
LDA #0. STA $D020.
STA $D021. LDA #24. ST
A $D018.VA LDA #7. STA $D0
16. JSR $5000. JSR PL.
JSR LP. LDA #100.
STA $D012. JMP $EA81....PL
= *. LDA $20. SEC.
SBC #2. AND #$7F. S
TA $20. RTS..LP = *.
LDA VA+1. SEC. SBC #2
. BMI LS. STA VA+1.
RTS.LS LDA #7. STA VA+
1. LDX #0.SSA LDA $4501,X.
STA $4500,X. INX.
CPX #40. BNE SSA.DR LDA
TET1. BEQ RET1. AND #$3F
. ASL A. ASL A.
ASL A. STA $4527. INC DR
+1. BNE D. INC DR+2.D.
RTS.RET1 JSR RES2. JM
P DR..RES2 LDA #<TET1. LDY #
>TET1. STA DR+1. STY DR+
2. RTS....TET1 = *.
.TEXT " NIGEL RULES [[[ ". .BY
TE 0..
> CLICK IMAGE PREVIEW FOR FULL MODAL