WIS9
FILE INFORMATION
FILENAME(S): WIS9
FILE TYPE(S): SEQ
FILE SIZE: 3.6K
FIRST SEEN: 2025-11-30 21:11:47
APPEARS ON: 1 disk(s)
FILE HASH
d262eef2ef00a0966a01c1975a4b9b43d0ed77182066b4c95a2678c18d106bb5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 ASSEMBLER | WIS9 | SEQ | DuncanTwain | 24 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 2A 3D 24 37 32 33 30 0D 5A 57 42 | *=$7230.ZWB| 00000010: 20 20 4A 53 52 20 20 24 37 44 45 30 20 20 20 20 | JSR $7DE0 | 00000020: 3B 54 49 4D 2E 49 4E 54 52 50 2E 55 49 54 2E 0D |;TIM.INTRP.UIT..| 00000030: 20 20 20 20 20 4C 44 59 20 23 24 30 33 20 20 20 | LDY #$03 | 00000040: 20 20 20 3B 48 41 41 4C 2E 0D 20 20 20 20 20 4C | ;HAAL.. L| 00000050: 44 58 20 23 24 30 32 20 20 20 20 20 20 3B 42 52 |DX #$02 ;BR| 00000060: 45 4E 47 2E 0D 5A 57 30 20 20 4C 44 41 20 20 20 |ENG..ZW0 LDA | 00000070: 37 30 31 2C 59 20 20 20 3B 58 30 2F 58 31 20 4C |701,Y ;X0/X1 L| 00000080: 53 49 47 2E 0D 20 20 20 20 20 41 4E 44 20 23 24 |SIG.. AND #$| 00000090: 30 37 0D 20 20 20 20 20 53 54 41 20 20 24 31 43 |07. STA $1C| 000000A0: 2C 58 20 20 20 20 3B 58 49 30 2F 58 49 31 2E 0D |,X ;XI0/XI1..| 000000B0: 20 20 20 20 20 45 4F 52 20 20 20 37 30 31 2C 59 | EOR 701,Y| 000000C0: 0D 20 20 20 20 20 53 54 41 20 20 24 34 43 2C 58 |. STA $4C,X| 000000D0: 20 20 20 20 3B 38 58 30 2F 38 58 31 20 4C 53 49 | ;8X0/8X1 LSI| 000000E0: 47 2E 0D 20 20 20 20 20 4C 44 41 20 20 20 37 30 |G.. LDA 70| 000000F0: 32 2C 59 20 20 20 3B 58 30 2F 58 31 20 48 53 49 |2,Y ;X0/X1 HSI| 00000100: 47 2E 0D 20 20 20 20 20 43 4C 43 0D 20 20 20 20 |G.. CLC. | 00000110: 2E 42 59 54 45 20 24 36 41 20 20 20 20 20 20 3B |.BYTE $6A ;| 00000120: 52 4F 52 2E 0D 20 20 20 20 2E 42 59 54 45 20 24 |ROR.. .BYTE $| 00000130: 37 45 20 20 20 20 20 20 3B 52 4F 52 20 24 34 43 |7E ;ROR $4C| 00000140: 2C 58 2E 0D 20 20 20 20 2E 42 59 54 45 20 24 34 |,X.. .BYTE $4| 00000150: 43 20 20 20 20 20 20 3B 34 4B 30 2F 34 4B 31 20 |C ;4K0/4K1 | 00000160: 43 4F 4D 50 4C 2E 0D 20 20 20 20 20 4C 44 41 20 |COMPL.. LDA | 00000170: 20 20 37 30 30 2C 59 20 20 20 3B 59 30 2F 59 31 | 700,Y ;Y0/Y1| 00000180: 2E 0D 20 20 20 20 20 41 4E 44 20 23 24 30 37 0D |.. AND #$07.| 00000190: 20 20 20 20 20 53 54 41 20 20 24 31 44 2C 58 20 | STA $1D,X | 000001A0: 20 20 20 3B 59 49 30 2F 59 49 31 2E 0D 20 20 20 | ;YI0/YI1.. | 000001B0: 20 20 45 4F 52 20 20 20 37 30 30 2C 59 0D 20 20 | EOR 700,Y. | 000001C0: 20 20 2E 42 59 54 45 20 24 34 41 20 20 20 20 20 | .BYTE $4A | 000001D0: 20 3B 4C 53 52 2E 0D 20 20 20 20 2E 42 59 54 45 | ;LSR.. .BYTE| 000001E0: 20 24 34 41 20 20 20 20 20 20 3B 4C 53 52 2E 0D | $4A ;LSR..| 000001F0: 20 20 20 20 2E 42 59 54 45 20 24 34 41 20 20 20 | .BYTE $4A | 00000200: 20 20 20 3B 4C 53 52 2E 0D 20 20 20 20 20 53 54 | ;LSR.. ST| 00000210: 41 20 20 24 34 44 2C 58 20 20 20 20 3B 52 30 2F |A $4D,X ;R0/| 00000220: 52 31 2E 0D 20 20 20 20 20 44 45 58 20 20 20 20 |R1.. DEX | 00000230: 20 20 20 20 20 20 20 3B 41 46 54 45 4C 20 42 52 | ;AFTEL BR| 00000240: 45 4E 47 2E 0D 20 20 20 20 20 44 45 58 0D 20 20 |ENG.. DEX. | 00000250: 20 20 20 44 45 59 20 20 20 20 20 20 20 20 20 20 | DEY | 00000260: 20 3B 41 46 54 45 4C 20 48 41 41 4C 2E 0D 20 20 | ;AFTEL HAAL.. | 00000270: 20 20 20 44 45 59 0D 20 20 20 20 20 44 45 59 0D | DEY. DEY.| 00000280: 20 20 20 20 20 42 50 4C 20 20 20 5A 57 30 0D 20 | BPL ZW0. | 00000290: 20 20 20 20 4A 53 52 20 20 24 37 44 46 32 20 20 | JSR $7DF2 | 000002A0: 20 20 3B 48 49 52 41 4D 20 41 41 4E 2E 0D 20 20 | ;HIRAM AAN.. | 000002B0: 20 20 20 4C 44 41 20 20 24 34 43 20 20 20 20 20 | LDA $4C | 000002C0: 20 3B 4B 30 3D 4B 31 3F 0D 20 20 20 20 20 43 4D | ;K0=K1?. CM| 000002D0: 50 20 20 24 34 45 0D 20 20 20 20 20 42 45 51 20 |P $4E. BEQ | 000002E0: 20 20 5A 57 32 0D 5A 57 31 30 20 4C 44 58 20 20 | ZW2.ZW10 LDX | 000002F0: 24 31 43 20 20 20 20 20 20 3B 4E 45 45 4E 3A 58 |$1C ;NEEN:X| 00000300: 49 30 3D 30 3F 0D 20 20 20 20 20 42 45 51 20 20 |I0=0?. BEQ | 00000310: 20 5A 57 31 31 0D 20 20 20 20 20 4A 53 52 20 20 | ZW11. JSR | 00000320: 20 57 52 45 20 20 20 20 20 3B 4E 45 45 3A 20 5A | WRE ;NEE: Z| 00000330: 45 54 20 4D 41 53 4B 0D 20 20 20 20 20 53 54 41 |ET MASK. STA| 00000340: 20 20 24 30 32 20 20 20 20 20 20 3B 50 4F 45 54 | $02 ;POET| 00000350: 53 20 52 45 43 48 54 53 2E 0D 20 20 20 20 20 4C |S RECHTS.. L| 00000360: 44 58 20 20 24 34 43 20 20 20 20 20 20 3B 34 4B |DX $4C ;4K| 00000370: 30 2E 0D 20 20 20 20 20 4A 53 52 20 20 20 57 49 |0.. JSR WI| 00000380: 54 20 20 20 20 20 3B 4F 4E 56 4F 4C 4C 45 44 49 |T ;ONVOLLEDI| 00000390: 47 45 0D 20 20 20 20 20 43 4C 43 20 20 20 20 20 |GE. CLC | 000003A0: 20 20 20 20 20 20 3B 42 45 47 49 4E 4B 4F 4C 4F | ;BEGINKOLO| 000003B0: 4D 2E 0D 20 20 20 20 20 4C 44 41 20 20 24 34 43 |M.. LDA $4C| 000003C0: 20 20 20 20 20 20 3B 4B 30 20 2B 20 31 20 3D 3E | ;K0 + 1 =>| 000003D0: 20 4B 30 2E 0D 20 20 20 20 20 41 44 43 20 23 24 | K0.. ADC #$| 000003E0: 30 34 0D 20 20 20 20 20 53 54 41 20 20 24 34 43 |04. STA $4C| 000003F0: 0D 5A 57 31 31 20 4C 44 58 20 20 24 31 45 20 20 |.ZW11 LDX $1E | 00000400: 20 20 20 20 3B 4A 41 3A 58 49 31 3D 37 3F 0D 20 | ;JA:XI1=7?. | 00000410: 20 20 20 20 43 50 58 20 23 24 30 37 0D 20 20 20 | CPX #$07. | 00000420: 20 20 42 45 51 20 20 20 5A 57 31 32 0D 20 20 20 | BEQ ZW12. | 00000430: 20 20 4A 53 52 20 20 20 57 4C 49 20 20 20 20 20 | JSR WLI | 00000440: 3B 4E 45 45 3A 20 5A 45 54 20 4D 41 53 4B 0D 20 |;NEE: ZET MASK. | 00000450: 20 20 20 20 53 54 41 20 20 24 30 32 20 20 20 20 | STA $02 | 00000460: 20 20 3B 50 4F 45 54 53 20 4C 49 4E 4B 53 2E 0D | ;POETS LINKS..| 00000470: 20 20 20 20 20 4C 44 58 20 20 24 34 45 20 20 20 | LDX $4E | 00000480: 20 20 20 3B 34 4B 31 2E 0D 20 20 20 20 20 4A 53 | ;4K1.. JS| 00000490: 52 20 20 20 57 49 54 20 20 20 20 20 3B 4F 4E 56 |R WIT ;ONV| 000004A0: 4F 4C 4C 45 44 49 47 45 0D 20 20 20 20 20 53 45 |OLLEDIGE. SE| 000004B0: 43 20 20 20 20 20 20 20 20 20 20 20 3B 45 49 4E |C ;EIN| 000004C0: 44 4B 4F 4C 4F 4D 2E 0D 20 20 20 20 20 4C 44 41 |DKOLOM.. LDA| 000004D0: 20 20 24 34 45 20 20 20 20 20 20 3B 4B 31 20 2D | $4E ;K1 -| 000004E0: 20 31 20 3D 3E 20 4B 31 2E 0D 20 20 20 20 20 53 | 1 => K1.. S| 000004F0: 42 43 20 23 24 30 34 0D 20 20 20 20 20 53 54 41 |BC #$04. STA| 00000500: 20 20 24 34 45 0D 5A 57 31 32 20 4C 44 41 20 20 | $4E.ZW12 LDA | 00000510: 24 34 45 20 20 20 20 20 20 3B 4B 31 3C 4B 30 3F |$4E ;K1<K0?| 00000520: 0D 20 20 20 20 20 43 4D 50 20 20 24 34 43 0D 20 |. CMP $4C. | 00000530: 20 20 20 20 42 43 43 20 20 20 5A 57 39 20 20 20 | BCC ZW9 | 00000540: 20 20 3B 4A 41 3A 20 4B 4C 41 41 52 2E 0D 20 20 | ;JA: KLAAR.. | 00000550: 20 20 20 4C 44 41 20 23 24 30 30 20 20 20 20 20 | LDA #$00 | 00000560: 20 3B 4E 45 45 4E 3A 4D 41 53 4B 45 52 0D 20 20 | ;NEEN:MASKER. | 00000570: 20 20 20 53 54 41 20 20 24 30 32 20 20 20 20 20 | STA $02 | 00000580: 20 3B 4D 45 54 20 4E 55 4C 4C 45 4E 2E 0D 5A 57 | ;MET NULLEN..ZW| 00000590: 33 20 20 4C 44 58 20 20 24 34 43 20 20 20 20 20 |3 LDX $4C | 000005A0: 20 3B 34 4B 30 2E 0D 20 20 20 20 20 4A 53 52 20 | ;4K0.. JSR | 000005B0: 20 20 57 49 54 20 20 20 20 20 3B 50 4F 45 54 53 | WIT ;POETS| 000005C0: 2E 0D 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 |.. CLC | 000005D0: 20 20 20 20 20 3B 4B 30 20 2B 20 31 20 3D 3E 20 | ;K0 + 1 => | 000005E0: 4B 30 2E 0D 20 20 20 20 20 4C 44 41 20 20 24 34 |K0.. LDA $4| 000005F0: 43 0D 20 20 20 20 20 41 44 43 20 23 24 30 34 0D |C. ADC #$04.| 00000600: 20 20 20 20 20 53 54 41 20 20 24 34 43 0D 20 20 | STA $4C. | 00000610: 20 20 20 4C 44 41 20 20 24 34 45 20 20 20 20 20 | LDA $4E | 00000620: 20 3B 4B 30 3C 3D 4B 31 3F 0D 20 20 20 20 20 43 | ;K0<=K1?. C| 00000630: 4D 50 20 20 24 34 43 20 20 20 20 20 20 3B 4A 41 |MP $4C ;JA| 00000640: 3A 20 44 4F 4F 52 47 41 41 4E 2E 0D 20 20 20 20 |: DOORGAAN.. | 00000650: 20 42 43 53 20 20 20 5A 57 33 0D 20 20 20 20 20 | BCS ZW3. | 00000660: 42 43 43 20 20 20 5A 57 39 0D 5A 57 32 20 20 4C |BCC ZW9.ZW2 L| 00000670: 44 41 20 20 24 31 43 20 20 20 20 20 20 3B 58 49 |DA $1C ;XI| 00000680: 30 3D 30 3F 0D 20 20 20 20 20 42 4E 45 20 20 20 |0=0?. BNE | 00000690: 5A 57 32 31 0D 20 20 20 20 20 4C 44 41 20 20 24 |ZW21. LDA $| 000006A0: 31 45 20 20 20 20 20 20 3B 4A 41 3A 58 49 31 3D |1E ;JA:XI1=| 000006B0: 37 3F 0D 20 20 20 20 20 43 4D 50 20 23 24 30 37 |7?. CMP #$07| 000006C0: 0D 20 20 20 20 20 42 4E 45 20 20 20 5A 57 32 31 |. BNE ZW21| 000006D0: 0D 20 20 20 20 20 4C 44 41 20 23 24 30 30 20 20 |. LDA #$00 | 000006E0: 20 20 20 20 3B 4F 4F 4B 20 4A 41 3A 20 4D 41 53 | ;OOK JA: MAS| 000006F0: 4B 0D 20 20 20 20 20 42 45 51 20 20 20 5A 57 38 |K. BEQ ZW8| 00000700: 20 20 20 20 20 3B 4D 45 54 20 4E 55 4C 4C 45 4E | ;MET NULLEN| 00000710: 2E 0D 5A 57 32 31 20 4C 44 58 20 20 24 31 43 20 |..ZW21 LDX $1C | 00000720: 20 20 20 20 20 3B 45 45 4E 20 56 41 4E 20 42 45 | ;EEN VAN BE| 00000730: 49 2D 0D 20 20 20 20 20 4A 53 52 20 20 20 57 52 |I-. JSR WR| 00000740: 45 20 20 20 20 20 3B 44 45 4E 20 4E 49 45 54 3A |E ;DEN NIET:| 00000750: 0D 20 20 20 20 20 53 54 41 20 20 24 30 32 20 20 |. STA $02 | 00000760: 20 20 20 20 3B 4D 41 53 4B 20 53 41 4D 45 4E 2D | ;MASK SAMEN-| 00000770: 0D 20 20 20 20 20 4C 44 58 20 20 24 31 45 20 20 |. LDX $1E | 00000780: 20 20 20 20 3B 47 45 53 54 45 4C 44 2E 0D 20 20 | ;GESTELD.. | 00000790: 20 20 20 4A 53 52 20 20 20 57 4C 49 0D 20 20 20 | JSR WLI. | 000007A0: 20 20 4F 52 41 20 20 24 30 32 0D 5A 57 38 20 20 | ORA $02.ZW8 | 000007B0: 53 54 41 20 20 24 30 32 0D 20 20 20 20 20 4C 44 |STA $02. LD| 000007C0: 58 20 20 24 34 43 20 20 20 20 20 20 3B 4B 4F 4C |X $4C ;KOL| 000007D0: 4F 4D 20 4B 30 2E 0D 20 20 20 20 20 4A 53 52 20 |OM K0.. JSR | 000007E0: 20 20 57 49 54 20 20 20 20 20 3B 50 4F 45 54 53 | WIT ;POETS| 000007F0: 2E 0D 5A 57 39 20 20 4A 53 52 20 20 24 37 44 46 |..ZW9 JSR $7DF| 00000800: 39 20 20 20 20 3B 48 49 52 41 4D 20 55 49 54 2E |9 ;HIRAM UIT.| 00000810: 0D 20 20 20 20 20 4A 53 52 20 20 24 37 44 45 39 |. JSR $7DE9| 00000820: 20 20 20 20 3B 54 49 4D 2E 49 4E 54 52 50 2E 41 | ;TIM.INTRP.A| 00000830: 41 4E 2E 0D 20 20 20 20 20 52 54 53 20 20 20 20 |AN.. RTS | 00000840: 20 20 20 20 20 20 20 3B 55 49 54 2E 0D 20 20 20 | ;UIT.. | 00000850: 20 20 4E 4F 50 0D 20 20 20 20 20 4E 4F 50 0D 20 | NOP. NOP. | 00000860: 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 4E 4F 50 | NOP. NOP| 00000870: 0D 57 49 54 20 20 4C 44 59 20 20 24 34 44 20 20 |.WIT LDY $4D | 00000880: 20 20 20 20 3B 52 30 2E 0D 20 20 20 20 20 4A 53 | ;R0.. JS| 00000890: 52 20 20 20 41 44 52 20 20 20 20 20 3B 28 58 29 |R ADR ;(X)| 000008A0: 3D 4B 4F 4C 4F 4D 2E 0D 20 20 20 20 20 4C 44 41 |=KOLOM.. LDA| 000008B0: 20 20 24 46 44 20 20 20 20 20 20 3B 42 45 47 49 | $FD ;BEGI| 000008C0: 4E 41 44 52 45 53 0D 20 20 20 20 20 53 54 41 20 |NADRES. STA | 000008D0: 20 24 46 42 20 20 20 20 20 20 3B 49 4E 20 28 24 | $FB ;IN ($| 000008E0: 46 43 2C 24 46 42 29 2E 0D 20 20 20 20 20 4C 44 |FC,$FB).. LD| 000008F0: 41 20 20 24 46 45 0D 20 20 20 20 20 53 54 41 20 |A $FE. STA | 00000900: 20 24 46 43 0D 20 20 20 20 20 4C 44 59 20 20 24 | $FC. LDY $| 00000910: 34 46 20 20 20 20 20 20 3B 52 31 2C 20 45 49 4E |4F ;R1, EIN| 00000920: 44 41 44 52 45 53 0D 20 20 20 20 20 4A 53 52 20 |DADRES. JSR | 00000930: 20 20 41 44 52 20 20 20 20 20 3B 49 4E 20 28 24 | ADR ;IN ($| 00000940: 46 45 2C 24 46 44 29 2E 0D 20 20 20 20 20 4C 44 |FE,$FD).. LD| 00000950: 59 20 20 24 31 44 20 20 20 20 20 20 3B 59 4A 6F |Y $1D ;YJo| 00000960: FF FA FF D3 FF FF FF FF FF FF FF FF FF FF FF FF |................| 00000970: FF FF FF FF FF FF FF FF D4 D2 DD FF FF D2 FF FF |................| 00000980: FF FB FF FF FF FF FF FF DA EF FF FF FF FF FF FB |................| 00000990: FF FF FF FF FF FF FF FF FF FF FF FF D3 FF FB FF |................| 000009A0: FF FF FF FF FF FF FF FF FF FF FF FF FB FF FF FF |................| 000009B0: FF FF FF DA EF FF FF FF FF FF FB FF FF FF FF FF |................| 000009C0: FF FF E7 FF FF FF FF D6 48 1F ED FF C4 80 88 9F |........H.......| 000009D0: 99 94 80 FF 89 A9 A0 FF 31 FF FF FF FF EB 73 3B |........1.....s;| 000009E0: 3B FF E3 A3 F1 3B B3 FF 72 FF FF 22 20 20 20 41 |;....;..r.." A| 000009F0: 4E 44 20 20 24 30 32 0D 20 20 20 20 20 53 54 41 |ND $02. STA| 00000A00: 20 28 24 46 42 29 2C 59 0D 20 20 20 20 20 49 4E | ($FB),Y. IN| 00000A10: 59 0D 20 20 20 20 20 43 50 59 20 23 24 30 38 20 |Y. CPY #$08 | 00000A20: 20 20 20 20 20 3B 4C 41 41 54 53 54 45 20 56 41 | ;LAATSTE VA| 00000A30: 4E 0D 20 20 20 20 20 42 43 43 20 20 20 57 49 31 |N. BCC WI1| 00000A40: 20 20 20 20 20 3B 41 43 48 54 54 41 4C 3F 0D 20 | ;ACHTTAL?. | 00000A50: 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 20 | CLC | 00000A60: 20 20 3B 4A 41 3A 48 4F 4F 47 20 41 44 52 45 53 | ;JA:HOOG ADRES| 00000A70: 0D 20 20 20 20 20 4C 44 41 20 20 24 46 42 20 20 |. LDA $FB | 00000A80: 20 20 20 20 3B 56 41 4E 20 4B 4F 4C 4F 4D 20 4F | ;VAN KOLOM O| 00000A90: 50 2E 0D 20 20 20 20 20 41 44 43 20 23 24 34 30 |P.. ADC #$40| 00000AA0: 0D 20 20 20 20 20 53 54 41 20 20 24 46 42 0D 20 |. STA $FB. | 00000AB0: 20 20 20 20 4C 44 41 20 20 24 46 43 0D 20 20 20 | LDA $FC. | 00000AC0: 20 20 41 44 43 20 23 24 30 31 0D 20 20 20 20 20 | ADC #$01. | 00000AD0: 53 54 41 20 20 24 46 43 0D 20 20 20 20 20 4C 44 |STA $FC. LD| 00000AE0: 59 20 23 24 30 30 20 20 20 20 20 20 3B 42 45 47 |Y #$00 ;BEG| 00000AF0: 49 4E 20 56 4F 4C 47 45 4E 44 0D 20 20 20 20 20 |IN VOLGEND. | 00000B00: 42 45 51 20 20 20 57 49 30 20 20 20 20 20 3B 41 |BEQ WI0 ;A| 00000B10: 43 48 54 54 41 4C 2E 0D 57 4A 32 20 20 4C 44 41 |CHTTAL..WJ2 LDA| 00000B20: 20 28 24 46 42 29 2C 59 20 20 20 3B 45 49 4E 44 | ($FB),Y ;EIND| 00000B30: 3A 0D 20 20 20 20 20 41 4E 44 20 20 24 30 32 20 |:. AND $02 | 00000B40: 20 20 20 20 20 3B 4C 41 41 54 53 54 45 20 4F 4E | ;LAATSTE ON| 00000B50: 56 4F 4C 2D 0D 20 20 20 20 20 53 54 41 20 28 24 |VOL-. STA ($| 00000B60: 46 42 29 2C 59 20 20 20 3B 4C 45 44 49 47 45 20 |FB),Y ;LEDIGE | 00000B70: 52 49 4A 2E 0D 20 20 20 20 20 49 4E 59 0D 20 20 |RIJ.. INY. | 00000B80: 20 20 20 43 50 59 20 20 24 31 46 20 20 20 20 20 | CPY $1F | 00000B90: 20 3B 3C 3D 59 4A 67 FF FB FF FF FF FF FF FF FF | ;<=YJg.........| 00000BA0: FF FF FF FF FF D3 FF FB FF FF FF FF FF FF FF E7 |................| 00000BB0: FF FF FF FF D3 FF FB FF FF FF FF FF FF FF FF FF |................| 00000BC0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................| 00000BD0: D6 FF FF FF FF FF FB FF FF FF FF FF FF D0 FF FB |................| 00000BE0: FF FF FF FF FF FF D0 EF 0D 20 20 20 20 20 4E 4F |......... NO| 00000BF0: 50 0D 20 20 20 20 20 4E 4F 50 0D 41 44 52 20 20 |P. NOP.ADR | 00000C00: 53 54 59 20 20 24 46 45 20 20 20 20 20 20 3B 52 |STY $FE ;R| 00000C10: 45 47 45 4C 20 52 2E 0D 20 20 20 20 20 43 4C 43 |EGEL R.. CLC| 00000C20: 0D 20 20 20 20 20 4C 44 41 20 23 24 30 30 0D 20 |. LDA #$00. | 00000C30: 20 20 20 20 53 54 41 20 20 24 32 30 0D 20 20 20 | STA $20. | 00000C40: 20 2E 42 59 54 45 20 24 36 36 2C 24 46 45 20 20 | .BYTE $66,$FE | 00000C50: 3B 52 4F 52 20 24 46 45 2E 0D 20 20 20 20 2E 42 |;ROR $FE.. .B| 00000C60: 59 54 45 20 24 36 41 20 20 20 20 20 20 3B 52 4F |YTE $6A ;RO| 00000C70: 52 2E 0D 20 20 20 20 2E 42 59 54 45 20 24 36 36 |R.. .BYTE $66| 00000C80: 2C 24 46 45 20 20 3B 52 4F 52 20 24 46 45 2E 0D |,$FE ;ROR $FE..| 00000C90: 20 20 20 20 2E 42 59 54 45 20 24 36 41 20 20 20 | .BYTE $6A | 00000CA0: 20 20 20 3B 52 4F 52 2E 0D 20 20 20 20 20 53 54 | ;ROR.. ST| 00000CB0: 41 20 20 24 46 44 0D 20 20 20 20 20 54 59 41 0D |A $FD. TYA.| 00000CC0: 20 20 20 20 20 41 44 43 20 20 24 46 45 0D 20 20 | ADC $FE. | 00000CD0: 20 20 20 41 44 43 20 20 20 36 38 31 20 20 20 20 | ADC 681 | 00000CE0: 20 3B 48 49 52 45 53 20 48 53 49 47 2E 0D 20 20 | ;HIRES HSIG.. | 00000CF0: 20 20 20 53 54 41 20 20 24 46 45 0D 20 20 20 20 | STA $FE. | 00000D00: 20 54 58 41 0D 20 20 20 20 2E 42 59 54 45 20 24 | TXA. .BYTE $| 00000D10: 32 41 20 20 20 20 20 20 3B 52 4F 4C 2E 0D 20 20 |2A ;ROL.. | 00000D20: 20 20 2E 42 59 54 45 20 24 32 36 2C 24 32 30 20 | .BYTE $26,$20 | 00000D30: 20 3B 52 4F 4C 20 24 32 30 2E 0D 20 20 20 20 20 | ;ROL $20.. | 00000D40: 41 44 43 20 20 24 46 44 0D 20 20 20 20 20 53 54 |ADC $FD. ST| 00000D50: 41 20 20 24 46 44 0D 20 20 20 20 20 4C 44 41 20 |A $FD. LDA | 00000D60: 20 24 32 30 20 20 20 20 20 20 3B 38 4B 20 42 49 | $20 ;8K BI| 00000D70: 4A 2E 0D 20 20 20 20 20 41 44 43 20 20 24 46 45 |J.. ADC $FE| 00000D80: 0D 20 20 20 20 20 53 54 41 20 20 24 46 45 0D 20 |. STA $FE. | 00000D90: 20 20 20 20 52 54 53 0D 20 20 20 20 20 4E 4F 50 | RTS. NOP| 00000DA0: 0D 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 4E |. NOP. N| 00000DB0: 4F 50 0D 57 52 45 20 20 4C 44 41 20 23 24 30 30 |OP.WRE LDA #$00| 00000DC0: 0D 20 20 20 20 20 42 45 51 20 20 20 57 52 31 0D |. BEQ WR1.| 00000DD0: 57 52 30 20 20 53 45 43 0D 20 20 20 20 2E 42 59 |WR0 SEC. .BY| 00000DE0: 54 45 20 24 36 41 20 20 20 20 20 20 3B 52 4F 52 |TE $6A ;ROR| 00000DF0: 2E 0D 57 52 31 20 20 44 45 58 0D 20 20 20 20 20 |..WR1 DEX. | 00000E00: 42 50 4C 20 20 20 57 52 30 0D 20 20 20 20 20 52 |BPL WR0. R| 00000E10: 54 53 0D 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 |TS. NOP. | 00000E20: 20 4E 4F 50 0D 20 20 20 20 20 4E 4F 50 0D 57 4C | NOP. NOP.WL| 00000E30: 49 20 20 4C 44 41 20 23 24 46 46 0D 57 4C 30 20 |I LDA #$FF.WL0 | 00000E40: 2E 42 59 54 45 20 24 34 41 20 20 20 20 20 20 3B |.BYTE $4A ;| 00000E50: 4C 53 52 2E 0D 20 20 20 20 20 44 45 58 0D 20 20 |LSR.. DEX. | 00000E60: 20 20 20 42 50 4C 20 20 20 57 4C FF FB FF FF FF | BPL WL.....| 00000E70: FF FF FF FF FF FB FF FF FF FF FF FF D0 FF FB FF |................| 00000E80: FF FF FF FF FF D0 FF FB FF FF FF FF FF FF D0 FF |................| 00000E90: FA |. |
*=$7230.ZWB JSR $7DE0 ;TIM.INT
RP.UIT.. LDY #$03 ;HAAL.. L
DX #$02 ;BRENG..ZW0 LDA 701,Y
;X0/X1 LSIG.. AND #$07. STA $1C
,X ;XI0/XI1.. EOR 701,Y. ST
A $4C,X ;8X0/8X1 LSIG.. LDA 70
2,Y ;X0/X1 HSIG.. CLC. .BYTE $6
A ;ROR.. .BYTE $7E ;ROR $4C
,X.. .BYTE $4C ;4K0/4K1 COMPL..
LDA 700,Y ;Y0/Y1.. AND #$07.
STA $1D,X ;YI0/YI1.. EOR
700,Y. .BYTE $4A ;LSR.. .BYTE
$4A ;LSR.. .BYTE $4A ;LSR.
. STA $4D,X ;R0/R1.. DEX
;AFTEL BRENG.. DEX. DEY
;AFTEL HAAL.. DEY. DEY.
BPL ZW0. JSR $7DF2 ;HIRAM
AAN.. LDA $4C ;K0=K1?. CM
P $4E. BEQ ZW2.ZW10 LDX $1C
;NEEN:XI0=0?. BEQ ZW11. JSR
WRE ;NEE: ZET MASK. STA $02
;POETS RECHTS.. LDX $4C ;4K
0.. JSR WIT ;ONVOLLEDIGE.
CLC ;BEGINKOLOM.. LDA $4C
;K0 + 1 => K0.. ADC #$04.
STA $4C.ZW11 LDX $1E ;JA:XI1=7?.
CPX #$07. BEQ ZW12. JSR
WLI ;NEE: ZET MASK. STA $02
;POETS LINKS.. LDX $4E ;4K1.
. JSR WIT ;ONVOLLEDIGE. SE
C ;EINDKOLOM.. LDA $4E
;K1 - 1 => K1.. SBC #$04. STA
$4E.ZW12 LDA $4E ;K1<K0?. CM
P $4C. BCC ZW9 ;JA: KLAAR..
LDA #$00 ;NEEN:MASKER. STA
$02 ;MET NULLEN..ZW3 LDX $4C
;4K0.. JSR WIT ;POETS.. C
LC ;K0 + 1 => K0.. LDA $4
C. ADC #$04. STA $4C. LDA
$4E ;K0<=K1?. CMP $4C ;JA
: DOORGAAN.. BCS ZW3. BCC ZW
9.ZW2 LDA $1C ;XI0=0?. BNE
ZW21. LDA $1E ;JA:XI1=7?.
CMP #$07. BNE ZW21. LDA #$00
;OOK JA: MASK. BEQ ZW8 ;ME
T NULLEN..ZW21 LDX $1C ;EEN VAN BE
I-. JSR WRE ;DEN NIET:. ST
A $02 ;MASK SAMEN-. LDX $1E
;GESTELD.. JSR WLI. ORA $
02.ZW8 STA $02. LDX $4C ;KOL
OM K0.. JSR WIT ;POETS..ZW9 J
SR $7DF9 ;HIRAM UIT.. JSR $7DE9
;TIM.INTRP.AAN.. RTS ;
UIT.. NOP. NOP. NOP. NOP
.WIT LDY $4D ;R0.. JSR ADR
;(X)=KOLOM.. LDA $FD ;BEGI
NADRES. STA $FB ;IN ($FC,$FB).
. LDA $FE. STA $FC. LDY $
4F ;R1, EINDADRES. JSR ADR
;IN ($FE,$FD).. LDY $1D ;YJO
...S....................TR...R..........
Z...................S...................
...Z...................VH...D......... .
1.....S;;....;..R.." AND $02. STA
($FB),Y. INY. CPY #$08 ;LA
ATSTE VAN. BCC WI1 ;ACHTTAL?.
CLC ;JA:HOOG ADRES. LD
A $FB ;VAN KOLOM OP.. ADC #$40
. STA $FB. LDA $FC. ADC #$
01. STA $FC. LDY #$00 ;BEG
IN VOLGEND. BEQ WI0 ;ACHTTAL..
WJ2 LDA ($FB),Y ;EIND:. AND $02
;LAATSTE ONVOL-. STA ($FB),Y
;LEDIGE RIJ.. INY. CPY $1F
;<=YJG..............S..............S...
........................V............P..
......P.. NOP. NOP.ADR STY $FE
;REGEL R.. CLC. LDA #$00.
STA $20. .BYTE $66,$FE ;ROR $FE
.. .BYTE $6A ;ROR.. .BYTE $66
,$FE ;ROR $FE.. .BYTE $6A ;ROR.
. STA $FD. TYA. ADC $FE.
ADC 681 ;HIRES HSIG.. STA
$FE. TXA. .BYTE $2A ;ROL..
.BYTE $26,$20 ;ROL $20.. ADC $FD
. STA $FD. LDA $20 ;8K BI
J.. ADC $FE. STA $FE. RTS.
NOP. NOP. NOP.WRE LDA #$00
. BEQ WR1.WR0 SEC. .BYTE $6A
;ROR..WR1 DEX. BPL WR0. R
TS. NOP. NOP. NOP.WLI LDA #
$FF.WL0 .BYTE $4A ;LSR.. DEX.
BPL WL.................P........P..
......P..
> CLICK IMAGE PREVIEW FOR FULL MODAL