40
FILE INFORMATION
FILENAME(S): 40
FILE TYPE(S): PRG
FILE SIZE: 1.7K
FIRST SEEN: 2025-11-30 20:31:02
APPEARS ON: 1 disk(s)
FILE HASH
77ef7a3b7754632137f26b5d6c1f0ecd2feb772f23a4744df9e416f00bc8ded9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DR ZIG | 40 | PRG | Curtcool, Nigel | 21 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 4D 4F 56 45 20 20 20 20 20 4C 44 41 20 23 24 31 |MOVE LDA #$1| 00000010: 37 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |7. STA $| 00000020: 44 30 31 36 0D 20 20 20 20 20 20 20 20 3B 2D 2D |D016. ;--| 00000030: 2D 2D 2D 2D 2D 2D 2D 0D 44 41 54 31 20 20 20 20 |-------.DAT1 | 00000040: 20 3D 20 24 34 30 30 30 0D 44 41 54 32 20 20 20 | = $4000.DAT2 | 00000050: 20 20 3D 20 24 34 31 30 30 0D 0D 53 49 44 45 46 | = $4100..SIDEF| 00000060: 4C 44 20 20 3D 20 2A 0D 44 41 53 31 20 20 20 20 |LD = *.DAS1 | 00000070: 20 4C 44 41 20 44 41 54 31 0D 20 20 20 20 20 20 | LDA DAT1. | 00000080: 20 20 20 50 48 41 0D 20 20 20 20 20 20 20 20 20 | PHA. | 00000090: 41 4E 44 20 23 37 0D 20 20 20 20 20 20 20 20 20 |AND #7. | 000000A0: 45 4F 52 20 23 24 31 37 0D 20 20 20 20 20 20 20 |EOR #$17. | 000000B0: 20 20 53 54 41 20 4D 4F 56 45 2B 31 0D 20 20 20 | STA MOVE+1. | 000000C0: 20 20 20 20 20 20 50 4C 41 0D 20 20 20 20 20 20 | PLA. | 000000D0: 20 20 20 4C 53 52 20 41 0D 20 20 20 20 20 20 20 | LSR A. | 000000E0: 20 20 4C 53 52 20 41 0D 20 20 20 20 20 20 20 20 | LSR A. | 000000F0: 20 4C 53 52 20 41 0D 20 20 20 20 20 20 20 20 20 | LSR A. | 00000100: 43 4C 43 0D 44 41 53 32 20 20 20 20 20 41 44 43 |CLC.DAS2 ADC| 00000110: 20 44 41 54 32 0D 20 20 20 20 20 20 20 20 20 54 | DAT2. T| 00000120: 41 58 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 |AX. LDY | 00000130: 23 24 30 30 0D 4C 4F 52 54 20 20 20 20 20 4C 44 |#$00.LORT LD| 00000140: 41 20 54 58 54 31 2C 58 0D 20 20 20 20 20 20 20 |A TXT1,X. | 00000150: 20 20 53 54 41 20 24 30 34 30 30 2B 28 30 2A 34 | STA $0400+(0*4| 00000160: 30 29 2C 59 0D 20 20 20 20 20 20 20 20 20 4C 44 |0),Y. LD| 00000170: 41 20 54 58 54 32 2C 58 0D 20 20 20 20 20 20 20 |A TXT2,X. | 00000180: 20 20 53 54 41 20 24 30 34 30 30 2B 28 31 2A 34 | STA $0400+(1*4| 00000190: 30 29 2C 59 0D 20 20 20 20 20 20 20 20 20 4C 44 |0),Y. LD| 000001A0: 41 20 54 58 54 33 2C 58 0D 20 20 20 20 20 20 20 |A TXT3,X. | 000001B0: 20 20 53 54 41 20 24 30 34 30 30 2B 28 32 2A 34 | STA $0400+(2*4| 000001C0: 30 29 2C 59 0D 20 20 20 20 20 20 20 20 20 4C 44 |0),Y. LD| 000001D0: 41 20 54 58 54 34 2C 58 0D 20 20 20 20 20 20 20 |A TXT4,X. | 000001E0: 20 20 53 54 41 20 24 30 34 30 30 2B 28 33 2A 34 | STA $0400+(3*4| 000001F0: 30 29 2C 59 0D 20 20 20 20 20 20 20 20 20 4C 44 |0),Y. LD| 00000200: 41 20 54 58 54 35 2C 58 0D 20 20 20 20 20 20 20 |A TXT5,X. | 00000210: 20 20 53 54 41 20 24 30 34 30 30 2B 28 34 2A 34 | STA $0400+(4*4| 00000220: 30 29 2C 59 0D 20 20 20 20 20 20 20 20 20 4C 44 |0),Y. LD| 00000230: 41 20 54 58 54 36 2C 58 0D 20 20 20 20 20 20 20 |A TXT6,X. | 00000240: 20 20 53 54 41 20 24 30 34 30 30 2B 28 35 2A 34 | STA $0400+(5*4| 00000250: 30 29 2C 59 0D 20 20 20 20 20 20 20 20 20 49 4E |0),Y. IN| 00000260: 58 0D 20 20 20 20 20 20 20 20 20 49 4E 59 0D 20 |X. INY. | 00000270: 20 20 20 20 20 20 20 20 43 50 59 20 23 34 30 0D | CPY #40.| 00000280: 20 20 20 20 20 20 20 20 20 42 4E 45 20 4C 4F 52 | BNE LOR| 00000290: 54 0D 20 20 20 20 20 20 20 20 20 49 4E 43 20 44 |T. INC D| 000002A0: 41 53 31 2B 31 0D 20 20 20 20 20 20 20 20 20 49 |AS1+1. I| 000002B0: 4E 43 20 44 41 53 32 2B 31 0D 20 20 20 20 20 20 |NC DAS2+1. | 000002C0: 20 20 20 52 54 53 0D 0D 0D 0D 0D 54 58 54 31 20 | RTS.....TXT1 | 000002D0: 20 20 20 20 3D 20 2A 0D 20 20 20 20 20 20 20 20 | = *. | 000002E0: 20 2E 54 45 58 54 20 22 20 20 20 20 20 20 20 20 | .TEXT " | 000002F0: 20 20 47 52 41 56 49 54 59 20 20 20 22 0D 20 20 | GRAVITY ". | 00000300: 20 20 20 20 20 20 20 2E 54 45 58 54 20 22 20 20 | .TEXT " | 00000310: 20 20 20 20 20 20 20 20 47 52 41 56 49 54 59 20 | GRAVITY | 00000320: 20 20 22 0D 20 20 20 20 20 20 20 20 20 2E 54 45 | ". .TE| 00000330: 58 54 20 22 20 20 20 20 20 20 20 20 20 20 47 52 |XT " GR| 00000340: 41 56 49 54 59 20 20 20 22 0D 20 20 20 20 20 20 |AVITY ". | 00000350: 20 20 20 2E 54 45 58 54 20 22 20 20 20 20 20 20 | .TEXT " | 00000360: 20 20 20 20 47 52 41 56 49 54 59 20 20 20 22 0D | GRAVITY ".| 00000370: 0D 54 58 54 32 20 20 20 20 20 3D 20 2A 0D 20 20 |.TXT2 = *. | 00000380: 20 20 20 20 20 20 20 2E 54 45 58 54 20 22 20 20 | .TEXT " | 00000390: 20 20 20 20 20 20 20 20 20 33 30 30 33 21 20 20 | 3003! | 000003A0: 20 20 22 0D 20 20 20 20 20 20 20 20 20 2E 54 45 | ". .TE| 000003B0: 58 54 20 22 20 20 20 20 20 20 20 20 20 20 20 33 |XT " 3| 000003C0: 30 30 33 21 20 20 20 20 22 0D 20 20 20 20 20 20 |003! ". | 000003D0: 20 20 20 2E 54 45 58 54 20 22 20 20 20 20 20 20 | .TEXT " | 000003E0: 20 20 20 20 20 33 30 30 33 21 20 20 20 20 22 0D | 3003! ".| 000003F0: 20 20 20 20 20 20 20 20 20 2E 54 45 58 54 20 22 | .TEXT "| 00000400: 20 20 20 20 20 20 20 20 20 20 20 33 30 30 33 21 | 3003!| 00000410: 20 20 20 20 22 0D 54 58 54 33 20 20 20 20 20 3D | ".TXT3 =| 00000420: 20 2A 0D 20 20 20 20 20 20 20 20 20 2E 54 45 58 | *. .TEX| 00000430: 54 20 22 20 20 20 20 20 20 20 20 20 20 20 52 55 |T " RU| 00000440: 4C 45 53 20 20 20 20 22 0D 20 20 20 20 20 20 20 |LES ". | 00000450: 20 20 2E 54 45 58 54 20 22 20 20 20 20 20 20 20 | .TEXT " | 00000460: 20 20 20 20 52 55 4C 45 53 20 20 20 20 22 0D 20 | RULES ". | 00000470: 20 20 20 20 20 20 20 20 2E 54 45 58 54 20 22 20 | .TEXT " | 00000480: 20 20 20 20 20 20 20 20 20 20 52 55 4C 45 53 20 | RULES | 00000490: 20 20 20 22 0D 20 20 20 20 20 20 20 20 20 2E 54 | ". .T| 000004A0: 45 58 54 20 22 20 20 20 20 20 20 20 20 20 20 20 |EXT " | 000004B0: 52 55 4C 45 53 20 20 20 20 22 0D 54 58 54 34 20 |RULES ".TXT4 | 000004C0: 20 20 20 20 3D 20 2A 0D 20 20 20 20 20 20 20 20 | = *. | 000004D0: 20 2E 54 45 58 54 20 22 20 20 20 20 20 20 20 20 | .TEXT " | 000004E0: 20 54 48 45 20 57 4F 52 4C 44 20 20 22 0D 20 20 | THE WORLD ". | 000004F0: 20 20 20 20 20 20 20 2E 54 45 58 54 20 22 20 20 | .TEXT " | 00000500: 20 20 20 20 20 20 20 54 48 45 20 57 4F 52 4C 44 | THE WORLD| 00000510: 20 20 22 0D 20 20 20 20 20 20 20 20 20 2E 54 45 | ". .TE| 00000520: 58 54 20 22 20 20 20 20 20 20 20 20 20 54 48 45 |XT " THE| 00000530: 20 57 4F 52 4C 44 20 20 22 0D 20 20 20 20 20 20 | WORLD ". | 00000540: 20 20 20 2E 54 45 58 54 20 22 20 20 20 20 20 20 | .TEXT " | 00000550: 20 20 20 54 48 45 20 57 4F 52 4C 44 20 20 22 0D | THE WORLD ".| 00000560: 54 58 54 35 20 20 20 20 20 3D 20 2A 0D 20 20 20 |TXT5 = *. | 00000570: 20 20 20 20 20 20 2E 54 45 58 54 20 22 20 20 20 | .TEXT " | 00000580: 20 20 20 20 20 20 20 49 4E 20 59 45 41 52 20 20 | IN YEAR | 00000590: 20 22 0D 20 20 20 20 20 20 20 20 20 2E 54 45 58 | ". .TEX| 000005A0: 54 20 22 20 20 20 20 20 20 20 20 20 20 49 4E 20 |T " IN | 000005B0: 59 45 41 52 20 20 20 22 0D 20 20 20 20 20 20 20 |YEAR ". | 000005C0: 20 20 2E 54 45 58 54 20 22 20 20 20 20 20 20 20 | .TEXT " | 000005D0: 20 20 20 49 4E 20 59 45 41 52 20 20 20 22 0D 20 | IN YEAR ". | 000005E0: 20 20 20 20 20 20 20 20 2E 54 45 58 54 20 22 20 | .TEXT " | 000005F0: 20 20 20 20 20 20 20 20 20 49 4E 20 59 45 41 52 | IN YEAR| 00000600: 20 20 20 22 0D 54 58 54 36 20 20 20 20 20 3D 20 | ".TXT6 = | 00000610: 2A 0D 20 20 20 20 20 20 20 20 20 2E 54 45 58 54 |*. .TEXT| 00000620: 20 22 20 20 20 20 20 20 20 20 20 20 20 31 39 38 | " 198| 00000630: 38 21 20 20 20 20 22 0D 20 20 20 20 20 20 20 20 |8! ". | 00000640: 20 2E 54 45 58 54 20 22 20 20 20 20 20 20 20 20 | .TEXT " | 00000650: 20 20 20 31 39 38 38 21 20 20 20 20 22 0D 20 20 | 1988! ". | 00000660: 20 20 20 20 20 20 20 2E 54 45 58 54 20 22 20 20 | .TEXT " | 00000670: 20 20 20 20 20 20 20 20 20 31 39 38 38 21 20 20 | 1988! | 00000680: 20 20 22 0D 20 20 20 20 20 20 20 20 20 2E 54 45 | ". .TE| 00000690: 58 54 20 22 20 20 20 20 20 20 20 20 20 20 20 31 |XT " 1| 000006A0: 39 38 38 21 20 20 20 20 22 0D 0D 0D 0D |988! ".... |
MOVE LDA #$17. STA $D016.
;---------.DAT1 = $4000.DAT2
= $4100..SIDEFLD = *.DAS1 LDA DAT
1. PHA. AND #7.
EOR #$17. STA MOVE+1. PL
A. LSR A. LSR A.
LSR A. CLC.DAS2 ADC DAT2.
TAX. LDY #$00.LORT LD
A TXT1,X. STA $0400+(0*40),Y.
LDA TXT2,X. STA $0400+(1*4
0),Y. LDA TXT3,X. STA $0
400+(2*40),Y. LDA TXT4,X.
STA $0400+(3*40),Y. LDA TXT5,X
. STA $0400+(4*40),Y. LD
A TXT6,X. STA $0400+(5*40),Y.
INX. INY. CPY #40.
BNE LORT. INC DAS1+1.
INC DAS2+1. RTS.....TXT1
= *. .TEXT " GRAVIT
Y ". .TEXT " GRAVITY
". .TEXT " GRAVITY
". .TEXT " GRAVITY ".
.TXT2 = *. .TEXT "
3003! ". .TEXT " 3
003! ". .TEXT " 300
3! ". .TEXT " 3003!
".TXT3 = *. .TEXT "
RULES ". .TEXT "
RULES ". .TEXT "
RULES ". .TEXT "
RULES ".TXT4 = *. .TEXT "
THE WORLD ". .TEXT "
THE WORLD ". .TEXT "
THE WORLD ". .TEXT "
THE WORLD ".TXT5 = *. .T
EXT " IN YEAR ". .TEX
T " IN YEAR ". .TEXT
" IN YEAR ". .TEXT "
IN YEAR ".TXT6 = *.
.TEXT " 1988! ".
.TEXT " 1988! ". .
TEXT " 1988! ". .TE
XT " 1988! "....
> CLICK IMAGE PREVIEW FOR FULL MODAL