20
FILE INFORMATION
FILENAME(S): 20
FILE TYPE(S): PRG
FILE SIZE: 3.1K
FIRST SEEN: 2025-11-30 20:31:02
APPEARS ON: 1 disk(s)
FILE HASH
27afd0d207dd712c44570e422124875204efec06120428d38117bcf53702183f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DR ZIG | 20 | PRG | Curtcool, Nigel | 15 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 20 20 20 20 20 20 20 20 20 3B 0D 20 20 20 |.. ;. | 00000010: 20 20 20 20 20 20 3B 20 38 20 48 49 47 48 20 53 | ; 8 HIGH S| 00000020: 43 52 4F 4C 4C 0D 20 20 20 20 20 20 20 20 20 3B |CROLL. ;| 00000030: 0D 0D 0D 0D 48 38 20 20 20 20 20 20 20 3D 20 2A |....H8 = *| 00000040: 0D 0D 4C 49 4E 45 20 20 20 20 20 3D 20 31 30 0D |..LINE = 10.| 00000050: 0D 53 50 45 45 44 20 20 20 20 3D 20 31 30 0D 0D |.SPEED = 10..| 00000060: 0D 52 55 54 0D 0D 20 20 20 20 20 20 20 20 20 4C |.RUT.. L| 00000070: 44 59 20 23 53 50 45 45 44 0D 4F 4E 53 20 20 20 |DY #SPEED.ONS | 00000080: 20 20 20 4A 53 52 20 4B 41 50 0D 20 20 20 20 20 | JSR KAP. | 00000090: 20 20 20 20 44 45 59 0D 20 20 20 20 20 20 20 20 | DEY. | 000000A0: 20 42 4E 45 20 4F 4E 53 0D 20 20 20 20 20 20 20 | BNE ONS. | 000000B0: 20 20 52 54 53 0D 0D 0D 0D 0D 4B 41 50 20 20 20 | RTS.....KAP | 000000C0: 20 20 20 44 45 43 20 44 31 36 2B 31 0D 20 20 20 | DEC D16+1. | 000000D0: 20 20 20 20 20 20 4C 44 41 20 44 31 36 2B 31 0D | LDA D16+1.| 000000E0: 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 24 46 | CMP #$F| 000000F0: 46 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 49 |F. BEQ I| 00000100: 47 41 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D |GA. RTS.| 00000110: 49 47 41 20 20 20 20 20 20 4C 44 41 20 23 24 30 |IGA LDA #$0| 00000120: 37 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 44 |7. STA D| 00000130: 31 36 2B 31 0D 0D 0D 53 43 52 38 0D 20 20 20 20 |16+1...SCR8. | 00000140: 20 20 20 20 20 4C 44 58 20 23 24 30 30 0D 4D 31 | LDX #$00.M1| 00000150: 20 20 20 20 20 20 20 4C 44 41 20 24 30 34 30 31 | LDA $0401| 00000160: 2B 28 28 4C 49 4E 45 2B 30 29 2A 34 30 29 2C 58 |+((LINE+0)*40),X| 00000170: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 30 |. STA $0| 00000180: 34 30 30 2B 28 28 4C 49 4E 45 2B 30 29 2A 34 30 |400+((LINE+0)*40| 00000190: 29 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |),X. LDA| 000001A0: 20 24 30 34 30 31 2B 28 28 4C 49 4E 45 2B 31 29 | $0401+((LINE+1)| 000001B0: 2A 34 30 29 2C 58 0D 20 20 20 20 20 20 20 20 20 |*40),X. | 000001C0: 53 54 41 20 24 30 34 30 30 2B 28 28 4C 49 4E 45 |STA $0400+((LINE| 000001D0: 2B 31 29 2A 34 30 29 2C 58 0D 20 20 20 20 20 20 |+1)*40),X. | 000001E0: 20 20 20 4C 44 41 20 24 30 34 30 31 2B 28 28 4C | LDA $0401+((L| 000001F0: 49 4E 45 2B 32 29 2A 34 30 29 2C 58 0D 20 20 20 |INE+2)*40),X. | 00000200: 20 20 20 20 20 20 53 54 41 20 24 30 34 30 30 2B | STA $0400+| 00000210: 28 28 4C 49 4E 45 2B 32 29 2A 34 30 29 2C 58 0D |((LINE+2)*40),X.| 00000220: 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 30 34 | LDA $04| 00000230: 30 31 2B 28 28 4C 49 4E 45 2B 33 29 2A 34 30 29 |01+((LINE+3)*40)| 00000240: 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |,X. STA | 00000250: 24 30 34 30 30 2B 28 28 4C 49 4E 45 2B 33 29 2A |$0400+((LINE+3)*| 00000260: 34 30 29 2C 58 0D 20 20 20 20 20 20 20 20 20 4C |40),X. L| 00000270: 44 41 20 24 30 34 30 31 2B 28 28 4C 49 4E 45 2B |DA $0401+((LINE+| 00000280: 34 29 2A 34 30 29 2C 58 0D 20 20 20 20 20 20 20 |4)*40),X. | 00000290: 20 20 53 54 41 20 24 30 34 30 30 2B 28 28 4C 49 | STA $0400+((LI| 000002A0: 4E 45 2B 34 29 2A 34 30 29 2C 58 0D 20 20 20 20 |NE+4)*40),X. | 000002B0: 20 20 20 20 20 4C 44 41 20 24 30 34 30 31 2B 28 | LDA $0401+(| 000002C0: 28 4C 49 4E 45 2B 35 29 2A 34 30 29 2C 58 0D 20 |(LINE+5)*40),X. | 000002D0: 20 20 20 20 20 20 20 20 53 54 41 20 24 30 34 30 | STA $040| 000002E0: 30 2B 28 28 4C 49 4E 45 2B 35 29 2A 34 30 29 2C |0+((LINE+5)*40),| 000002F0: 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 |X. LDA $| 00000300: 30 34 30 31 2B 28 28 4C 49 4E 45 2B 36 29 2A 34 |0401+((LINE+6)*4| 00000310: 30 29 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 |0),X. ST| 00000320: 41 20 24 30 34 30 30 2B 28 28 4C 49 4E 45 2B 36 |A $0400+((LINE+6| 00000330: 29 2A 34 30 29 2C 58 0D 20 20 20 20 20 20 20 20 |)*40),X. | 00000340: 20 4C 44 41 20 24 30 34 30 31 2B 28 28 4C 49 4E | LDA $0401+((LIN| 00000350: 45 2B 37 29 2A 34 30 29 2C 58 0D 20 20 20 20 20 |E+7)*40),X. | 00000360: 20 20 20 20 53 54 41 20 24 30 34 30 30 2B 28 28 | STA $0400+((| 00000370: 4C 49 4E 45 2B 37 29 2A 34 30 29 2C 58 0D 20 20 |LINE+7)*40),X. | 00000380: 20 20 20 20 20 20 20 49 4E 58 0D 20 20 20 20 20 | INX. | 00000390: 20 20 20 20 43 50 58 20 23 33 39 0D 20 20 20 20 | CPX #39. | 000003A0: 20 20 20 20 20 42 4E 45 20 4D 31 0D 20 20 20 20 | BNE M1. | 000003B0: 20 20 20 20 20 4C 44 41 20 48 4D 0D 20 20 20 20 | LDA HM. | 000003C0: 20 20 20 20 20 43 4D 50 20 23 38 0D 20 20 20 20 | CMP #8. | 000003D0: 20 20 20 20 20 42 4E 45 20 4D 4B 0D 20 20 20 20 | BNE MK. | 000003E0: 20 20 20 20 20 4A 4D 50 20 4E 4B 0D 4D 4B 20 20 | JMP NK.MK | 000003F0: 20 20 20 20 20 49 4E 43 20 48 4D 0D 20 20 20 20 | INC HM. | 00000400: 20 20 20 20 20 4C 44 41 20 4B 41 52 0D 20 20 20 | LDA KAR. | 00000410: 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 | CLC. | 00000420: 20 20 20 52 4F 4C 20 41 0D 20 20 20 20 20 20 20 | ROL A. | 00000430: 20 20 53 54 41 20 4B 41 52 0D 20 20 20 20 20 20 | STA KAR. | 00000440: 20 20 20 42 43 43 20 45 31 0D 20 20 20 20 20 20 | BCC E1. | 00000450: 20 20 20 4C 44 41 20 23 24 30 30 0D 20 20 20 20 | LDA #$00. | 00000460: 20 20 20 20 20 4A 4D 50 20 45 53 31 0D 45 31 20 | JMP ES1.E1 | 00000470: 20 20 20 20 20 20 4C 44 41 20 23 24 32 30 0D 45 | LDA #$20.E| 00000480: 53 31 20 20 20 20 20 20 53 54 41 20 24 30 34 32 |S1 STA $042| 00000490: 37 2B 28 28 4C 49 4E 45 2B 30 29 2A 34 30 29 0D |7+((LINE+0)*40).| 000004A0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 4B 41 52 | LDA KAR| 000004B0: 2B 31 0D 20 20 20 20 20 20 20 20 20 43 4C 43 0D |+1. CLC.| 000004C0: 20 20 20 20 20 20 20 20 20 52 4F 4C 20 41 0D 20 | ROL A. | 000004D0: 20 20 20 20 20 20 20 20 53 54 41 20 4B 41 52 2B | STA KAR+| 000004E0: 31 0D 20 20 20 20 20 20 20 20 20 42 43 43 20 45 |1. BCC E| 000004F0: 41 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |A. LDA #| 00000500: 24 30 30 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 |$00. JMP| 00000510: 20 45 53 32 0D 45 41 20 20 20 20 20 20 20 4C 44 | ES2.EA LD| 00000520: 41 20 23 24 32 30 0D 45 53 32 20 20 20 20 20 20 |A #$20.ES2 | 00000530: 53 54 41 20 24 30 34 32 37 2B 28 28 4C 49 4E 45 |STA $0427+((LINE| 00000540: 2B 31 29 2A 34 30 29 0D 20 20 20 20 20 20 20 20 |+1)*40). | 00000550: 20 4C 44 41 20 4B 41 52 2B 32 0D 20 20 20 20 20 | LDA KAR+2. | 00000560: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 | CLC. | 00000570: 20 52 4F 4C 20 41 0D 20 20 20 20 20 20 20 20 20 | ROL A. | 00000580: 53 54 41 20 4B 41 52 2B 32 0D 20 20 20 20 20 20 |STA KAR+2. | 00000590: 20 20 20 42 43 43 20 45 33 0D 20 20 20 20 20 20 | BCC E3. | 000005A0: 20 20 20 4C 44 41 20 23 24 30 30 0D 20 20 20 20 | LDA #$00. | 000005B0: 20 20 20 20 20 4A 4D 50 20 45 53 33 0D 45 33 20 | JMP ES3.E3 | 000005C0: 20 20 20 20 20 20 4C 44 41 20 23 24 32 30 0D 45 | LDA #$20.E| 000005D0: 53 33 20 20 20 20 20 20 53 54 41 20 24 30 34 32 |S3 STA $042| 000005E0: 37 2B 28 28 4C 49 4E 45 2B 32 29 2A 34 30 29 0D |7+((LINE+2)*40).| 000005F0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 4B 41 52 | LDA KAR| 00000600: 2B 33 0D 20 20 20 20 20 20 20 20 20 43 4C 43 0D |+3. CLC.| 00000610: 20 20 20 20 20 20 20 20 20 52 4F 4C 20 41 0D 20 | ROL A. | 00000620: 20 20 20 20 20 20 20 20 53 54 41 20 4B 41 52 2B | STA KAR+| 00000630: 33 0D 20 20 20 20 20 20 20 20 20 42 43 43 20 45 |3. BCC E| 00000640: 34 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |4. LDA #| 00000650: 24 30 30 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 |$00. JMP| 00000660: 20 45 53 34 0D 45 34 20 20 20 20 20 20 20 4C 44 | ES4.E4 LD| 00000670: 41 20 23 24 32 30 0D 45 53 34 20 20 20 20 20 20 |A #$20.ES4 | 00000680: 53 54 41 20 24 30 34 32 37 2B 28 28 4C 49 4E 45 |STA $0427+((LINE| 00000690: 2B 33 29 2A 34 30 29 0D 20 20 20 20 20 20 20 20 |+3)*40). | 000006A0: 20 4C 44 41 20 4B 41 52 2B 34 0D 20 20 20 20 20 | LDA KAR+4. | 000006B0: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 | CLC. | 000006C0: 20 52 4F 4C 20 41 0D 20 20 20 20 20 20 20 20 20 | ROL A. | 000006D0: 53 54 41 20 4B 41 52 2B 34 0D 20 20 20 20 20 20 |STA KAR+4. | 000006E0: 20 20 20 42 43 43 20 45 35 0D 20 20 20 20 20 20 | BCC E5. | 000006F0: 20 20 20 4C 44 41 20 23 24 30 30 0D 20 20 20 20 | LDA #$00. | 00000700: 20 20 20 20 20 4A 4D 50 20 45 53 35 0D 45 35 20 | JMP ES5.E5 | 00000710: 20 20 20 20 20 20 4C 44 41 20 23 24 32 30 0D 45 | LDA #$20.E| 00000720: 53 35 20 20 20 20 20 20 53 54 41 20 24 30 34 32 |S5 STA $042| 00000730: 37 2B 28 28 4C 49 4E 45 2B 34 29 2A 34 30 29 0D |7+((LINE+4)*40).| 00000740: 20 20 20 20 20 20 20 20 20 4C 44 41 20 4B 41 52 | LDA KAR| 00000750: 2B 35 0D 20 20 20 20 20 20 20 20 20 43 4C 43 0D |+5. CLC.| 00000760: 20 20 20 20 20 20 20 20 20 52 4F 4C 20 41 0D 20 | ROL A. | 00000770: 20 20 20 20 20 20 20 20 53 54 41 20 4B 41 52 2B | STA KAR+| 00000780: 35 0D 20 20 20 20 20 20 20 20 20 42 43 43 20 45 |5. BCC E| 00000790: 36 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |6. LDA #| 000007A0: 24 30 30 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 |$00. JMP| 000007B0: 20 45 53 36 0D 45 36 20 20 20 20 20 20 20 4C 44 | ES6.E6 LD| 000007C0: 41 20 23 24 32 30 0D 45 53 36 20 20 20 20 20 20 |A #$20.ES6 | 000007D0: 53 54 41 20 24 30 34 32 37 2B 28 28 4C 49 4E 45 |STA $0427+((LINE| 000007E0: 2B 35 29 2A 34 30 29 0D 20 20 20 20 20 20 20 20 |+5)*40). | 000007F0: 20 4C 44 41 20 4B 41 52 2B 36 0D 20 20 20 20 20 | LDA KAR+6. | 00000800: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 | CLC. | 00000810: 20 52 4F 4C 20 41 0D 20 20 20 20 20 20 20 20 20 | ROL A. | 00000820: 53 54 41 20 4B 41 52 2B 36 0D 20 20 20 20 20 20 |STA KAR+6. | 00000830: 20 20 20 42 43 43 20 45 37 0D 20 20 20 20 20 20 | BCC E7. | 00000840: 20 20 20 4C 44 41 20 23 24 30 30 0D 20 20 20 20 | LDA #$00. | 00000850: 20 20 20 20 20 4A 4D 50 20 45 53 37 0D 45 37 20 | JMP ES7.E7 | 00000860: 20 20 20 20 20 20 4C 44 41 20 23 24 32 30 0D 45 | LDA #$20.E| 00000870: 53 37 20 20 20 20 20 20 53 54 41 20 24 30 34 32 |S7 STA $042| 00000880: 37 2B 28 28 4C 49 4E 45 2B 36 29 2A 34 30 29 0D |7+((LINE+6)*40).| 00000890: 20 20 20 20 20 20 20 20 20 4C 44 41 20 4B 41 52 | LDA KAR| 000008A0: 2B 37 0D 20 20 20 20 20 20 20 20 20 43 4C 43 0D |+7. CLC.| 000008B0: 20 20 20 20 20 20 20 20 20 52 4F 4C 20 41 0D 20 | ROL A. | 000008C0: 20 20 20 20 20 20 20 20 53 54 41 20 4B 41 52 2B | STA KAR+| 000008D0: 37 0D 20 20 20 20 20 20 20 20 20 42 43 43 20 45 |7. BCC E| 000008E0: 38 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |8. LDA #| 000008F0: 24 30 30 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 |$00. JMP| 00000900: 20 45 53 38 0D 45 38 20 20 20 20 20 20 20 4C 44 | ES8.E8 LD| 00000910: 41 20 23 24 32 30 0D 45 53 38 20 20 20 20 20 20 |A #$20.ES8 | 00000920: 53 54 41 20 24 30 34 32 37 2B 28 28 4C 49 4E 45 |STA $0427+((LINE| 00000930: 2B 37 29 2A 34 30 29 0D 20 20 20 20 20 20 20 20 |+7)*40). | 00000940: 20 52 54 53 0D 0D 48 4D 20 20 20 20 20 20 20 2E | RTS..HM .| 00000950: 42 59 54 45 20 24 30 30 0D 0D 4B 41 52 20 20 20 |BYTE $00..KAR | 00000960: 20 20 20 2E 42 59 54 45 20 30 2C 30 2C 30 2C 30 | .BYTE 0,0,0,0| 00000970: 2C 30 2C 30 2C 30 2C 30 0D 0D 0D 4E 4B 20 20 20 |,0,0,0,0...NK | 00000980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000990: 20 20 20 20 20 20 3B 20 3C 42 59 54 45 20 43 48 | ; <BYTE CH| 000009A0: 41 52 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |AR. LDA | 000009B0: 23 24 30 30 0D 20 20 20 20 20 20 20 20 20 53 54 |#$00. ST| 000009C0: 41 20 48 4D 0D 20 20 20 20 20 20 20 20 20 4C 44 |A HM. LD| 000009D0: 41 20 23 24 33 38 20 20 20 20 20 20 20 20 20 20 |A #$38 | 000009E0: 3B 20 3E 42 59 54 45 20 43 48 41 52 0D 20 20 20 |; >BYTE CHAR. | 000009F0: 20 20 20 20 20 20 53 54 41 20 4B 4F 2B 32 0D 20 | STA KO+2. | 00000A00: 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 30 | LDA #$00| 00000A10: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 4B 4F |. STA KO| 00000A20: 2B 31 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |+1. JSR | 00000A30: 48 4B 0D 20 20 20 20 20 20 20 20 20 43 4C 43 0D |HK. CLC.| 00000A40: 20 20 20 20 20 20 20 20 20 52 4F 4C 20 41 0D 20 | ROL A. | 00000A50: 20 20 20 20 20 20 20 20 52 4F 4C 20 41 0D 20 20 | ROL A. | 00000A60: 20 20 20 20 20 20 20 52 4F 4C 20 41 0D 20 20 20 | ROL A. | 00000A70: 20 20 20 20 20 20 53 54 41 20 4B 4F 2B 31 0D 20 | STA KO+1. | 00000A80: 20 20 20 20 20 20 20 20 4C 44 41 20 4B 4F 2B 32 | LDA KO+2| 00000A90: 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 23 30 |. ADC #0| 00000AA0: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 4B 4F |. STA KO| 00000AB0: 2B 32 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 |+2. LDX | 00000AC0: 23 24 30 30 0D 4B 4F 20 20 20 20 20 20 20 4C 44 |#$00.KO LD| 00000AD0: 41 20 24 33 38 30 30 2C 58 0D 20 20 20 20 20 20 |A $3800,X. | 00000AE0: 20 20 20 53 54 41 20 4B 41 52 2C 58 0D 20 20 20 | STA KAR,X. | 00000AF0: 20 20 20 20 20 20 49 4E 58 0D 20 20 20 20 20 20 | INX. | 00000B00: 20 20 20 43 50 58 20 23 38 0D 20 20 20 20 20 20 | CPX #8. | 00000B10: 20 20 20 42 4E 45 20 4B 4F 0D 20 20 20 20 20 20 | BNE KO. | 00000B20: 20 20 20 4A 4D 50 20 4D 4B 0D 48 4B 20 20 20 20 | JMP MK.HK | 00000B30: 20 20 20 4C 44 41 20 24 33 38 30 30 0D 20 20 20 | LDA $3800. | 00000B40: 20 20 20 20 20 20 43 4D 50 20 23 32 35 35 0D 20 | CMP #255. | 00000B50: 20 20 20 20 20 20 20 20 42 45 51 20 4E 54 0D 20 | BEQ NT. | 00000B60: 20 20 20 20 20 20 20 20 50 48 41 0D 20 20 20 20 | PHA. | 00000B70: 20 20 20 20 20 4C 44 41 20 48 4B 2B 31 0D 20 20 | LDA HK+1. | 00000B80: 20 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 | CLC. | 00000B90: 20 20 20 20 41 44 43 20 23 24 30 31 0D 20 20 20 | ADC #$01. | 00000BA0: 20 20 20 20 20 20 53 54 41 20 48 4B 2B 31 0D 0D | STA HK+1..| 00000BB0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 48 4B 2B | LDA HK+| 00000BC0: 32 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 23 |2. ADC #| 00000BD0: 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 48 |0. STA H| 00000BE0: 4B 2B 32 0D 20 20 20 20 20 20 20 20 20 50 4C 41 |K+2. PLA| 00000BF0: 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D 4E 54 |. RTS.NT| 00000C00: 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 30 0D | LDA #$00.| 00000C10: 20 20 20 20 20 20 20 20 20 53 54 41 20 48 4B 2B | STA HK+| 00000C20: 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |1. LDA #| 00000C30: 24 33 38 0D 20 20 20 20 20 20 20 20 20 53 54 41 |$38. STA| 00000C40: 20 48 4B 2B 32 0D 20 20 20 20 20 20 20 20 20 4A | HK+2. J| 00000C50: 4D 50 20 48 4B 0D 0D 0D 0D 0D 0D 0D |MP HK....... |
.. ;. ; 8 HIGH SCROLL.
;....H8 = *..LINE = 10.
.SPEED = 10...RUT.. LDY #SPEE
D.ONS JSR KAP. DEY.
BNE ONS. RTS.....KAP DEC D
16+1. LDA D16+1. CMP #$F
F. BEQ IGA. RTS.IGA
LDA #$07. STA D16+1...SCR8.
LDX #$00.M1 LDA $0401+((LINE+
0)*40),X. STA $0400+((LINE+0)*40
),X. LDA $0401+((LINE+1)*40),X.
STA $0400+((LINE+1)*40),X.
LDA $0401+((LINE+2)*40),X. ST
A $0400+((LINE+2)*40),X. LDA $04
01+((LINE+3)*40),X. STA $0400+((
LINE+3)*40),X. LDA $0401+((LINE+
4)*40),X. STA $0400+((LINE+4)*40
),X. LDA $0401+((LINE+5)*40),X.
STA $0400+((LINE+5)*40),X.
LDA $0401+((LINE+6)*40),X. ST
A $0400+((LINE+6)*40),X. LDA $04
01+((LINE+7)*40),X. STA $0400+((
LINE+7)*40),X. INX. CPX
#39. BNE M1. LDA HM.
CMP #8. BNE MK. JMP
NK.MK INC HM. LDA KAR.
CLC. ROL A. STA KA
R. BCC E1. LDA #$00.
JMP ES1.E1 LDA #$20.ES1
STA $0427+((LINE+0)*40). LDA KAR
+1. CLC. ROL A.
STA KAR+1. BCC EA. LDA #
$00. JMP ES2.EA LDA #$20.E
S2 STA $0427+((LINE+1)*40).
LDA KAR+2. CLC. ROL A.
STA KAR+2. BCC E3.
LDA #$00. JMP ES3.E3 LD
A #$20.ES3 STA $0427+((LINE+2)*40).
LDA KAR+3. CLC.
ROL A. STA KAR+3. BCC E
4. LDA #$00. JMP ES4.E4
LDA #$20.ES4 STA $0427+((LINE
+3)*40). LDA KAR+4. CLC.
ROL A. STA KAR+4.
BCC E5. LDA #$00. JMP
ES5.E5 LDA #$20.ES5 STA $042
7+((LINE+4)*40). LDA KAR+5.
CLC. ROL A. STA KAR+
5. BCC E6. LDA #$00.
JMP ES6.E6 LDA #$20.ES6
STA $0427+((LINE+5)*40). LDA KAR
+6. CLC. ROL A.
STA KAR+6. BCC E7. LDA #
$00. JMP ES7.E7 LDA #$20.E
S7 STA $0427+((LINE+6)*40).
LDA KAR+7. CLC. ROL A.
STA KAR+7. BCC E8.
LDA #$00. JMP ES8.E8 LD
A #$20.ES8 STA $0427+((LINE+7)*40).
RTS..HM .BYTE $00..KAR
.BYTE 0,0,0,0,0,0,0,0...NK
; <BYTE CHAR. LDA
#$00. STA HM. LDA #$38
; >BYTE CHAR. STA KO+2.
LDA #$00. STA KO+1.
JSR HK. CLC. ROL A.
ROL A. ROL A. ST
A KO+1. LDA KO+2. ADC #0
. STA KO+2. LDX #$00.KO
LDA $3800,X. STA KAR,X.
INX. CPX #8. BNE K
O. JMP MK.HK LDA $3800.
CMP #255. BEQ NT.
PHA. LDA HK+1. CLC.
ADC #$01. STA HK+1..
LDA HK+2. ADC #0. STA H
K+2. PLA. RTS.NT L
DA #$00. STA HK+1. LDA #
$38. STA HK+2. JMP HK...
....
> CLICK IMAGE PREVIEW FOR FULL MODAL