39
FILE INFORMATION
FILENAME(S): 39
FILE TYPE(S): PRG
FILE SIZE: 3.1K
FIRST SEEN: 2025-11-30 20:31:02
APPEARS ON: 1 disk(s)
FILE HASH
3ebfec30d3997f7c9122dd54900a23c9eddbe406fb5721fc339bd7dcdd63bc76
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DR ZIG | 39 | PRG | Curtcool, Nigel | 20 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 20 20 20 20 20 20 3B 20 56 45 52 54 49 43 |.. ; VERTIC| 00000010: 41 4C 2D 52 41 53 54 45 52 20 52 4F 55 54 49 4E |AL-RASTER ROUTIN| 00000020: 45 21 21 0D 20 20 20 20 20 20 3B 20 50 52 4F 47 |E!!. ; PROG| 00000030: 52 41 4D 4D 45 44 20 49 4E 20 31 39 38 38 20 42 |RAMMED IN 1988 B| 00000040: 59 3A 0D 20 20 20 20 20 20 3B 20 44 52 20 5A 49 |Y:. ; DR ZI| 00000050: 47 20 4F 46 20 47 52 41 56 49 54 59 20 33 30 30 |G OF GRAVITY 300| 00000060: 33 21 21 0D 20 20 20 20 20 20 3B 20 41 4C 4C 20 |3!!. ; ALL | 00000070: 4D 59 20 52 4F 55 54 49 4E 45 53 20 41 52 45 20 |MY ROUTINES ARE | 00000080: 28 43 29 20 38 38 21 21 0D 0D 0D 0D 20 20 20 20 |(C) 88!!.... | 00000090: 20 20 20 20 20 2A 3D 20 24 31 30 30 30 0D 0D 0D | *= $1000...| 000000A0: 0D 20 20 20 20 20 20 20 20 20 53 45 49 0D 20 20 |. SEI. | 000000B0: 20 20 20 20 20 20 20 4A 53 52 20 49 4E 49 54 0D | JSR INIT.| 000000C0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 37 | LDA #$7| 000000D0: 46 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |F. STA $| 000000E0: 44 43 30 44 0D 20 20 20 20 20 20 20 20 20 4C 44 |DC0D. LD| 000000F0: 41 20 23 24 31 42 0D 20 20 20 20 20 20 20 20 20 |A #$1B. | 00000100: 53 54 41 20 24 44 30 31 31 0D 20 20 20 20 20 20 |STA $D011. | 00000110: 20 20 20 4C 44 41 20 23 31 0D 20 20 20 20 20 20 | LDA #1. | 00000120: 20 20 20 53 54 41 20 24 44 30 31 39 0D 20 20 20 | STA $D019. | 00000130: 20 20 20 20 20 20 53 54 41 20 24 44 30 31 41 0D | STA $D01A.| 00000140: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 35 35 | LDA #55| 00000150: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 |. STA $D| 00000160: 30 31 32 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |012. LDA| 00000170: 20 23 3C 49 4E 54 0D 20 20 20 20 20 20 20 20 20 | #<INT. | 00000180: 4C 44 59 20 23 3E 49 4E 54 0D 20 20 20 20 20 20 |LDY #>INT. | 00000190: 20 20 20 53 54 41 20 24 30 33 31 34 0D 20 20 20 | STA $0314. | 000001A0: 20 20 20 20 20 20 53 54 59 20 24 30 33 31 35 0D | STY $0315.| 000001B0: 20 20 20 20 20 20 20 20 20 43 4C 49 0D 20 20 20 | CLI. | 000001C0: 20 20 20 20 20 20 52 54 53 0D 0D 0D 49 4E 54 20 | RTS...INT | 000001D0: 20 20 20 20 20 3D 20 2A 0D 20 20 20 20 20 20 20 | = *. | 000001E0: 20 20 41 53 4C 20 24 44 30 31 39 0D 20 20 20 20 | ASL $D019. | 000001F0: 20 20 20 20 20 4C 44 41 20 24 44 30 31 32 0D 20 | LDA $D012. | 00000200: 20 20 20 20 20 20 20 20 43 4D 50 20 23 35 35 0D | CMP #55.| 00000210: 20 20 20 20 20 20 20 20 20 42 45 51 20 47 41 41 | BEQ GAA| 00000220: 31 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 |1. CMP #| 00000230: 31 35 32 0D 20 20 20 20 20 20 20 20 20 42 45 51 |152. BEQ| 00000240: 20 47 41 41 32 0D 20 20 20 20 20 20 20 20 20 52 | GAA2. R| 00000250: 54 53 0D 0D 47 41 41 31 20 20 20 20 20 4A 4D 50 |TS..GAA1 JMP| 00000260: 20 52 41 53 31 0D 47 41 41 32 20 20 20 20 20 4A | RAS1.GAA2 J| 00000270: 4D 50 20 52 41 53 32 0D 20 20 20 20 20 20 20 20 |MP RAS2. | 00000280: 20 52 54 53 0D 0D 52 41 53 31 20 20 20 20 20 3D | RTS..RAS1 =| 00000290: 20 2A 0D 20 20 20 20 20 20 20 20 20 41 53 4C 20 | *. ASL | 000002A0: 24 44 30 31 39 0D 20 20 20 20 20 20 20 20 20 4C |$D019. L| 000002B0: 44 58 20 23 39 0D 41 41 20 20 20 20 20 20 20 44 |DX #9.AA D| 000002C0: 45 58 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 |EX. BNE | 000002D0: 41 41 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 |AA. LDX | 000002E0: 23 36 30 0D 42 42 20 20 20 20 20 20 20 4C 44 41 |#60.BB LDA| 000002F0: 20 24 44 30 31 32 0D 20 20 20 20 20 20 20 20 20 | $D012. | 00000300: 53 45 43 0D 20 20 20 20 20 20 20 20 20 53 42 43 |SEC. SBC| 00000310: 20 23 31 0D 20 20 20 20 20 20 20 20 20 41 4E 44 | #1. AND| 00000320: 20 23 37 0D 20 20 20 20 20 20 20 20 20 4F 52 41 | #7. ORA| 00000330: 20 23 24 31 30 0D 20 20 20 20 20 20 20 20 20 53 | #$10. S| 00000340: 54 41 20 24 44 30 31 31 0D 20 20 20 20 20 20 20 |TA $D011. | 00000350: 20 20 4C 44 41 20 43 4F 4C 31 2C 58 0D 20 20 20 | LDA COL1,X. | 00000360: 20 20 20 20 20 20 53 54 41 20 24 44 30 32 30 0D | STA $D020.| 00000370: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 30 | STA $D0| 00000380: 32 31 0D 20 20 20 20 20 20 20 20 20 4E 4F 50 0D |21. NOP.| 00000390: 20 20 20 20 20 20 20 20 20 4C 44 41 20 43 4F 4C | LDA COL| 000003A0: 32 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 |2,X. STA| 000003B0: 20 24 44 30 32 31 0D 20 20 20 20 20 20 20 20 20 | $D021. | 000003C0: 53 54 41 20 24 44 30 32 31 0D 20 20 20 20 20 20 |STA $D021. | 000003D0: 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 20 20 20 | NOP. | 000003E0: 4C 44 41 20 43 4F 4C 33 2C 58 0D 20 20 20 20 20 |LDA COL3,X. | 000003F0: 20 20 20 20 53 54 41 20 24 44 30 32 31 0D 20 20 | STA $D021. | 00000400: 20 20 20 20 20 20 20 53 54 41 20 24 44 30 32 30 | STA $D020| 00000410: 0D 20 20 20 20 20 20 20 20 20 4E 4F 50 0D 20 20 |. NOP. | 00000420: 20 20 20 20 20 20 20 44 45 58 0D 20 20 20 20 20 | DEX. | 00000430: 20 20 20 20 42 4E 45 20 42 42 0D 20 20 20 20 20 | BNE BB. | 00000440: 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 20 20 | NOP. | 00000450: 20 4E 4F 50 0D 20 20 20 20 20 20 20 20 20 4E 4F | NOP. NO| 00000460: 50 0D 20 20 20 20 20 20 20 20 20 4E 4F 50 0D 20 |P. NOP. | 00000470: 20 20 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 | NOP. | 00000480: 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 20 | NOP. | 00000490: 20 20 4C 44 41 20 23 30 0D 20 20 20 20 20 20 20 | LDA #0. | 000004A0: 20 20 53 54 41 20 24 44 30 32 30 0D 20 20 20 20 | STA $D020. | 000004B0: 20 20 20 20 20 53 54 41 20 24 44 30 32 31 0D 20 | STA $D021. | 000004C0: 20 20 20 20 20 20 20 20 4C 44 41 20 23 31 35 32 | LDA #152| 000004D0: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 |. STA $D| 000004E0: 30 31 32 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 |012. JMP| 000004F0: 20 24 46 45 42 43 0D 0D 0D 52 41 53 32 20 20 20 | $FEBC...RAS2 | 00000500: 20 20 3D 20 2A 0D 20 20 20 20 20 20 20 20 20 41 | = *. A| 00000510: 53 4C 20 24 44 30 31 39 0D 20 20 20 20 20 20 20 |SL $D019. | 00000520: 20 20 4C 44 41 20 23 30 0D 20 20 20 20 20 20 20 | LDA #0. | 00000530: 20 20 53 54 41 20 24 44 30 32 30 0D 20 20 20 20 | STA $D020. | 00000540: 20 20 20 20 20 53 54 41 20 24 44 30 32 31 0D 20 | STA $D021. | 00000550: 20 20 20 20 20 20 20 20 4A 53 52 20 52 55 4C 31 | JSR RUL1| 00000560: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 52 55 |. JSR RU| 00000570: 4C 32 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |L2. LDA | 00000580: 23 35 35 0D 20 20 20 20 20 20 20 20 20 53 54 41 |#55. STA| 00000590: 20 24 44 30 31 32 0D 20 20 20 20 20 20 20 20 20 | $D012. | 000005A0: 4A 4D 50 20 24 45 41 38 31 0D 0D 0D 0D 0D 0D 0D |JMP $EA81.......| 000005B0: 0D 43 4F 4C 31 20 20 20 20 20 3D 20 2A 0D 0D 20 |.COL1 = *.. | 000005C0: 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 32 2C | .BYTE 2,| 000005D0: 38 2C 31 30 2C 37 2C 31 2C 37 2C 31 30 2C 38 2C |8,10,7,1,7,10,8,| 000005E0: 32 2C 30 0D 20 20 20 20 20 20 20 20 20 2E 42 59 |2,0. .BY| 000005F0: 54 45 20 32 2C 38 2C 31 30 2C 37 2C 31 2C 37 2C |TE 2,8,10,7,1,7,| 00000600: 31 30 2C 38 2C 32 2C 30 0D 20 20 20 20 20 20 20 |10,8,2,0. | 00000610: 20 20 2E 42 59 54 45 20 32 2C 38 2C 31 30 2C 37 | .BYTE 2,8,10,7| 00000620: 2C 31 2C 37 2C 31 30 2C 38 2C 32 2C 30 0D 20 20 |,1,7,10,8,2,0. | 00000630: 20 20 20 20 20 20 20 2E 42 59 54 45 20 32 2C 38 | .BYTE 2,8| 00000640: 2C 31 30 2C 37 2C 31 2C 37 2C 31 30 2C 38 2C 32 |,10,7,1,7,10,8,2| 00000650: 2C 30 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 |,0. .BYT| 00000660: 45 20 32 2C 38 2C 31 30 2C 37 2C 31 2C 37 2C 31 |E 2,8,10,7,1,7,1| 00000670: 30 2C 38 2C 32 2C 30 0D 20 20 20 20 20 20 20 20 |0,8,2,0. | 00000680: 20 2E 42 59 54 45 20 32 2C 38 2C 31 30 2C 37 2C | .BYTE 2,8,10,7,| 00000690: 31 2C 37 2C 31 30 2C 38 2C 32 2C 30 0D 20 20 20 |1,7,10,8,2,0. | 000006A0: 20 20 20 20 20 20 2E 42 59 54 45 20 32 2C 38 2C | .BYTE 2,8,| 000006B0: 31 30 2C 37 2C 31 2C 37 2C 31 30 2C 38 2C 32 2C |10,7,1,7,10,8,2,| 000006C0: 30 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 |0. .BYTE| 000006D0: 20 32 2C 38 2C 31 30 2C 37 2C 31 2C 37 2C 31 30 | 2,8,10,7,1,7,10| 000006E0: 2C 38 2C 32 2C 30 0D 20 20 20 20 20 20 20 20 20 |,8,2,0. | 000006F0: 2E 42 59 54 45 20 32 2C 38 2C 31 30 2C 37 2C 31 |.BYTE 2,8,10,7,1| 00000700: 2C 37 2C 31 30 2C 38 2C 32 2C 30 0D 20 20 20 20 |,7,10,8,2,0. | 00000710: 20 20 20 20 20 2E 42 59 54 45 20 32 2C 38 2C 31 | .BYTE 2,8,1| 00000720: 30 2C 37 2C 31 2C 37 2C 31 30 2C 38 2C 32 2C 30 |0,7,1,7,10,8,2,0| 00000730: 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 |. .BYTE | 00000740: 32 2C 38 2C 31 30 2C 37 2C 31 2C 37 2C 31 30 2C |2,8,10,7,1,7,10,| 00000750: 38 2C 32 2C 30 0D 0D 0D 43 4F 4C 32 20 20 20 20 |8,2,0...COL2 | 00000760: 20 3D 20 2A 0D 20 20 20 20 20 20 20 20 20 2E 42 | = *. .B| 00000770: 59 54 45 20 31 31 2C 31 32 2C 31 35 2C 37 2C 31 |YTE 11,12,15,7,1| 00000780: 2C 37 2C 31 35 2C 31 32 2C 31 31 2C 30 0D 20 20 |,7,15,12,11,0. | 00000790: 20 20 20 20 20 20 20 2E 42 59 54 45 20 31 31 2C | .BYTE 11,| 000007A0: 31 32 2C 31 35 2C 37 2C 31 2C 37 2C 31 35 2C 31 |12,15,7,1,7,15,1| 000007B0: 32 2C 31 31 2C 30 0D 20 20 20 20 20 20 20 20 20 |2,11,0. | 000007C0: 2E 42 59 54 45 20 31 31 2C 31 32 2C 31 35 2C 37 |.BYTE 11,12,15,7| 000007D0: 2C 31 2C 37 2C 31 35 2C 31 32 2C 31 31 2C 30 0D |,1,7,15,12,11,0.| 000007E0: 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 31 | .BYTE 1| 000007F0: 31 2C 31 32 2C 31 35 2C 37 2C 31 2C 37 2C 31 35 |1,12,15,7,1,7,15| 00000800: 2C 31 32 2C 31 31 2C 30 0D 20 20 20 20 20 20 20 |,12,11,0. | 00000810: 20 20 2E 42 59 54 45 20 31 31 2C 31 32 2C 31 35 | .BYTE 11,12,15| 00000820: 2C 37 2C 31 2C 37 2C 31 35 2C 31 32 2C 31 31 2C |,7,1,7,15,12,11,| 00000830: 30 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 |0. .BYTE| 00000840: 20 31 31 2C 31 32 2C 31 35 2C 37 2C 31 2C 37 2C | 11,12,15,7,1,7,| 00000850: 31 35 2C 31 32 2C 31 31 2C 30 0D 20 20 20 20 20 |15,12,11,0. | 00000860: 20 20 20 20 2E 42 59 54 45 20 31 31 2C 31 32 2C | .BYTE 11,12,| 00000870: 31 35 2C 37 2C 31 2C 37 2C 31 35 2C 31 32 2C 31 |15,7,1,7,15,12,1| 00000880: 31 2C 30 0D 20 20 20 20 20 20 20 20 20 2E 42 59 |1,0. .BY| 00000890: 54 45 20 31 31 2C 31 32 2C 31 35 2C 37 2C 31 2C |TE 11,12,15,7,1,| 000008A0: 37 2C 31 35 2C 31 32 2C 31 31 2C 30 0D 20 20 20 |7,15,12,11,0. | 000008B0: 20 20 20 20 20 20 2E 42 59 54 45 20 31 31 2C 31 | .BYTE 11,1| 000008C0: 32 2C 31 35 2C 37 2C 31 2C 37 2C 31 35 2C 31 32 |2,15,7,1,7,15,12| 000008D0: 2C 31 31 2C 30 0D 20 20 20 20 20 20 20 20 20 2E |,11,0. .| 000008E0: 42 59 54 45 20 31 31 2C 31 32 2C 31 35 2C 37 2C |BYTE 11,12,15,7,| 000008F0: 31 2C 37 2C 31 35 2C 31 32 2C 31 31 2C 30 0D 20 |1,7,15,12,11,0. | 00000900: 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 31 31 | .BYTE 11| 00000910: 2C 31 32 2C 31 35 2C 37 2C 31 2C 37 2C 31 35 2C |,12,15,7,1,7,15,| 00000920: 31 32 2C 31 31 2C 30 0D 0D 43 4F 4C 33 20 20 20 |12,11,0..COL3 | 00000930: 20 20 3D 20 2A 0D 20 20 20 20 20 20 20 20 20 2E | = *. .| 00000940: 42 59 54 45 20 36 2C 34 2C 31 34 2C 33 2C 31 2C |BYTE 6,4,14,3,1,| 00000950: 33 2C 31 34 2C 34 2C 36 2C 30 0D 20 20 20 20 20 |3,14,4,6,0. | 00000960: 20 20 20 20 2E 42 59 54 45 20 36 2C 34 2C 31 34 | .BYTE 6,4,14| 00000970: 2C 33 2C 31 2C 33 2C 31 34 2C 34 2C 36 2C 30 0D |,3,1,3,14,4,6,0.| 00000980: 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 36 | .BYTE 6| 00000990: 2C 34 2C 31 34 2C 33 2C 31 2C 33 2C 31 34 2C 34 |,4,14,3,1,3,14,4| 000009A0: 2C 36 2C 30 0D 20 20 20 20 20 20 20 20 20 2E 42 |,6,0. .B| 000009B0: 59 54 45 20 36 2C 34 2C 31 34 2C 33 2C 31 2C 33 |YTE 6,4,14,3,1,3| 000009C0: 2C 31 34 2C 34 2C 36 2C 30 0D 20 20 20 20 20 20 |,14,4,6,0. | 000009D0: 20 20 20 2E 42 59 54 45 20 36 2C 34 2C 31 34 2C | .BYTE 6,4,14,| 000009E0: 33 2C 31 2C 33 2C 31 34 2C 34 2C 36 2C 30 0D 20 |3,1,3,14,4,6,0. | 000009F0: 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 36 2C | .BYTE 6,| 00000A00: 34 2C 31 34 2C 33 2C 31 2C 33 2C 31 34 2C 34 2C |4,14,3,1,3,14,4,| 00000A10: 36 2C 30 0D 20 20 20 20 20 20 20 20 20 2E 42 59 |6,0. .BY| 00000A20: 54 45 20 36 2C 34 2C 31 34 2C 33 2C 31 2C 33 2C |TE 6,4,14,3,1,3,| 00000A30: 31 34 2C 34 2C 36 2C 30 0D 20 20 20 20 20 20 20 |14,4,6,0. | 00000A40: 20 20 2E 42 59 54 45 20 36 2C 34 2C 31 34 2C 33 | .BYTE 6,4,14,3| 00000A50: 2C 31 2C 33 2C 31 34 2C 34 2C 36 2C 30 0D 20 20 |,1,3,14,4,6,0. | 00000A60: 20 20 20 20 20 20 20 2E 42 59 54 45 20 36 2C 34 | .BYTE 6,4| 00000A70: 2C 31 34 2C 33 2C 31 2C 33 2C 31 34 2C 34 2C 36 |,14,3,1,3,14,4,6| 00000A80: 2C 30 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 |,0. .BYT| 00000A90: 45 20 36 2C 34 2C 31 34 2C 33 2C 31 2C 33 2C 31 |E 6,4,14,3,1,3,1| 00000AA0: 34 2C 34 2C 36 2C 30 0D 0D 0D 0D 0D 0D 52 55 4C |4,4,6,0......RUL| 00000AB0: 31 20 20 20 20 20 3D 20 2A 0D 20 20 20 20 20 20 |1 = *. | 00000AC0: 20 20 20 4C 44 58 20 23 36 30 0D 54 52 45 20 20 | LDX #60.TRE | 00000AD0: 20 20 20 20 4C 44 41 20 43 4F 4C 31 2C 58 0D 20 | LDA COL1,X. | 00000AE0: 20 20 20 20 20 20 20 20 53 54 41 20 43 4F 4C 31 | STA COL1| 00000AF0: 2B 31 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 |+1,X. LD| 00000B00: 41 20 43 4F 4C 33 2C 58 0D 20 20 20 20 20 20 20 |A COL3,X. | 00000B10: 20 20 53 54 41 20 43 4F 4C 33 2B 31 2C 58 0D 20 | STA COL3+1,X. | 00000B20: 20 20 20 20 20 20 20 20 44 45 58 0D 20 20 20 20 | DEX. | 00000B30: 20 20 20 20 20 42 4E 45 20 54 52 45 0D 20 20 20 | BNE TRE. | 00000B40: 20 20 20 20 20 20 4C 44 41 20 43 4F 4C 31 2B 36 | LDA COL1+6| 00000B50: 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 43 |0. STA C| 00000B60: 4F 4C 31 2B 31 0D 20 20 20 20 20 20 20 20 20 4C |OL1+1. L| 00000B70: 44 41 20 43 4F 4C 33 2B 36 30 0D 20 20 20 20 20 |DA COL3+60. | 00000B80: 20 20 20 20 53 54 41 20 43 4F 4C 33 2B 31 0D 20 | STA COL3+1. | 00000B90: 20 20 20 20 20 20 20 20 52 54 53 0D 0D 52 55 4C | RTS..RUL| 00000BA0: 32 20 20 20 20 20 3D 20 2A 0D 20 20 20 20 20 20 |2 = *. | 00000BB0: 20 20 20 4C 44 58 20 23 30 0D 54 4F 20 20 20 20 | LDX #0.TO | 00000BC0: 20 20 20 4C 44 41 20 43 4F 4C 32 2B 31 2C 58 0D | LDA COL2+1,X.| 00000BD0: 20 20 20 20 20 20 20 20 20 53 54 41 20 43 4F 4C | STA COL| 00000BE0: 32 2C 58 0D 20 20 20 20 20 20 20 20 20 49 4E 58 |2,X. INX| 00000BF0: 0D 20 20 20 20 20 20 20 20 20 43 50 58 20 23 36 |. CPX #6| 00000C00: 30 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 54 |0. BNE T| 00000C10: 4F 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 43 |O. LDA C| 00000C20: 4F 4C 32 2B 31 0D 20 20 20 20 20 20 20 20 20 53 |OL2+1. S| 00000C30: 54 41 20 43 4F 4C 32 2B 36 30 0D 20 20 20 20 20 |TA COL2+60. | 00000C40: 20 20 20 20 52 54 53 0D 0D 49 4E 49 54 20 20 20 | RTS..INIT | 00000C50: 20 20 3D 20 2A 0D 20 20 20 20 20 20 20 20 20 4C | = *. L| 00000C60: 44 41 20 23 30 0D 20 20 20 20 20 20 20 20 20 53 |DA #0. S| 00000C70: 54 41 20 24 33 46 46 46 0D 20 20 20 20 20 20 20 |TA $3FFF. | 00000C80: 20 20 52 54 53 0D 0D | RTS.. |
.. ; VERTICAL-RASTER ROUTINE!!.
; PROGRAMMED IN 1988 BY:. ; DR ZI
G OF GRAVITY 3003!!. ; ALL MY ROUTI
NES ARE (C) 88!!.... *= $1000...
. SEI. JSR INIT.
LDA #$7F. STA $DC0D. LD
A #$1B. STA $D011. LDA #
1. STA $D019. STA $D01A.
LDA #55. STA $D012.
LDA #<INT. LDY #>INT.
STA $0314. STY $0315.
CLI. RTS...INT = *.
ASL $D019. LDA $D012.
CMP #55. BEQ GAA1. CMP #
152. BEQ GAA2. RTS..GAA1
JMP RAS1.GAA2 JMP RAS2.
RTS..RAS1 = *. ASL $D019.
LDX #9.AA DEX. BNE
AA. LDX #60.BB LDA $D012.
SEC. SBC #1. AND
#7. ORA #$10. STA $D011
. LDA COL1,X. STA $D020.
STA $D021. NOP.
LDA COL2,X. STA $D021.
STA $D021. NOP. LDA COL3
,X. STA $D021. STA $D020
. NOP. DEX. BNE
BB. NOP. NOP. NO
P. NOP. NOP. NOP
. LDA #0. STA $D020.
STA $D021. LDA #152.
STA $D012. JMP $FEBC...RAS2
= *. ASL $D019. LDA #0
. STA $D020. STA $D021.
JSR RUL1. JSR RUL2.
LDA #55. STA $D012.
JMP $EA81........COL1 = *..
.BYTE 2,8,10,7,1,7,10,8,2,0. .BY
TE 2,8,10,7,1,7,10,8,2,0. .BYTE
2,8,10,7,1,7,10,8,2,0. .BYTE 2,8
,10,7,1,7,10,8,2,0. .BYTE 2,8,10
,7,1,7,10,8,2,0. .BYTE 2,8,10,7,
1,7,10,8,2,0. .BYTE 2,8,10,7,1,7
,10,8,2,0. .BYTE 2,8,10,7,1,7,10
,8,2,0. .BYTE 2,8,10,7,1,7,10,8,
2,0. .BYTE 2,8,10,7,1,7,10,8,2,0
. .BYTE 2,8,10,7,1,7,10,8,2,0...
COL2 = *. .BYTE 11,12,15,7,1
,7,15,12,11,0. .BYTE 11,12,15,7,
1,7,15,12,11,0. .BYTE 11,12,15,7
,1,7,15,12,11,0. .BYTE 11,12,15,
7,1,7,15,12,11,0. .BYTE 11,12,15
,7,1,7,15,12,11,0. .BYTE 11,12,1
5,7,1,7,15,12,11,0. .BYTE 11,12,
15,7,1,7,15,12,11,0. .BYTE 11,12
,15,7,1,7,15,12,11,0. .BYTE 11,1
2,15,7,1,7,15,12,11,0. .BYTE 11,
12,15,7,1,7,15,12,11,0. .BYTE 11
,12,15,7,1,7,15,12,11,0..COL3 = *.
.BYTE 6,4,14,3,1,3,14,4,6,0.
.BYTE 6,4,14,3,1,3,14,4,6,0.
.BYTE 6,4,14,3,1,3,14,4,6,0. .B
YTE 6,4,14,3,1,3,14,4,6,0. .BYTE
6,4,14,3,1,3,14,4,6,0. .BYTE 6,
4,14,3,1,3,14,4,6,0. .BYTE 6,4,1
4,3,1,3,14,4,6,0. .BYTE 6,4,14,3
,1,3,14,4,6,0. .BYTE 6,4,14,3,1,
3,14,4,6,0. .BYTE 6,4,14,3,1,3,1
4,4,6,0......RUL1 = *. LDX #
60.TRE LDA COL1,X. STA COL1
+1,X. LDA COL3,X. STA CO
L3+1,X. DEX. BNE TRE.
LDA COL1+60. STA COL1+1.
LDA COL3+60. STA COL3+1.
RTS..RUL2 = *. LDX #
0.TO LDA COL2+1,X. STA COL
2,X. INX. CPX #60.
BNE TO. LDA COL2+1. S
TA COL2+60. RTS..INIT = *.
LDA #0. STA $3FFF.
RTS..
> CLICK IMAGE PREVIEW FOR FULL MODAL