Multiple names: DISD01, MOBMUX.ASM
FILE INFORMATION
FILENAME(S):
• DISD01<br>• MOBMUX.ASM
FILE TYPE(S): DEL, SEQ
FILE SIZE: 8.9K
FIRST SEEN: 2025-11-30 21:11:47
APPEARS ON: 2 disk(s)
FILE HASH
51d53b7e256f649589a13a4395ab4dc23479f082000ff475719bae4623b6c0e7
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 ASSEMBLER | DISD01 | DEL | DuncanTwain | 29 | 9 | DOWNLOAD FILE |
| C64 ASSEMBLER | MOBMUX.ASM | SEQ | DuncanTwain | 29 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 2A 3D 32 38 36 37 32 | *=28672|
00000010: 0D 20 20 20 20 20 20 4A 4D 50 20 20 56 4D 4F 50 |. JMP VMOP|
00000020: 54 20 20 3B 53 50 52 4F 4E 47 41 44 52 45 53 53 |T ;SPRONGADRESS|
00000030: 45 4E 2E 0D 20 20 20 20 20 20 4A 4D 50 20 20 4B |EN.. JMP K|
00000040: 4C 4F 50 54 0D 20 20 20 20 20 20 4A 4D 50 20 20 |LOPT. JMP |
00000050: 4B 4C 41 46 54 0D 20 20 20 20 20 20 4A 4D 50 20 |KLAFT. JMP |
00000060: 20 47 52 46 49 58 0D 20 20 20 20 20 20 4A 4D 50 | GRFIX. JMP|
00000070: 20 20 47 52 46 49 59 0D 20 20 20 20 20 20 4A 4D | GRFIY. JM|
00000080: 50 20 20 47 52 46 49 5A 0D 20 20 20 20 20 20 4A |P GRFIZ. J|
00000090: 4D 50 20 20 42 55 46 41 44 0D 20 20 20 20 20 20 |MP BUFAD. |
000000A0: 4A 4D 50 20 20 4B 54 4E 58 54 0D 20 20 20 20 20 |JMP KTNXT. |
000000B0: 20 4A 4D 50 20 20 4C 54 4E 59 54 0D 20 20 20 20 | JMP LTNYT. |
000000C0: 20 20 4A 4D 50 20 20 42 55 50 4F 0D 20 20 20 20 | JMP BUPO. |
000000D0: 20 20 4A 4D 50 20 20 42 55 56 55 0D 20 20 20 20 | JMP BUVU. |
000000E0: 20 20 4A 4D 50 20 20 42 55 44 4D 0D 20 20 20 20 | JMP BUDM. |
000000F0: 20 20 4A 4D 50 20 20 42 55 4D 50 0D 20 20 20 20 | JMP BUMP. |
00000100: 20 20 4A 4D 50 20 20 54 4F 43 4F 0D 20 20 20 20 | JMP TOCO. |
00000110: 20 20 4A 4D 50 20 20 42 55 4C 45 0D 20 20 20 20 | JMP BULE. |
00000120: 20 20 4A 4D 50 20 20 44 49 50 4F 0D 20 20 20 20 | JMP DIPO. |
00000130: 20 20 4A 4D 50 20 20 44 49 57 58 0D 20 20 20 20 | JMP DIWX. |
00000140: 20 20 4A 4D 50 20 20 44 55 4D 50 0D 20 20 20 20 | JMP DUMP. |
00000150: 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D | NOP. NOP.|
00000160: 56 4D 4F 50 54 20 54 59 41 20 20 20 20 20 20 20 |VMOPT TYA |
00000170: 20 20 3B 56 45 52 4D 45 4E 49 47 56 55 4C 44 49 | ;VERMENIGVULDI|
00000180: 47 0D 20 20 20 20 20 20 50 48 41 20 20 20 20 20 |G. PHA |
00000190: 20 20 20 20 3B 4D 45 54 20 4F 50 54 45 4C 4C 45 | ;MET OPTELLE|
000001A0: 4E 2E 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 |N.. LDY #00|
000001B0: 30 20 20 20 20 3B 28 32 35 34 2C 32 35 33 2A 20 |0 ;(254,253* |
000001C0: 2B 0D 20 20 20 20 20 20 42 45 51 20 20 56 4D 4F |+. BEQ VMO|
000001D0: 50 33 20 20 3B 20 2B 20 28 58 FF 9C FF FF 9C FF |P3 ; + (X......|
000001E0: 8E FF FF 7B FF 70 7F 8F FF 85 FF FF 77 FF FF FF |...{.p......w...|
000001F0: 87 FF FF FF FF 8D FF F9 87 97 FF 99 35 33 29 85 |............53).|
00000200: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................|
00000210: FF FF FF 8D FF FF FF FF FF 75 FF FF FF FF F4 FF |.........u......|
00000220: FF FF FF FF FF FF FF 78 FF FF FF FF 70 7F 89 FF |.......x....p...|
00000230: FF 8D 70 75 FF FF 77 FF 7C FF 75 FF FF FF FF 75 |..pu..w.|.u....u|
00000240: FF FF FF FF FF FF FF FF FF 78 FF FF FF FF FF FF |.........x......|
00000250: FF FF FF 8D 9F 8F 8F 85 85 85 89 87 97 95 FF FF |................|
00000260: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................|
00000270: FF 8D 75 FF FF FF 71 FF 70 70 7F FF FF FF 7C FF |..u...q.pp....|.|
00000280: FF FF FF FF FF FF FF FF FF FF FF FF 89 87 99 FF |................|
00000290: FF FF FF 8D FF FF FF FF FF 75 FF FF FF FF 07 FF |.........u......|
000002A0: FF FF FF FF FF FF BB 32 FF FF FF FF FF FF FF FF |.......2........|
000002B0: FF FF BF 17 FF 33 BA 32 B2 B3 13 FF 27 FF FF FF |.....3.2....'...|
000002C0: FF FF FF 3B 3E 12 A7 FF FF FF FF FF FF 32 B3 FF |...;>........2..|
000002D0: FF FF FF FF FF 27 FF FF FF FF FF FF FF BB 32 FF |.....'........2.|
000002E0: FF FF FF FF 27 FF FF FF FF FF FF FF B3 FF A7 1D |....'...........|
000002F0: 37 1F 1A FF FF 3B 3A 12 A7 FF 20 20 20 20 20 2E |7....;:... .|
00000300: 42 59 54 45 20 24 32 41 0D 20 20 20 20 20 20 54 |BYTE $2A. T|
00000310: 41 58 0D 20 20 20 20 20 20 54 59 41 0D 20 20 20 |AX. TYA. |
00000320: 20 20 20 2E 42 59 54 45 20 24 32 41 0D 20 20 20 | .BYTE $2A. |
00000330: 20 20 20 54 41 59 0D 56 4D 4F 50 33 20 50 4C 41 | TAY.VMOP3 PLA|
00000340: 0D 20 20 20 20 20 20 42 4E 45 20 20 56 4D 4F 50 |. BNE VMOP|
00000350: 31 0D 20 20 20 20 20 20 52 54 53 0D 4C 4F 52 4F |1. RTS.LORO|
00000360: 50 20 4A 53 52 20 20 33 32 32 32 34 20 20 3B 4C |P JSR 32224 ;L|
00000370: 4F 52 41 4D 20 4F 50 45 4E 2E 0D 20 20 20 20 20 |ORAM OPEN.. |
00000380: 20 4A 53 52 20 20 33 31 37 31 32 0D 20 20 20 20 | JSR 31712. |
00000390: 20 20 52 54 53 0D 4C 4F 52 44 49 20 4A 53 52 20 | RTS.LORDI JSR |
000003A0: 20 33 31 37 31 39 20 20 3B 4C 4F 52 41 4D 20 44 | 31719 ;LORAM D|
000003B0: 49 43 48 54 2E 0D 20 20 20 20 20 20 4A 53 52 20 |ICHT.. JSR |
000003C0: 20 33 32 32 33 33 0D 20 20 20 20 20 20 52 54 53 | 32233. RTS|
000003D0: 0D 4B 4C 4F 50 54 20 43 4C 43 20 20 20 20 20 20 |.KLOPT CLC |
000003E0: 20 20 3B 4B 4F 4C 4F 4D 20 4F 50 54 45 4C 4C 45 | ;KOLOM OPTELLE|
000003F0: 4E 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 |N.. LDA 00|
00000400: 36 39 8F FF FF FF 8D FF 9B FF 9F FF 9B FF FF FF |69..............|
00000410: 01 48 FF 44 01 FF 68 08 08 08 08 08 89 C9 9A 48 |.H.D..h........H|
00000420: 08 0C 04 44 08 08 08 08 08 05 CB FA F9 9D D9 FA |...D............|
00000430: 68 08 FF FF FF FF FF FF FF FF FF FF FF FF FF AE |h...............|
00000440: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................|
00000450: FF FF FF AD 0E FF 6F FF FF FF FF FF FF FF FF FF |......o.........|
00000460: FF FF FF FF FF FF AD FF AD 0E FF FF FF FF FF FF |................|
00000470: FF FF FF FF FF 3C 08 FD FF 68 08 08 08 08 08 8E |.....<...h......|
00000480: 8D 9E C1 FB C9 F9 CA 9D A8 8E C9 DA 48 08 08 08 |............H...|
00000490: 08 08 08 08 05 CB CA F9 FA FB 68 89 CA 9D 9E 89 |..........h.....|
000004A0: DB CB C9 DB A1 91 68 08 08 08 08 08 89 F9 99 48 |......h........H|
000004B0: 08 0C 0C 04 A5 FF 08 FD FF 05 48 FF A5 FF FF FF |..........H.....|
000004C0: FF FF FF FF FF FF FF FF 2F FF FF FF FF FF FF FF |......../.......|
000004D0: FF FF FF FF FF FF FF FF FF FF FF FF FF 6D AD FF |.............m..|
000004E0: FF FF AD FF FF FF FF FF 22 E0 D2 02 02 02 02 02 |........".......|
000004F0: 04 34 D5 02 02 33 30 30 0D 20 20 20 20 20 20 42 |.4...300. B|
00000500: 43 53 20 20 4B 4C 41 46 31 0D 20 20 20 20 20 20 |CS KLAF1. |
00000510: 41 44 43 20 20 30 33 33 0D 4B 4C 41 46 31 20 53 |ADC 033.KLAF1 S|
00000520: 54 41 20 20 30 30 36 39 30 2C 58 0D 20 20 20 20 |TA 00690,X. |
00000530: 20 20 52 54 53 0D 47 52 46 49 58 20 4A 53 52 20 | RTS.GRFIX JSR |
00000540: 20 4B 54 4E 58 54 20 3B 4B 54 2C 4C 54 2C 53 54 | KTNXT ;KT,LT,ST|
00000550: 20 49 4E 2E 0D 47 52 46 49 59 20 4A 53 52 20 20 | IN..GRFIY JSR |
00000560: 4C 54 4E 59 54 20 3B 58 54 2C 4C 54 2C 53 54 20 |LTNYT ;XT,LT,ST |
00000570: 49 4E 2E 0D 47 52 46 49 5A 20 4C 44 41 20 20 30 |IN..GRFIZ LDA 0|
00000580: 30 36 39 32 20 3B 58 54 2C 59 54 2C 53 54 20 49 |0692 ;XT,YT,ST I|
00000590: 4E 2E 0D 20 20 20 20 20 20 41 4E 44 20 23 30 36 |N.. AND #06|
000005A0: 33 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 36 |3. STA 006|
000005B0: 39 39 0D 20 20 20 20 20 20 45 4F 52 20 20 30 30 |99. EOR 00|
000005C0: 36 39 32 0D 20 20 20 20 20 20 42 45 51 20 20 47 |692. BEQ G|
000005D0: 52 46 49 31 0D 20 20 20 20 20 20 43 4C 43 0D 20 |RFI1. CLC. |
000005E0: 20 20 20 20 20 2E 42 59 54 45 20 24 32 41 0D 20 | .BYTE $2A. |
000005F0: 20 20 20 20 20 2E 42 59 54 45 20 24 32 41 0D 20 | .BYTE $2A. |
00000600: 20 20 20 20 20 2E 42 59 54 45 20 24 32 41 0D 20 | .BYTE $2A. |
00000610: 20 20 20 20 20 2E 42 59 54 45 20 24 32 41 0D 20 | .BYTE $2A. |
00000620: 20 20 20 20 20 54 41 58 0D 20 20 20 20 20 20 44 | TAX. D|
00000630: 45 58 0D 20 20 20 20 20 20 44 45 58 0D 20 20 20 |EX. DEX. |
00000640: 20 20 20 4C 44 41 20 20 30 30 37 31 30 2C 58 20 | LDA 00710,X |
00000650: 3B 47 45 5A 45 54 20 44 4F 4F 52 0D 20 20 20 20 |;GEZET DOOR. |
00000660: 20 20 53 54 41 20 20 30 30 36 38 36 20 20 20 3B | STA 00686 ;|
00000670: 49 4E 4C 4F 4F 50 2E 0D 20 20 20 20 20 20 4C 44 |INLOOP.. LD|
00000680: 41 20 20 30 30 37 31 31 2C 58 0D 20 20 20 20 20 |A 00711,X. |
00000690: 20 53 54 41 20 20 30 30 36 38 37 0D 20 20 20 20 | STA 00687. |
000006A0: 20 20 4C 44 41 20 20 30 30 37 31 34 2C 58 0D 20 | LDA 00714,X. |
000006B0: 20 20 20 20 20 53 54 41 20 20 30 30 36 37 39 0D | STA 00679.|
000006C0: 20 20 20 20 20 20 4C 44 41 20 20 30 30 37 31 35 | LDA 00715|
000006D0: 2C 58 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 |,X. STA 00|
000006E0: 36 38 FF FB FF FF FF FF FF FF FF FF FF FF FF FF |68..............|
000006F0: FF FF 33 32 20 20 20 3B 2A 20 56 45 4C 53 43 41 |..32 ;* VELSCA|
00000700: 20 2A 0D 47 52 46 49 31 20 52 54 53 0D 42 55 46 | *.GRFI1 RTS.BUF|
00000710: 41 44 20 4C 44 41 20 20 30 30 36 38 34 20 20 3B |AD LDA 00684 ;|
00000720: 42 55 46 46 45 52 41 44 52 45 53 20 55 49 54 0D |BUFFERADRES UIT.|
00000730: 20 20 20 20 20 20 53 54 41 20 20 32 35 34 20 20 | STA 254 |
00000740: 20 20 3B 4B 4F 4C 4F 4D 20 28 36 39 30 29 3D 4B | ;KOLOM (690)=K|
00000750: 54 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 |T.. LDA #00|
00000760: 30 20 20 20 20 3B 41 44 52 45 53 20 28 32 35 34 |0 ;ADRES (254|
00000770: 2C 32 35 33 29 0D 20 20 20 20 20 20 53 54 41 20 |,253). STA |
00000780: 20 32 35 33 20 20 20 20 3B 55 49 54 20 32 35 36 | 253 ;UIT 256|
00000790: 2A 28 36 38 34 29 2B 0D 20 20 20 20 20 20 4C 44 |*(684)+. LD|
000007A0: 58 20 23 30 39 31 20 20 20 20 3B 20 20 20 20 2B |X #091 ; +|
000007B0: 39 31 2A 4B 54 2E 0D 20 20 20 20 20 20 4C 44 59 |91*KT.. LDY|
000007C0: 20 20 30 30 36 39 30 20 20 3B 47 45 42 52 55 49 | 00690 ;GEBRUI|
000007D0: 4B 54 20 52 45 47 53 2E 0D 20 20 20 20 20 20 4A |KT REGS.. J|
000007E0: 53 52 20 20 56 4D 4F 50 54 20 20 3B 58 20 45 4E |SR VMOPT ;X EN|
000007F0: 20 5B FF FB FF FF FF FF FF FF FF FF FF FA D6 FF | [..............|
00000800: FF E2 ED FF FF FF FF FF FF FF FF FF FF 39 FF FF |.............9..|
00000810: 8D 7D 7C 77 FF 94 94 FF FF FF 77 8C 85 FF FF FF |.}|w......w.....|
00000820: FF FF FF FF FF 77 FF FF FF 89 87 99 FF FF FF FF |.....w..........|
00000830: 8D FF 78 8E FF 9B FF FF 9C FF FF FF 79 FF 77 85 |..x.........y.w.|
00000840: FF FF FF FF FF FF FF FF FF FF FF 88 9F 8F 8F FF |................|
00000850: FF FF FF 8D FF 75 8D FF FF 9B 8D 10 2B 3D 4B 54 |.....u......+=KT|
00000860: 2E 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 34 |.. STA 254|
00000870: 20 20 20 20 3B 55 49 54 3A 28 8B FF FF FF 9B FF | ;UIT:(......|
00000880: FF FF 07 FF FF FF FF FF FF 33 13 3A FF FF FF FF |.........3.:....|
00000890: FF FF FF FF FF FF FF FF FF 3A 1B FF 27 FF FF FF |.........:..'...|
000008A0: FF FF FF 33 13 3E FF FF FF FF FF FF 0A 27 FF FF |...3.>.......'..|
000008B0: FF FF FF FF 36 FF FF FF FF 3D 37 1F 1A 3B 27 FF |....6....=7..;'.|
000008C0: FF FF FF FF FF 33 13 3A FF FF FF FF FF A7 FF FF |.....3.:........|
000008D0: FF FF FF FF 33 13 3E 08 08 04 0C EC 91 68 08 08 |....3.>......h..|
000008E0: 08 08 08 89 F9 99 48 08 0C 0C 04 A5 FF 81 20 20 |......H....... |
000008F0: 20 20 20 20 43 4D 50 20 23 30 34 35 0D 20 20 20 | CMP #045. |
00000900: 20 20 20 42 43 43 20 20 4B 54 4E 58 31 0D 20 20 | BCC KTNX1. |
00000910: 20 20 20 20 54 58 41 0D 20 20 20 20 20 20 53 42 | TXA. SB|
00000920: 43 20 23 30 36 34 0D 20 20 20 20 20 20 54 41 58 |C #064. TAX|
00000930: 0D 20 20 20 20 20 20 54 59 41 0D 20 20 20 20 20 |. TYA. |
00000940: 20 53 42 43 20 23 30 30 31 0D 20 20 20 20 20 20 | SBC #001. |
00000950: 54 41 59 0D 4B 54 4E 58 31 20 53 54 58 20 20 30 |TAY.KTNX1 STX 0|
00000960: 30 36 39 37 0D 20 20 20 20 20 20 53 54 59 20 20 |0697. STY |
00000970: 30 30 36 39 38 0D 20 20 20 20 20 20 52 54 53 0D |00698. RTS.|
00000980: 4C 54 4E 59 54 20 43 4C 43 20 20 20 20 20 20 20 |LTNYT CLC |
00000990: 20 20 3B 5B 4C 54 5D 2D 2D 3E 28 59 54 29 2E 0D | ;[LT]-->(YT)..|
000009A0: 20 20 20 20 20 20 4C 44 41 20 20 30 30 36 38 38 | LDA 00688|
000009B0: 20 20 3B 59 42 2D 34 32 3E 3D 30 20 49 4E 0D 20 | ;YB-42>=0 IN. |
000009C0: 20 20 20 20 20 41 44 43 20 20 30 30 36 39 31 20 | ADC 00691 |
000009D0: 20 3B 28 36 38 38 29 20 45 45 52 53 54 2E 0D 20 | ;(688) EERST.. |
000009E0: 20 20 20 20 20 41 44 43 20 20 30 30 36 39 11 20 | ADC 0069. |
000009F0: 20 3B 49 4E 3A 20 28 8B FF FF 9C 1E FF 77 85 FF | ;IN: (......w..|
00000A00: FF FF FF FF FF FF FF FF FF FF FF 8F 8F 8B FF FF |................|
00000A10: FF FF 8D 77 FF 77 8D FF FF FF 04 A1 FF 1E 1B FF |...w.w..........|
00000A20: 27 FF FF FF FF FF FF 3B 32 BA 07 FF FF FF FF FF |'......;2.......|
00000A30: FF 33 13 32 FF FF FF FF FF FF 0A 27 FF FF FF FF |.3.2.......'....|
00000A40: FF FF FF B7 1A FF FF FF FF FF A7 FF FF FF FF FF |................|
00000A50: FF FF FF FF FF FF 33 1B 37 3E 0A A7 FF FF FF FF |......3.7>......|
00000A60: FF FF FF B3 FF A7 FF FF FF FF FF FF 3B 3A 12 A7 |............;:..|
00000A70: FF FF FF FF FF FF 32 B3 FF FF FF FF FF FF 27 FF |......2.......'.|
00000A80: FF FF FF FF FF 3B 32 BA 07 13 1B 37 3E CF FF FF |.....;2....7>...|
00000A90: 77 FF FF FF 8F 8F 8B FF FF 27 FF FF FF FF FF FF |w........'......|
00000AA0: FF 3B FF A7 FF 3B BA 3F FF FF 36 FF FF FF FF FF |.;...;.?..6.....|
00000AB0: 3B BF 32 B3 FF FF FF BA 3F 13 BB FF FF FF 3B BF |;.2.....?.....;.|
00000AC0: 3F 33 FF 27 FF FF FF FF FF FF 33 13 32 FF FF FF |?3.'......3.2...|
00000AD0: FF FF FF FF FF FF FF BD 32 B7 32 BF FF 36 BF 13 |........2.2..6..|
00000AE0: 1F 17 FF 36 BB FF 27 FF FF FF 20 20 20 53 54 41 |...6..'... STA|
00000AF0: 20 20 32 35 31 20 20 20 20 3B 41 41 4E 54 41 4C | 251 ;AANTAL|
00000B00: 20 4B 4F 4C 4F 4D 4D 45 4E 0D 20 20 20 20 20 20 | KOLOMMEN. |
00000B10: 4C 44 41 20 23 30 39 31 20 20 20 20 3B 49 4E 20 |LDA #091 ;IN |
00000B20: 28 32 33 29 2E 0D 20 20 20 20 20 20 53 54 41 20 |(23).. STA |
00000B30: 20 30 32 34 0D 20 20 20 20 20 20 53 54 41 20 20 | 024. STA |
00000B40: 30 33 34 0D 20 20 20 20 20 20 4C 44 41 20 23 30 |034. LDA #0|
00000B50: 30 30 0D 20 20 20 20 20 20 53 54 41 20 20 30 33 |00. STA 03|
00000B60: 35 0D 20 20 20 20 20 20 4A 53 52 20 20 33 31 34 |5. JSR 314|
00000B70: 33 34 20 20 20 3B 2A 20 42 4C 4F 56 55 4C 20 2A |34 ;* BLOVUL *|
00000B80: 0D 20 20 20 20 20 20 52 54 53 0D 42 55 56 55 20 |. RTS.BUVU |
00000B90: 20 4A 53 52 20 20 42 55 46 41 44 20 20 3B 42 55 | JSR BUFAD ;BU|
00000BA0: 46 46 45 52 20 56 55 4C 4C 45 4E 2E 0D 20 20 20 |FFER VULLEN.. |
00000BB0: 20 20 20 4A 53 52 20 20 4C 4F 52 4F 50 20 20 3B | JSR LOROP ;|
00000BC0: 49 4E 50 55 54 3A 0D 20 20 20 20 20 20 4C 44 59 |INPUT:. LDY|
00000BD0: 20 23 30 30 30 20 20 20 20 3B 4B 54 3D 28 36 39 | #000 ;KT=(69|
00000BE0: 30 29 2E 0D 20 20 20 20 20 20 4C 44 41 20 28 32 |0).. LDA (2|
00000BF0: 35 33 29 2C 59 FF 8D FF 77 8E FF 9B FF FF 9C 85 |53),Y...w.......|
00000C00: FF FF FF FF FF FF FF FF 74 7F FF 88 9F FF B0 20 |........t...... |
00000C10: 20 20 20 3B 53 54 3D 28 36 39 32 29 2E 0D 20 20 | ;ST=(692).. |
00000C20: 20 20 20 20 42 43 53 20 20 42 55 56 31 20 20 20 | BCS BUV1 |
00000C30: 3B 53 54 20 42 49 54 53 20 37 20 45 4E 20 36 0D |;ST BITS 7 EN 6.|
00000C40: 20 20 20 20 20 20 41 44 43 20 23 30 30 32 20 20 | ADC #002 |
00000C50: 20 20 3B 47 52 4F 45 50 20 31 20 4F 46 20 32 2E | ;GROEP 1 OF 2.|
00000C60: 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 30 20 |. LDY #000 |
00000C70: 20 20 20 3B 53 54 20 42 49 54 53 20 35 2E 2E 2E | ;ST BITS 5...|
00000C80: 30 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 33 |0. STA (253|
00000C90: 29 2C 59 20 3B 49 4E 44 45 58 20 49 4E 20 47 52 |),Y ;INDEX IN GR|
00000CA0: 4F 45 50 2E 0D 20 20 20 20 20 20 54 41 59 0D 20 |OEP.. TAY. |
00000CB0: 20 20 20 20 20 4C 44 41 20 20 30 30 36 39 32 0D | LDA 00692.|
00000CC0: 20 20 20 20 20 20 53 54 41 20 28 32 35 33 29 2C | STA (253),|
00000CD0: 59 0D 20 20 20 20 20 20 44 45 59 0D 20 20 20 20 |Y. DEY. |
00000CE0: 20 20 4C 44 41 20 20 30 30 36 39 31 0D 20 20 20 | LDA 00691. |
00000CF0: 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 0D 42 | STA (253),Y.B|
00000D00: 55 56 31 20 20 4A 53 52 20 20 4C 4F 52 44 49 0D |UV1 JSR LORDI.|
00000D10: 20 20 20 20 20 20 52 54 53 0D 42 55 44 4D 20 20 | RTS.BUDM |
00000D20: 4A 53 52 20 20 42 55 46 41 44 20 20 3B 42 59 54 |JSR BUFAD ;BYT|
00000D30: 45 50 41 52 45 4E 20 57 45 47 2D 0D 20 20 20 20 |EPAREN WEG-. |
00000D40: 20 20 4A 53 52 20 20 4C 4F 52 4F 50 20 20 3B 48 | JSR LOROP ;H|
00000D50: 41 4C 45 4E 20 56 4F 4F 52 0D 20 20 20 20 20 20 |ALEN VOOR. |
00000D60: 4C 44 59 20 23 30 30 30 20 20 20 20 3B 4B 4F 4C |LDY #000 ;KOL|
00000D70: 4F 4D 20 4B 54 20 45 4E 0D 20 20 20 20 20 20 4C |OM KT EN. L|
00000D80: 44 41 20 28 32 35 33 29 2C 59 20 3B 52 45 47 45 |DA (253),Y ;REGE|
00000D90: 4C 20 4C 54 2E 0D 20 20 20 20 20 20 42 45 51 20 |L LT.. BEQ |
00000DA0: 20 42 55 44 35 20 20 20 3B 50 41 41 52 20 28 4C | BUD5 ;PAAR (L|
00000DB0: 54 2C 53 54 29 2E 0D 20 20 20 20 20 20 53 54 41 |T,ST).. STA|
00000DC0: 20 20 30 33 31 20 20 20 20 3B 4B 54 3D 28 36 39 | 031 ;KT=(69|
00000DD0: 30 29 2E 0D 20 20 20 20 20 20 4C 44 59 20 23 30 |0).. LDY #0|
00000DE0: 30 30 20 20 20 20 3B 4C 54 3D 28 36 39 31 29 2E |00 ;LT=(691).|
00000DF0: 0D 20 20 20 20 20 20 53 54 59 20 20 30 33 32 20 |. STY 032 |
00000E00: 20 20 20 3B 47 41 54 45 4E 20 57 45 47 2C 57 41 | ;GATEN WEG,WA|
00000E10: 41 52 2D 0D 42 55 44 31 20 20 49 4E 59 20 20 20 |AR-.BUD1 INY |
00000E20: 20 20 20 20 20 20 3B 4E 41 20 41 41 4E 54 41 4C | ;NA AANTAL|
00000E30: 20 57 4F 52 44 54 0D 20 20 20 20 20 20 4C 44 41 | WORDT. LDA|
00000E40: 20 28 32 35 33 29 2C 59 20 3B 42 49 4A 47 45 57 | (253),Y ;BIJGEW|
00000E50: 45 52 4B 54 2E 0D 20 20 20 20 20 20 49 4E 59 0D |ERKT.. INY.|
00000E60: 20 20 20 20 20 20 43 4D 50 20 20 30 30 36 39 31 | CMP 00691|
00000E70: 0D 20 20 20 20 20 20 42 45 51 20 20 42 55 44 32 |. BEQ BUD2|
00000E80: 20 0D 20 20 20 20 20 20 54 41 58 0D 20 20 20 20 | . TAX. |
00000E90: 20 20 4C 44 41 20 28 32 35 33 29 2C 59 0D 20 20 | LDA (253),Y. |
00000EA0: 20 20 20 20 49 4E 43 20 20 30 33 32 0D 20 20 20 | INC 032. |
00000EB0: 20 20 20 49 4E 43 20 20 30 33 32 0D 20 20 20 20 | INC 032. |
00000EC0: 20 20 43 50 59 20 20 30 33 32 0D 20 20 20 20 20 | CPY 032. |
00000ED0: 20 42 45 51 20 20 42 55 44 32 20 0D 20 20 20 20 | BEQ BUD2 . |
00000EE0: 20 20 53 54 59 20 20 30 33 33 0D 20 20 20 20 20 | STY 033. |
00000EF0: 20 4C 44 59 20 20 30 33 32 0D 20 20 20 20 20 20 | LDY 032. |
00000F00: 53 54 41 20 28 32 35 33 29 2C 59 0D 20 20 20 20 |STA (253),Y. |
00000F10: 20 20 44 45 59 0D 20 20 20 20 20 20 54 58 41 0D | DEY. TXA.|
00000F20: 20 20 20 20 20 20 53 54 41 20 28 32 35 33 29 2C | STA (253),|
00000F30: 59 0D 20 20 20 20 20 20 4C 44 59 20 20 30 33 33 |Y. LDY 033|
00000F40: 0D 42 55 44 32 20 20 43 50 59 20 20 30 33 31 0D |.BUD2 CPY 031.|
00000F50: 20 20 20 20 20 20 42 43 43 20 20 42 55 44 31 20 | BCC BUD1 |
00000F60: 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 30 0D |. LDY #000.|
00000F70: 20 20 20 20 20 20 4C 44 41 20 20 30 33 32 0D 20 | LDA 032. |
00000F80: 20 20 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 | STA (253),Y|
00000F90: 0D 20 20 20 20 20 20 4C 44 59 20 20 30 33 32 0D |. LDY 032.|
00000FA0: 20 20 20 20 20 20 4C 44 41 20 23 30 30 30 0D 20 | LDA #000. |
00000FB0: 20 20 20 20 20 42 45 51 20 20 42 55 44 34 20 0D | BEQ BUD4 .|
00000FC0: 42 55 44 33 20 20 49 4E 59 0D 20 20 20 20 20 20 |BUD3 INY. |
00000FD0: 53 54 41 20 28 32 35 33 29 2C 59 0D 42 55 44 34 |STA (253),Y.BUD4|
00000FE0: 20 20 43 50 59 20 20 30 33 31 0D 20 20 20 20 20 | CPY 031. |
00000FF0: 20 42 43 43 20 20 42 55 44 33 0D 42 55 44 35 20 | BCC BUD3.BUD5 |
00001000: 20 4A 53 52 20 20 4C 4F 52 44 49 0D 20 20 20 20 | JSR LORDI. |
00001010: 20 20 52 54 53 0D 42 55 4D 50 20 20 4C 44 41 20 | RTS.BUMP LDA |
00001020: 20 30 30 36 39 30 20 20 3B 44 55 4D 50 20 42 55 | 00690 ;DUMP BU|
00001030: 46 46 45 52 20 41 46 0D 20 20 20 20 20 20 53 54 |FFER AF. ST|
00001040: 41 20 20 30 32 35 20 20 20 20 3B 4B 4F 4C 4F 4D |A 025 ;KOLOM|
00001050: 20 28 36 39 30 29 3D 4B 54 2E 0D 20 20 20 20 20 | (690)=KT.. |
00001060: 20 4C 44 41 20 20 30 32 33 20 20 20 20 3B 41 41 | LDA 023 ;AA|
00001070: 4E 54 41 4C 20 49 4E 20 28 32 33 29 2E 0D 20 20 |NTAL IN (23).. |
00001080: 20 20 20 20 53 54 41 20 20 30 32 36 0D 20 20 20 | STA 026. |
00001090: 20 20 20 4A 53 52 20 20 42 55 46 41 44 0D 20 20 | JSR BUFAD. |
000010A0: 20 20 20 20 4C 44 41 20 20 32 35 33 0D 20 20 20 | LDA 253. |
000010B0: 20 20 20 53 54 41 20 20 30 33 34 0D 20 20 20 20 | STA 034. |
000010C0: 20 20 4C 44 41 20 20 32 35 34 0D 20 20 20 20 20 | LDA 254. |
000010D0: 20 53 54 41 20 20 30 33 35 0D 20 20 20 20 20 20 | STA 035. |
000010E0: 4A 53 52 20 20 4C 4F 52 4F 50 0D 42 55 4D 67 FF |JSR LOROP.BUMg.|
000010F0: FF FF FF FF FF FF FF FF FF FB FF FF FF FF FF FF |................|
00001100: FF DA D3 FF FF FF EE DB FF FF FB FF FF FF FF FF |................|
00001110: FF FF FF FF FF FF FF FF FF FB FF FF FF FF FF FF |................|
00001120: FF FF FF FF FF C0 44 CA FF 8F FF 16 80 80 80 80 |......D.........|
00001130: 80 88 A8 9D D4 80 88 A8 DD B6 44 88 16 80 80 80 |..........D.....|
00001140: 80 80 88 D9 9C FF 1F A8 DD B6 40 80 88 9F 99 94 |..........@.....|
00001150: 80 FF C0 44 CA FF 8F FF 16 80 80 80 80 80 88 EC |...D............|
00001160: D9 94 80 80 C0 C0 4A FF 48 16 80 80 80 80 80 88 |......J.H.......|
00001170: 99 9D FF 16 80 80 80 80 80 88 9F 99 94 80 FF C0 |................|
00001180: 44 CA FF 8F FF 16 80 80 80 80 80 88 EC D9 94 80 |D...............|
00001190: 80 C0 C0 4A FF CC 16 80 80 80 80 80 88 99 9D FF |...J............|
000011A0: 16 80 80 80 80 80 88 EC D9 FF 80 80 C0 40 C9 16 |.............@..|
000011B0: 80 80 80 80 80 88 B8 EC E0 80 88 AD E8 A9 FF FF |................|
000011C0: 16 80 80 80 80 80 88 9F 99 FF 80 80 C0 40 C9 16 |.............@..|
000011D0: 80 80 80 80 80 88 A8 B9 9E 80 88 A0 55 4D 32 20 |............UM2 |
000011E0: 0D 42 55 4D 33 20 20 43 4C 43 0D 20 20 20 20 20 |.BUM3 CLC. |
000011F0: 20 4C 44 41 20 20 30 33 34 0D 20 20 20 20 20 20 | LDA 034. |
00001200: 41 44 43 20 23 30 39 31 0D 20 20 20 20 20 20 53 |ADC #091. S|
00001210: 54 41 20 20 30 33 34 0D 20 20 20 20 20 20 4C 44 |TA 034. LD|
00001220: 41 20 20 30 33 35 0D 20 20 20 20 20 20 41 44 43 |A 035. ADC|
00001230: 20 23 30 30 30 0D 20 20 20 20 20 20 53 54 41 20 | #000. STA |
00001240: 20 30 33 35 0D 20 20 20 20 20 20 49 4E 43 20 20 | 035. INC |
00001250: 30 30 36 39 30 0D 20 20 20 20 20 20 43 4C 43 0D |00690. CLC.|
00001260: 20 20 20 20 20 20 42 43 43 20 20 42 55 4D 31 20 | BCC BUM1 |
00001270: 0D 42 55 4D 34 20 20 4A 53 52 20 20 4C 4F 52 44 |.BUM4 JSR LORD|
00001280: 49 0D 20 20 20 20 20 20 4C 44 41 20 20 30 32 35 |I. LDA 025|
00001290: 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 36 39 |. STA 0069|
000012A0: 30 0D 20 20 20 20 20 20 52 54 53 0D 42 55 4C 45 |0. RTS.BULE|
000012B0: 20 20 4C 44 41 20 23 30 38 39 20 20 20 20 3B 5A | LDA #089 ;Z|
000012C0: 4F 45 4B 20 45 2E 56 2E 4C 45 47 45 0D 20 20 20 |OEK E.V.LEGE. |
000012D0: 20 20 20 53 54 41 20 20 30 30 36 39 8F FF FF 8D | STA 0069....|
000012E0: 7C 70 FF 70 74 FF FF 75 FF FF FF F4 FF FF FF FF ||p.pt..u........|
000012F0: FF FF FF FF 79 FF FF FF FF 71 FF FF FF FF 8D 78 |....y....q.....x|
00001300: FF 71 FF FF 79 FF FF 71 FF FF FF 75 FF 85 FF FF |.q..y..q...u....|
00001310: FF FF FF FF FF FF FF 79 FF FF FF 70 79 FF 7F FF |.......y...py...|
00001320: FF 8D 77 FF 77 8D FF 9B FF 9F FF 95 FF FF FF FF |..w.w...........|
00001330: FF FF FF FF FF FF FF FF 8F 8F 8B FF B0 20 20 3B |............. ;|
00001340: 3B 6F FF FF D0 FF FF FB FF FF FF FF FF FF FF FF |;o..............|
00001350: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................|
00001360: FF D5 FF FA FF EE FF C4 80 88 9F 99 94 80 FF 40 |...............@|
00001370: CE 44 10 8F FF 16 80 80 80 80 80 88 A8 B9 9E 80 |.D..............|
00001380: 88 A8 DD 96 FF 22 FF FF FF FF FF FF 23 FF 3B FF |....."......#.;.|
00001390: FF FF FF FF FF FF 23 31 33 FF FF FF FF FF FF FF |......#13.......|
000013A0: FF FF FF FF FF 23 FF FF FF FF FF FF E0 AA FF FF |.....#..........|
000013B0: FF FF FF FF 23 FF B3 FF FF FF FF FF FF FF FF FF |....#...........|
000013C0: FF FF FF 23 31 33 FF FF FF FF FF B2 FF FF FF FF |...#13..........|
000013D0: FF FF 23 FF FF FF FF FF 30 30 30 0D 20 20 20 20 |..#.....000. |
000013E0: 20 20 53 54 41 20 20 32 35 34 0D 20 20 20 20 20 | STA 254. |
000013F0: 20 44 45 58 0D 20 20 20 20 20 20 42 50 4C 20 20 | DEX. BPL |
00001400: 42 55 4C 31 20 0D 42 55 4C 32 20 20 49 4E 58 0D |BUL1 .BUL2 INX.|
00001410: 20 20 20 20 20 20 53 54 58 20 20 30 30 36 39 FF | STX 0069.|
00001420: FB FF FF FF FF FF FF FF FF FF FF FF FF D0 FF FF |................|
00001430: D2 FB FF FF FF FF FF FF FF FF FF FA FF D2 FF D1 |................|
00001440: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................|
00001450: FF D0 FF FF FF FF FF FF D0 D7 FF D0 FF FB FF FF |................|
00001460: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................|
00001470: FF FF FF FF FF FF FF DB FF FB FF FF FF FF FF FF |................|
00001480: FF FF E3 FF FF FF FF FF FF FF FF FF FF FF FF FF |................|
00001490: FF FF FF FF FF FF FF FF FF FF FF FA FF D2 EF FF |................|
000014A0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................|
000014B0: FF FF FF FF FF FF FF FF FF FF E3 FF FF FB FF FF |................|
000014C0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................|
000014D0: FF FF FF FF FF FF 29 20 20 20 20 3D 59 31 2E 0D |......) =Y1..|
000014E0: 20 20 20 20 20 20 53 54 41 20 20 30 32 38 2C 58 | STA 028,X|
000014F0: 20 20 20 3B 28 37 30 35 2C 37 30 34 29 3D 58 31 | ;(705,704)=X1|
00001500: 2E 0D 20 20 20 20 20 20 45 4F 52 20 20 30 30 37 |.. EOR 007|
00001510: 30 31 2C 59 0D 20 20 20 20 20 20 53 54 41 20 20 |01,Y. STA |
00001520: 30 37 36 2C 58 0D 20 20 20 20 20 20 4C 44 41 20 |076,X. LDA |
00001530: 20 30 30 37 30 32 2C 59 0D 20 20 20 20 20 20 43 | 00702,Y. C|
00001540: 4C 43 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 |LC. .BYTE $|
00001550: 36 41 0D 20 20 20 20 20 20 52 4F 52 20 20 30 37 |6A. ROR 07|
00001560: 36 2C 58 0D 20 20 20 20 20 20 4C 44 41 20 20 30 |6,X. LDA 0|
00001570: 30 37 30 30 2C 59 0D 20 20 20 20 20 20 41 4E 44 |0700,Y. AND|
00001580: 20 23 30 30 37 0D 20 20 20 20 20 20 53 54 41 20 | #007. STA |
00001590: 20 30 32 39 2C 58 0D 20 20 20 20 20 20 45 4F 52 | 029,X. EOR|
000015A0: 20 20 30 30 37 30 30 2C 59 0D 20 20 20 20 20 20 | 00700,Y. |
000015B0: 2E 42 59 54 45 20 24 34 41 0D 20 20 20 20 20 20 |.BYTE $4A. |
000015C0: 2E 42 59 54 45 20 24 34 41 0D 20 20 20 20 20 20 |.BYTE $4A. |
000015D0: 2E 42 59 54 45 20 24 34 41 0D 20 20 20 20 20 20 |.BYTE $4A. |
000015E0: 53 54 41 20 20 30 37 37 2C 58 0D 20 20 20 20 20 |STA 077,X. |
000015F0: 20 44 45 58 0D 20 20 20 20 20 20 44 45 58 0D 20 | DEX. DEX. |
00001600: 20 20 20 20 20 44 45 59 0D 20 20 20 20 20 20 44 | DEY. D|
00001610: 45 59 0D 20 20 20 20 20 20 44 45 59 0D 20 20 20 |EY. DEY. |
00001620: 20 20 20 42 50 4C 20 20 44 49 50 31 20 0D 20 20 | BPL DIP1 . |
00001630: 20 20 20 20 4A 53 52 20 20 33 32 32 34 32 0D 20 | JSR 32242. |
00001640: 20 20 20 20 20 4C 44 41 20 20 30 37 36 0D 20 20 | LDA 076. |
00001650: 20 20 20 20 43 4D 50 20 20 30 37 38 0D 20 20 20 | CMP 078. |
00001660: 20 20 20 42 45 51 20 20 44 49 50 35 20 0D 20 20 | BEQ DIP5 . |
00001670: 20 20 20 20 4C 44 58 20 20 30 32 38 0D 20 20 20 | LDX 028. |
00001680: 20 20 20 42 45 51 20 20 44 49 50 32 20 0D 20 20 | BEQ DIP2 . |
00001690: 20 20 20 20 4A 53 52 20 20 57 52 45 20 20 0D 20 | JSR WRE . |
000016A0: 20 20 20 20 20 53 54 41 20 20 30 30 32 0D 20 20 | STA 002. |
000016B0: 20 20 20 20 4C 44 58 20 20 30 37 36 0D 20 20 20 | LDX 076. |
000016C0: 20 20 20 4A 53 52 20 20 57 49 54 20 20 0D 20 20 | JSR WIT . |
000016D0: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 4C 44 | CLC. LD|
000016E0: 41 20 20 30 37 36 0D 20 20 20 20 20 20 41 44 43 |A 076. ADC|
000016F0: 20 23 30 30 34 0D 20 20 20 20 20 20 53 54 41 20 | #004. STA |
00001700: 20 30 37 36 0D 44 49 50 32 20 20 4C 44 58 20 20 | 076.DIP2 LDX |
00001710: 30 33 30 0D 20 20 20 20 20 20 43 50 58 20 23 30 |030. CPX #0|
00001720: 30 37 0D 20 20 20 20 20 20 42 45 51 20 20 44 49 |07. BEQ DI|
00001730: 50 33 20 0D 20 20 20 20 20 20 4A 53 52 20 20 57 |P3 . JSR W|
00001740: 4C 49 20 20 0D 20 20 20 20 20 20 53 54 41 20 20 |LI . STA |
00001750: 30 30 32 0D 20 20 20 20 20 20 4C 44 58 20 20 30 |002. LDX 0|
00001760: 37 38 0D 20 20 20 20 20 20 4A 53 52 20 20 57 49 |78. JSR WI|
00001770: 54 20 20 0D 20 20 20 20 20 20 53 45 43 0D 20 20 |T . SEC. |
00001780: 20 20 20 20 4C 44 41 20 20 30 37 38 0D 20 20 20 | LDA 078. |
00001790: 20 20 20 53 42 43 20 23 30 30 34 0D 20 20 20 20 | SBC #004. |
000017A0: 20 20 53 54 41 20 20 30 37 38 0D 44 49 50 33 20 | STA 078.DIP3 |
000017B0: 20 4C 44 41 20 20 30 37 38 0D 20 20 20 20 20 20 | LDA 078. |
000017C0: 43 4D 50 20 20 30 37 36 0D 20 20 20 20 20 20 42 |CMP 076. B|
000017D0: 43 43 20 20 44 49 50 38 20 0D 20 20 20 20 20 20 |CC DIP8 . |
000017E0: 4C 44 41 20 23 30 30 30 0D 20 20 20 20 20 20 53 |LDA #000. S|
000017F0: 54 41 20 20 30 30 32 0D 44 49 50 34 20 20 4C 44 |TA 002.DIP4 LD|
00001800: 58 20 20 30 37 36 0D 20 20 20 20 20 20 4A 53 52 |X 076. JSR|
00001810: 20 20 57 49 54 20 20 0D 20 20 20 20 20 20 43 4C | WIT . CL|
00001820: 43 0D 20 20 20 20 20 20 4C 44 41 20 20 30 37 36 |C. LDA 076|
00001830: 0D 20 20 20 20 20 20 41 44 43 20 23 30 30 34 0D |. ADC #004.|
00001840: 20 20 20 20 20 20 53 54 41 20 20 30 37 36 0D 20 | STA 076. |
00001850: 20 20 20 20 20 4C 44 41 20 20 30 37 38 0D 20 20 | LDA 078. |
00001860: 20 20 20 20 43 4D 50 20 20 30 37 36 0D 20 20 20 | CMP 076. |
00001870: 20 20 20 42 43 53 20 20 44 49 50 34 20 0D 20 20 | BCS DIP4 . |
00001880: 20 20 20 20 42 43 43 20 20 44 49 50 38 20 0D 44 | BCC DIP8 .D|
00001890: 49 50 35 20 20 4C 44 41 20 20 30 32 38 0D 20 20 |IP5 LDA 028. |
000018A0: 20 20 20 20 42 4E 45 20 20 44 49 50 36 20 0D 20 | BNE DIP6 . |
000018B0: 20 20 20 20 20 4C 44 41 20 20 30 33 30 0D 20 20 | LDA 030. |
000018C0: 20 20 20 20 43 4D 50 20 23 30 30 37 0D 20 20 20 | CMP #007. |
000018D0: 20 20 20 42 4E 45 20 20 44 49 50 36 20 0D 20 20 | BNE DIP6 . |
000018E0: 20 20 20 20 4C 44 41 20 23 30 30 30 0D 20 20 20 | LDA #000. |
000018F0: 20 20 20 42 45 51 20 20 44 49 50 37 20 0D 44 49 | BEQ DIP7 .DI|
00001900: 50 36 20 20 4C 44 58 20 20 30 32 38 0D 20 20 20 |P6 LDX 028. |
00001910: 20 20 20 4A 53 52 20 20 57 52 45 20 20 0D 20 20 | JSR WRE . |
00001920: 20 20 20 20 53 54 41 20 20 30 30 32 0D 20 20 20 | STA 002. |
00001930: 20 20 20 4C 44 58 20 20 30 33 30 0D 20 20 20 20 | LDX 030. |
00001940: 20 20 4A 53 52 20 20 57 4C 49 20 20 0D 20 20 20 | JSR WLI . |
00001950: 20 20 20 4F 52 41 20 20 30 30 32 0D 44 49 50 37 | ORA 002.DIP7|
00001960: 20 20 53 54 41 20 20 30 30 32 0D 20 20 20 20 20 | STA 002. |
00001970: 20 4C 44 58 20 20 30 37 36 0D 20 20 20 20 20 20 | LDX 076. |
00001980: 4A 53 52 20 20 57 49 54 20 20 0D 44 49 50 38 20 |JSR WIT .DIP8 |
00001990: 20 4A 53 52 20 20 33 32 32 34 39 0D 20 20 20 20 | JSR 32249. |
000019A0: 20 20 4A 53 52 20 20 33 32 32 33 33 0D 20 20 20 | JSR 32233. |
000019B0: 20 20 20 52 54 53 0D 57 49 54 20 20 20 4C 44 59 | RTS.WIT LDY|
000019C0: 20 20 30 37 37 0D 20 20 20 20 20 20 4A 53 52 20 | 077. JSR |
000019D0: 20 41 44 52 20 20 0D 20 20 20 20 20 20 4C 44 41 | ADR . LDA|
000019E0: 20 20 32 35 33 0D 20 20 20 20 20 20 53 54 41 20 | 253. STA |
000019F0: 20 32 35 31 0D 20 20 20 20 20 20 4C 44 41 20 20 | 251. LDA |
00001A00: 32 35 34 0D 20 20 20 20 20 20 53 54 41 20 20 32 |254. STA 2|
00001A10: 35 32 0D 20 20 20 20 20 20 4C 44 59 20 20 30 37 |52. LDY 07|
00001A20: 39 0D 20 20 20 20 20 20 4A 53 52 20 20 41 44 52 |9. JSR ADR|
00001A30: 20 20 0D 20 20 20 20 20 20 4C 44 59 20 20 30 32 | . LDY 02|
00001A40: 39 0D 57 49 30 20 20 20 4C 44 41 20 20 32 35 32 |9.WI0 LDA 252|
00001A50: 0D 20 20 20 20 20 20 43 4D 50 20 20 32 35 34 0D |. CMP 254.|
00001A60: 20 20 20 20 20 20 42 4E 45 20 20 57 49 31 20 20 | BNE WI1 |
00001A70: 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 31 0D |. LDA 251.|
00001A80: 20 20 20 20 20 20 43 4D 50 20 20 32 35 33 0D 20 | CMP 253. |
00001A90: 20 20 20 20 20 42 45 51 20 20 57 49 32 20 20 0D | BEQ WI2 .|
00001AA0: 57 49 31 20 20 20 4C 44 41 20 28 32 35 31 29 2C |WI1 LDA (251),|
00001AB0: 59 0D 20 20 20 20 20 20 41 4E 44 20 20 30 30 32 |Y. AND 002|
00001AC0: 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 31 29 |. STA (251)|
00001AD0: 2C 59 0D 20 20 20 20 20 20 49 4E 59 0D 20 20 20 |,Y. INY. |
00001AE0: 20 20 20 43 50 59 20 23 30 30 38 0D 20 20 20 20 | CPY #008. |
00001AF0: 20 20 42 43 43 20 20 57 49 31 20 20 0D 20 20 20 | BCC WI1 . |
00001B00: 20 20 20 43 4C 43 0D 20 20 20 20 20 20 4C 44 41 | CLC. LDA|
00001B10: 20 20 32 35 31 0D 20 20 20 20 20 20 41 44 43 20 | 251. ADC |
00001B20: 23 30 36 34 0D 20 20 20 20 20 20 53 54 41 20 20 |#064. STA |
00001B30: 32 35 31 0D 20 20 20 20 20 20 4C 44 41 20 20 32 |251. LDA 2|
00001B40: 35 32 0D 20 20 20 20 20 20 41 44 43 20 23 30 30 |52. ADC #00|
00001B50: 31 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 32 |1. STA 252|
00001B60: 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 30 0D |. LDY #000.|
00001B70: 20 20 20 20 20 20 42 45 51 20 20 57 49 30 20 20 | BEQ WI0 |
00001B80: 0D 57 49 32 20 20 20 4C 44 41 20 28 32 35 31 29 |.WI2 LDA (251)|
00001B90: 2C 59 0D 20 20 20 20 20 20 41 4E 44 20 20 30 30 |,Y. AND 00|
00001BA0: 32 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 31 |2. STA (251|
00001BB0: 29 2C 59 0D 20 20 20 20 20 20 49 4E 59 0D 20 20 |),Y. INY. |
00001BC0: 20 20 20 20 43 50 59 20 20 30 33 31 0D 20 20 20 | CPY 031. |
00001BD0: 20 20 20 42 43 43 20 20 57 49 32 20 20 0D 20 20 | BCC WI2 . |
00001BE0: 20 20 20 20 42 45 51 20 20 57 49 32 20 20 0D 20 | BEQ WI2 . |
00001BF0: 20 20 20 20 20 52 54 53 0D 41 44 52 20 20 20 53 | RTS.ADR S|
00001C00: 54 59 20 20 32 35 34 0D 20 20 20 20 20 20 43 4C |TY 254. CL|
00001C10: 43 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 30 |C. LDA #000|
00001C20: 0D 20 20 20 20 20 20 53 54 41 20 20 30 33 32 0D |. STA 032.|
00001C30: 20 20 20 20 20 20 52 4F 52 20 20 32 35 34 0D 20 | ROR 254. |
00001C40: 20 20 20 20 20 2E 42 59 54 45 20 24 36 41 0D 20 | .BYTE $6A. |
00001C50: 20 20 20 20 20 52 4F 52 20 20 32 35 34 0D 20 20 | ROR 254. |
00001C60: 20 20 20 20 2E 42 59 54 45 20 24 36 41 0D 20 20 | .BYTE $6A. |
00001C70: 20 20 20 20 53 54 41 20 20 32 35 33 0D 20 20 20 | STA 253. |
00001C80: 20 20 20 54 59 41 0D 20 20 20 20 20 20 41 44 43 | TYA. ADC|
00001C90: 20 20 32 35 34 0D 20 20 20 20 20 20 41 44 43 20 | 254. ADC |
00001CA0: 20 30 30 36 38 31 0D 20 20 20 20 20 20 53 54 41 | 00681. STA|
00001CB0: 20 20 32 35 34 0D 20 20 20 20 20 20 54 58 41 0D | 254. TXA.|
00001CC0: 20 20 20 20 20 20 2E 42 59 54 45 20 24 32 41 0D | .BYTE $2A.|
00001CD0: 20 20 20 20 20 20 52 4F 4C 20 20 30 33 32 0D 20 | ROL 032. |
00001CE0: 20 20 20 20 20 41 44 43 20 20 32 35 33 0D 20 20 | ADC 253. |
00001CF0: 20 20 20 20 53 54 41 20 20 32 35 33 0D 20 20 20 | STA 253. |
00001D00: 20 20 20 4C 44 41 20 20 30 33 32 0D 20 20 20 20 | LDA 032. |
00001D10: 20 20 41 44 43 20 20 32 35 34 0D 20 20 20 20 20 | ADC 254. |
00001D20: 20 53 54 41 20 20 32 35 34 0D 20 20 20 20 20 20 | STA 254. |
00001D30: 52 54 53 0D 57 52 45 20 20 20 4C 44 41 20 23 30 |RTS.WRE LDA #0|
00001D40: 30 30 0D 20 20 20 20 20 20 42 45 51 20 20 57 52 |00. BEQ WR|
00001D50: 31 20 20 0D 57 52 30 20 20 20 53 45 43 0D 20 20 |1 .WR0 SEC. |
00001D60: 20 20 20 20 2E 42 59 54 45 20 24 36 41 0D 57 52 | .BYTE $6A.WR|
00001D70: 31 20 20 20 44 45 58 0D 20 20 20 20 20 20 42 50 |1 DEX. BP|
00001D80: 4C 20 20 57 52 30 20 20 0D 20 20 20 20 20 20 52 |L WR0 . R|
00001D90: 54 53 0D 57 4C 49 20 20 20 4C 44 41 20 23 32 35 |TS.WLI LDA #25|
00001DA0: 35 0D 57 4C 30 20 20 20 2E 42 59 54 45 20 24 34 |5.WL0 .BYTE $4|
00001DB0: 41 0D 20 20 20 20 20 20 44 45 58 0D 20 20 20 20 |A. DEX. |
00001DC0: 20 20 42 50 4C 20 20 57 4C 30 20 20 0D 20 20 20 | BPL WL0 . |
00001DD0: 20 20 20 52 54 53 0D 44 49 57 58 20 20 4C 44 58 | RTS.DIWX LDX|
00001DE0: 20 20 31 36 38 0D 20 20 20 20 20 20 43 50 58 20 | 168. CPX |
00001DF0: 20 31 36 37 0D 20 20 20 20 20 20 42 43 53 20 20 | 167. BCS |
00001E00: 44 49 30 0D 20 20 20 20 20 20 52 54 53 0D 44 49 |DI0. RTS.DI|
00001E10: 30 20 20 20 4C 44 41 20 20 31 36 37 0D 20 20 20 |0 LDA 167. |
00001E20: 20 20 20 53 54 41 20 20 30 30 36 39 30 0D 20 20 | STA 00690. |
00001E30: 20 20 20 20 4A 53 52 20 20 4B 54 4E 58 54 0D 20 | JSR KTNXT. |
00001E40: 20 20 20 20 20 4C 44 41 20 20 30 30 36 39 37 0D | LDA 00697.|
00001E50: 20 20 20 20 20 20 53 54 41 20 20 30 33 36 0D 20 | STA 036. |
00001E60: 20 20 20 20 20 4C 44 41 20 20 30 30 36 39 38 0D | LDA 00698.|
00001E70: 20 20 20 20 20 20 53 54 41 20 20 30 33 37 0D 20 | STA 037. |
00001E80: 20 20 20 20 20 43 50 58 20 20 31 36 37 0D 20 20 | CPX 167. |
00001E90: 20 20 20 20 42 45 51 20 20 44 49 31 0D 20 20 20 | BEQ DI1. |
00001EA0: 20 20 20 53 54 58 20 20 30 30 36 39 30 0D 20 20 | STX 00690. |
00001EB0: 20 20 20 20 4A 53 52 20 20 4B 54 4E 58 54 0D 44 | JSR KTNXT.D|
00001EC0: 49 31 20 20 20 4C 44 59 20 23 24 30 30 0D 20 20 |I1 LDY #$00. |
00001ED0: 20 20 20 20 43 50 58 20 23 30 34 35 0D 20 20 20 | CPX #045. |
00001EE0: 20 20 20 42 43 43 20 20 44 49 34 0D 20 20 20 20 | BCC DI4. |
00001EF0: 20 20 4C 44 41 20 20 31 36 37 0D 20 20 20 20 20 | LDA 167. |
00001F00: 20 43 4D 50 20 23 30 34 35 0D 20 20 20 20 20 20 | CMP #045. |
00001F10: 42 43 53 20 20 44 49 33 0D 20 20 20 20 20 20 4A |BCS DI3. J|
00001F20: 53 52 20 20 58 42 4D 0D 20 20 20 20 20 20 4C 44 |SR XBM. LD|
00001F30: 41 20 23 24 30 30 0D 20 20 20 20 20 20 53 54 41 |A #$00. STA|
00001F40: 20 20 30 30 37 30 30 0D 20 20 20 20 20 20 4C 44 | 00700. LD|
00001F50: 41 20 23 24 34 30 0D 20 20 20 20 20 20 53 54 41 |A #$40. STA|
00001F60: 20 20 30 30 37 30 34 0D 20 20 20 20 20 20 4C 44 | 00704. LD|
00001F70: 41 20 23 24 30 31 0D 20 20 20 20 20 20 53 54 41 |A #$01. STA|
00001F80: 20 20 30 30 37 30 35 0D 20 20 20 20 20 20 4C 44 | 00705. LD|
00001F90: 41 20 23 30 39 35 0D 20 20 20 20 20 20 53 54 41 |A #095. STA|
00001FA0: 20 20 30 30 37 30 33 0D 20 20 20 20 20 20 4A 53 | 00703. JS|
00001FB0: 52 20 20 44 49 50 4F 0D 20 20 20 20 20 20 4C 44 |R DIPO. LD|
00001FC0: 41 20 23 30 30 33 0D 20 20 20 20 20 20 53 54 41 |A #003. STA|
00001FD0: 20 20 30 33 36 0D 20 20 20 20 20 20 4C 44 41 20 | 036. LDA |
00001FE0: 23 30 30 30 0D 20 20 20 20 20 20 53 54 41 20 20 |#000. STA |
00001FF0: 30 33 37 0D 44 49 33 20 20 20 4C 44 59 20 23 31 |037.DI3 LDY #1|
00002000: 30 34 0D 44 49 34 20 20 20 53 54 59 20 20 30 30 |04.DI4 STY 00|
00002010: 37 30 30 0D 20 20 20 20 20 20 4A 53 52 20 20 58 |700. JSR X|
00002020: 42 4D 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 20 |BM. CLC. |
00002030: 20 20 20 4C 44 41 20 20 30 30 36 39 37 0D 20 20 | LDA 00697. |
00002040: 20 20 20 20 41 44 43 20 23 30 30 33 0D 20 20 20 | ADC #003. |
00002050: 20 20 20 53 54 41 20 20 30 30 37 30 34 0D 20 20 | STA 00704. |
00002060: 20 20 20 20 4C 44 41 20 20 30 30 36 39 38 0D 20 | LDA 00698. |
00002070: 20 20 20 20 20 41 44 43 20 23 30 30 30 0D 20 20 | ADC #000. |
00002080: 20 20 20 20 53 54 41 20 20 30 30 37 30 35 0D 20 | STA 00705. |
00002090: 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 4C | CLC. L|
000020A0: 44 41 20 20 30 30 37 30 30 0D 20 20 20 20 20 20 |DA 00700. |
000020B0: 41 44 43 20 23 30 39 35 0D 20 20 20 20 20 20 53 |ADC #095. S|
000020C0: 54 41 20 20 30 30 37 30 33 0D 20 20 20 20 20 20 |TA 00703. |
000020D0: 4A 53 52 20 20 44 49 50 4F 0D 20 20 20 20 20 20 |JSR DIPO. |
000020E0: 52 54 53 0D 58 42 4D 20 20 20 53 45 43 0D 20 20 |RTS.XBM SEC. |
000020F0: 20 20 20 20 4C 44 41 20 20 30 33 36 0D 20 20 20 | LDA 036. |
00002100: 20 20 20 53 42 43 20 23 30 30 33 0D 20 20 20 20 | SBC #003. |
00002110: 20 20 53 54 41 20 20 30 30 37 30 31 0D 20 20 20 | STA 00701. |
00002120: 20 20 20 4C 44 41 20 20 30 33 37 0D 20 20 20 20 | LDA 037. |
00002130: 20 20 53 42 43 20 23 30 30 30 0D 20 20 20 20 20 | SBC #000. |
00002140: 20 53 54 41 20 20 30 30 37 30 32 0D 20 20 20 20 | STA 00702. |
00002150: 20 20 52 54 53 0D 44 55 4D 50 20 20 4A 53 52 20 | RTS.DUMP JSR |
00002160: 20 44 49 57 58 0D 20 20 20 20 20 20 4C 44 41 20 | DIWX. LDA |
00002170: 20 31 36 37 0D 20 20 20 20 20 20 53 54 41 20 20 | 167. STA |
00002180: 30 30 36 39 30 0D 20 20 20 20 20 20 53 45 43 0D |00690. SEC.|
00002190: 20 20 20 20 20 20 4C 44 41 20 20 31 36 38 0D 20 | LDA 168. |
000021A0: 20 20 20 20 20 41 44 43 20 23 30 30 30 0D 20 20 | ADC #000. |
000021B0: 20 20 20 20 53 42 43 20 20 31 36 37 0D 20 20 20 | SBC 167. |
000021C0: 20 20 20 53 54 41 20 20 30 33 35 0D 20 20 20 20 | STA 035. |
000021D0: 20 20 42 4E 45 20 20 44 55 4D 31 0D 20 20 20 20 | BNE DUM1. |
000021E0: 20 20 42 45 51 20 20 44 55 4D 31 0D 20 20 20 20 | BEQ DUM1. |
000021F0: 20 20 4A 53 52 20 20 42 55 4D 50 0D 44 55 4D 31 | JSR BUMP.DUM1|
00002200: 20 20 52 54 53 0D 54 4F 43 4F 20 20 4C 44 41 20 | RTS.TOCO LDA |
00002210: 20 30 30 36 39 34 20 20 3B 54 4F 45 54 53 49 4E | 00694 ;TOETSIN|
00002220: 44 45 58 0D 20 20 20 20 20 20 41 4E 44 20 23 30 |DEX. AND #0|
00002230: 33 31 20 20 20 20 3B 41 53 43 49 49 20 28 36 39 |31 ;ASCII (69|
00002240: 34 29 20 49 4E 0D 20 20 20 20 20 20 54 41 58 20 |4) IN. TAX |
00002250: 20 20 20 20 20 20 20 20 3B 43 4F 44 45 49 4E 44 | ;CODEIND|
00002260: 2E 20 28 36 39 35 29 2E 0D 20 20 20 20 20 20 45 |. (695).. E|
00002270: 4F 52 20 20 30 30 36 39 34 20 20 3B 28 36 39 35 |OR 00694 ;(695|
00002280: 29 3C 31 32 38 3A 4F 4B 45 45 2E 0D 20 20 20 20 |)<128:OKEE.. |
00002290: 20 20 41 4E 44 20 23 31 39 32 0D 20 20 20 20 20 | AND #192. |
000022A0: 20 2E 42 59 54 45 20 24 34 41 0D 20 20 20 20 20 | .BYTE $4A. |
000022B0: 20 53 54 41 20 20 30 30 32 0D 20 20 20 20 20 20 | STA 002. |
000022C0: 45 4F 52 20 20 30 30 36 39 34 0D 20 20 20 20 20 |EOR 00694. |
000022D0: 20 2E 42 59 54 45 20 24 32 41 0D 20 20 20 20 20 | .BYTE $2A. |
000022E0: 20 2E 42 59 54 45 20 24 32 41 0D 20 20 20 20 20 | .BYTE $2A. |
000022F0: 20 45 4F 52 20 23 31 32 38 0D 20 20 20 20 20 20 | EOR #128. |
00002300: 41 4E 44 20 23 31 32 38 0D 20 20 20 20 20 20 45 |AND #128. E|
00002310: 4F 52 20 20 30 30 32 0D 20 20 20 20 20 20 53 54 |OR 002. ST|
00002320: 41 20 20 30 30 32 0D 20 20 20 20 20 20 54 58 41 |A 002. TXA|
00002330: 0D 20 20 20 20 20 20 45 4F 52 20 20 30 30 32 0D |. EOR 002.|
00002340: 20 20 20 20 20 20 53 54 41 20 20 30 30 36 39 35 | STA 00695|
00002350: 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 |. RTS. |
00002360: 20 2E 42 59 54 45 20 32 35 35 2C 32 35 35 2C 32 | .BYTE 255,255,2|
00002370: 35 35 0D 20 20 20 20 20 20 2E 42 59 54 45 20 32 |55. .BYTE 2|
00002380: 35 35 2C 32 35 35 2C 32 35 35 0D 20 20 20 20 20 |55,255,255. |
00002390: 20 2E 42 59 54 45 20 32 35 35 2C 32 35 35 2C 32 | .BYTE 255,255,2|
000023A0: 35 35 0D 20 20 20 20 20 20 2E 42 59 54 45 20 32 |55. .BYTE 2|
000023B0: 35 35 2C 32 35 35 2C 32 35 35 0D 20 20 20 20 20 |55,255,255. |
000023C0: 20 2E 45 4E 44 0D | .END. |
*=28672. JMP VMOPT ;SPRO
NGADRESSEN.. JMP KLOPT. JMP
KLAFT. JMP GRFIX. JMP GRFIY.
JMP GRFIZ. JMP BUFAD.
JMP KTNXT. JMP LTNYT. JMP B
UPO. JMP BUVU. JMP BUDM.
JMP BUMP. JMP TOCO. JMP B
ULE. JMP DIPO. JMP DIWX.
JMP DUMP. NOP. NOP.VMOPT TY
A ;VERMENIGVULDIG. PHA
;MET OPTELLEN.. LDY #000 ;(2
54,253* +. BEQ VMOP3 ; + (X......
...{.P.....W...............53).........
.................U.............X....P..
..PU..W.|.U....U.........X..............
..........................U...Q.PP...|.
.........................U.............2
.............3.2....'......;>........2..
.....'........2.....'...........7....;:.
.. .BYTE $2A. TAX. TYA.
.BYTE $2A. TAY.VMOP3 PLA. B
NE VMOP1. RTS.LOROP JSR 32224 ;L
ORAM OPEN.. JSR 31712. RTS.LO
RDI JSR 31719 ;LORAM DICHT.. JSR
32233. RTS.KLOPT CLC ;KOLOM
OPTELLEN.. LDA 0069..............
.H.D..H......I.H...D......K...Y.H.......
..............................O.........
.....................<...H........A.I.J.
..IZH........KJ...H.J....KI...H........H
..........H............./...............
.....M..........".R......4U..300. B
CS KLAF1. ADC 033.KLAF1 STA 0069
0,X. RTS.GRFIX JSR KTNXT ;KT,LT,ST
IN..GRFIY JSR LTNYT ;XT,LT,ST IN..GRFI
Z LDA 00692 ;XT,YT,ST IN.. AND #06
3. STA 00699. EOR 00692.
BEQ GRFI1. CLC. .BYTE $2A.
.BYTE $2A. .BYTE $2A. .BY
TE $2A. TAX. DEX. DEX.
LDA 00710,X ;GEZET DOOR. STA 0
0686 ;INLOOP.. LDA 00711,X.
STA 00687. LDA 00714,X. STA
00679. LDA 00715,X. STA 00
68................32 ;* VELSCA *.GRFI1
RTS.BUFAD LDA 00684 ;BUFFERADRES UIT.
STA 254 ;KOLOM (690)=KT..
LDA #000 ;ADRES (254,253). STA
253 ;UIT 256*(684)+. LDX #091
; +91*KT.. LDY 00690 ;GEBRUI
KT REGS.. JSR VMOPT ;X EN [......
......V..............9...}|W......W.....
.....W............X.........Y.W.........
.............U......+=KT.. STA 254
;UIT:(...............3.:............
.:..'......3.>.......'......6....=7..;'.
.....3.:............3.>......H........H.
...... CMP #045. BCC KTNX1.
TXA. SBC #064. TAX. T
YA. SBC #001. TAY.KTNX1 STX 0
0697. STY 00698. RTS.LTNYT CL
C ;[LT]-->(YT).. LDA 00688
;YB-42>=0 IN. ADC 00691 ;(688)
EERST.. ADC 0069. ;IN: (......W..
...................W.W..........'......;
2........3.2.......'....................
......3.7>..................;:........2.
......'......;2....7>O..W........'......
.;...;.?..6.....;.2.....?.....;.?3.'....
..3.2...........2.2..6.....6..'... STA
251 ;AANTAL KOLOMMEN. LDA #091
;IN (23).. STA 024. STA
034. LDA #000. STA 035.
JSR 31434 ;* BLOVUL *. RTS.BUVU
JSR BUFAD ;BUFFER VULLEN.. JSR
LOROP ;INPUT:. LDY #000 ;KT=(69
0).. LDA (253),Y...W...............
T..... ;ST=(692).. BCS BUV1
;ST BITS 7 EN 6. ADC #002 ;GROEP
1 OF 2.. LDY #000 ;ST BITS 5...
0. STA (253),Y ;INDEX IN GROEP..
TAY. LDA 00692. STA (253),
Y. DEY. LDA 00691. STA (
253),Y.BUV1 JSR LORDI. RTS.BUDM
JSR BUFAD ;BYTEPAREN WEG-. JSR L
OROP ;HALEN VOOR. LDY #000 ;KOL
OM KT EN. LDA (253),Y ;REGEL LT..
BEQ BUD5 ;PAAR (LT,ST).. STA
031 ;KT=(690).. LDY #000 ;L
T=(691).. STY 032 ;GATEN WEG,WA
AR-.BUD1 INY ;NA AANTAL WORDT.
LDA (253),Y ;BIJGEWERKT.. INY.
CMP 00691. BEQ BUD2 .
TAX. LDA (253),Y. INC 032.
INC 032. CPY 032. BEQ BU
D2 . STY 033. LDY 032.
STA (253),Y. DEY. TXA. ST
A (253),Y. LDY 033.BUD2 CPY 031.
BCC BUD1 . LDY #000. LD
A 032. STA (253),Y. LDY 032.
LDA #000. BEQ BUD4 .BUD3 IN
Y. STA (253),Y.BUD4 CPY 031.
BCC BUD3.BUD5 JSR LORDI. RTS.BU
MP LDA 00690 ;DUMP BUFFER AF. ST
A 025 ;KOLOM (690)=KT.. LDA 02
3 ;AANTAL IN (23).. STA 026.
JSR BUFAD. LDA 253. STA
034. LDA 254. STA 035.
JSR LOROP.BUMG..................ZS.....
..............................DJ........
....T.....D........Y......@........DJ...
........Y.....J.H.......................
DJ...........Y.....J.L..................
Y....@I..............................@I.
........... UM2 .BUM3 CLC. LDA 03
4. ADC #091. STA 034. LD
A 035. ADC #000. STA 035.
INC 00690. CLC. BCC BUM1
.BUM4 JSR LORDI. LDA 025. S
TA 00690. RTS.BULE LDA #089 ;Z
OEK E.V.LEGE. STA 0069....|P.PT..U
............Y....Q.....X.Q..Y..Q...U....
.......Y...PY....W.W...................
..... ;;O..P...........................
.U.....D.......@ND..................."..
....#.;.......#13............#..........
....#..............#13............#.....
000. STA 254. DEX. BPL
BUL1 .BUL2 INX. STX 0069.........
.....P..R............R.Q................
.P......PW.P............................
.....................................R..
........................................
..............) =Y1.. STA 028,X
;(705,704)=X1.. EOR 00701,Y.
STA 076,X. LDA 00702,Y. C
LC. .BYTE $6A. ROR 076,X.
LDA 00700,Y. AND #007. STA
029,X. EOR 00700,Y. .BYTE $4
A. .BYTE $4A. .BYTE $4A.
STA 077,X. DEX. DEX. DEY
. DEY. DEY. BPL DIP1 .
JSR 32242. LDA 076. CMP
078. BEQ DIP5 . LDX 028.
BEQ DIP2 . JSR WRE . STA
002. LDX 076. JSR WIT .
CLC. LDA 076. ADC #004.
STA 076.DIP2 LDX 030. CPX #0
07. BEQ DIP3 . JSR WLI .
STA 002. LDX 078. JSR WI
T . SEC. LDA 078. SBC #
004. STA 078.DIP3 LDA 078.
CMP 076. BCC DIP8 . LDA #000
. STA 002.DIP4 LDX 076. JSR
WIT . CLC. LDA 076. A
DC #004. STA 076. LDA 078.
CMP 076. BCS DIP4 . BCC
DIP8 .DIP5 LDA 028. BNE DIP6 .
LDA 030. CMP #007. BNE
DIP6 . LDA #000. BEQ DIP7 .DI
P6 LDX 028. JSR WRE . STA
002. LDX 030. JSR WLI .
ORA 002.DIP7 STA 002. LDX 07
6. JSR WIT .DIP8 JSR 32249.
JSR 32233. RTS.WIT LDY 077.
JSR ADR . LDA 253. STA
251. LDA 254. STA 252.
LDY 079. JSR ADR . LDY 02
9.WI0 LDA 252. CMP 254. BN
E WI1 . LDA 251. CMP 253.
BEQ WI2 .WI1 LDA (251),Y.
AND 002. STA (251),Y. INY.
CPY #008. BCC WI1 . CLC.
LDA 251. ADC #064. STA
251. LDA 252. ADC #001.
STA 252. LDY #000. BEQ WI0
.WI2 LDA (251),Y. AND 002.
STA (251),Y. INY. CPY 031.
BCC WI2 . BEQ WI2 . RTS
.ADR STY 254. CLC. LDA #000
. STA 032. ROR 254. .BY
TE $6A. ROR 254. .BYTE $6A.
STA 253. TYA. ADC 254.
ADC 00681. STA 254. TXA.
.BYTE $2A. ROL 032. ADC
253. STA 253. LDA 032.
ADC 254. STA 254. RTS.WRE
LDA #000. BEQ WR1 .WR0 SEC.
.BYTE $6A.WR1 DEX. BPL WR0
. RTS.WLI LDA #255.WL0 .BYTE $4
A. DEX. BPL WL0 . RTS.D
IWX LDX 168. CPX 167. BCS
DI0. RTS.DI0 LDA 167. STA
00690. JSR KTNXT. LDA 00697.
STA 036. LDA 00698. ST
A 037. CPX 167. BEQ DI1.
STX 00690. JSR KTNXT.DI1 LDY
#$00. CPX #045. BCC DI4.
LDA 167. CMP #045. BCS DI3
. JSR XBM. LDA #$00. STA
00700. LDA #$40. STA 00704.
LDA #$01. STA 00705. LD
A #095. STA 00703. JSR DIPO.
LDA #003. STA 036. LDA
#000. STA 037.DI3 LDY #104.DI4
STY 00700. JSR XBM. CLC.
LDA 00697. ADC #003. STA
00704. LDA 00698. ADC #000.
STA 00705. CLC. LDA 0070
0. ADC #095. STA 00703.
JSR DIPO. RTS.XBM SEC. LDA
036. SBC #003. STA 00701.
LDA 037. SBC #000. STA 00
702. RTS.DUMP JSR DIWX. LDA
167. STA 00690. SEC. LD
A 168. ADC #000. SBC 167.
STA 035. BNE DUM1. BEQ D
UM1. JSR BUMP.DUM1 RTS.TOCO LDA
00694 ;TOETSINDEX. AND #031 ;A
SCII (694) IN. TAX ;CODEIND
. (695).. EOR 00694 ;(695)<128:OK
EE.. AND #192. .BYTE $4A.
STA 002. EOR 00694. .BYTE $
2A. .BYTE $2A. EOR #128.
AND #128. EOR 002. STA 002.
TXA. EOR 002. STA 00695
. RTS. .BYTE 255,255,255.
.BYTE 255,255,255. .BYTE 255,255,2
55. .BYTE 255,255,255. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL