38
FILE INFORMATION
FILENAME(S): 38
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-11-30 20:31:02
APPEARS ON: 1 disk(s)
FILE HASH
1398158f239b1fb6e3cfd60abf1457f3f5a5f44a356e7856e4c26be3600c4c9b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DR ZIG | 38 | PRG | Curtcool, Nigel | 19 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 20 20 20 20 20 20 20 20 20 3B 20 42 41 43 |.. ; BAC| 00000010: 4B 44 52 4F 50 2D 53 43 52 4F 4C 4C 20 38 58 38 |KDROP-SCROLL 8X8| 00000020: 0D 0D 0D 0D 4E 54 45 58 54 20 20 20 20 2E 54 45 |....NTEXT .TE| 00000030: 58 54 20 22 08 05 0A 13 01 20 01 0C 0C 05 20 13 |XT "..... .... .| 00000040: 01 0D 0D 05 0E 20 20 20 20 20 22 0D 20 20 20 20 |..... ". | 00000050: 20 20 20 20 20 2E 42 59 54 45 20 30 0D 0D 0D 4E | .BYTE 0...N| 00000060: 4C 49 4E 45 20 20 20 20 3D 20 31 30 0D 0D 4E 32 |LINE = 10..N2| 00000070: 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 30 38 | .BYTE $08| 00000080: 0D 0D 4E 53 50 45 45 44 20 20 20 3D 20 37 0D 0D |..NSPEED = 7..| 00000090: 4E 36 20 20 20 20 20 20 20 2E 42 59 54 45 20 30 |N6 .BYTE 0| 000000A0: 0D 0D 0D 0D 4D 45 47 38 58 38 0D 20 20 20 20 20 |....MEG8X8. | 000000B0: 20 20 20 20 4C 44 58 20 23 4E 53 50 45 45 44 0D | LDX #NSPEED.| 000000C0: 4E 37 20 20 20 20 20 20 20 53 54 58 20 4E 36 0D |N7 STX N6.| 000000D0: 20 20 20 20 20 20 20 20 20 4A 53 52 20 4E 38 0D | JSR N8.| 000000E0: 20 20 20 20 20 20 20 20 20 4C 44 58 20 4E 36 0D | LDX N6.| 000000F0: 20 20 20 20 20 20 20 20 20 44 45 58 0D 20 20 20 | DEX. | 00000100: 20 20 20 20 20 20 42 4E 45 20 4E 37 0D 0D 44 31 | BNE N7..D1| 00000110: 36 20 20 20 20 20 20 4C 44 41 20 23 24 30 30 20 |6 LDA #$00 | 00000120: 20 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 | ;. | 00000130: 20 20 20 4F 52 41 20 23 25 31 31 31 31 30 30 30 | ORA #%1111000| 00000140: 30 20 20 20 20 3B 0D 20 20 20 20 20 20 20 20 20 |0 ;. | 00000150: 53 54 41 20 24 44 30 31 36 20 20 20 20 20 20 20 |STA $D016 | 00000160: 20 20 20 3B 0D 20 20 20 20 20 20 20 20 20 4C 44 | ;. LD| 00000170: 41 20 23 32 38 20 20 20 20 20 20 20 3B 0D 20 20 |A #28 ;. | 00000180: 20 20 20 20 20 20 20 53 54 41 20 35 33 32 37 32 | STA 53272| 00000190: 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 20 20 | ;. | 000001A0: 20 52 54 53 0D 0D 0D 0D 0D 4E 38 0D 20 20 20 20 | RTS.....N8. | 000001B0: 20 20 20 20 20 44 45 43 20 44 31 36 2B 31 0D 20 | DEC D16+1. | 000001C0: 20 20 20 20 20 20 20 20 4C 44 41 20 44 31 36 2B | LDA D16+| 000001D0: 31 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 |1. CMP #| 000001E0: 24 46 46 0D 20 20 20 20 20 20 20 20 20 42 45 51 |$FF. BEQ| 000001F0: 20 4E 31 0D 20 20 20 20 20 20 20 20 20 52 54 53 | N1. RTS| 00000200: 0D 0D 4E 31 0D 20 20 20 20 20 20 20 20 20 4C 44 |..N1. LD| 00000210: 41 20 23 24 30 37 0D 20 20 20 20 20 20 20 20 20 |A #$07. | 00000220: 53 54 41 20 44 31 36 2B 31 0D 20 20 20 20 20 20 |STA D16+1. | 00000230: 20 20 20 4C 44 59 20 23 24 30 30 0D 54 54 31 20 | LDY #$00.TT1 | 00000240: 20 20 20 20 20 4C 44 41 20 24 30 34 30 31 2B 28 | LDA $0401+(| 00000250: 4E 4C 49 4E 45 2A 34 30 29 2C 59 0D 20 20 20 20 |NLINE*40),Y. | 00000260: 20 20 20 20 20 53 54 41 20 24 30 34 30 30 2B 28 | STA $0400+(| 00000270: 4E 4C 49 4E 45 2A 34 30 29 2C 59 0D 20 20 20 20 |NLINE*40),Y. | 00000280: 20 20 20 20 20 4C 44 41 20 24 30 34 30 31 2B 28 | LDA $0401+(| 00000290: 28 4E 4C 49 4E 45 2B 31 29 2A 34 30 29 2C 59 0D |(NLINE+1)*40),Y.| 000002A0: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 30 34 | STA $04| 000002B0: 30 30 2B 28 28 4E 4C 49 4E 45 2B 31 29 2A 34 30 |00+((NLINE+1)*40| 000002C0: 29 2C 59 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |),Y. LDA| 000002D0: 20 24 30 34 30 31 2B 28 28 4E 4C 49 4E 45 2B 32 | $0401+((NLINE+2| 000002E0: 29 2A 34 30 29 2C 59 0D 20 20 20 20 20 20 20 20 |)*40),Y. | 000002F0: 20 53 54 41 20 24 30 34 30 30 2B 28 28 4E 4C 49 | STA $0400+((NLI| 00000300: 4E 45 2B 32 29 2A 34 30 29 2C 59 0D 20 20 20 20 |NE+2)*40),Y. | 00000310: 20 20 20 20 20 4C 44 41 20 24 30 34 30 31 2B 28 | LDA $0401+(| 00000320: 28 4E 4C 49 4E 45 2B 33 29 2A 34 30 29 2C 59 0D |(NLINE+3)*40),Y.| 00000330: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 30 34 | STA $04| 00000340: 30 30 2B 28 28 4E 4C 49 4E 45 2B 33 29 2A 34 30 |00+((NLINE+3)*40| 00000350: 29 2C 59 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |),Y. LDA| 00000360: 20 24 30 34 30 31 2B 28 28 4E 4C 49 4E 45 2B 34 | $0401+((NLINE+4| 00000370: 29 2A 34 30 29 2C 59 0D 20 20 20 20 20 20 20 20 |)*40),Y. | 00000380: 20 53 54 41 20 24 30 34 30 30 2B 28 28 4E 4C 49 | STA $0400+((NLI| 00000390: 4E 45 2B 34 29 2A 34 30 29 2C 59 0D 20 20 20 20 |NE+4)*40),Y. | 000003A0: 20 20 20 20 20 4C 44 41 20 24 30 34 30 31 2B 28 | LDA $0401+(| 000003B0: 28 4E 4C 49 4E 45 2B 35 29 2A 34 30 29 2C 59 0D |(NLINE+5)*40),Y.| 000003C0: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 30 34 | STA $04| 000003D0: 30 30 2B 28 28 4E 4C 49 4E 45 2B 35 29 2A 34 30 |00+((NLINE+5)*40| 000003E0: 29 2C 59 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |),Y. LDA| 000003F0: 20 24 30 34 30 31 2B 28 28 4E 4C 49 4E 45 2B 36 | $0401+((NLINE+6| 00000400: 29 2A 34 30 29 2C 59 0D 20 20 20 20 20 20 20 20 |)*40),Y. | 00000410: 20 53 54 41 20 24 30 34 30 30 2B 28 28 4E 4C 49 | STA $0400+((NLI| 00000420: 4E 45 2B 36 29 2A 34 30 29 2C 59 0D 20 20 20 20 |NE+6)*40),Y. | 00000430: 20 20 20 20 20 4C 44 41 20 24 30 34 30 31 2B 28 | LDA $0401+(| 00000440: 28 4E 4C 49 4E 45 2B 37 29 2A 34 30 29 2C 59 0D |(NLINE+7)*40),Y.| 00000450: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 30 34 | STA $04| 00000460: 30 30 2B 28 28 4E 4C 49 4E 45 2B 37 29 2A 34 30 |00+((NLINE+7)*40| 00000470: 29 2C 59 0D 20 20 20 20 20 20 20 20 20 49 4E 59 |),Y. INY| 00000480: 0D 20 20 20 20 20 20 20 20 20 43 50 59 20 23 34 |. CPY #4| 00000490: 30 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 54 |0. BNE T| 000004A0: 54 31 0D 0D 4E 39 0D 20 20 20 20 20 20 20 20 20 |T1..N9. | 000004B0: 4C 44 41 20 4E 32 0D 20 20 20 20 20 20 20 20 20 |LDA N2. | 000004C0: 43 4D 50 20 23 38 0D 20 20 20 20 20 20 20 20 20 |CMP #8. | 000004D0: 42 45 51 20 4E 33 0D 20 20 20 20 20 20 20 20 20 |BEQ N3. | 000004E0: 54 41 59 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |TAY. LDA| 000004F0: 20 4E 31 33 0D 20 20 20 20 20 20 20 20 20 53 54 | N13. ST| 00000500: 41 20 24 46 45 0D 20 20 20 20 20 20 20 20 20 4C |A $FE. L| 00000510: 44 41 20 4E 31 33 2B 31 0D 20 20 20 20 20 20 20 |DA N13+1. | 00000520: 20 20 53 54 41 20 24 46 46 0D 20 20 20 20 20 20 | STA $FF. | 00000530: 20 20 20 4C 44 41 20 28 24 46 45 29 2C 59 0D 20 | LDA ($FE),Y. | 00000540: 20 20 20 20 20 20 20 20 53 54 41 20 24 30 34 32 | STA $042| 00000550: 37 2B 28 4E 4C 49 4E 45 2A 34 30 29 0D 20 20 20 |7+(NLINE*40). | 00000560: 20 20 20 20 20 20 4A 53 52 20 4E 31 34 0D 20 20 | JSR N14. | 00000570: 20 20 20 20 20 20 20 4C 44 41 20 28 24 46 45 29 | LDA ($FE)| 00000580: 2C 59 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |,Y. STA | 00000590: 24 30 34 32 37 2B 28 28 4E 4C 49 4E 45 2B 31 29 |$0427+((NLINE+1)| 000005A0: 2A 34 30 29 0D 20 20 20 20 20 20 20 20 20 4A 53 |*40). JS| 000005B0: 52 20 4E 31 34 0D 20 20 20 20 20 20 20 20 20 4C |R N14. L| 000005C0: 44 41 20 28 24 46 45 29 2C 59 0D 20 20 20 20 20 |DA ($FE),Y. | 000005D0: 20 20 20 20 53 54 41 20 24 30 34 32 37 2B 28 28 | STA $0427+((| 000005E0: 4E 4C 49 4E 45 2B 32 29 2A 34 30 29 0D 20 20 20 |NLINE+2)*40). | 000005F0: 20 20 20 20 20 20 4A 53 52 20 4E 31 34 0D 20 20 | JSR N14. | 00000600: 20 20 20 20 20 20 20 4C 44 41 20 28 24 46 45 29 | LDA ($FE)| 00000610: 2C 59 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |,Y. STA | 00000620: 24 30 34 32 37 2B 28 28 4E 4C 49 4E 45 2B 33 29 |$0427+((NLINE+3)| 00000630: 2A 34 30 29 0D 20 20 20 20 20 20 20 20 20 4A 53 |*40). JS| 00000640: 52 20 4E 31 34 0D 20 20 20 20 20 20 20 20 20 4C |R N14. L| 00000650: 44 41 20 28 24 46 45 29 2C 59 0D 20 20 20 20 20 |DA ($FE),Y. | 00000660: 20 20 20 20 53 54 41 20 24 30 34 32 37 2B 28 28 | STA $0427+((| 00000670: 4E 4C 49 4E 45 2B 34 29 2A 34 30 29 0D 20 20 20 |NLINE+4)*40). | 00000680: 20 20 20 20 20 20 4A 53 52 20 4E 31 34 0D 20 20 | JSR N14. | 00000690: 20 20 20 20 20 20 20 4C 44 41 20 28 24 46 45 29 | LDA ($FE)| 000006A0: 2C 59 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |,Y. STA | 000006B0: 24 30 34 32 37 2B 28 28 4E 4C 49 4E 45 2B 35 29 |$0427+((NLINE+5)| 000006C0: 2A 34 30 29 0D 20 20 20 20 20 20 20 20 20 4A 53 |*40). JS| 000006D0: 52 20 4E 31 34 0D 20 20 20 20 20 20 20 20 20 4C |R N14. L| 000006E0: 44 41 20 28 24 46 45 29 2C 59 0D 20 20 20 20 20 |DA ($FE),Y. | 000006F0: 20 20 20 20 53 54 41 20 24 30 34 32 37 2B 28 28 | STA $0427+((| 00000700: 4E 4C 49 4E 45 2B 36 29 2A 34 30 29 0D 20 20 20 |NLINE+6)*40). | 00000710: 20 20 20 20 20 20 4A 53 52 20 4E 31 34 0D 20 20 | JSR N14. | 00000720: 20 20 20 20 20 20 20 4C 44 41 20 28 24 46 45 29 | LDA ($FE)| 00000730: 2C 59 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |,Y. STA | 00000740: 24 30 34 32 37 2B 28 28 4E 4C 49 4E 45 2B 37 29 |$0427+((NLINE+7)| 00000750: 2A 34 30 29 0D 0D 0D 20 20 20 20 20 20 20 20 20 |*40)... | 00000760: 49 4E 43 20 4E 32 0D 20 20 20 20 20 20 20 20 20 |INC N2. | 00000770: 52 54 53 0D 0D 4E 33 20 20 20 20 20 20 20 4C 44 |RTS..N3 LD| 00000780: 59 20 23 24 30 30 0D 4E 31 31 20 20 20 20 20 20 |Y #$00.N11 | 00000790: 4C 44 41 20 4E 54 45 58 54 2C 59 0D 20 20 20 20 |LDA NTEXT,Y. | 000007A0: 20 20 20 20 20 43 4D 50 20 23 30 0D 20 20 20 20 | CMP #0. | 000007B0: 20 20 20 20 20 42 45 51 20 4E 31 30 0D 20 20 20 | BEQ N10. | 000007C0: 20 20 20 20 20 20 54 41 58 0D 20 20 20 20 20 20 | TAX. | 000007D0: 20 20 20 4C 44 41 20 23 24 36 30 0D 20 20 20 20 | LDA #$60. | 000007E0: 20 20 20 20 20 53 54 41 20 4E 31 33 2B 31 0D 20 | STA N13+1. | 000007F0: 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 30 | LDA #$00| 00000800: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 4E 31 |. STA N1| 00000810: 33 0D 4E 31 35 20 20 20 20 20 20 43 50 58 20 23 |3.N15 CPX #| 00000820: 30 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 4E |0. BEQ N| 00000830: 35 0D 20 20 20 20 20 20 20 20 20 43 4C 43 0D 20 |5. CLC. | 00000840: 20 20 20 20 20 20 20 20 4C 44 41 20 4E 31 33 0D | LDA N13.| 00000850: 20 20 20 20 20 20 20 20 20 41 44 43 20 23 36 34 | ADC #64| 00000860: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 4E 31 |. STA N1| 00000870: 33 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 4E |3. LDA N| 00000880: 31 33 2B 31 0D 20 20 20 20 20 20 20 20 20 41 44 |13+1. AD| 00000890: 43 20 23 30 0D 20 20 20 20 20 20 20 20 20 53 54 |C #0. ST| 000008A0: 41 20 4E 31 33 2B 31 0D 20 20 20 20 20 20 20 20 |A N13+1. | 000008B0: 20 44 45 58 0D 20 20 20 20 20 20 20 20 20 4A 4D | DEX. JM| 000008C0: 50 20 4E 31 35 0D 0D 0D 4E 31 34 20 20 20 20 20 |P N15...N14 | 000008D0: 20 43 4C 43 0D 20 20 20 20 20 20 20 20 20 4C 44 | CLC. LD| 000008E0: 41 20 24 46 45 0D 20 20 20 20 20 20 20 20 20 41 |A $FE. A| 000008F0: 44 43 20 23 38 0D 20 20 20 20 20 20 20 20 20 53 |DC #8. S| 00000900: 54 41 20 24 46 45 0D 20 20 20 20 20 20 20 20 20 |TA $FE. | 00000910: 4C 44 41 20 24 46 46 0D 20 20 20 20 20 20 20 20 |LDA $FF. | 00000920: 20 41 44 43 20 23 30 0D 20 20 20 20 20 20 20 20 | ADC #0. | 00000930: 20 53 54 41 20 24 46 46 0D 20 20 20 20 20 20 20 | STA $FF. | 00000940: 20 20 52 54 53 0D 0D 0D 0D 4E 31 30 20 20 20 20 | RTS....N10 | 00000950: 20 20 4A 53 52 20 4E 31 32 0D 20 20 20 20 20 20 | JSR N12. | 00000960: 20 20 20 4A 4D 50 20 4E 33 0D 0D 4E 31 32 20 20 | JMP N3..N12 | 00000970: 20 20 20 20 4C 44 41 20 23 3C 4E 54 45 58 54 0D | LDA #<NTEXT.| 00000980: 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 3E 4E | LDY #>N| 00000990: 54 45 58 54 0D 20 20 20 20 20 20 20 20 20 53 54 |TEXT. ST| 000009A0: 41 20 4E 31 31 2B 31 0D 20 20 20 20 20 20 20 20 |A N11+1. | 000009B0: 20 53 54 59 20 4E 31 31 2B 32 0D 20 20 20 20 20 | STY N11+2. | 000009C0: 20 20 20 20 52 54 53 0D 0D 4E 35 0D 20 20 20 20 | RTS..N5. | 000009D0: 20 20 20 20 20 4C 44 41 20 23 24 30 30 0D 20 20 | LDA #$00. | 000009E0: 20 20 20 20 20 20 20 53 54 41 20 4E 32 0D 20 20 | STA N2. | 000009F0: 20 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 | CLC. | 00000A00: 20 20 20 20 4C 44 41 20 4E 31 31 2B 31 0D 20 20 | LDA N11+1. | 00000A10: 20 20 20 20 20 20 20 41 44 43 20 23 31 0D 20 20 | ADC #1. | 00000A20: 20 20 20 20 20 20 20 53 54 41 20 4E 31 31 2B 31 | STA N11+1| 00000A30: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 4E 31 |. LDA N1| 00000A40: 31 2B 32 0D 20 20 20 20 20 20 20 20 20 41 44 43 |1+2. ADC| 00000A50: 20 23 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 | #0. STA| 00000A60: 20 4E 31 31 2B 32 0D 0D 20 20 20 20 20 20 20 20 | N11+2.. | 00000A70: 20 4A 4D 50 20 4E 39 0D 0D 0D 4E 31 33 20 20 20 | JMP N9...N13 | 00000A80: 20 20 20 2E 42 59 54 45 20 30 2C 30 0D 0D | .BYTE 0,0.. |
.. ; BACKDROP-SCROLL 8X8....NTEX
T .TEXT "..... .... ...... ".
.BYTE 0...NLINE = 10..N2 .
BYTE $08..NSPEED = 7..N6 .BYTE 0
....MEG8X8. LDX #NSPEED.N7
STX N6. JSR N8. LDX N6.
DEX. BNE N7..D16 L
DA #$00 ;. ORA #%1111000
0 ;. STA $D016 ;.
LDA #28 ;. STA 53272
;. RTS.....N8. DEC
D16+1. LDA D16+1. CMP #
$FF. BEQ N1. RTS..N1.
LDA #$07. STA D16+1.
LDY #$00.TT1 LDA $0401+(NLINE*40
),Y. STA $0400+(NLINE*40),Y.
LDA $0401+((NLINE+1)*40),Y.
STA $0400+((NLINE+1)*40),Y. LDA
$0401+((NLINE+2)*40),Y. STA $04
00+((NLINE+2)*40),Y. LDA $0401+(
(NLINE+3)*40),Y. STA $0400+((NLI
NE+3)*40),Y. LDA $0401+((NLINE+4
)*40),Y. STA $0400+((NLINE+4)*40
),Y. LDA $0401+((NLINE+5)*40),Y.
STA $0400+((NLINE+5)*40),Y.
LDA $0401+((NLINE+6)*40),Y.
STA $0400+((NLINE+6)*40),Y. LDA
$0401+((NLINE+7)*40),Y. STA $04
00+((NLINE+7)*40),Y. INY.
CPY #40. BNE TT1..N9.
LDA N2. CMP #8. BEQ N3.
TAY. LDA N13. ST
A $FE. LDA N13+1. STA $F
F. LDA ($FE),Y. STA $042
7+(NLINE*40). JSR N14. L
DA ($FE),Y. STA $0427+((NLINE+1)
*40). JSR N14. LDA ($FE)
,Y. STA $0427+((NLINE+2)*40).
JSR N14. LDA ($FE),Y.
STA $0427+((NLINE+3)*40). JS
R N14. LDA ($FE),Y. STA
$0427+((NLINE+4)*40). JSR N14.
LDA ($FE),Y. STA $0427+((
NLINE+5)*40). JSR N14. L
DA ($FE),Y. STA $0427+((NLINE+6)
*40). JSR N14. LDA ($FE)
,Y. STA $0427+((NLINE+7)*40)...
INC N2. RTS..N3 LD
Y #$00.N11 LDA NTEXT,Y. CMP
#0. BEQ N10. TAX.
LDA #$60. STA N13+1.
LDA #$00. STA N13.N15 CPX #
0. BEQ N5. CLC.
LDA N13. ADC #64. STA N1
3. LDA N13+1. ADC #0.
STA N13+1. DEX. JM
P N15...N14 CLC. LDA $FE.
ADC #8. STA $FE.
LDA $FF. ADC #0. STA $FF
. RTS....N10 JSR N12.
JMP N3..N12 LDA #<NTEXT.
LDY #>NTEXT. STA N11+1.
STY N11+2. RTS..N5. LDA
#$00. STA N2. CLC.
LDA N11+1. ADC #1. S
TA N11+1. LDA N11+2. ADC
#0. STA N11+2.. JMP N9.
..N13 .BYTE 0,0..
> CLICK IMAGE PREVIEW FOR FULL MODAL