27
FILE INFORMATION
FILENAME(S): 27
FILE TYPE(S): PRG
FILE SIZE: 611b
FIRST SEEN: 2025-11-30 20:31:02
APPEARS ON: 1 disk(s)
FILE HASH
a60ae894bfbfb4f2ae801733ba9f34a3e87bb11a830d1caf476728a5ba698df0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DR ZIG | 27 | PRG | Curtcool, Nigel | 16 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 4D 4F 56 45 20 20 20 20 20 4C 44 41 20 23 |..MOVE LDA #| 00000010: 24 31 37 0D 20 20 20 20 20 20 20 20 20 53 54 41 |$17. STA| 00000020: 20 24 44 30 31 36 0D 20 20 20 20 20 20 20 20 3B | $D016. ;| 00000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 44 41 54 53 20 20 |---------.DATS | 00000040: 20 20 20 3D 20 24 33 46 30 30 0D 0D 53 49 44 45 | = $3F00..SIDE| 00000050: 46 4C 44 20 20 3D 20 2A 0D 44 41 53 31 20 20 20 |FLD = *.DAS1 | 00000060: 20 20 4C 44 41 20 44 41 54 53 0D 20 20 20 20 20 | LDA DATS. | 00000070: 20 20 20 20 50 48 41 0D 20 20 20 20 20 20 20 20 | PHA. | 00000080: 20 41 4E 44 20 23 37 0D 20 20 20 20 20 20 20 20 | AND #7. | 00000090: 20 45 4F 52 20 23 24 31 37 0D 20 20 20 20 20 20 | EOR #$17. | 000000A0: 20 20 20 53 54 41 20 4D 4F 56 45 2B 31 0D 20 20 | STA MOVE+1. | 000000B0: 20 20 20 20 20 20 20 50 4C 41 0D 20 20 20 20 20 | PLA. | 000000C0: 20 20 20 20 4C 53 52 20 41 0D 20 20 20 20 20 20 | LSR A. | 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 43 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 | CLC. AD| 00000100: 43 20 23 30 0D 20 20 20 20 20 20 20 20 20 54 41 |C #0. TA| 00000110: 58 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 |X. LDY #| 00000120: 24 30 30 0D 4C 4F 52 54 20 20 20 20 20 4C 44 41 |$00.LORT LDA| 00000130: 20 54 58 54 31 2C 58 0D 20 20 20 20 20 20 20 20 | TXT1,X. | 00000140: 20 53 54 41 20 24 30 34 30 30 2B 28 30 2A 34 30 | STA $0400+(0*40| 00000150: 29 2C 59 0D 20 20 20 20 20 20 20 20 20 49 4E 58 |),Y. INX| 00000160: 0D 20 20 20 20 20 20 20 20 20 49 4E 59 0D 20 20 |. INY. | 00000170: 20 20 20 20 20 20 20 43 50 59 20 23 34 30 0D 20 | CPY #40. | 00000180: 20 20 20 20 20 20 20 20 42 4E 45 20 4C 4F 52 54 | BNE LORT| 00000190: 0D 20 20 20 20 20 20 20 20 20 49 4E 43 20 44 41 |. INC DA| 000001A0: 54 53 2B 31 0D 20 20 20 20 20 20 20 20 20 52 54 |TS+1. RT| 000001B0: 53 0D 0D 0D 0D 0D 54 58 54 31 20 20 20 20 20 3D |S.....TXT1 =| 000001C0: 20 2A 0D 20 20 20 20 20 20 20 20 20 2E 54 45 58 | *. .TEX| 000001D0: 54 20 22 20 20 20 20 20 20 20 20 20 20 41 43 52 |T " ACR| 000001E0: 49 44 49 54 59 20 20 22 0D 20 20 20 20 20 20 20 |IDITY ". | 000001F0: 20 20 2E 54 45 58 54 20 22 20 20 20 20 20 20 20 | .TEXT " | 00000200: 20 20 20 41 43 52 49 44 49 54 59 20 20 22 0D 20 | ACRIDITY ". | 00000210: 20 20 20 20 20 20 20 20 2E 54 45 58 54 20 22 20 | .TEXT " | 00000220: 20 20 20 20 20 20 20 20 20 41 43 52 49 44 49 54 | ACRIDIT| 00000230: 59 20 20 22 0D 20 20 20 20 20 20 20 20 20 2E 54 |Y ". .T| 00000240: 45 58 54 20 22 20 20 20 20 20 20 20 20 20 20 41 |EXT " A| 00000250: 43 52 49 44 49 54 59 20 20 22 0D 0D 0D 0D 0D 0D |CRIDITY "......| 00000260: 0D 0D 0D |... |
..MOVE LDA #$17. STA $D016.
;---------.DATS = $3F00..SIDE
FLD = *.DAS1 LDA DATS. PHA.
AND #7. EOR #$17.
STA MOVE+1. PLA. LSR
A. LSR A. LSR A.
CLC. ADC #0. TAX.
LDY #$00.LORT LDA TXT1,X.
STA $0400+(0*40),Y. INX.
INY. CPY #40. BNE LORT
. INC DATS+1. RTS.....TX
T1 = *. .TEXT " ACR
IDITY ". .TEXT " ACRID
ITY ". .TEXT " ACRIDIT
Y ". .TEXT " ACRIDITY
".........
> CLICK IMAGE PREVIEW FOR FULL MODAL