DIOT11
FILE INFORMATION
FILENAME(S): DIOT11
FILE TYPE(S): DEL
FILE SIZE: 6.2K
FIRST SEEN: 2025-11-30 21:11:47
APPEARS ON: 1 disk(s)
FILE HASH
52c92cbd09833d4a4fa8eae1ab3fe7d4f3bdcd98b1e61b109a69a8b960622231
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 ASSEMBLER | DIOT11 | DEL | DuncanTwain | 30 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 53 54 41 20 20 32 35 31 20 20 20 20 3B | STA 251 ;| 00000010: 41 41 4E 54 41 4C 20 4B 4F 4C 4F 4D 4D 45 4E 0D |AANTAL KOLOMMEN.| 00000020: 20 20 20 20 20 20 4C 44 41 20 23 30 39 31 20 20 | LDA #091 | 00000030: 20 20 3B 49 4E 20 28 32 33 29 2E 0D 20 20 20 20 | ;IN (23).. | 00000040: 20 20 53 54 41 20 20 30 32 34 0D 20 20 20 20 20 | STA 024. | 00000050: 20 53 54 41 20 20 30 33 34 0D 20 20 20 20 20 20 | STA 034. | 00000060: 4C 44 41 20 23 30 30 30 0D 20 20 20 20 20 20 53 |LDA #000. S| 00000070: 54 41 20 20 30 33 35 0D 20 20 20 20 20 20 4A 53 |TA 035. JS| 00000080: 52 20 20 33 31 34 33 34 20 20 20 3B 2A 20 42 4C |R 31434 ;* BL| 00000090: 4F 56 55 4C 20 2A 0D 20 20 20 20 20 20 52 54 53 |OVUL *. RTS| 000000A0: 0D 42 55 56 55 20 20 4A 53 52 20 20 42 55 46 41 |.BUVU JSR BUFA| 000000B0: 44 20 20 3B 42 55 46 46 45 52 20 56 55 4C 4C 45 |D ;BUFFER VULLE| 000000C0: 4E 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 4C 4F |N.. JSR LO| 000000D0: 52 4F 50 20 20 3B 49 4E 50 55 54 3A 0D 20 20 20 |ROP ;INPUT:. | 000000E0: 20 20 20 4C 44 59 20 23 30 30 30 20 20 20 20 3B | LDY #000 ;| 000000F0: 4B 54 3D 28 36 39 30 29 2E 0D 20 20 20 20 20 20 |KT=(690).. | 00000100: 4C 44 41 20 28 32 35 33 29 2C 59 FF 8D FF 77 8E |LDA (253),Y...w.| 00000110: FF 9B FF FF 9C 85 FF FF FF FF FF FF FF FF 74 7F |..............t.| 00000120: FF 88 9F FF B0 20 20 20 20 3B 53 54 3D 28 36 39 |..... ;ST=(69| 00000130: 32 29 2E 0D 20 20 20 20 20 20 42 43 53 20 20 42 |2).. BCS B| 00000140: 55 56 31 20 20 20 3B 53 54 20 42 49 54 53 20 37 |UV1 ;ST BITS 7| 00000150: 20 45 4E 20 36 0D 20 20 20 20 20 20 41 44 43 20 | EN 6. ADC | 00000160: 23 30 30 32 20 20 20 20 3B 47 52 4F 45 50 20 31 |#002 ;GROEP 1| 00000170: 20 4F 46 20 32 2E 0D 20 20 20 20 20 20 4C 44 59 | OF 2.. LDY| 00000180: 20 23 30 30 30 20 20 20 20 3B 53 54 20 42 49 54 | #000 ;ST BIT| 00000190: 53 20 35 2E 2E 2E 30 0D 20 20 20 20 20 20 53 54 |S 5...0. ST| 000001A0: 41 20 28 32 35 33 29 2C 59 20 3B 49 4E 44 45 58 |A (253),Y ;INDEX| 000001B0: 20 49 4E 20 47 52 4F 45 50 2E 0D 20 20 20 20 20 | IN GROEP.. | 000001C0: 20 54 41 59 0D 20 20 20 20 20 20 4C 44 41 20 20 | TAY. LDA | 000001D0: 30 30 36 39 32 0D 20 20 20 20 20 20 53 54 41 20 |00692. STA | 000001E0: 28 32 35 33 29 2C 59 0D 20 20 20 20 20 20 44 45 |(253),Y. DE| 000001F0: 59 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 36 |Y. LDA 006| 00000200: 39 31 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 |91. STA (25| 00000210: 33 29 2C 59 0D 42 55 56 31 20 20 4A 53 52 20 20 |3),Y.BUV1 JSR | 00000220: 4C 4F 52 44 49 0D 20 20 20 20 20 20 52 54 53 0D |LORDI. RTS.| 00000230: 42 55 44 4D 20 20 4A 53 52 20 20 42 55 46 41 44 |BUDM JSR BUFAD| 00000240: 20 20 3B 42 59 54 45 50 41 52 45 4E 20 57 45 47 | ;BYTEPAREN WEG| 00000250: 2D 0D 20 20 20 20 20 20 4A 53 52 20 20 4C 4F 52 |-. JSR LOR| 00000260: 4F 50 20 20 3B 48 41 4C 45 4E 20 56 4F 4F 52 0D |OP ;HALEN VOOR.| 00000270: 20 20 20 20 20 20 4C 44 59 20 23 30 30 30 20 20 | LDY #000 | 00000280: 20 20 3B 4B 4F 4C 4F 4D 20 4B 54 20 45 4E 0D 20 | ;KOLOM KT EN. | 00000290: 20 20 20 20 20 4C 44 41 20 28 32 35 33 29 2C 59 | LDA (253),Y| 000002A0: 20 3B 52 45 47 45 4C 20 4C 54 2E 0D 20 20 20 20 | ;REGEL LT.. | 000002B0: 20 20 42 45 51 20 20 42 55 44 35 20 20 20 3B 50 | BEQ BUD5 ;P| 000002C0: 41 41 52 20 28 4C 54 2C 53 54 29 2E 0D 20 20 20 |AAR (LT,ST).. | 000002D0: 20 20 20 53 54 41 20 20 30 33 31 20 20 20 20 3B | STA 031 ;| 000002E0: 4B 54 3D 28 36 39 30 29 2E 0D 20 20 20 20 20 20 |KT=(690).. | 000002F0: 4C 44 59 20 23 30 30 30 20 20 20 20 3B 4C 54 3D |LDY #000 ;LT=| 00000300: 28 36 39 31 29 2E 0D 20 20 20 20 20 20 53 54 59 |(691).. STY| 00000310: 20 20 30 33 32 20 20 20 20 3B 47 41 54 45 4E 20 | 032 ;GATEN | 00000320: 57 45 47 2C 57 41 41 52 2D 0D 42 55 44 31 20 20 |WEG,WAAR-.BUD1 | 00000330: 49 4E 59 20 20 20 20 20 20 20 20 20 3B 4E 41 20 |INY ;NA | 00000340: 41 41 4E 54 41 4C 20 57 4F 52 44 54 0D 20 20 20 |AANTAL WORDT. | 00000350: 20 20 20 4C 44 41 20 28 32 35 33 29 2C 59 20 3B | LDA (253),Y ;| 00000360: 42 49 4A 47 45 57 45 52 4B 54 2E 0D 20 20 20 20 |BIJGEWERKT.. | 00000370: 20 20 49 4E 59 0D 20 20 20 20 20 20 43 4D 50 20 | INY. CMP | 00000380: 20 30 30 36 39 31 0D 20 20 20 20 20 20 42 45 51 | 00691. BEQ| 00000390: 20 20 42 55 44 32 20 0D 20 20 20 20 20 20 54 41 | BUD2 . TA| 000003A0: 58 0D 20 20 20 20 20 20 4C 44 41 20 28 32 35 33 |X. LDA (253| 000003B0: 29 2C 59 0D 20 20 20 20 20 20 49 4E 43 20 20 30 |),Y. INC 0| 000003C0: 33 32 0D 20 20 20 20 20 20 49 4E 43 20 20 30 33 |32. INC 03| 000003D0: 32 0D 20 20 20 20 20 20 43 50 59 20 20 30 33 32 |2. CPY 032| 000003E0: 0D 20 20 20 20 20 20 42 45 51 20 20 42 55 44 32 |. BEQ BUD2| 000003F0: 20 0D 20 20 20 20 20 20 53 54 59 20 20 30 33 33 | . STY 033| 00000400: 0D 20 20 20 20 20 20 4C 44 59 20 20 30 33 32 0D |. LDY 032.| 00000410: 20 20 20 20 20 20 53 54 41 20 28 32 35 33 29 2C | STA (253),| 00000420: 59 0D 20 20 20 20 20 20 44 45 59 0D 20 20 20 20 |Y. DEY. | 00000430: 20 20 54 58 41 0D 20 20 20 20 20 20 53 54 41 20 | TXA. STA | 00000440: 28 32 35 33 29 2C 59 0D 20 20 20 20 20 20 4C 44 |(253),Y. LD| 00000450: 59 20 20 30 33 33 0D 42 55 44 32 20 20 43 50 59 |Y 033.BUD2 CPY| 00000460: 20 20 30 33 31 0D 20 20 20 20 20 20 42 43 43 20 | 031. BCC | 00000470: 20 42 55 44 31 20 0D 20 20 20 20 20 20 4C 44 59 | BUD1 . LDY| 00000480: 20 23 30 30 30 0D 20 20 20 20 20 20 4C 44 41 20 | #000. LDA | 00000490: 20 30 33 32 0D 20 20 20 20 20 20 53 54 41 20 28 | 032. STA (| 000004A0: 32 35 33 29 2C 59 0D 20 20 20 20 20 20 4C 44 59 |253),Y. LDY| 000004B0: 20 20 30 33 32 0D 20 20 20 20 20 20 4C 44 41 20 | 032. LDA | 000004C0: 23 30 30 30 0D 20 20 20 20 20 20 42 45 51 20 20 |#000. BEQ | 000004D0: 42 55 44 34 20 0D 42 55 44 33 20 20 49 4E 59 0D |BUD4 .BUD3 INY.| 000004E0: 20 20 20 20 20 20 53 54 41 20 28 32 35 33 29 2C | STA (253),| 000004F0: 59 0D 42 55 44 34 20 20 43 50 59 20 20 30 33 31 |Y.BUD4 CPY 031| 00000500: 0D 20 20 20 20 20 20 42 43 43 20 20 42 55 44 33 |. BCC BUD3| 00000510: 0D 42 55 44 35 20 20 4A 53 52 20 20 4C 4F 52 44 |.BUD5 JSR LORD| 00000520: 49 0D 20 20 20 20 20 20 52 54 53 0D 42 55 4D 50 |I. RTS.BUMP| 00000530: 20 20 4C 44 41 20 20 30 30 36 39 30 20 20 3B 44 | LDA 00690 ;D| 00000540: 55 4D 50 20 42 55 46 46 45 52 20 41 46 0D 20 20 |UMP BUFFER AF. | 00000550: 20 20 20 20 53 54 41 20 20 30 32 35 20 20 20 20 | STA 025 | 00000560: 3B 4B 4F 4C 4F 4D 20 28 36 39 30 29 3D 4B 54 2E |;KOLOM (690)=KT.| 00000570: 0D 20 20 20 20 20 20 4C 44 41 20 20 30 32 33 20 |. LDA 023 | 00000580: 20 20 20 3B 41 41 4E 54 41 4C 20 49 4E 20 28 32 | ;AANTAL IN (2| 00000590: 33 29 2E 0D 20 20 20 20 20 20 53 54 41 20 20 30 |3).. STA 0| 000005A0: 32 36 0D 20 20 20 20 20 20 4A 53 52 20 20 42 55 |26. JSR BU| 000005B0: 46 41 44 0D 20 20 20 20 20 20 4C 44 41 20 20 32 |FAD. LDA 2| 000005C0: 35 33 0D 20 20 20 20 20 20 53 54 41 20 20 30 33 |53. STA 03| 000005D0: 34 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 34 |4. LDA 254| 000005E0: 0D 20 20 20 20 20 20 53 54 41 20 20 30 33 35 0D |. STA 035.| 000005F0: 20 20 20 20 20 20 4A 53 52 20 20 4C 4F 52 4F 50 | JSR LOROP| 00000600: 0D 42 55 4D 67 FF FF FF FF FF FF FF FF FF FF FB |.BUMg...........| 00000610: FF FF FF FF FF FF FF DA D3 FF FF FF EE DB FF FF |................| 00000620: FB FF FF FF FF FF FF FF FF FF FF FF FF FF FF FB |................| 00000630: FF FF FF FF FF FF FF FF FF FF FF C0 44 CA FF 8F |............D...| 00000640: FF 16 80 80 80 80 80 88 A8 9D D4 80 88 A8 DD B6 |................| 00000650: 44 88 16 80 80 80 80 80 88 D9 9C FF 1F A8 DD B6 |D...............| 00000660: 40 80 88 9F 99 94 80 FF C0 44 CA FF 8F FF 16 80 |@........D......| 00000670: 80 80 80 80 88 EC D9 94 80 80 C0 C0 4A FF 48 16 |............J.H.| 00000680: 80 80 80 80 80 88 99 9D FF 16 80 80 80 80 80 88 |................| 00000690: 9F 99 94 80 FF C0 44 CA FF 8F FF 16 80 80 80 80 |......D.........| 000006A0: 80 88 EC D9 94 80 80 C0 C0 4A FF CC 16 80 80 80 |.........J......| 000006B0: 80 80 88 99 9D FF 16 80 80 80 80 80 88 EC D9 FF |................| 000006C0: 80 80 C0 40 C9 16 80 80 80 80 80 88 B8 EC E0 80 |...@............| 000006D0: 88 AD E8 A9 FF FF 16 80 80 80 80 80 88 9F 99 FF |................| 000006E0: 80 80 C0 40 C9 16 80 80 80 80 80 88 A8 B9 9E 80 |...@............| 000006F0: 88 A0 55 4D 32 20 0D 42 55 4D 33 20 20 43 4C 43 |..UM2 .BUM3 CLC| 00000700: 0D 20 20 20 20 20 20 4C 44 41 20 20 30 33 34 0D |. LDA 034.| 00000710: 20 20 20 20 20 20 41 44 43 20 23 30 39 31 0D 20 | ADC #091. | 00000720: 20 20 20 20 20 53 54 41 20 20 30 33 34 0D 20 20 | STA 034. | 00000730: 20 20 20 20 4C 44 41 20 20 30 33 35 0D 20 20 20 | LDA 035. | 00000740: 20 20 20 41 44 43 20 23 30 30 30 0D 20 20 20 20 | ADC #000. | 00000750: 20 20 53 54 41 20 20 30 33 35 0D 20 20 20 20 20 | STA 035. | 00000760: 20 49 4E 43 20 20 30 30 36 39 30 0D 20 20 20 20 | INC 00690. | 00000770: 20 20 43 4C 43 0D 20 20 20 20 20 20 42 43 43 20 | CLC. BCC | 00000780: 20 42 55 4D 31 20 0D 42 55 4D 34 20 20 4A 53 52 | BUM1 .BUM4 JSR| 00000790: 20 20 4C 4F 52 44 49 0D 20 20 20 20 20 20 4C 44 | LORDI. LD| 000007A0: 41 20 20 30 32 35 0D 20 20 20 20 20 20 53 54 41 |A 025. STA| 000007B0: 20 20 30 30 36 39 30 0D 20 20 20 20 20 20 52 54 | 00690. RT| 000007C0: 53 0D 42 55 4C 45 20 20 4C 44 41 20 23 30 38 39 |S.BULE LDA #089| 000007D0: 20 20 20 20 3B 5A 4F 45 4B 20 45 2E 56 2E 4C 45 | ;ZOEK E.V.LE| 000007E0: 47 45 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 |GE. STA 00| 000007F0: 36 39 8F FF FF 8D 7C 70 FF 70 74 FF FF 75 FF FF |69....|p.pt..u..| 00000800: FF F4 FF FF FF FF FF FF FF FF 79 FF FF FF FF 71 |..........y....q| 00000810: FF FF FF FF 8D 78 FF 71 FF FF 79 FF FF 71 FF FF |.....x.q..y..q..| 00000820: FF 75 FF 85 FF FF FF FF FF FF FF FF FF 79 FF FF |.u...........y..| 00000830: FF 70 79 FF 7F FF FF 8D 77 FF 77 8D FF 9B FF 9F |.py.....w.w.....| 00000840: FF 95 FF FF FF FF FF FF FF FF FF FF FF FF 8F 8F |................| 00000850: 8B FF B0 20 20 3B 3B 6F FF FF D0 FF FF FB FF FF |... ;;o........| 00000860: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................| 00000870: FF FF FF FF FF FF FF D5 FF FA FF EE FF C4 80 88 |................| 00000880: 9F 99 94 80 FF 40 CE 44 10 8F FF 16 80 80 80 80 |.....@.D........| 00000890: 80 88 A8 B9 9E 80 88 A8 DD 96 FF 22 FF FF FF FF |..........."....| 000008A0: FF FF 23 FF 3B FF FF FF FF FF FF FF 23 31 33 FF |..#.;.......#13.| 000008B0: FF FF FF FF FF FF FF FF FF FF FF 23 FF FF FF FF |...........#....| 000008C0: FF FF E0 AA FF FF FF FF FF FF 23 FF B3 FF FF FF |..........#.....| 000008D0: FF FF FF FF FF FF FF FF FF 23 31 33 FF FF FF FF |.........#13....| 000008E0: FF B2 FF FF FF FF FF FF 23 FF FF FF FF FF 30 30 |........#.....00| 000008F0: 30 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 34 |0. STA 254| 00000900: 0D 20 20 20 20 20 20 44 45 58 0D 20 20 20 20 20 |. DEX. | 00000910: 20 42 50 4C 20 20 42 55 4C 31 20 0D 42 55 4C 32 | BPL BUL1 .BUL2| 00000920: 20 20 49 4E 58 0D 20 20 20 20 20 20 53 54 58 20 | INX. STX | 00000930: 20 30 30 36 39 FF FB FF FF FF FF FF FF FF FF FF | 0069...........| 00000940: FF FF FF D0 FF FF D2 FB FF FF FF FF FF FF FF FF |................| 00000950: FF FA FF D2 FF D1 FF FF FF FF FF FF FF FF FF FF |................| 00000960: FF FF FF FF FF FF FF D0 FF FF FF FF FF FF D0 D7 |................| 00000970: FF D0 FF FB FF FF FF FF FF FF FF FF FF FF FF FF |................| 00000980: FF FF FF FF FF FF FF FF FF FF FF FF FF DB FF FB |................| 00000990: FF FF FF FF FF FF FF FF E3 FF FF FF FF FF FF FF |................| 000009A0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................| 000009B0: FF FA FF D2 EF FF FF FF FF FF FF FF FF FF FF FF |................| 000009C0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................| 000009D0: E3 FF FF FB FF FF FF FF FF FF FF FF FF FF FF FF |................| 000009E0: FF FF FF FF FF FF FF FF FF FF FF FF 29 20 20 20 |............) | 000009F0: 20 3D 59 31 2E 0D 20 20 20 20 20 20 53 54 41 20 | =Y1.. STA | 00000A00: 20 30 32 38 2C 58 20 20 20 3B 28 37 30 35 2C 37 | 028,X ;(705,7| 00000A10: 30 34 29 3D 58 31 2E 0D 20 20 20 20 20 20 45 4F |04)=X1.. EO| 00000A20: 52 20 20 30 30 37 30 31 2C 59 0D 20 20 20 20 20 |R 00701,Y. | 00000A30: 20 53 54 41 20 20 30 37 36 2C 58 0D 20 20 20 20 | STA 076,X. | 00000A40: 20 20 4C 44 41 20 20 30 30 37 30 32 2C 59 0D 20 | LDA 00702,Y. | 00000A50: 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 2E | CLC. .| 00000A60: 42 59 54 45 20 24 36 41 0D 20 20 20 20 20 20 52 |BYTE $6A. R| 00000A70: 4F 52 20 20 30 37 36 2C 58 0D 20 20 20 20 20 20 |OR 076,X. | 00000A80: 4C 44 41 20 20 30 30 37 30 30 2C 59 0D 20 20 20 |LDA 00700,Y. | 00000A90: 20 20 20 41 4E 44 20 23 30 30 37 0D 20 20 20 20 | AND #007. | 00000AA0: 20 20 53 54 41 20 20 30 32 39 2C 58 0D 20 20 20 | STA 029,X. | 00000AB0: 20 20 20 45 4F 52 20 20 30 30 37 30 30 2C 59 0D | EOR 00700,Y.| 00000AC0: 20 20 20 20 20 20 2E 42 59 54 45 20 24 34 41 0D | .BYTE $4A.| 00000AD0: 20 20 20 20 20 20 2E 42 59 54 45 20 24 34 41 0D | .BYTE $4A.| 00000AE0: 20 20 20 20 20 20 2E 42 59 54 45 20 24 34 41 0D | .BYTE $4A.| 00000AF0: 20 20 20 20 20 20 53 54 41 20 20 30 37 37 2C 58 | STA 077,X| 00000B00: 0D 20 20 20 20 20 20 44 45 58 0D 20 20 20 20 20 |. DEX. | 00000B10: 20 44 45 58 0D 20 20 20 20 20 20 44 45 59 0D 20 | DEX. DEY. | 00000B20: 20 20 20 20 20 44 45 59 0D 20 20 20 20 20 20 44 | DEY. D| 00000B30: 45 59 0D 20 20 20 20 20 20 42 50 4C 20 20 44 49 |EY. BPL DI| 00000B40: 50 31 20 0D 20 20 20 20 20 20 4A 53 52 20 20 33 |P1 . JSR 3| 00000B50: 32 32 34 32 0D 20 20 20 20 20 20 4C 44 41 20 20 |2242. LDA | 00000B60: 30 37 36 0D 20 20 20 20 20 20 43 4D 50 20 20 30 |076. CMP 0| 00000B70: 37 38 0D 20 20 20 20 20 20 42 45 51 20 20 44 49 |78. BEQ DI| 00000B80: 50 35 20 0D 20 20 20 20 20 20 4C 44 58 20 20 30 |P5 . LDX 0| 00000B90: 32 38 0D 20 20 20 20 20 20 42 45 51 20 20 44 49 |28. BEQ DI| 00000BA0: 50 32 20 0D 20 20 20 20 20 20 4A 53 52 20 20 57 |P2 . JSR W| 00000BB0: 52 45 20 20 0D 20 20 20 20 20 20 53 54 41 20 20 |RE . STA | 00000BC0: 30 30 32 0D 20 20 20 20 20 20 4C 44 58 20 20 30 |002. LDX 0| 00000BD0: 37 36 0D 20 20 20 20 20 20 4A 53 52 20 20 57 49 |76. JSR WI| 00000BE0: 54 20 20 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 |T . CLC. | 00000BF0: 20 20 20 20 4C 44 41 20 20 30 37 36 0D 20 20 20 | LDA 076. | 00000C00: 20 20 20 41 44 43 20 23 30 30 34 0D 20 20 20 20 | ADC #004. | 00000C10: 20 20 53 54 41 20 20 30 37 36 0D 44 49 50 32 20 | STA 076.DIP2 | 00000C20: 20 4C 44 58 20 20 30 33 30 0D 20 20 20 20 20 20 | LDX 030. | 00000C30: 43 50 58 20 23 30 30 37 0D 20 20 20 20 20 20 42 |CPX #007. B| 00000C40: 45 51 20 20 44 49 50 33 20 0D 20 20 20 20 20 20 |EQ DIP3 . | 00000C50: 4A 53 52 20 20 57 4C 49 20 20 0D 20 20 20 20 20 |JSR WLI . | 00000C60: 20 53 54 41 20 20 30 30 32 0D 20 20 20 20 20 20 | STA 002. | 00000C70: 4C 44 58 20 20 30 37 38 0D 20 20 20 20 20 20 4A |LDX 078. J| 00000C80: 53 52 20 20 57 49 54 20 20 0D 20 20 20 20 20 20 |SR WIT . | 00000C90: 53 45 43 0D 20 20 20 20 20 20 4C 44 41 20 20 30 |SEC. LDA 0| 00000CA0: 37 38 0D 20 20 20 20 20 20 53 42 43 20 23 30 30 |78. SBC #00| 00000CB0: 34 0D 20 20 20 20 20 20 53 54 41 20 20 30 37 38 |4. STA 078| 00000CC0: 0D 44 49 50 33 20 20 4C 44 41 20 20 30 37 38 0D |.DIP3 LDA 078.| 00000CD0: 20 20 20 20 20 20 43 4D 50 20 20 30 37 36 0D 20 | CMP 076. | 00000CE0: 20 20 20 20 20 42 43 43 20 20 44 49 50 38 20 0D | BCC DIP8 .| 00000CF0: 20 20 20 20 20 20 4C 44 41 20 23 30 30 30 0D 20 | LDA #000. | 00000D00: 20 20 20 20 20 53 54 41 20 20 30 30 32 0D 44 49 | STA 002.DI| 00000D10: 50 34 20 20 4C 44 58 20 20 30 37 36 0D 20 20 20 |P4 LDX 076. | 00000D20: 20 20 20 4A 53 52 20 20 57 49 54 20 20 0D 20 20 | JSR WIT . | 00000D30: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 4C 44 | CLC. LD| 00000D40: 41 20 20 30 37 36 0D 20 20 20 20 20 20 41 44 43 |A 076. ADC| 00000D50: 20 23 30 30 34 0D 20 20 20 20 20 20 53 54 41 20 | #004. STA | 00000D60: 20 30 37 36 0D 20 20 20 20 20 20 4C 44 41 20 20 | 076. LDA | 00000D70: 30 37 38 0D 20 20 20 20 20 20 43 4D 50 20 20 30 |078. CMP 0| 00000D80: 37 36 0D 20 20 20 20 20 20 42 43 53 20 20 44 49 |76. BCS DI| 00000D90: 50 34 20 0D 20 20 20 20 20 20 42 43 43 20 20 44 |P4 . BCC D| 00000DA0: 49 50 38 20 0D 44 49 50 35 20 20 4C 44 41 20 20 |IP8 .DIP5 LDA | 00000DB0: 30 32 38 0D 20 20 20 20 20 20 42 4E 45 20 20 44 |028. BNE D| 00000DC0: 49 50 36 20 0D 20 20 20 20 20 20 4C 44 41 20 20 |IP6 . LDA | 00000DD0: 30 33 30 0D 20 20 20 20 20 20 43 4D 50 20 23 30 |030. CMP #0| 00000DE0: 30 37 0D 20 20 20 20 20 20 42 4E 45 20 20 44 49 |07. BNE DI| 00000DF0: 50 36 20 0D 20 20 20 20 20 20 4C 44 41 20 23 30 |P6 . LDA #0| 00000E00: 30 30 0D 20 20 20 20 20 20 42 45 51 20 20 44 49 |00. BEQ DI| 00000E10: 50 37 20 0D 44 49 50 36 20 20 4C 44 58 20 20 30 |P7 .DIP6 LDX 0| 00000E20: 32 38 0D 20 20 20 20 20 20 4A 53 52 20 20 57 52 |28. JSR WR| 00000E30: 45 20 20 0D 20 20 20 20 20 20 53 54 41 20 20 30 |E . STA 0| 00000E40: 30 32 0D 20 20 20 20 20 20 4C 44 58 20 20 30 33 |02. LDX 03| 00000E50: 30 0D 20 20 20 20 20 20 4A 53 52 20 20 57 4C 49 |0. JSR WLI| 00000E60: 20 20 0D 20 20 20 20 20 20 4F 52 41 20 20 30 30 | . ORA 00| 00000E70: 32 0D 44 49 50 37 20 20 53 54 41 20 20 30 30 32 |2.DIP7 STA 002| 00000E80: 0D 20 20 20 20 20 20 4C 44 58 20 20 30 37 36 0D |. LDX 076.| 00000E90: 20 20 20 20 20 20 4A 53 52 20 20 57 49 54 20 20 | JSR WIT | 00000EA0: 0D 44 49 50 38 20 20 4A 53 52 20 20 33 32 32 34 |.DIP8 JSR 3224| 00000EB0: 39 0D 20 20 20 20 20 20 4A 53 52 20 20 33 32 32 |9. JSR 322| 00000EC0: 33 33 0D 20 20 20 20 20 20 52 54 53 0D 57 49 54 |33. RTS.WIT| 00000ED0: 20 20 20 4C 44 59 20 20 30 37 37 0D 20 20 20 20 | LDY 077. | 00000EE0: 20 20 4A 53 52 20 20 41 44 52 20 20 0D 20 20 20 | JSR ADR . | 00000EF0: 20 20 20 4C 44 41 20 20 32 35 33 0D 20 20 20 20 | LDA 253. | 00000F00: 20 20 53 54 41 20 20 32 35 31 0D 20 20 20 20 20 | STA 251. | 00000F10: 20 4C 44 41 20 20 32 35 34 0D 20 20 20 20 20 20 | LDA 254. | 00000F20: 53 54 41 20 20 32 35 32 0D 20 20 20 20 20 20 4C |STA 252. L| 00000F30: 44 59 20 20 30 37 39 0D 20 20 20 20 20 20 4A 53 |DY 079. JS| 00000F40: 52 20 20 41 44 52 20 20 0D 20 20 20 20 20 20 4C |R ADR . L| 00000F50: 44 59 20 20 30 32 39 0D 57 49 30 20 20 20 4C 44 |DY 029.WI0 LD| 00000F60: 41 20 20 32 35 32 0D 20 20 20 20 20 20 43 4D 50 |A 252. CMP| 00000F70: 20 20 32 35 34 0D 20 20 20 20 20 20 42 4E 45 20 | 254. BNE | 00000F80: 20 57 49 31 20 20 0D 20 20 20 20 20 20 4C 44 41 | WI1 . LDA| 00000F90: 20 20 32 35 31 0D 20 20 20 20 20 20 43 4D 50 20 | 251. CMP | 00000FA0: 20 32 35 33 0D 20 20 20 20 20 20 42 45 51 20 20 | 253. BEQ | 00000FB0: 57 49 32 20 20 0D 57 49 31 20 20 20 4C 44 41 20 |WI2 .WI1 LDA | 00000FC0: 28 32 35 31 29 2C 59 0D 20 20 20 20 20 20 41 4E |(251),Y. AN| 00000FD0: 44 20 20 30 30 32 0D 20 20 20 20 20 20 53 54 41 |D 002. STA| 00000FE0: 20 28 32 35 31 29 2C 59 0D 20 20 20 20 20 20 49 | (251),Y. I| 00000FF0: 4E 59 0D 20 20 20 20 20 20 43 50 59 20 23 30 30 |NY. CPY #00| 00001000: 38 0D 20 20 20 20 20 20 42 43 43 20 20 57 49 31 |8. BCC WI1| 00001010: 20 20 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 20 | . CLC. | 00001020: 20 20 20 4C 44 41 20 20 32 35 31 0D 20 20 20 20 | LDA 251. | 00001030: 20 20 41 44 43 20 23 30 36 34 0D 20 20 20 20 20 | ADC #064. | 00001040: 20 53 54 41 20 20 32 35 31 0D 20 20 20 20 20 20 | STA 251. | 00001050: 4C 44 41 20 20 32 35 32 0D 20 20 20 20 20 20 41 |LDA 252. A| 00001060: 44 43 20 23 30 30 31 0D 20 20 20 20 20 20 53 54 |DC #001. ST| 00001070: 41 20 20 32 35 32 0D 20 20 20 20 20 20 4C 44 59 |A 252. LDY| 00001080: 20 23 30 30 30 0D 20 20 20 20 20 20 42 45 51 20 | #000. BEQ | 00001090: 20 57 49 30 20 20 0D 57 49 32 20 20 20 4C 44 41 | WI0 .WI2 LDA| 000010A0: 20 28 32 35 31 29 2C 59 0D 20 20 20 20 20 20 41 | (251),Y. A| 000010B0: 4E 44 20 20 30 30 32 0D 20 20 20 20 20 20 53 54 |ND 002. ST| 000010C0: 41 20 28 32 35 31 29 2C 59 0D 20 20 20 20 20 20 |A (251),Y. | 000010D0: 49 4E 59 0D 20 20 20 20 20 20 43 50 59 20 20 30 |INY. CPY 0| 000010E0: 33 31 0D 20 20 20 20 20 20 42 43 43 20 20 57 49 |31. BCC WI| 000010F0: 32 20 20 0D 20 20 20 20 20 20 42 45 51 20 20 57 |2 . BEQ W| 00001100: 49 32 20 20 0D 20 20 20 20 20 20 52 54 53 0D 41 |I2 . RTS.A| 00001110: 44 52 20 20 20 53 54 59 20 20 32 35 34 0D 20 20 |DR STY 254. | 00001120: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 4C 44 | CLC. LD| 00001130: 41 20 23 30 30 30 0D 20 20 20 20 20 20 53 54 41 |A #000. STA| 00001140: 20 20 30 33 32 0D 20 20 20 20 20 20 52 4F 52 20 | 032. ROR | 00001150: 20 32 35 34 0D 20 20 20 20 20 20 2E 42 59 54 45 | 254. .BYTE| 00001160: 20 24 36 41 0D 20 20 20 20 20 20 52 4F 52 20 20 | $6A. ROR | 00001170: 32 35 34 0D 20 20 20 20 20 20 2E 42 59 54 45 20 |254. .BYTE | 00001180: 24 36 41 0D 20 20 20 20 20 20 53 54 41 20 20 32 |$6A. STA 2| 00001190: 35 33 0D 20 20 20 20 20 20 54 59 41 0D 20 20 20 |53. TYA. | 000011A0: 20 20 20 41 44 43 20 20 32 35 34 0D 20 20 20 20 | ADC 254. | 000011B0: 20 20 41 44 43 20 20 30 30 36 38 31 0D 20 20 20 | ADC 00681. | 000011C0: 20 20 20 53 54 41 20 20 32 35 34 0D 20 20 20 20 | STA 254. | 000011D0: 20 20 54 58 41 0D 20 20 20 20 20 20 2E 42 59 54 | TXA. .BYT| 000011E0: 45 20 24 32 41 0D 20 20 20 20 20 20 52 4F 4C 20 |E $2A. ROL | 000011F0: 20 30 33 32 0D 20 20 20 20 20 20 41 44 43 20 20 | 032. ADC | 00001200: 32 35 33 0D 20 20 20 20 20 20 53 54 41 20 20 32 |253. STA 2| 00001210: 35 33 0D 20 20 20 20 20 20 4C 44 41 20 20 30 33 |53. LDA 03| 00001220: 32 0D 20 20 20 20 20 20 41 44 43 20 20 32 35 34 |2. ADC 254| 00001230: 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 34 0D |. STA 254.| 00001240: 20 20 20 20 20 20 52 54 53 0D 57 52 45 20 20 20 | RTS.WRE | 00001250: 4C 44 41 20 23 30 30 30 0D 20 20 20 20 20 20 42 |LDA #000. B| 00001260: 45 51 20 20 57 52 31 20 20 0D 57 52 30 20 20 20 |EQ WR1 .WR0 | 00001270: 53 45 43 0D 20 20 20 20 20 20 2E 42 59 54 45 20 |SEC. .BYTE | 00001280: 24 36 41 0D 57 52 31 20 20 20 44 45 58 0D 20 20 |$6A.WR1 DEX. | 00001290: 20 20 20 20 42 50 4C 20 20 57 52 30 20 20 0D 20 | BPL WR0 . | 000012A0: 20 20 20 20 20 52 54 53 0D 57 4C 49 20 20 20 4C | RTS.WLI L| 000012B0: 44 41 20 23 32 35 35 0D 57 4C 30 20 20 20 2E 42 |DA #255.WL0 .B| 000012C0: 59 54 45 20 24 34 41 0D 20 20 20 20 20 20 44 45 |YTE $4A. DE| 000012D0: 58 0D 20 20 20 20 20 20 42 50 4C 20 20 57 4C 30 |X. BPL WL0| 000012E0: 20 20 0D 20 20 20 20 20 20 52 54 53 0D 44 49 57 | . RTS.DIW| 000012F0: 58 20 20 4C 44 58 20 20 31 36 38 0D 20 20 20 20 |X LDX 168. | 00001300: 20 20 43 50 58 20 20 31 36 37 0D 20 20 20 20 20 | CPX 167. | 00001310: 20 42 43 53 20 20 44 49 30 0D 20 20 20 20 20 20 | BCS DI0. | 00001320: 52 54 53 0D 44 49 30 20 20 20 4C 44 41 20 20 31 |RTS.DI0 LDA 1| 00001330: 36 37 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 |67. STA 00| 00001340: 36 39 30 0D 20 20 20 20 20 20 4A 53 52 20 20 4B |690. JSR K| 00001350: 54 4E 58 54 0D 20 20 20 20 20 20 4C 44 41 20 20 |TNXT. LDA | 00001360: 30 30 36 39 37 0D 20 20 20 20 20 20 53 54 41 20 |00697. STA | 00001370: 20 30 33 36 0D 20 20 20 20 20 20 4C 44 41 20 20 | 036. LDA | 00001380: 30 30 36 39 38 0D 20 20 20 20 20 20 53 54 41 20 |00698. STA | 00001390: 20 30 33 37 0D 20 20 20 20 20 20 43 50 58 20 20 | 037. CPX | 000013A0: 31 36 37 0D 20 20 20 20 20 20 42 45 51 20 20 44 |167. BEQ D| 000013B0: 49 31 0D 20 20 20 20 20 20 53 54 58 20 20 30 30 |I1. STX 00| 000013C0: 36 39 30 0D 20 20 20 20 20 20 4A 53 52 20 20 4B |690. JSR K| 000013D0: 54 4E 58 54 0D 44 49 31 20 20 20 4C 44 59 20 23 |TNXT.DI1 LDY #| 000013E0: 24 30 30 0D 20 20 20 20 20 20 43 50 58 20 23 30 |$00. CPX #0| 000013F0: 34 35 0D 20 20 20 20 20 20 42 43 43 20 20 44 49 |45. BCC DI| 00001400: 34 0D 20 20 20 20 20 20 4C 44 41 20 20 31 36 37 |4. LDA 167| 00001410: 0D 20 20 20 20 20 20 43 4D 50 20 23 30 34 35 0D |. CMP #045.| 00001420: 20 20 20 20 20 20 42 43 53 20 20 44 49 33 0D 20 | BCS DI3. | 00001430: 20 20 20 20 20 4A 53 52 20 20 58 42 4D 0D 20 20 | JSR XBM. | 00001440: 20 20 20 20 4C 44 41 20 23 24 30 30 0D 20 20 20 | LDA #$00. | 00001450: 20 20 20 53 54 41 20 20 30 30 37 30 30 0D 20 20 | STA 00700. | 00001460: 20 20 20 20 4C 44 41 20 23 24 34 30 0D 20 20 20 | LDA #$40. | 00001470: 20 20 20 53 54 41 20 20 30 30 37 30 34 0D 20 20 | STA 00704. | 00001480: 20 20 20 20 4C 44 41 20 23 24 30 31 0D 20 20 20 | LDA #$01. | 00001490: 20 20 20 53 54 41 20 20 30 30 37 30 35 0D 20 20 | STA 00705. | 000014A0: 20 20 20 20 4C 44 41 20 23 30 39 35 0D 20 20 20 | LDA #095. | 000014B0: 20 20 20 53 54 41 20 20 30 30 37 30 33 0D 20 20 | STA 00703. | 000014C0: 20 20 20 20 4A 53 52 20 20 44 49 50 4F 0D 20 20 | JSR DIPO. | 000014D0: 20 20 20 20 4C 44 41 20 23 30 30 33 0D 20 20 20 | LDA #003. | 000014E0: 20 20 20 53 54 41 20 20 30 33 36 0D 20 20 20 20 | STA 036. | 000014F0: 20 20 4C 44 41 20 23 30 30 30 0D 20 20 20 20 20 | LDA #000. | 00001500: 20 53 54 41 20 20 30 33 37 0D 44 49 33 20 20 20 | STA 037.DI3 | 00001510: 4C 44 59 20 23 31 30 34 0D 44 49 34 20 20 20 53 |LDY #104.DI4 S| 00001520: 54 59 20 20 30 30 37 30 30 0D 20 20 20 20 20 20 |TY 00700. | 00001530: 4A 53 52 20 20 58 42 4D 0D 20 20 20 20 20 20 43 |JSR XBM. C| 00001540: 4C 43 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 |LC. LDA 00| 00001550: 36 39 37 0D 20 20 20 20 20 20 41 44 43 20 23 30 |697. ADC #0| 00001560: 30 33 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 |03. STA 00| 00001570: 37 30 34 0D 20 20 20 20 20 20 4C 44 41 20 20 30 |704. LDA 0| 00001580: 30 36 39 38 0D 20 20 20 20 20 20 41 44 43 20 23 |0698. ADC #| 00001590: 30 30 30 0D 20 20 20 20 20 20 53 54 41 20 20 30 |000. STA 0| 000015A0: 30 37 30 35 0D 20 20 20 20 20 20 43 4C 43 0D 20 |0705. CLC. | 000015B0: 20 20 20 20 20 4C 44 41 20 20 30 30 37 30 30 0D | LDA 00700.| 000015C0: 20 20 20 20 20 20 41 44 43 20 23 30 39 35 0D 20 | ADC #095. | 000015D0: 20 20 20 20 20 53 54 41 20 20 30 30 37 30 33 0D | STA 00703.| 000015E0: 20 20 20 20 20 20 4A 53 52 20 20 44 49 50 4F 0D | JSR DIPO.| 000015F0: 20 20 20 20 20 20 52 54 53 0D 58 42 4D 20 20 20 | RTS.XBM | 00001600: 53 45 43 0D 20 20 20 20 20 20 4C 44 41 20 20 30 |SEC. LDA 0| 00001610: 33 36 0D 20 20 20 20 20 20 53 42 43 20 23 30 30 |36. SBC #00| 00001620: 33 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 37 |3. STA 007| 00001630: 30 31 0D 20 20 20 20 20 20 4C 44 41 20 20 30 33 |01. LDA 03| 00001640: 37 0D 20 20 20 20 20 20 53 42 43 20 23 30 30 30 |7. SBC #000| 00001650: 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 37 30 |. STA 0070| 00001660: 32 0D 20 20 20 20 20 20 52 54 53 0D 44 55 4D 50 |2. RTS.DUMP| 00001670: 20 20 4A 53 52 20 20 44 49 57 58 0D 20 20 20 20 | JSR DIWX. | 00001680: 20 20 4C 44 41 20 20 31 36 37 0D 20 20 20 20 20 | LDA 167. | 00001690: 20 53 54 41 20 20 30 30 36 39 30 0D 20 20 20 20 | STA 00690. | 000016A0: 20 20 53 45 43 0D 20 20 20 20 20 20 4C 44 41 20 | SEC. LDA | 000016B0: 20 31 36 38 0D 20 20 20 20 20 20 41 44 43 20 23 | 168. ADC #| 000016C0: 30 30 30 0D 20 20 20 20 20 20 53 42 43 20 20 31 |000. SBC 1| 000016D0: 36 37 0D 20 20 20 20 20 20 53 54 41 20 20 30 33 |67. STA 03| 000016E0: 35 0D 20 20 20 20 20 20 42 4E 45 20 20 44 55 4D |5. BNE DUM| 000016F0: 31 0D 20 20 20 20 20 20 42 45 51 20 20 44 55 4D |1. BEQ DUM| 00001700: 31 0D 20 20 20 20 20 20 4A 53 52 20 20 42 55 4D |1. JSR BUM| 00001710: 50 0D 44 55 4D 31 20 20 52 54 53 0D 54 4F 43 4F |P.DUM1 RTS.TOCO| 00001720: 20 20 4C 44 41 20 20 30 30 36 39 34 20 20 3B 54 | LDA 00694 ;T| 00001730: 4F 45 54 53 49 4E 44 45 58 0D 20 20 20 20 20 20 |OETSINDEX. | 00001740: 41 4E 44 20 23 30 33 31 20 20 20 20 3B 41 53 43 |AND #031 ;ASC| 00001750: 49 49 20 28 36 39 34 29 20 49 4E 0D 20 20 20 20 |II (694) IN. | 00001760: 20 20 54 41 58 20 20 20 20 20 20 20 20 20 3B 43 | TAX ;C| 00001770: 4F 44 45 49 4E 44 2E 20 28 36 39 35 29 2E 0D 20 |ODEIND. (695).. | 00001780: 20 20 20 20 20 45 4F 52 20 20 30 30 36 39 34 20 | EOR 00694 | 00001790: 20 3B 28 36 39 35 29 3C 31 32 38 3A 4F 4B 45 45 | ;(695)<128:OKEE| 000017A0: 2E 0D 20 20 20 20 20 20 41 4E 44 20 23 31 39 32 |.. AND #192| 000017B0: 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 34 41 |. .BYTE $4A| 000017C0: 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 32 0D |. STA 002.| 000017D0: 20 20 20 20 20 20 45 4F 52 20 20 30 30 36 39 34 | EOR 00694| 000017E0: 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 32 41 |. .BYTE $2A| 000017F0: 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 32 41 |. .BYTE $2A| 00001800: 0D 20 20 20 20 20 20 45 4F 52 20 23 31 32 38 0D |. EOR #128.| 00001810: 20 20 20 20 20 20 41 4E 44 20 23 31 32 38 0D 20 | AND #128. | 00001820: 20 20 20 20 20 45 4F 52 20 20 30 30 32 0D 20 20 | EOR 002. | 00001830: 20 20 20 20 53 54 41 20 20 30 30 32 0D 20 20 20 | STA 002. | 00001840: 20 20 20 54 58 41 0D 20 20 20 20 20 20 45 4F 52 | TXA. EOR| 00001850: 20 20 30 30 32 0D 20 20 20 20 20 20 53 54 41 20 | 002. STA | 00001860: 20 30 30 36 39 35 0D 20 20 20 20 20 20 52 54 53 | 00695. RTS| 00001870: 0D 20 20 20 20 20 20 2E 42 59 54 45 20 32 35 35 |. .BYTE 255| 00001880: 2C 32 35 35 2C 32 35 35 0D 20 20 20 20 20 20 2E |,255,255. .| 00001890: 42 59 54 45 20 32 35 35 2C 32 35 35 2C 32 35 35 |BYTE 255,255,255| 000018A0: 0D 20 20 20 20 20 20 2E 42 59 54 45 20 32 35 35 |. .BYTE 255| 000018B0: 2C 32 35 35 2C 32 35 35 0D 20 20 20 20 20 20 2E |,255,255. .| 000018C0: 42 59 54 45 20 32 35 35 2C 32 35 35 2C 32 35 35 |BYTE 255,255,255| 000018D0: 0D 20 20 20 20 20 20 2E 45 4E 44 0D |. .END. |
STA 251 ;AANTAL KOLOMMEN. LD
A #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=(690).. LDA (253),Y...W.........
......T..... ;ST=(692).. BCS B
UV1 ;ST BITS 7 EN 6. ADC #002
;GROEP 1 OF 2.. LDY #000 ;ST BIT
S 5...0. STA (253),Y ;INDEX IN GROE
P.. TAY. LDA 00692. STA
(253),Y. DEY. LDA 00691.
STA (253),Y.BUV1 JSR LORDI. RTS.
BUDM JSR BUFAD ;BYTEPAREN WEG-.
JSR LOROP ;HALEN VOOR. LDY #000
;KOLOM KT EN. LDA (253),Y ;REGEL
LT.. BEQ BUD5 ;PAAR (LT,ST)..
STA 031 ;KT=(690).. LDY #000
;LT=(691).. STY 032 ;GATEN
WEG,WAAR-.BUD1 INY ;NA AANTAL W
ORDT. LDA (253),Y ;BIJGEWERKT..
INY. CMP 00691. BEQ BUD2 .
TAX. LDA (253),Y. INC 0
32. INC 032. CPY 032. B
EQ BUD2 . STY 033. LDY 032.
STA (253),Y. DEY. TXA.
STA (253),Y. LDY 033.BUD2 CPY
031. BCC BUD1 . LDY #000.
LDA 032. STA (253),Y. LDY
032. LDA #000. BEQ BUD4 .BU
D3 INY. STA (253),Y.BUD4 CPY 031
. BCC BUD3.BUD5 JSR LORDI.
RTS.BUMP LDA 00690 ;DUMP BUFFER AF.
STA 025 ;KOLOM (690)=KT.. L
DA 023 ;AANTAL IN (23).. STA 0
26. JSR BUFAD. LDA 253.
STA 034. LDA 254. STA 035.
JSR LOROP.BUMG..................Z
S...................................DJ..
..........T.....D........Y......@.......
.DJ...........Y.....J.H.................
......DJ...........Y.....J.L............
......Y....@I...........................
...@I............ UM2 .BUM3 CLC. L
DA 034. ADC #091. STA 034.
LDA 035. ADC #000. STA 0
35. INC 00690. CLC. BCC
BUM1 .BUM4 JSR LORDI. LDA 025.
STA 00690. RTS.BULE LDA #089
;ZOEK 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.
CLC. .BYTE $6A. ROR 076,
X. LDA 00700,Y. AND #007.
STA 029,X. EOR 00700,Y. .B
YTE $4A. .BYTE $4A. .BYTE $4A.
STA 077,X. DEX. DEX.
DEY. DEY. DEY. BPL DI
P1 . JSR 32242. LDA 076.
CMP 078. BEQ DIP5 . LDX 0
28. BEQ DIP2 . JSR WRE .
STA 002. LDX 076. JSR WI
T . CLC. LDA 076. ADC #
004. STA 076.DIP2 LDX 030.
CPX #007. BEQ DIP3 . JSR WLI
. STA 002. LDX 078. J
SR WIT . SEC. LDA 078.
SBC #004. STA 078.DIP3 LDA 078.
CMP 076. BCC DIP8 . LD
A #000. STA 002.DIP4 LDX 076.
JSR WIT . CLC. LDA 076.
ADC #004. STA 076. LDA
078. CMP 076. BCS DIP4 .
BCC DIP8 .DIP5 LDA 028. BNE D
IP6 . LDA 030. CMP #007.
BNE DIP6 . LDA #000. BEQ DI
P7 .DIP6 LDX 028. JSR WRE .
STA 002. LDX 030. JSR WLI
. ORA 002.DIP7 STA 002. L
DX 076. JSR WIT .DIP8 JSR 3224
9. JSR 32233. RTS.WIT LDY
077. JSR ADR . LDA 253.
STA 251. LDA 254. STA 252
. LDY 079. JSR ADR . L
DY 029.WI0 LDA 252. CMP 254.
BNE WI1 . LDA 251. CMP
253. BEQ WI2 .WI1 LDA (251),Y.
AND 002. STA (251),Y. I
NY. 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 0
31. BCC WI2 . BEQ WI2 .
RTS.ADR STY 254. CLC. LD
A #000. STA 032. ROR 254.
.BYTE $6A. ROR 254. .BYTE
$6A. STA 253. TYA. ADC
254. ADC 00681. STA 254.
TXA. .BYTE $2A. ROL 032.
ADC 253. STA 253. LDA 03
2. ADC 254. STA 254. RT
S.WRE LDA #000. BEQ WR1 .WR0
SEC. .BYTE $6A.WR1 DEX. BPL
WR0 . RTS.WLI LDA #255.WL0 .B
YTE $4A. DEX. BPL WL0 .
RTS.DIWX LDX 168. CPX 167.
BCS DI0. RTS.DI0 LDA 167.
STA 00690. JSR KTNXT. LDA
00697. STA 036. LDA 00698.
STA 037. CPX 167. BEQ D
I1. STX 00690. JSR KTNXT.DI1
LDY #$00. CPX #045. BCC DI
4. LDA 167. CMP #045. BC
S DI3. JSR XBM. LDA #$00.
STA 00700. LDA #$40. STA
00704. LDA #$01. STA 00705.
LDA #095. STA 00703. JSR
DIPO. LDA #003. STA 036.
LDA #000. STA 037.DI3 LDY #104
.DI4 STY 00700. JSR XBM. C
LC. LDA 00697. ADC #003.
STA 00704. LDA 00698. ADC #
000. STA 00705. CLC. LDA
00700. ADC #095. STA 00703.
JSR DIPO. RTS.XBM SEC.
LDA 036. SBC #003. STA 007
01. LDA 037. SBC #000. S
TA 00702. RTS.DUMP JSR DIWX.
LDA 167. STA 00690. SEC.
LDA 168. ADC #000. SBC 1
67. STA 035. BNE DUM1.
BEQ DUM1. JSR BUMP.DUM1 RTS.TOCO
LDA 00694 ;TOETSINDEX. AND #031
;ASCII (694) IN. TAX ;C
ODEIND. (695).. EOR 00694 ;(695)<
128:OKEE.. 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,255. .BYTE 255,255,255. .
END.
> CLICK IMAGE PREVIEW FOR FULL MODAL