12
FILE INFORMATION
FILENAME(S): 12
FILE TYPE(S): PRG
FILE SIZE: 2.3K
FIRST SEEN: 2025-11-30 20:31:01
APPEARS ON: 1 disk(s)
FILE HASH
6e7434a703bedb5e5b69e823866797f25bb4254c8190c9c955827114ab16ca3e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DR ZIG | 12 | PRG | Curtcool, Nigel | 12 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 0D 0D 54 52 41 20 20 20 20 20 20 3D 20 24 |....TRA = $| 00000010: 35 30 35 43 20 20 3B 41 44 52 45 53 53 20 54 4F |505C ;ADRESS TO| 00000020: 20 50 4C 41 43 45 20 33 20 4E 4F 50 0D 53 54 41 | PLACE 3 NOP.STA| 00000030: 52 20 20 20 20 20 3D 20 24 34 42 34 37 20 20 3B |R = $4B47 ;| 00000040: 53 54 41 52 54 20 4F 46 20 47 41 4D 45 21 0D 0D |START OF GAME!..| 00000050: 0D 0D 0D 0D 0D 20 20 20 20 20 20 20 20 20 2A 3D |..... *=| 00000060: 20 24 36 30 30 30 0D 53 54 41 52 54 20 20 20 20 | $6000.START | 00000070: 3D 20 2A 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 |= *.. LD| 00000080: 41 20 23 31 34 32 0D 20 20 20 20 20 20 20 20 20 |A #142. | 00000090: 4A 53 52 20 24 46 46 44 32 0D 20 20 20 20 20 20 |JSR $FFD2. | 000000A0: 20 20 20 4C 44 41 20 23 38 0D 20 20 20 20 20 20 | LDA #8. | 000000B0: 20 20 20 4A 53 52 20 24 46 46 44 32 0D 20 20 20 | JSR $FFD2. | 000000C0: 20 20 20 20 20 20 4C 44 41 20 23 32 31 0D 20 20 | LDA #21. | 000000D0: 20 20 20 20 20 20 20 53 54 41 20 24 44 30 31 38 | STA $D018| 000000E0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 38 |. LDA #8| 000000F0: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 |. STA $D| 00000100: 30 31 36 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |016. LDA| 00000110: 20 23 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 | #0. STA| 00000120: 20 24 44 30 32 30 0D 20 20 20 20 20 20 20 20 20 | $D020. | 00000130: 53 54 41 20 24 44 30 32 31 0D 20 20 20 20 20 20 |STA $D021. | 00000140: 20 20 20 53 54 41 20 24 30 32 38 36 0D 20 20 20 | STA $0286. | 00000150: 20 20 20 20 20 20 4A 53 52 20 24 45 35 34 34 0D | JSR $E544.| 00000160: 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 30 0D | LDX #0.| 00000170: 41 33 20 20 20 20 20 20 20 4C 44 41 20 54 45 54 |A3 LDA TET| 00000180: 2C 58 0D 20 20 20 20 20 20 20 20 20 41 4E 44 20 |,X. AND | 00000190: 23 24 33 46 0D 20 20 20 20 20 20 20 20 20 43 4C |#$3F. CL| 000001A0: 43 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 23 |C. ADC #| 000001B0: 31 32 38 0D 20 20 20 20 20 20 20 20 20 53 54 41 |128. STA| 000001C0: 20 24 30 34 32 38 2C 58 0D 20 20 20 20 20 20 20 | $0428,X. | 000001D0: 20 20 49 4E 58 0D 20 20 20 20 20 20 20 20 20 43 | INX. C| 000001E0: 50 58 20 23 34 2A 34 30 0D 20 20 20 20 20 20 20 |PX #4*40. | 000001F0: 20 20 42 4E 45 20 41 33 0D 20 20 20 20 20 20 20 | BNE A3. | 00000200: 20 20 53 45 49 0D 20 20 20 20 20 20 20 20 20 4C | SEI. L| 00000210: 44 41 20 23 24 30 31 0D 20 20 20 20 20 20 20 20 |DA #$01. | 00000220: 20 53 54 41 20 24 44 30 31 41 0D 20 20 20 20 20 | STA $D01A. | 00000230: 20 20 20 20 53 54 41 20 24 44 43 30 44 0D 20 20 | STA $DC0D. | 00000240: 20 20 20 20 20 20 20 4C 44 41 20 23 24 31 42 0D | LDA #$1B.| 00000250: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 30 | STA $D0| 00000260: 31 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |11. LDA | 00000270: 23 3C 49 4E 54 0D 20 20 20 20 20 20 20 20 20 4C |#<INT. L| 00000280: 44 59 20 23 3E 49 4E 54 0D 20 20 20 20 20 20 20 |DY #>INT. | 00000290: 20 20 53 54 41 20 24 30 33 31 34 0D 20 20 20 20 | STA $0314. | 000002A0: 20 20 20 20 20 53 54 59 20 24 30 33 31 35 0D 20 | STY $0315. | 000002B0: 20 20 20 20 20 20 20 20 4C 44 41 20 23 34 38 0D | LDA #48.| 000002C0: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 30 | STA $D0| 000002D0: 31 32 0D 20 20 20 20 20 20 20 20 20 43 4C 49 0D |12. CLI.| 000002E0: 20 20 20 20 20 20 20 20 20 4A 4D 50 20 47 45 54 | JMP GET| 000002F0: 0D 0D 0D 0D 20 20 20 20 20 20 20 20 20 2A 3D 20 |.... *= | 00000300: 53 54 41 52 54 2B 32 35 36 0D 0D 0D 4C 49 47 45 |START+256...LIGE| 00000310: 20 20 20 20 20 3D 20 2A 0D 20 20 20 20 20 20 20 | = *. | 00000320: 20 20 2E 42 59 54 45 20 24 32 38 2C 38 2C 38 2C | .BYTE $28,8,8,| 00000330: 38 2C 38 2C 38 2C 38 2C 31 0D 20 20 20 20 20 20 |8,8,8,8,1. | 00000340: 20 20 20 2E 42 59 54 45 20 38 2C 38 2C 38 2C 38 | .BYTE 8,8,8,8| 00000350: 2C 38 2C 38 2C 38 2C 31 0D 20 20 20 20 20 20 20 |,8,8,8,1. | 00000360: 20 20 2E 42 59 54 45 20 38 2C 38 2C 38 2C 38 2C | .BYTE 8,8,8,8,| 00000370: 38 2C 38 2C 38 2C 31 0D 20 20 20 20 20 20 20 20 |8,8,8,1. | 00000380: 20 2E 42 59 54 45 20 38 2C 38 2C 38 2C 38 2C 38 | .BYTE 8,8,8,8,8| 00000390: 2C 38 2C 38 2C 31 0D 20 20 20 20 20 20 20 20 20 |,8,8,1. | 000003A0: 2E 42 59 54 45 20 38 2C 38 2C 38 2C 38 2C 38 2C |.BYTE 8,8,8,8,8,| 000003B0: 38 2C 38 2C 31 0D 20 20 20 20 20 20 20 20 20 2E |8,8,1. .| 000003C0: 42 59 54 45 20 38 2C 38 2C 38 2C 38 2C 38 2C 38 |BYTE 8,8,8,8,8,8| 000003D0: 2C 38 2C 31 0D 20 20 20 20 20 20 20 20 20 2E 42 |,8,1. .B| 000003E0: 59 54 45 20 38 2C 38 2C 38 2C 38 2C 38 2C 38 2C |YTE 8,8,8,8,8,8,| 000003F0: 38 2C 31 0D 0D 0D 49 4E 54 20 20 20 20 20 20 3D |8,1...INT =| 00000400: 20 2A 0D 20 20 20 20 20 20 20 20 20 52 4F 4C 20 | *. ROL | 00000410: 24 44 30 31 39 0D 41 41 20 20 20 20 20 20 20 4C |$D019.AA L| 00000420: 44 41 20 24 44 30 31 32 0D 20 20 20 20 20 20 20 |DA $D012. | 00000430: 20 20 43 4D 50 20 23 34 38 0D 20 20 20 20 20 20 | CMP #48. | 00000440: 20 20 20 42 4E 45 20 41 41 0D 20 20 20 20 20 20 | BNE AA. | 00000450: 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 20 20 20 | NOP. | 00000460: 4E 4F 50 0D 20 20 20 20 20 20 20 20 20 4E 4F 50 |NOP. NOP| 00000470: 0D 20 20 20 20 20 20 20 20 20 4E 4F 50 0D 20 20 |. NOP. | 00000480: 20 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 | NOP. | 00000490: 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 20 20 | NOP. | 000004A0: 20 4C 44 58 20 23 30 0D 41 31 20 20 20 20 20 20 | LDX #0.A1 | 000004B0: 20 4C 44 59 20 4C 49 47 45 2C 58 0D 41 32 20 20 | LDY LIGE,X.A2 | 000004C0: 20 20 20 20 20 44 45 59 0D 20 20 20 20 20 20 20 | DEY. | 000004D0: 20 20 42 4E 45 20 41 32 0D 20 20 20 20 20 20 20 | BNE A2. | 000004E0: 20 20 4C 44 41 20 43 4F 4C 53 2C 58 0D 20 20 20 | LDA COLS,X. | 000004F0: 20 20 20 20 20 20 53 54 41 20 24 44 30 32 30 0D | STA $D020.| 00000500: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 30 | STA $D0| 00000510: 32 31 0D 20 20 20 20 20 20 20 20 20 49 4E 58 0D |21. INX.| 00000520: 20 20 20 20 20 20 20 20 20 43 50 58 20 23 34 36 | CPX #46| 00000530: 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 41 31 |. BNE A1| 00000540: 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 24 45 |. JMP $E| 00000550: 41 33 31 0D 0D 0D 0D 43 4F 4C 53 20 20 20 20 20 |A31....COLS | 00000560: 3D 20 2A 0D 20 20 20 20 20 20 20 20 20 2E 42 59 |= *. .BY| 00000570: 54 45 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 0D 20 |TE 0,0,0,0,0,0. | 00000580: 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 32 2C | .BYTE 2,| 00000590: 31 30 2C 37 2C 31 2C 37 2C 31 30 2C 32 2C 30 0D |10,7,1,7,10,2,0.| 000005A0: 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 36 | .BYTE 6| 000005B0: 2C 31 34 2C 33 2C 31 2C 33 2C 31 34 2C 36 2C 30 |,14,3,1,3,14,6,0| 000005C0: 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 |. .BYTE | 000005D0: 31 31 2C 31 32 2C 31 35 2C 31 2C 31 35 2C 31 32 |11,12,15,1,15,12| 000005E0: 2C 31 31 2C 30 0D 20 20 20 20 20 20 20 20 20 2E |,11,0. .| 000005F0: 42 59 54 45 20 39 2C 38 2C 37 2C 31 2C 37 2C 38 |BYTE 9,8,7,1,7,8| 00000600: 2C 39 2C 30 0D 20 20 20 20 20 20 20 20 20 2E 42 |,9,0. .B| 00000610: 59 54 45 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |YTE 0,0,0,0,0,0,| 00000620: 30 2C 30 0D 0D 0D 0D 0D 54 45 54 20 20 20 20 20 |0,0.....TET | 00000630: 20 3D 20 2A 0D 20 20 20 20 20 20 20 20 20 2E 54 | = *. .T| 00000640: 45 58 54 20 22 20 20 22 0D 20 20 20 20 20 20 20 |EXT " ". | 00000650: 20 20 2E 54 45 58 54 20 22 20 20 54 52 41 49 4E | .TEXT " TRAIN| 00000660: 45 52 2D 4D 45 4E 55 20 42 59 20 44 52 20 5A 22 |ER-MENU BY DR Z"| 00000670: 0D 20 20 20 20 20 20 20 20 20 2E 54 45 58 54 20 |. .TEXT | 00000680: 22 49 47 20 4F 46 20 55 4E 49 43 21 21 20 20 20 |"IG OF UNIC!! | 00000690: 20 22 0D 20 20 20 20 20 20 20 20 20 2E 54 45 58 | ". .TEX| 000006A0: 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |T " | 000006B0: 20 20 20 20 20 20 20 22 0D 20 20 20 20 20 20 20 | ". | 000006C0: 20 20 2E 54 45 58 54 20 22 20 20 20 20 20 20 20 | .TEXT " | 000006D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 0D 20 | ". | 000006E0: 20 20 20 20 20 20 20 20 2E 54 45 58 54 20 22 20 | .TEXT " | 000006F0: 20 20 20 22 0D 20 20 20 20 20 20 20 20 20 2E 54 | ". .T| 00000700: 45 58 54 20 22 20 44 4F 20 59 4F 55 20 57 41 4E |EXT " DO YOU WAN| 00000710: 54 20 55 4E 4C 49 4D 49 54 45 22 0D 20 20 20 20 |T UNLIMITE". | 00000720: 20 20 20 20 20 2E 54 45 58 54 20 22 44 20 4C 49 | .TEXT "D LI| 00000730: 56 45 53 20 3F 3F 20 20 20 20 20 22 0D 20 20 20 |VES ?? ". | 00000740: 20 20 20 20 20 20 2E 54 45 58 54 20 22 20 20 20 | .TEXT " | 00000750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000760: 20 22 0D 20 20 20 20 20 20 20 20 20 2E 54 45 58 | ". .TEX| 00000770: 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |T " | 00000780: 20 20 20 20 20 20 20 22 0D 0D 0D 0D 47 45 54 20 | "....GET | 00000790: 20 20 20 20 20 3D 20 2A 0D 47 45 54 54 20 20 20 | = *.GETT | 000007A0: 20 20 4A 53 52 20 24 46 46 45 34 0D 20 20 20 20 | JSR $FFE4. | 000007B0: 20 20 20 20 20 43 4D 50 20 23 22 59 22 0D 20 20 | CMP #"Y". | 000007C0: 20 20 20 20 20 20 20 42 45 51 20 4A 41 0D 20 20 | BEQ JA. | 000007D0: 20 20 20 20 20 20 20 43 4D 50 20 23 22 4E 22 0D | CMP #"N".| 000007E0: 20 20 20 20 20 20 20 20 20 42 45 51 20 4E 45 4A | BEQ NEJ| 000007F0: 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 47 45 |. JMP GE| 00000800: 54 54 0D 0D 4A 41 20 20 20 20 20 20 20 3D 20 2A |TT..JA = *| 00000810: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 |. LDA #$| 00000820: 45 41 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 |EA. LDX | 00000830: 23 30 0D 41 34 20 20 20 20 20 20 20 53 54 41 20 |#0.A4 STA | 00000840: 54 52 41 2C 58 0D 20 20 20 20 20 20 20 20 20 49 |TRA,X. I| 00000850: 4E 58 0D 20 20 20 20 20 20 20 20 20 43 50 58 20 |NX. CPX | 00000860: 23 33 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 |#3. BNE | 00000870: 41 34 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 |A4. JMP | 00000880: 53 54 41 52 54 53 0D 0D 0D 0D 4E 45 4A 20 20 20 |STARTS....NEJ | 00000890: 20 20 20 3D 20 2A 0D 0D 0D 0D 53 54 41 52 54 53 | = *....STARTS| 000008A0: 20 20 20 3D 20 2A 0D 20 20 20 20 20 20 20 20 20 | = *. | 000008B0: 53 45 49 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |SEI. JSR| 000008C0: 20 24 46 46 38 31 0D 20 20 20 20 20 20 20 20 20 | $FF81. | 000008D0: 4A 53 52 20 24 46 46 38 34 0D 20 20 20 20 20 20 |JSR $FF84. | 000008E0: 20 20 20 4A 53 52 20 24 46 46 38 41 0D 20 20 20 | JSR $FF8A. | 000008F0: 20 20 20 20 20 20 4A 4D 50 20 53 54 41 52 0D 0D | JMP STAR..|
....TRA = $505C ;ADRESS TO PLACE 3
NOP.STAR = $4B47 ;START OF GAME!..
..... *= $6000.START = *..
LDA #142. JSR $FFD2.
LDA #8. JSR $FFD2. LD
A #21. STA $D018. LDA #8
. STA $D016. LDA #0.
STA $D020. STA $D021.
STA $0286. JSR $E544.
LDX #0.A3 LDA TET,X. AND
#$3F. CLC. ADC #128.
STA $0428,X. INX. C
PX #4*40. BNE A3. SEI.
LDA #$01. STA $D01A.
STA $DC0D. LDA #$1B.
STA $D011. LDA #<INT. L
DY #>INT. STA $0314. STY
$0315. LDA #48. STA $D0
12. CLI. JMP GET....
*= START+256...LIGE = *.
.BYTE $28,8,8,8,8,8,8,1. .BYTE
8,8,8,8,8,8,8,1. .BYTE 8,8,8,8,
8,8,8,1. .BYTE 8,8,8,8,8,8,8,1.
.BYTE 8,8,8,8,8,8,8,1. .
BYTE 8,8,8,8,8,8,8,1. .BYTE 8,8,
8,8,8,8,8,1...INT = *. ROL
$D019.AA LDA $D012. CMP #4
8. BNE AA. NOP.
NOP. NOP. NOP. N
OP. NOP. LDX #0.A1
LDY LIGE,X.A2 DEY. BNE A2
. LDA COLS,X. STA $D020.
STA $D021. INX.
CPX #46. BNE A1. JMP $E
A31....COLS = *. .BYTE 0,0,0
,0,0,0. .BYTE 2,10,7,1,7,10,2,0.
.BYTE 6,14,3,1,3,14,6,0.
.BYTE 11,12,15,1,15,12,11,0. .
BYTE 9,8,7,1,7,8,9,0. .BYTE 0,0,
0,0,0,0,0,0.....TET = *. .T
EXT " ". .TEXT " TRAINER-MENU
BY DR Z". .TEXT "IG OF UNIC!!
". .TEXT " "
. .TEXT " ".
.TEXT " ". .TEXT " DO
YOU WANT UNLIMITE". .TEXT "D LI
VES ?? ". .TEXT "
". .TEXT "
"....GET = *.GETT JSR $F
FE4. CMP #"Y". BEQ JA.
CMP #"N". BEQ NEJ.
JMP GETT..JA = *. LDA #$
EA. LDX #0.A4 STA TRA,X.
INX. CPX #3. BNE
A4. JMP STARTS....NEJ = *..
..STARTS = *. SEI. JSR
$FF81. JSR $FF84. JSR $
FF8A. JMP STAR..
> CLICK IMAGE PREVIEW FOR FULL MODAL