LOWRES.ASM
FILE INFORMATION
FILENAME(S): LOWRES.ASM
FILE TYPE(S): SEQ
FILE SIZE: 8.2K
FIRST SEEN: 2025-11-30 21:27:07
APPEARS ON: 1 disk(s)
FILE HASH
b45a596452287b5d893137d003a46454ac84c43ec23ad7904631ae6adacfb305
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MEENEEM 1 | LOWRES.ASM | SEQ | DuncanTwain | 19 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 2A 3D 34 39 31 35 32 | *=49152| 00000010: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00000020: 20 20 20 20 3B 0D 20 20 20 20 20 20 20 20 20 20 | ;. | 00000030: 20 20 20 20 20 20 20 20 20 3B 50 52 49 4E 54 20 | ;PRINT | 00000040: 53 43 48 45 52 4D 2E 0D 20 20 20 20 20 20 20 20 |SCHERM.. | 00000050: 20 20 20 20 20 20 20 20 20 20 20 3B 0D 48 50 49 | ;.HPI| 00000060: 4E 20 20 4C 44 41 20 23 30 30 31 20 20 20 20 20 |N LDA #001 | 00000070: 3B 4F 50 45 4E 20 46 49 4C 45 20 31 2E 0D 20 20 |;OPEN FILE 1.. | 00000080: 20 20 20 20 4C 44 58 20 23 30 30 34 20 20 20 20 | LDX #004 | 00000090: 20 3B 50 52 49 4E 54 45 52 2E 0D 20 20 20 20 20 | ;PRINTER.. | 000000A0: 20 4C 44 59 20 23 30 30 30 0D 20 20 20 20 20 20 | LDY #000. | 000000B0: 4A 53 52 20 20 36 35 34 36 36 20 20 20 3B 2A 53 |JSR 65466 ;*S| 000000C0: 45 54 4C 46 53 2A 0D 20 20 20 20 20 20 4C 44 41 |ETLFS*. LDA| 000000D0: 20 23 30 30 30 0D 20 20 20 20 20 20 4A 53 52 20 | #000. JSR | 000000E0: 20 36 35 34 36 39 20 20 20 3B 2A 53 45 54 4E 41 | 65469 ;*SETNA| 000000F0: 4D 2A 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 |M*. JSR 65| 00000100: 34 37 32 20 20 20 3B 2A 20 4F 50 45 4E 20 2A 0D |472 ;* OPEN *.| 00000110: 20 20 20 20 20 20 4C 44 58 20 23 30 30 31 20 20 | LDX #001 | 00000120: 20 20 20 3B 46 49 4C 45 20 31 2E 0D 20 20 20 20 | ;FILE 1.. | 00000130: 20 20 4A 53 52 20 20 36 35 34 38 31 20 20 20 3B | JSR 65481 ;| 00000140: 2A 43 48 4B 4F 55 54 2A 0D 20 20 20 20 20 20 4C |*CHKOUT*. L| 00000150: 44 41 20 23 30 32 34 20 20 20 20 20 3B 42 55 46 |DA #024 ;BUF| 00000160: 46 45 52 20 4C 45 45 47 2E 0D 20 20 20 20 20 20 |FER LEEG.. | 00000170: 4A 53 52 20 20 36 35 34 39 30 0D 20 20 20 20 20 |JSR 65490. | 00000180: 20 4C 44 41 20 23 30 32 37 20 20 20 20 20 3B 50 | LDA #027 ;P| 00000190: 52 49 4E 54 45 52 0D 20 20 20 20 20 20 4C 44 58 |RINTER. LDX| 000001A0: 20 23 30 36 35 20 20 20 20 20 3B 49 4E 53 54 45 | #065 ;INSTE| 000001B0: 4C 4C 45 4E 20 4F 50 0D 20 20 20 20 20 20 4C 44 |LLEN OP. LD| 000001C0: 59 20 23 30 30 38 20 20 20 20 20 3B 52 45 47 45 |Y #008 ;REGE| 000001D0: 4C 20 38 2F 37 32 20 49 4E 2E 0D 20 20 20 20 20 |L 8/72 IN.. | 000001E0: 20 4A 53 52 20 20 4C 41 58 59 20 0D 20 20 20 20 | JSR LAXY . | 000001F0: 20 20 4C 44 58 20 23 30 38 35 20 20 20 20 20 3B | LDX #085 ;| 00000200: 45 45 4E 52 49 43 48 54 49 4E 47 0D 20 20 20 20 |EENRICHTING. | 00000210: 20 20 4C 44 59 20 23 30 30 31 20 20 20 20 20 3B | LDY #001 ;| 00000220: 50 52 49 4E 54 45 4E 2E 0D 20 20 20 20 20 20 4A |PRINTEN.. J| 00000230: 53 52 20 20 4C 41 58 59 20 0D 20 20 20 20 20 20 |SR LAXY . | 00000240: 4C 44 58 20 23 30 37 37 20 20 20 20 20 3B 4B 41 |LDX #077 ;KA| 00000250: 4E 54 4C 49 4A 4E 20 32 30 2E 0D 20 20 20 20 20 |NTLIJN 20.. | 00000260: 20 4C 44 59 20 23 30 32 30 0D 20 20 20 20 20 20 | LDY #020. | 00000270: 4A 53 52 20 20 4C 41 58 59 20 0D 20 20 20 20 20 |JSR LAXY . | 00000280: 20 4C 44 41 20 23 32 30 38 20 20 20 20 20 3B 42 | LDA #208 ;B| 00000290: 45 47 49 4E 41 44 52 45 53 20 56 41 4E 0D 20 20 |EGINADRES VAN. | 000002A0: 20 20 20 20 53 54 41 20 20 32 35 34 20 20 20 20 | STA 254 | 000002B0: 20 3B 4B 41 52 41 4B 54 45 52 2D 52 4F 4D 2E 0D | ;KARAKTER-ROM..| 000002C0: 20 20 20 20 20 20 4C 44 41 20 23 30 30 30 0D 20 | LDA #000. | 000002D0: 20 20 20 20 20 53 54 41 20 20 32 35 33 0D 20 20 | STA 253. | 000002E0: 20 20 20 20 4C 44 41 20 20 30 30 36 34 38 20 20 | LDA 00648 | 000002F0: 20 3B 42 45 47 49 4E 41 44 52 45 53 20 56 41 4E | ;BEGINADRES VAN| 00000300: 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 32 20 |. STA 252 | 00000310: 20 20 20 20 3B 53 43 48 45 52 4D 47 45 48 45 55 | ;SCHERMGEHEU| 00000320: 47 45 4E 0D 20 20 20 20 20 20 53 54 41 20 20 31 |GEN. STA 1| 00000330: 36 38 20 20 20 20 20 3B 45 4E 20 52 45 47 45 4C |68 ;EN REGEL| 00000340: 42 45 47 49 4E 2E 0D 20 20 20 20 20 20 4C 44 41 |BEGIN.. LDA| 00000350: 20 23 30 30 30 0D 20 20 20 20 20 20 53 54 41 20 | #000. STA | 00000360: 20 32 35 31 0D 20 20 20 20 20 20 53 54 41 20 20 | 251. STA | 00000370: 31 36 37 0D 20 20 20 20 20 20 4C 44 41 20 23 30 |167. LDA #0| 00000380: 32 34 20 20 20 20 20 3B 52 45 47 45 4C 41 46 54 |24 ;REGELAFT| 00000390: 45 4C 4C 45 52 2E 0D 20 20 20 20 20 20 53 54 41 |ELLER.. STA| 000003A0: 20 20 32 34 38 0D 48 50 49 32 20 20 4C 44 41 20 | 248.HPI2 LDA | 000003B0: 23 30 32 37 20 20 20 20 20 3B 4B 4F 50 20 56 41 |#027 ;KOP VA| 000003C0: 4E 20 52 45 47 45 4C 3A 0D 20 20 20 20 20 20 4C |N REGEL:. L| 000003D0: 44 58 20 23 31 30 33 20 20 20 20 20 3B 49 4E 53 |DX #103 ;INS| 000003E0: 54 45 4C 4C 45 4E 0D 20 20 20 20 20 20 4C 44 59 |TELLEN. LDY| 000003F0: 20 23 30 30 35 20 20 20 20 20 3B 50 52 49 4E 54 | #005 ;PRINT| 00000400: 45 52 20 4F 50 0D 20 20 20 20 20 20 4A 53 52 20 |ER OP. JSR | 00000410: 20 4C 41 58 59 20 20 20 20 3B 47 52 41 46 49 53 | LAXY ;GRAFIS| 00000420: 43 48 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 30 |CH.. LDX #0| 00000430: 36 34 20 20 20 20 20 3B 33 32 30 20 47 52 41 46 |64 ;320 GRAF| 00000440: 49 53 43 48 45 0D 20 20 20 20 20 20 4C 44 59 20 |ISCHE. LDY | 00000450: 23 30 30 31 20 20 20 20 20 3B 42 59 54 45 53 2E |#001 ;BYTES.| 00000460: 0D 20 20 20 20 20 20 4A 53 52 20 20 4C 58 59 20 |. JSR LXY | 00000470: 20 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 30 | . LDY #000| 00000480: 20 20 20 20 20 3B 50 4F 53 49 54 49 45 20 4E 55 | ;POSITIE NU| 00000490: 4C 2E 0D 48 50 49 33 20 20 53 54 59 20 20 31 36 |L..HPI3 STY 16| 000004A0: 39 0D 20 20 20 20 20 20 4C 44 41 20 28 31 36 37 |9. LDA (167| 000004B0: 29 2C 59 20 20 3B 43 4F 44 45 2E 0D 20 20 20 20 |),Y ;CODE.. | 000004C0: 20 20 4A 53 52 20 20 52 4F 50 55 20 20 20 20 3B | JSR ROPU ;| 000004D0: 50 52 49 4E 54 20 54 45 4B 45 4E 2E 0D 20 20 20 |PRINT TEKEN.. | 000004E0: 20 20 20 4C 44 59 20 20 31 36 39 20 20 20 20 20 | LDY 169 | 000004F0: 3B 50 4F 53 49 54 49 45 20 2B 20 31 2E 0D 20 20 |;POSITIE + 1.. | 00000500: 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 43 50 | INY. CP| 00000510: 59 20 23 30 34 30 20 20 20 20 20 3B 52 45 47 45 |Y #040 ;REGE| 00000520: 4C 20 4B 4C 41 41 52 3F 0D 20 20 20 20 20 20 42 |L KLAAR?. B| 00000530: 43 43 20 20 48 50 49 33 0D 20 20 20 20 20 20 4C |CC HPI3. L| 00000540: 44 41 20 23 30 31 30 20 20 20 20 20 3B 4A 41 3A |DA #010 ;JA:| 00000550: 52 47 2E 2D 56 45 52 5A 45 54 2E 0D 20 20 20 20 |RG.-VERZET.. | 00000560: 20 20 4A 53 52 20 20 36 35 34 39 30 0D 20 20 20 | JSR 65490. | 00000570: 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 20 20 | CLC | 00000580: 3B 4F 50 48 4F 47 45 4E 20 41 44 52 45 53 0D 20 |;OPHOGEN ADRES. | 00000590: 20 20 20 20 20 4C 44 41 20 23 30 34 30 20 20 20 | LDA #040 | 000005A0: 20 20 3B 56 41 4E 20 53 43 48 45 52 4D 2E 0D 20 | ;VAN SCHERM.. | 000005B0: 20 20 20 20 20 41 44 43 20 20 31 36 37 0D 20 20 | ADC 167. | 000005C0: 20 20 20 20 53 54 41 20 20 31 36 37 0D 20 20 20 | STA 167. | 000005D0: 20 20 20 4C 44 41 20 23 30 30 30 0D 20 20 20 20 | LDA #000. | 000005E0: 20 20 41 44 43 20 20 31 36 38 0D 20 20 20 20 20 | ADC 168. | 000005F0: 20 53 54 41 20 20 31 36 38 0D 20 20 20 20 20 20 | STA 168. | 00000600: 44 45 43 20 20 32 34 38 20 20 20 20 20 3B 52 47 |DEC 248 ;RG| 00000610: 2E 41 46 54 45 4C 4C 45 4E 2E 0D 20 20 20 20 20 |.AFTELLEN.. | 00000620: 20 42 50 4C 20 20 48 50 49 32 20 20 20 20 3B 4B | BPL HPI2 ;K| 00000630: 4C 41 41 52 3F 0D 20 20 20 20 20 20 4C 44 58 20 |LAAR?. LDX | 00000640: 23 30 32 37 20 20 20 20 20 3B 4A 41 3A 48 45 52 |#027 ;JA:HER| 00000650: 5A 45 54 0D 20 20 20 20 20 20 4C 44 59 20 23 30 |ZET. LDY #0| 00000660: 36 34 20 20 20 20 20 3B 50 52 49 4E 54 45 52 2E |64 ;PRINTER.| 00000670: 0D 20 20 20 20 20 20 4A 53 52 20 20 4C 58 59 20 |. JSR LXY | 00000680: 20 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 31 | . LDA #001| 00000690: 20 20 20 20 20 3B 53 4C 55 49 54 20 46 49 4C 45 | ;SLUIT FILE| 000006A0: 20 31 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 36 | 1.. JSR 6| 000006B0: 35 34 37 35 20 20 20 3B 2A 20 43 4C 4F 53 45 2A |5475 ;* CLOSE*| 000006C0: 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 35 31 |. JSR 6551| 000006D0: 31 20 20 20 3B 2A 20 43 4C 41 4C 4C 2A 0D 20 20 |1 ;* CLALL*. | 000006E0: 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 | RTS | 000006F0: 20 3B 4E 41 41 52 20 48 2E 50 2E 0D 4C 41 58 59 | ;NAAR H.P..LAXY| 00000700: 20 20 53 54 41 20 20 30 30 32 20 20 20 20 20 3B | STA 002 ;| 00000710: 52 45 44 20 28 41 29 2E 0D 20 20 20 20 20 20 4A |RED (A).. J| 00000720: 53 52 20 20 36 35 34 39 30 20 20 20 3B 28 41 29 |SR 65490 ;(A)| 00000730: 20 4F 55 54 50 55 54 2E 0D 4C 58 59 20 20 20 54 | OUTPUT..LXY T| 00000740: 58 41 20 20 20 20 20 20 20 20 20 20 3B 28 58 29 |XA ;(X)| 00000750: 20 4F 55 54 50 55 54 2E 0D 20 20 20 20 20 20 4A | OUTPUT.. J| 00000760: 53 52 20 20 36 35 34 39 30 0D 20 20 20 20 20 20 |SR 65490. | 00000770: 54 59 41 20 20 20 20 20 20 20 20 20 20 3B 28 59 |TYA ;(Y| 00000780: 29 20 4F 55 54 50 55 54 2E 0D 20 20 20 20 20 20 |) OUTPUT.. | 00000790: 4A 53 52 20 20 36 35 34 39 30 0D 20 20 20 20 20 |JSR 65490. | 000007A0: 20 4C 44 41 20 20 30 30 32 20 20 20 20 20 3B 48 | LDA 002 ;H| 000007B0: 45 52 53 54 45 4C 20 28 41 29 2E 0D 20 20 20 20 |ERSTEL (A).. | 000007C0: 20 20 52 54 53 20 20 20 20 20 20 20 20 20 20 3B | RTS ;| 000007D0: 4E 41 41 52 20 48 2E 50 2E 0D 52 4F 50 55 20 20 |NAAR H.P..ROPU | 000007E0: 53 54 41 20 20 30 30 32 20 20 20 20 20 3B 28 41 |STA 002 ;(A| 000007F0: 29 20 43 4F 44 45 2E 0D 20 20 20 20 20 20 43 4C |) CODE.. CL| 00000800: 43 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 30 |C. LDA #000| 00000810: 20 20 20 20 20 3B 4D 41 41 4C 20 38 20 49 4E 0D | ;MAAL 8 IN.| 00000820: 20 20 20 20 20 20 2E 42 59 54 45 20 24 32 41 20 | .BYTE $2A | 00000830: 20 20 20 3B 28 41 29 28 32 29 2E 0D 20 20 20 20 | ;(A)(2).. | 00000840: 20 20 52 4F 4C 20 20 30 30 32 0D 20 20 20 20 20 | ROL 002. | 00000850: 20 2E 42 59 54 45 20 24 32 41 0D 20 20 20 20 20 | .BYTE $2A. | 00000860: 20 52 4F 4C 20 20 30 30 32 0D 20 20 20 20 20 20 | ROL 002. | 00000870: 2E 42 59 54 45 20 24 32 41 0D 20 20 20 20 20 20 |.BYTE $2A. | 00000880: 52 4F 4C 20 20 30 30 32 0D 20 20 20 20 20 20 2E |ROL 002. .| 00000890: 42 59 54 45 20 24 32 41 0D 20 20 20 20 20 20 54 |BYTE $2A. T| 000008A0: 41 58 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 |AX. LDA 00| 000008B0: 32 20 20 20 20 20 3B 41 44 52 45 53 20 56 41 4E |2 ;ADRES VAN| 000008C0: 0D 20 20 20 20 20 20 41 44 43 20 20 32 35 33 20 |. ADC 253 | 000008D0: 20 20 20 20 3B 4B 41 52 41 4B 54 45 52 2D 52 4F | ;KARAKTER-RO| 000008E0: 4D 0D 20 20 20 20 20 20 53 54 41 20 20 32 34 39 |M. STA 249| 000008F0: 20 20 20 20 20 3B 45 52 42 49 4A 20 45 4E 20 49 | ;ERBIJ EN I| 00000900: 4E 0D 20 20 20 20 20 20 54 58 41 20 20 20 20 20 |N. TXA | 00000910: 20 20 20 20 20 3B 28 32 35 30 2C 32 34 39 29 2E | ;(250,249).| 00000920: 0D 20 20 20 20 20 20 41 44 43 20 20 32 35 34 0D |. ADC 254.| 00000930: 20 20 20 20 20 20 53 54 41 20 20 32 35 30 0D 20 | STA 250. | 00000940: 20 20 20 20 20 4C 44 41 20 20 35 36 33 33 34 20 | LDA 56334 | 00000950: 20 20 3B 47 45 45 4E 20 54 49 4D 45 52 2D 0D 20 | ;GEEN TIMER-. | 00000960: 20 20 20 20 20 41 4E 44 20 23 32 35 34 20 20 20 | AND #254 | 00000970: 20 20 3B 49 4E 54 45 52 52 55 50 54 53 2E 0D 20 | ;INTERRUPTS.. | 00000980: 20 20 20 20 20 53 54 41 20 20 35 36 33 33 34 0D | STA 56334.| 00000990: 20 20 20 20 20 20 4C 44 41 20 20 30 30 31 20 20 | LDA 001 | 000009A0: 20 20 20 3B 4D 41 41 4B 20 4B 41 52 2E 2D 52 4F | ;MAAK KAR.-RO| 000009B0: 4D 0D 20 20 20 20 20 20 41 4E 44 20 23 32 35 31 |M. AND #251| 000009C0: 20 20 20 20 20 3B 4F 50 45 4E 2E 0D 20 20 20 20 | ;OPEN.. | 000009D0: 20 20 53 54 41 20 20 30 30 31 0D 20 20 20 20 20 | STA 001. | 000009E0: 20 4C 44 59 20 23 30 30 37 20 20 20 20 20 3B 54 | LDY #007 ;T| 000009F0: 52 41 4E 53 50 4F 52 54 20 4E 41 41 52 0D 54 52 |RANSPORT NAAR.TR| 00000A00: 41 31 20 20 4C 44 41 20 28 32 34 39 29 2C 59 20 |A1 LDA (249),Y | 00000A10: 20 3B 28 38 32 30 29 2E 2E 28 38 32 37 29 2E 0D | ;(820)..(827)..| 00000A20: 20 20 20 20 20 20 53 54 41 20 20 30 30 38 32 30 | STA 00820| 00000A30: 2C 59 0D 20 20 20 20 20 20 44 45 59 0D 20 20 20 |,Y. DEY. | 00000A40: 20 20 20 42 50 4C 20 20 54 52 41 31 20 0D 20 20 | BPL TRA1 . | 00000A50: 20 20 20 20 4C 44 41 20 20 30 30 31 20 20 20 20 | LDA 001 | 00000A60: 20 3B 4D 41 41 4B 20 4B 41 52 2E 2D 52 4F 4D 0D | ;MAAK KAR.-ROM.| 00000A70: 20 20 20 20 20 20 4F 52 41 20 23 30 30 34 20 20 | ORA #004 | 00000A80: 20 20 20 3B 44 49 43 48 54 2E 0D 20 20 20 20 20 | ;DICHT.. | 00000A90: 20 53 54 41 20 20 30 30 31 0D 20 20 20 20 20 20 | STA 001. | 00000AA0: 4C 44 41 20 20 35 36 33 33 34 20 20 20 3B 57 45 |LDA 56334 ;WE| 00000AB0: 4C 20 54 49 4D 45 52 2D 0D 20 20 20 20 20 20 4F |L TIMER-. O| 00000AC0: 52 41 20 23 30 30 31 20 20 20 20 20 3B 49 4E 54 |RA #001 ;INT| 00000AD0: 45 52 52 55 50 54 53 2E 0D 20 20 20 20 20 20 53 |ERRUPTS.. S| 00000AE0: 54 41 20 20 35 36 33 33 34 0D 20 20 20 20 20 20 |TA 56334. | 00000AF0: 4C 44 59 20 23 30 30 37 20 20 20 20 20 3B 54 52 |LDY #007 ;TR| 00000B00: 41 4E 53 50 4F 53 49 54 49 45 0D 54 52 41 32 20 |ANSPOSITIE.TRA2 | 00000B10: 20 4C 44 58 20 23 30 30 37 20 20 20 20 20 3B 45 | LDX #007 ;E| 00000B20: 4E 20 4F 55 54 50 55 54 2E 0D 54 52 41 33 20 20 |N OUTPUT..TRA3 | 00000B30: 52 4F 4C 20 20 30 30 38 32 30 2C 58 0D 20 20 20 |ROL 00820,X. | 00000B40: 20 20 20 2E 42 59 54 45 20 24 36 41 0D 20 20 20 | .BYTE $6A. | 00000B50: 20 20 20 44 45 58 0D 20 20 20 20 20 20 42 50 4C | DEX. BPL| 00000B60: 20 20 54 52 41 33 20 0D 20 20 20 20 20 20 4A 53 | TRA3 . JS| 00000B70: 52 20 20 36 35 34 39 30 0D 20 20 20 20 20 20 44 |R 65490. D| 00000B80: 45 59 0D 20 20 20 20 20 20 42 50 4C 20 20 54 52 |EY. BPL TR| 00000B90: 41 32 0D 20 20 20 20 20 20 52 54 53 20 20 20 20 |A2. RTS | 00000BA0: 20 20 20 20 20 20 3B 4E 41 41 52 20 48 2E 50 2E | ;NAAR H.P.| 00000BB0: 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 |. NOP. | 00000BC0: 20 4E 4F 50 0D 20 20 20 20 20 20 20 20 20 20 20 | NOP. | 00000BD0: 20 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 | ;. | 00000BE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 45 45 | ;EE| 00000BF0: 4E 42 59 54 45 0D 20 20 20 20 20 20 20 20 20 20 |NBYTE. | 00000C00: 20 20 20 20 20 20 20 20 20 3B 42 49 4E 2D 44 45 | ;BIN-DE| 00000C10: 43 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |C.. | 00000C20: 20 20 20 20 20 20 3B 44 45 43 4F 4E 56 45 52 53 | ;DECONVERS| 00000C30: 49 45 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 |IE.. | 00000C40: 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 20 | ;. | 00000C50: 20 20 20 20 20 20 20 20 20 20 20 20 3B 49 4E 3A | ;IN:| 00000C60: 20 28 32 35 31 29 20 42 49 4E 2E 0D 20 20 20 20 | (251) BIN.. | 00000C70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;| 00000C80: 55 49 54 3A 20 41 46 20 41 44 52 45 53 0D 20 20 |UIT: AF ADRES. | 00000C90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000CA0: 20 3B 41 55 3D 28 32 35 34 2C 32 35 33 29 2E 0D | ;AU=(254,253)..| 00000CB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000CC0: 20 20 20 3B 41 55 2B 30 3A 31 30 30 2E 2E 2E 2E | ;AU+0:100....| 00000CD0: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00000CE0: 20 20 20 20 3B 41 55 2B 32 3A 31 2E 20 41 53 43 | ;AU+2:1. ASC| 00000CF0: 49 49 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 |II.. | 00000D00: 20 20 20 20 20 20 20 3B 0D 42 49 44 43 31 20 53 | ;.BIDC1 S| 00000D10: 54 59 20 20 30 30 32 20 20 20 20 20 3B 52 45 44 |TY 002 ;RED| 00000D20: 20 28 59 29 2E 0D 20 20 20 20 20 20 4C 44 41 20 | (Y).. LDA | 00000D30: 20 32 35 31 20 20 20 20 20 3B 49 4E 50 55 54 20 | 251 ;INPUT | 00000D40: 4E 41 41 52 0D 20 20 20 20 20 20 53 54 41 20 20 |NAAR. STA | 00000D50: 30 33 38 20 20 20 20 20 3B 28 30 33 39 2C 30 33 |038 ;(039,03| 00000D60: 38 29 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 30 |8).. LDA #0| 00000D70: 30 30 0D 20 20 20 20 20 20 53 54 41 20 20 30 33 |00. STA 03| 00000D80: 39 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 32 |9. LDY #002| 00000D90: 0D 20 20 20 20 20 20 4C 44 41 20 23 30 34 38 0D |. LDA #048.| 00000DA0: 42 49 44 30 31 20 53 54 41 20 28 32 35 33 29 2C |BID01 STA (253),| 00000DB0: 59 20 20 3B 56 55 4C 20 28 41 55 2B 30 29 2E 2E |Y ;VUL (AU+0)..| 00000DC0: 0D 20 20 20 20 20 20 44 45 59 20 20 20 20 20 20 |. DEY | 00000DD0: 20 20 20 20 3B 2E 2E 28 41 55 2B 32 29 20 4D 45 | ;..(AU+2) ME| 00000DE0: 54 0D 20 20 20 20 20 20 42 50 4C 20 20 42 49 44 |T. BPL BID| 00000DF0: 30 31 20 20 20 3B 4E 55 4C 4C 45 4E 2E 0D 20 20 |01 ;NULLEN.. | 00000E00: 20 20 20 20 4C 44 59 20 23 30 30 30 20 20 20 20 | LDY #000 | 00000E10: 20 3B 4D 3D 30 2E 0D 20 20 20 20 20 20 42 45 51 | ;M=0.. BEQ| 00000E20: 20 20 42 49 44 30 33 20 20 20 3B 20 20 20 20 2D | BID03 ; -| 00000E30: 2D 3E 5B 42 49 44 30 33 5D 0D 42 49 44 30 32 20 |->[BID03].BID02 | 00000E40: 53 45 43 20 20 20 20 20 20 20 20 20 20 3B 54 52 |SEC ;TR| 00000E50: 45 4B 20 31 30 30 20 41 46 0D 20 20 20 20 20 20 |EK 100 AF. | 00000E60: 4C 44 41 20 20 30 33 38 20 20 20 20 20 3B 56 41 |LDA 038 ;VA| 00000E70: 4E 20 28 30 33 39 2C 30 33 38 29 2E 0D 20 20 20 |N (039,038).. | 00000E80: 20 20 20 53 42 43 20 23 31 30 30 0D 20 20 20 20 | SBC #100. | 00000E90: 20 20 53 54 41 20 20 30 33 38 0D 20 20 20 20 20 | STA 038. | 00000EA0: 20 4C 44 41 20 20 30 33 39 0D 20 20 20 20 20 20 | LDA 039. | 00000EB0: 53 42 43 20 23 30 30 30 0D 20 20 20 20 20 20 53 |SBC #000. S| 00000EC0: 54 41 20 20 30 33 39 0D 20 20 20 20 20 20 43 4C |TA 039. CL| 00000ED0: 43 20 20 20 20 20 20 20 20 20 20 3B 54 45 4C 20 |C ;TEL | 00000EE0: 31 20 4F 50 20 42 49 4A 0D 20 20 20 20 20 20 4C |1 OP BIJ. L| 00000EF0: 44 41 20 28 32 35 33 29 2C 59 20 20 3B 28 41 55 |DA (253),Y ;(AU| 00000F00: 2B 4D 29 2E 0D 20 20 20 20 20 20 41 44 43 20 23 |+M).. ADC #| 00000F10: 30 30 31 0D 20 20 20 20 20 20 53 54 41 20 28 32 |001. STA (2| 00000F20: 35 33 29 2C 59 0D 42 49 44 30 33 20 4C 44 41 20 |53),Y.BID03 LDA | 00000F30: 20 30 33 39 20 20 20 20 20 3B 56 45 52 47 45 4C | 039 ;VERGEL| 00000F40: 49 4A 4B 0D 20 20 20 20 20 20 43 4D 50 20 23 30 |IJK. CMP #0| 00000F50: 30 30 20 20 20 20 20 3B 28 33 39 2C 33 38 29 3A |00 ;(39,38):| 00000F60: 3A 31 30 30 2E 0D 20 20 20 20 20 20 42 43 43 20 |:100.. BCC | 00000F70: 20 42 49 44 30 34 0D 20 20 20 20 20 20 42 4E 45 | BID04. BNE| 00000F80: 20 20 42 49 44 30 32 20 20 20 3B 3E 31 30 30 2D | BID02 ;>100-| 00000F90: 2D 3E 5B 42 49 44 30 32 5D 0D 20 20 20 20 20 20 |->[BID02]. | 00000FA0: 4C 44 41 20 20 30 33 38 0D 20 20 20 20 20 20 43 |LDA 038. C| 00000FB0: 4D 50 20 23 31 30 30 0D 20 20 20 20 20 20 42 43 |MP #100. BC| 00000FC0: 53 20 20 42 49 44 30 32 0D 42 49 44 30 34 20 4C |S BID02.BID04 L| 00000FD0: 44 41 20 20 30 33 39 20 20 20 20 20 3B 52 45 53 |DA 039 ;RES| 00000FE0: 54 20 4E 55 4C 3F 0D 20 20 20 20 20 20 42 4E 45 |T NUL?. BNE| 00000FF0: 20 20 42 49 44 30 35 0D 20 20 20 20 20 20 4C 44 | BID05. LD| 00001000: 41 20 20 30 33 38 0D 20 20 20 20 20 20 42 45 51 |A 038. BEQ| 00001010: 20 20 42 49 44 30 36 20 20 20 3B 4A 41 3A 4E 41 | BID06 ;JA:NA| 00001020: 41 52 20 48 2E 50 2E 0D 42 49 44 30 35 20 43 4C |AR H.P..BID05 CL| 00001030: 43 20 20 20 20 20 20 20 20 20 20 3B 41 4E 44 45 |C ;ANDE| 00001040: 52 53 3A 20 56 45 52 4D 45 2D 0D 20 20 20 20 20 |RS: VERME-. | 00001050: 20 52 4F 4C 20 20 30 33 38 20 20 20 20 20 3B 4E | ROL 038 ;N| 00001060: 49 47 56 55 4C 44 49 47 0D 20 20 20 20 20 20 52 |IGVULDIG. R| 00001070: 4F 4C 20 20 30 33 39 20 20 20 20 20 3B 28 33 39 |OL 039 ;(39| 00001080: 2C 33 38 29 20 2A 20 31 30 2E 0D 20 20 20 20 20 |,38) * 10.. | 00001090: 20 4C 44 41 20 20 30 33 39 0D 20 20 20 20 20 20 | LDA 039. | 000010A0: 53 54 41 20 20 30 34 31 0D 20 20 20 20 20 20 4C |STA 041. L| 000010B0: 44 41 20 20 30 33 38 0D 20 20 20 20 20 20 43 4C |DA 038. CL| 000010C0: 43 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 32 |C. .BYTE $2| 000010D0: 41 0D 20 20 20 20 20 20 52 4F 4C 20 20 30 34 31 |A. ROL 041| 000010E0: 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 32 41 |. .BYTE $2A| 000010F0: 0D 20 20 20 20 20 20 52 4F 4C 20 20 30 34 31 0D |. ROL 041.| 00001100: 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 | CLC. | 00001110: 41 44 43 20 20 30 33 38 0D 20 20 20 20 20 20 53 |ADC 038. S| 00001120: 54 41 20 20 30 33 38 0D 20 20 20 20 20 20 4C 44 |TA 038. LD| 00001130: 41 20 20 30 34 31 0D 20 20 20 20 20 20 41 44 43 |A 041. ADC| 00001140: 20 20 30 33 39 0D 20 20 20 20 20 20 53 54 41 20 | 039. STA | 00001150: 20 30 33 39 0D 20 20 20 20 20 20 49 4E 59 0D 20 | 039. INY. | 00001160: 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 42 | CLC. B| 00001170: 43 43 20 20 42 49 44 30 33 20 20 20 3B 20 20 20 |CC BID03 ; | 00001180: 20 2D 2D 3E 5B 42 49 44 30 33 5D 0D 42 49 44 30 | -->[BID03].BID0| 00001190: 36 20 4C 44 59 20 20 30 30 32 20 20 20 20 20 3B |6 LDY 002 ;| 000011A0: 48 45 52 53 54 45 4C 20 28 59 29 2E 0D 20 20 20 |HERSTEL (Y).. | 000011B0: 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 20 | RTS | 000011C0: 3B 4E 41 41 52 20 48 2E 50 2E 0D 20 20 20 20 20 |;NAAR H.P.. | 000011D0: 20 4E 4F 50 0D 20 20 20 20 20 20 20 20 20 20 20 | NOP. | 000011E0: 20 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 | ;. | 000011F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 56 45 | ;VE| 00001200: 52 4D 45 4E 49 47 56 2E 4D 45 54 0D 20 20 20 20 |RMENIGV.MET. | 00001210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;| 00001220: 4F 50 54 45 4C 4C 45 4E 2E 0D 20 20 20 20 20 20 |OPTELLEN.. | 00001230: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 28 32 | ;(2| 00001240: 35 30 2C 32 34 39 29 2B 50 52 4F 2D 0D 20 20 20 |50,249)+PRO-. | 00001250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001260: 3B 44 55 43 54 20 28 31 31 30 2C 31 30 39 29 0D |;DUCT (110,109).| 00001270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001280: 20 20 20 3B 2A 28 31 30 38 2C 31 30 37 29 20 49 | ;*(108,107) I| 00001290: 4E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |N. | 000012A0: 20 20 20 20 20 3B 28 32 35 30 2C 32 34 39 29 2E | ;(250,249).| 000012B0: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 000012C0: 20 20 20 20 3B 0D 4D 55 4C 4F 50 20 54 58 41 20 | ;.MULOP TXA | 000012D0: 20 20 20 20 20 20 20 20 20 3B 52 45 44 20 28 58 | ;RED (X| 000012E0: 29 2C 20 28 59 29 2E 0D 20 20 20 20 20 20 50 48 |), (Y).. PH| 000012F0: 41 0D 20 20 20 20 20 20 54 59 41 0D 20 20 20 20 |A. TYA. | 00001300: 20 20 50 48 41 0D 20 20 20 20 20 20 4C 44 58 20 | PHA. LDX | 00001310: 20 31 30 38 20 20 20 20 20 3B 28 31 30 38 2C 31 | 108 ;(108,1| 00001320: 30 37 29 0D 20 20 20 20 20 20 4C 44 59 20 20 31 |07). LDY 1| 00001330: 30 37 20 20 20 20 20 3B 4F 4E 56 45 52 41 4E 44 |07 ;ONVERAND| 00001340: 45 52 44 2E 0D 20 20 20 20 20 20 43 4C 43 20 20 |ERD.. CLC | 00001350: 20 20 20 20 20 20 20 20 3B 28 31 31 30 2C 31 30 | ;(110,10| 00001360: 39 29 0D 4D 55 4C 30 31 20 4C 44 41 20 20 31 31 |9).MUL01 LDA 11| 00001370: 30 20 20 20 20 20 3B 47 45 44 45 45 4C 54 45 4C |0 ;GEDEELTEL| 00001380: 49 4A 4B 0D 20 20 20 20 20 20 42 4E 45 20 20 4D |IJK. BNE M| 00001390: 55 4C 30 32 20 20 20 3B 50 52 4F 44 55 43 54 0D |UL02 ;PRODUCT.| 000013A0: 20 20 20 20 20 20 4C 44 41 20 20 31 30 39 20 20 | LDA 109 | 000013B0: 20 20 20 3B 57 4F 52 44 54 20 56 45 52 2D 0D 20 | ;WORDT VER-. | 000013C0: 20 20 20 20 20 42 45 51 20 20 4D 55 4C 30 35 20 | BEQ MUL05 | 000013D0: 20 20 3B 53 43 48 4F 56 45 4E 2E 0D 20 20 20 20 | ;SCHOVEN.. | 000013E0: 20 20 42 4E 45 20 20 4D 55 4C 30 33 0D 4D 55 4C | BNE MUL03.MUL| 000013F0: 30 32 20 52 4F 52 20 20 31 31 30 0D 4D 55 4C 30 |02 ROR 110.MUL0| 00001400: 33 20 52 4F 52 20 20 31 30 39 0D 20 20 20 20 20 |3 ROR 109. | 00001410: 20 42 43 43 20 20 4D 55 4C 30 34 0D 20 20 20 20 | BCC MUL04. | 00001420: 20 20 43 4C 43 0D 20 20 20 20 20 20 54 59 41 0D | CLC. TYA.| 00001430: 20 20 20 20 20 20 41 44 43 20 20 32 34 39 20 20 | ADC 249 | 00001440: 20 20 20 3B 42 49 54 20 31 3A 54 45 4C 20 4F 50 | ;BIT 1:TEL OP| 00001450: 2E 0D 20 20 20 20 20 20 53 54 41 20 20 32 34 39 |.. STA 249| 00001460: 0D 20 20 20 20 20 20 54 58 41 0D 20 20 20 20 20 |. TXA. | 00001470: 20 41 44 43 20 20 32 35 30 0D 20 20 20 20 20 20 | ADC 250. | 00001480: 53 54 41 20 20 32 35 30 0D 20 20 20 20 20 20 43 |STA 250. C| 00001490: 4C 43 0D 4D 55 4C 30 34 20 54 59 41 20 20 20 20 |LC.MUL04 TYA | 000014A0: 20 20 20 20 20 20 3B 44 41 41 52 4E 41 20 53 43 | ;DAARNA SC| 000014B0: 48 55 49 46 2E 0D 20 20 20 20 20 20 52 4F 4C 20 |HUIF.. ROL | 000014C0: 20 41 0D 20 20 20 20 20 20 54 41 59 0D 20 20 20 | A. TAY. | 000014D0: 20 20 20 54 58 41 0D 20 20 20 20 20 20 52 4F 4C | TXA. ROL| 000014E0: 20 20 41 0D 20 20 20 20 20 20 54 41 58 0D 20 20 | A. TAX. | 000014F0: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 42 43 | CLC. BC| 00001500: 43 20 20 4D 55 4C 30 31 0D 4D 55 4C 30 35 20 50 |C MUL01.MUL05 P| 00001510: 4C 41 20 20 20 20 20 20 20 20 20 20 3B 45 49 4E |LA ;EIN| 00001520: 44 3A 48 45 52 53 54 45 4C 0D 20 20 20 20 20 20 |D:HERSTEL. | 00001530: 54 41 59 20 20 20 20 20 20 20 20 20 20 3B 28 58 |TAY ;(X| 00001540: 29 2C 20 28 59 29 2E 0D 20 20 20 20 20 20 50 4C |), (Y).. PL| 00001550: 41 0D 20 20 20 20 20 20 54 41 58 0D 20 20 20 20 |A. TAX. | 00001560: 20 20 52 54 53 20 20 20 20 20 20 20 20 20 20 3B | RTS ;| 00001570: 4E 41 41 52 20 48 2E 50 2E 0D 20 20 20 20 20 20 |NAAR H.P.. | 00001580: 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 |NOP. NOP. | 00001590: 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 20 20 | NOP. | 000015A0: 20 20 20 20 20 20 20 20 20 20 20 3B 0D 20 20 20 | ;. | 000015B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000015C0: 3B 54 45 4B 53 54 20 54 3D 28 58 29 0D 20 20 20 |;TEKST T=(X). | 000015D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000015E0: 3B 4E 41 41 52 20 53 43 48 45 52 4D 0D 20 20 20 |;NAAR SCHERM. | 000015F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001600: 3B 41 46 20 4C 4F 50 45 52 2E 0D 20 20 20 20 20 |;AF LOPER.. | 00001610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 28 | ;(| 00001620: 31 30 38 2C 31 30 37 29 0D 20 20 20 20 20 20 20 |108,107). | 00001630: 20 20 20 20 20 20 20 20 20 20 20 20 3B 41 44 52 | ;ADR| 00001640: 45 53 20 56 41 4E 0D 20 20 20 20 20 20 20 20 20 |ES VAN. | 00001650: 20 20 20 20 20 20 20 20 20 20 3B 42 45 47 49 4E | ;BEGIN| 00001660: 20 56 41 4E 0D 20 20 20 20 20 20 20 20 20 20 20 | VAN. | 00001670: 20 20 20 20 20 20 20 20 3B 56 4F 4F 52 42 4C 4F | ;VOORBLO| 00001680: 4B 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |K.. | 00001690: 20 20 20 20 20 20 3B 0D 53 43 4E 54 58 20 43 4C | ;.SCNTX CL| 000016A0: 43 0D 20 20 20 20 20 20 54 58 41 0D 20 20 20 20 |C. TXA. | 000016B0: 20 20 2E 42 59 54 45 20 24 32 41 0D 20 20 20 20 | .BYTE $2A. | 000016C0: 20 20 54 41 59 20 20 20 20 20 20 20 20 20 20 3B | TAY ;| 000016D0: 28 59 29 3D 32 2A 54 2E 0D 20 20 20 20 20 20 43 |(Y)=2*T.. C| 000016E0: 4C 43 0D 20 20 20 20 20 20 4C 44 41 20 28 31 30 |LC. LDA (10| 000016F0: 37 29 2C 59 0D 20 20 20 20 20 20 41 44 43 20 20 |7),Y. ADC | 00001700: 31 30 37 0D 20 20 20 20 20 20 53 54 41 20 20 32 |107. STA 2| 00001710: 35 33 20 20 20 20 20 3B 41 44 52 45 53 20 49 4E |53 ;ADRES IN| 00001720: 0D 20 20 20 20 20 20 49 4E 59 20 20 20 20 20 20 |. INY | 00001730: 20 20 20 20 3B 53 54 55 55 52 42 4C 4F 4B 3A 0D | ;STUURBLOK:.| 00001740: 20 20 20 20 20 20 4C 44 41 20 28 31 30 37 29 2C | LDA (107),| 00001750: 59 20 20 3B 41 53 3D 28 32 35 34 2C 32 35 33 29 |Y ;AS=(254,253)| 00001760: 2E 0D 20 20 20 20 20 20 41 44 43 20 20 31 30 38 |.. ADC 108| 00001770: 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 34 0D |. STA 254.| 00001780: 20 20 20 20 20 20 4C 44 59 20 23 30 30 30 20 20 | LDY #000 | 00001790: 20 20 20 3B 4C 45 4E 47 54 45 2E 0D 20 20 20 20 | ;LENGTE.. | 000017A0: 20 20 4C 44 41 20 28 32 35 33 29 2C 59 20 20 3B | LDA (253),Y ;| 000017B0: 4E 55 4C 3A 2D 2D 3E 5B 53 43 4E 54 34 5D 0D 20 |NUL:-->[SCNT4]. | 000017C0: 20 20 20 20 20 42 45 51 20 20 53 43 4E 54 34 0D | BEQ SCNT4.| 000017D0: 20 20 20 20 20 20 53 54 41 20 20 30 30 32 20 20 | STA 002 | 000017E0: 20 20 20 3B 49 4E 20 28 30 30 32 29 2E 0D 53 43 | ;IN (002)..SC| 000017F0: 4E 54 31 20 49 4E 59 20 20 20 20 20 20 20 20 20 |NT1 INY | 00001800: 20 3B 5A 45 54 20 41 44 52 45 53 20 49 4E 0D 20 | ;ZET ADRES IN. | 00001810: 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 | CLC | 00001820: 20 20 3B 28 31 38 38 2C 31 38 37 29 2E 0D 20 20 | ;(188,187).. | 00001830: 20 20 20 20 4C 44 41 20 28 32 35 33 29 2C 59 0D | LDA (253),Y.| 00001840: 20 20 20 20 20 20 41 44 43 20 20 31 30 37 0D 20 | ADC 107. | 00001850: 20 20 20 20 20 53 54 41 20 20 31 38 37 0D 20 20 | STA 187. | 00001860: 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 4C 44 | INY. LD| 00001870: 41 20 28 32 35 33 29 2C 59 0D 20 20 20 20 20 20 |A (253),Y. | 00001880: 41 44 43 20 20 31 30 38 0D 20 20 20 20 20 20 53 |ADC 108. S| 00001890: 54 41 20 20 31 38 38 0D 20 20 20 20 20 20 54 59 |TA 188. TY| 000018A0: 41 0D 20 20 20 20 20 20 50 48 41 0D 20 20 20 20 |A. PHA. | 000018B0: 20 20 4C 44 59 20 23 30 30 30 20 20 20 20 20 3B | LDY #000 ;| 000018C0: 41 41 4E 54 41 4C 20 49 4E 0D 20 20 20 20 20 20 |AANTAL IN. | 000018D0: 4C 44 41 20 28 31 38 37 29 2C 59 20 20 3B 28 31 |LDA (187),Y ;(1| 000018E0: 38 33 29 2E 0D 20 20 20 20 20 20 42 45 51 20 20 |83).. BEQ | 000018F0: 53 43 4E 54 33 20 20 20 3B 4E 55 4C 3A 53 4C 41 |SCNT3 ;NUL:SLA| 00001900: 20 4F 56 45 52 2E 0D 20 20 20 20 20 20 53 54 41 | OVER.. STA| 00001910: 20 20 31 38 33 0D 20 20 20 20 20 20 49 4E 43 20 | 183. INC | 00001920: 20 31 38 37 20 20 20 20 20 3B 41 44 52 45 53 2B | 187 ;ADRES+| 00001930: 31 2E 0D 20 20 20 20 20 20 42 4E 45 20 20 53 43 |1.. BNE SC| 00001940: 4E 54 32 0D 20 20 20 20 20 20 49 4E 43 20 20 31 |NT2. INC 1| 00001950: 38 38 0D 53 43 4E 54 32 20 4A 53 52 20 20 36 32 |88.SCNT2 JSR 62| 00001960: 39 31 33 20 20 20 3B 4F 55 54 50 55 54 2E 0D 53 |913 ;OUTPUT..S| 00001970: 43 4E 54 33 20 50 4C 41 20 20 20 20 20 20 20 20 |CNT3 PLA | 00001980: 20 20 3B 4C 45 4E 47 54 45 20 57 45 45 52 2E 0D | ;LENGTE WEER..| 00001990: 20 20 20 20 20 20 54 41 59 0D 20 20 20 20 20 20 | TAY. | 000019A0: 44 45 43 20 20 30 30 32 20 20 20 20 20 3B 41 46 |DEC 002 ;AF| 000019B0: 54 45 4C 4C 45 4E 2E 0D 20 20 20 20 20 20 42 4E |TELLEN.. BN| 000019C0: 45 20 20 53 43 4E 54 31 20 20 20 3B 4B 4C 41 41 |E SCNT1 ;KLAA| 000019D0: 52 3A 0D 53 43 4E 54 34 20 52 54 53 20 20 20 20 |R:.SCNT4 RTS | 000019E0: 20 20 20 20 20 20 3B 4E 41 41 52 20 48 2E 50 2E | ;NAAR H.P.| 000019F0: 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 |. NOP. | 00001A00: 20 4E 4F 50 0D 20 20 20 20 20 20 20 20 20 20 20 | NOP. | 00001A10: 20 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 | ;. | 00001A20: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 41 43 | ;AC| 00001A30: 43 45 50 54 20 54 4F 45 54 53 2E 0D 20 20 20 20 |CEPT TOETS.. | 00001A40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;| 00001A50: 54 4F 45 54 53 20 49 4E 20 28 58 29 2E 0D 20 20 |TOETS IN (X).. | 00001A60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001A70: 20 3B 0D 4B 45 59 49 4E 20 4C 44 41 20 20 31 39 | ;.KEYIN LDA 19| 00001A80: 37 20 20 20 20 20 3B 54 4F 45 54 53 20 49 4E 3F |7 ;TOETS IN?| 00001A90: 0D 20 20 20 20 20 20 43 4D 50 20 23 30 36 34 0D |. CMP #064.| 00001AA0: 20 20 20 20 20 20 42 45 51 20 20 4B 45 59 49 4E | BEQ KEYIN| 00001AB0: 0D 4B 45 59 49 4F 20 4A 53 52 20 20 36 35 35 30 |.KEYIO JSR 6550| 00001AC0: 38 20 20 20 3B 4A 41 3A 55 49 54 20 42 55 46 46 |8 ;JA:UIT BUFF| 00001AD0: 45 52 2E 0D 20 20 20 20 20 20 43 4D 50 20 23 30 |ER.. CMP #0| 00001AE0: 30 30 0D 20 20 20 20 20 20 42 45 51 20 20 4B 45 |00. BEQ KE| 00001AF0: 59 49 4F 0D 20 20 20 20 20 20 54 41 58 20 20 20 |YIO. TAX | 00001B00: 20 20 20 20 20 20 20 3B 49 4E 20 58 2E 0D 4B 45 | ;IN X..KE| 00001B10: 59 49 54 20 4C 44 41 20 20 31 39 37 20 20 20 20 |YIT LDA 197 | 00001B20: 20 3B 54 4F 45 54 53 20 4C 4F 53 3F 0D 20 20 20 | ;TOETS LOS?. | 00001B30: 20 20 20 43 4D 50 20 23 30 36 34 0D 20 20 20 20 | CMP #064. | 00001B40: 20 20 42 4E 45 20 20 4B 45 59 49 54 0D 20 20 20 | BNE KEYIT. | 00001B50: 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 20 | RTS | 00001B60: 3B 4A 41 3A 4E 41 41 52 20 48 2E 50 2E 0D 20 20 |;JA:NAAR H.P.. | 00001B70: 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F | NOP. NO| 00001B80: 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 |P. NOP. | 00001B90: 20 20 4E 4F 50 0D 41 44 50 41 44 20 43 4C 43 20 | NOP.ADPAD CLC | 00001BA0: 20 20 20 20 20 20 20 20 20 3B 41 44 52 2B 28 59 | ;ADR+(Y| 00001BB0: 29 3D 3E 41 44 52 0D 20 20 20 20 20 20 54 59 41 |)=>ADR. TYA| 00001BC0: 20 20 20 20 20 20 20 20 20 20 3B 45 4E 20 30 3D | ;EN 0=| 00001BD0: 3E 28 59 29 2E 0D 20 20 20 20 20 20 41 44 43 20 |>(Y).. ADC | 00001BE0: 20 32 34 39 2C 58 20 20 20 3B 4D 4F 44 49 46 49 | 249,X ;MODIFI| 00001BF0: 43 2E 28 58 29 3A 0D 20 20 20 20 20 20 53 54 41 |C.(X):. STA| 00001C00: 20 20 32 34 39 2C 58 20 20 20 3B 30 3A 28 32 35 | 249,X ;0:(25| 00001C10: 30 2C 32 34 39 29 2E 0D 20 20 20 20 20 20 4C 44 |0,249).. LD| 00001C20: 41 20 23 30 30 30 20 20 20 20 20 3B 32 3A 28 32 |A #000 ;2:(2| 00001C30: 35 32 2C 32 35 31 29 2E 0D 20 20 20 20 20 20 54 |52,251).. T| 00001C40: 41 59 20 20 20 20 20 20 20 20 20 20 3B 34 3A 28 |AY ;4:(| 00001C50: 32 35 34 2C 32 35 33 29 2E 0D 20 20 20 20 20 20 |254,253).. | 00001C60: 41 44 43 20 20 32 35 30 2C 58 0D 20 20 20 20 20 |ADC 250,X. | 00001C70: 20 53 54 41 20 20 32 35 30 2C 58 0D 20 20 20 20 | STA 250,X. | 00001C80: 20 20 52 54 53 0D 20 20 20 20 20 20 4E 4F 50 0D | RTS. NOP.| 00001C90: 20 20 20 20 20 20 4E 4F 50 0D 56 41 56 42 58 20 | NOP.VAVBX | 00001CA0: 4C 44 41 20 20 32 34 39 0D 20 20 20 20 20 20 53 |LDA 249. S| 00001CB0: 54 41 20 20 32 34 39 2C 58 0D 20 20 20 20 20 20 |TA 249,X. | 00001CC0: 4C 44 41 20 20 32 35 30 0D 20 20 20 20 20 20 53 |LDA 250. S| 00001CD0: 54 41 20 20 32 35 30 2C 58 0D 20 20 20 20 20 20 |TA 250,X. | 00001CE0: 52 54 53 0D 56 41 58 56 42 20 4C 44 41 20 20 32 |RTS.VAXVB LDA 2| 00001CF0: 34 39 2C 58 0D 20 20 20 20 20 20 53 54 41 20 20 |49,X. STA | 00001D00: 32 34 39 0D 20 20 20 20 20 20 4C 44 41 20 20 32 |249. LDA 2| 00001D10: 35 30 2C 58 0D 20 20 20 20 20 20 53 54 41 20 20 |50,X. STA | 00001D20: 32 35 30 0D 20 20 20 20 20 20 52 54 53 0D 56 48 |250. RTS.VH| 00001D30: 4E 4C 20 20 4C 44 59 20 20 31 37 31 20 20 20 20 |NL LDY 171 | 00001D40: 20 3B 42 45 47 49 4E 4D 4F 44 49 46 2E 3D 4D 2E | ;BEGINMODIF.=M.| 00001D50: 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 |. CLC | 00001D60: 20 20 20 20 3B 20 45 49 4E 44 4D 4F 44 49 46 2E | ; EINDMODIF.| 00001D70: 3D 4E 2E 0D 20 20 20 20 20 20 42 43 43 20 20 56 |=N.. BCC V| 00001D80: 48 4E 32 20 20 20 20 3B 4D 3D 28 31 37 30 29 2E |HN2 ;M=(170).| 00001D90: 0D 56 48 4E 31 20 20 4C 44 41 20 28 32 35 31 29 |.VHN1 LDA (251)| 00001DA0: 2C 59 20 20 3B 4E 3D 28 31 37 31 29 2E 0D 20 20 |,Y ;N=(171).. | 00001DB0: 20 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 20 | STA (253),Y | 00001DC0: 20 3B 20 48 41 41 4C 3A 32 35 32 2C 32 35 31 2E | ; HAAL:252,251.| 00001DD0: 0D 56 48 4E 32 20 20 44 45 59 20 20 20 20 20 20 |.VHN2 DEY | 00001DE0: 20 20 20 20 3B 42 52 45 4E 47 3A 32 35 34 2C 32 | ;BRENG:254,2| 00001DF0: 35 33 2E 0D 20 20 20 20 20 20 43 50 59 20 20 31 |53.. CPY 1| 00001E00: 37 30 20 20 20 20 20 3B 56 41 4E 20 48 4F 4F 47 |70 ;VAN HOOG| 00001E10: 20 41 44 52 45 53 0D 20 20 20 20 20 20 42 50 4C | ADRES. BPL| 00001E20: 20 20 56 48 4E 31 20 20 20 20 3B 4E 41 41 52 20 | VHN1 ;NAAR | 00001E30: 4C 41 41 47 2E 0D 20 20 20 20 20 20 52 54 53 0D |LAAG.. RTS.| 00001E40: 56 4C 4E 48 20 20 4C 44 59 20 20 31 37 30 20 20 |VLNH LDY 170 | 00001E50: 20 20 20 3B 42 45 47 49 4E 4D 4F 44 49 46 2E 3D | ;BEGINMODIF.=| 00001E60: 4D 2E 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 |M.. CLC | 00001E70: 20 20 20 20 20 20 3B 20 45 49 4E 44 4D 4F 44 49 | ; EINDMODI| 00001E80: 46 2E 3D 4E 2E 0D 20 20 20 20 20 20 42 43 43 20 |F.=N.. BCC | 00001E90: 20 56 4C 4E 32 20 20 20 20 3B 4D 3D 28 31 37 30 | VLN2 ;M=(170| 00001EA0: 29 2E 0D 56 4C 4E 31 20 20 4C 44 41 20 28 32 35 |)..VLN1 LDA (25| 00001EB0: 31 29 2C 59 20 20 3B 4E 3D 28 31 37 31 29 2E 0D |1),Y ;N=(171)..| 00001EC0: 20 20 20 20 20 20 53 54 41 20 28 32 35 33 29 2C | STA (253),| 00001ED0: 59 20 20 3B 20 48 41 41 4C 3A 32 35 32 2C 32 35 |Y ; HAAL:252,25| 00001EE0: 31 2E 0D 20 20 20 20 20 20 49 4E 59 20 20 20 20 |1.. INY | 00001EF0: 20 20 20 20 20 20 3B 42 52 45 4E 47 3A 32 35 34 | ;BRENG:254| 00001F00: 2C 32 35 33 2E 0D 56 4C 4E 32 20 20 43 50 59 20 |,253..VLN2 CPY | 00001F10: 20 31 37 31 20 20 20 20 20 3B 56 41 4E 20 4C 41 | 171 ;VAN LA| 00001F20: 41 47 20 41 44 52 45 53 0D 20 20 20 20 20 20 42 |AG ADRES. B| 00001F30: 4D 49 20 20 56 4C 4E 31 20 20 20 20 3B 4E 41 41 |MI VLN1 ;NAA| 00001F40: 52 20 48 4F 4F 47 2E 0D 20 20 20 20 20 20 52 54 |R HOOG.. RT| 00001F50: 53 0D 56 55 4C 4C 20 20 4C 44 59 20 20 31 37 30 |S.VULL LDY 170| 00001F60: 20 20 20 20 20 3B 56 55 4C 20 4D 45 54 20 49 54 | ;VUL MET IT| 00001F70: 45 4D 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 |EM. CLC | 00001F80: 20 20 20 20 20 20 3B 49 4E 20 32 35 31 2E 0D 20 | ;IN 251.. | 00001F90: 20 20 20 20 20 42 43 43 20 20 56 55 4C 32 0D 56 | BCC VUL2.V| 00001FA0: 55 4C 31 20 20 4C 44 41 20 20 32 35 31 0D 20 20 |UL1 LDA 251. | 00001FB0: 20 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 0D | STA (253),Y.| 00001FC0: 20 20 20 20 20 20 49 4E 59 0D 56 55 4C 32 20 20 | INY.VUL2 | 00001FD0: 43 50 59 20 20 31 37 31 0D 20 20 20 20 20 20 42 |CPY 171. B| 00001FE0: 4D 49 20 20 56 55 4C 31 0D 20 20 20 20 20 20 52 |MI VUL1. R| 00001FF0: 54 53 0D 20 20 20 20 20 20 4E 4F 50 0D 52 45 56 |TS. NOP.REV| 00002000: 45 52 20 52 4F 4C 20 20 30 30 32 20 20 20 20 20 |ER ROL 002 | 00002010: 3B 54 45 4B 45 4E 20 4F 4D 4B 45 52 45 4E 2E 0D |;TEKEN OMKEREN..| 00002020: 20 20 20 20 20 20 53 45 43 20 20 20 20 20 20 20 | SEC | 00002030: 20 20 20 3B 28 58 29 3D 42 49 54 20 37 2E 0D 20 | ;(X)=BIT 7.. | 00002040: 20 20 20 20 20 43 50 58 20 20 30 30 30 20 20 20 | CPX 000 | 00002050: 20 20 3B 54 45 4B 45 4E 20 49 4E 20 30 30 32 2E | ;TEKEN IN 002.| 00002060: 0D 20 20 20 20 20 20 42 4E 45 20 20 52 45 56 45 |. BNE REVE| 00002070: 31 0D 20 20 20 20 20 20 43 4C 43 0D 52 45 56 45 |1. CLC.REVE| 00002080: 31 20 52 4F 52 20 20 30 30 32 0D 20 20 20 20 20 |1 ROR 002. | 00002090: 20 52 54 53 0D 20 20 20 20 20 20 4E 4F 50 0D 20 | RTS. NOP. | 000020A0: 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E | NOP. N| 000020B0: 4F 50 0D 20 20 20 20 20 20 2E 45 4E 44 0D |OP. .END. |
*=49152. ;.
;PRINT SCHERM..
;.HPIN LDA #001 ;OPEN FI
LE 1.. LDX #004 ;PRINTER..
LDY #000. JSR 65466 ;*SETLFS*.
LDA #000. JSR 65469 ;*SETNA
M*. JSR 65472 ;* OPEN *. LD
X #001 ;FILE 1.. JSR 65481 ;
*CHKOUT*. LDA #024 ;BUFFER LEEG
.. JSR 65490. LDA #027 ;P
RINTER. LDX #065 ;INSTELLEN OP.
LDY #008 ;REGEL 8/72 IN..
JSR LAXY . LDX #085 ;EENRICHT
ING. LDY #001 ;PRINTEN.. J
SR LAXY . LDX #077 ;KANTLIJN 2
0.. LDY #020. JSR LAXY .
LDA #208 ;BEGINADRES VAN. STA
254 ;KARAKTER-ROM.. LDA #000.
STA 253. LDA 00648 ;BEGINA
DRES VAN. STA 252 ;SCHERMGEHEU
GEN. STA 168 ;EN REGELBEGIN..
LDA #000. STA 251. STA
167. LDA #024 ;REGELAFTELLER..
STA 248.HPI2 LDA #027 ;KOP VA
N REGEL:. LDX #103 ;INSTELLEN.
LDY #005 ;PRINTER OP. JSR
LAXY ;GRAFISCH.. LDX #064 ;
320 GRAFISCHE. LDY #001 ;BYTES.
. JSR LXY . LDY #000 ;PO
SITIE NUL..HPI3 STY 169. LDA (167
),Y ;CODE.. JSR ROPU ;PRINT TE
KEN.. LDY 169 ;POSITIE + 1..
INY. CPY #040 ;REGEL KLAAR?
. BCC HPI3. LDA #010 ;JA:
RG.-VERZET.. JSR 65490. CLC
;OPHOGEN ADRES. LDA #040
;VAN SCHERM.. ADC 167. STA
167. LDA #000. ADC 168.
STA 168. DEC 248 ;RG.AFTELLE
N.. BPL HPI2 ;KLAAR?. LDX
#027 ;JA:HERZET. LDY #064 ;
PRINTER.. JSR LXY . LDA #001
;SLUIT FILE 1.. JSR 65475 ;
* CLOSE*. JSR 65511 ;* CLALL*.
RTS ;NAAR H.P..LAXY STA 0
02 ;RED (A).. JSR 65490 ;(A)
OUTPUT..LXY TXA ;(X) OUTPUT.
. JSR 65490. TYA ;(Y
) OUTPUT.. JSR 65490. LDA 00
2 ;HERSTEL (A).. RTS ;
NAAR H.P..ROPU STA 002 ;(A) CODE..
CLC. LDA #000 ;MAAL 8 IN.
.BYTE $2A ;(A)(2).. ROL 0
02. .BYTE $2A. ROL 002.
.BYTE $2A. ROL 002. .BYTE $2A
. TAX. LDA 002 ;ADRES VAN
. ADC 253 ;KARAKTER-ROM.
STA 249 ;ERBIJ EN IN. TXA
;(250,249).. ADC 254. ST
A 250. LDA 56334 ;GEEN TIMER-.
AND #254 ;INTERRUPTS.. STA
56334. LDA 001 ;MAAK KAR.-RO
M. AND #251 ;OPEN.. STA 0
01. LDY #007 ;TRANSPORT NAAR.TR
A1 LDA (249),Y ;(820)..(827).. ST
A 00820,Y. DEY. BPL TRA1 .
LDA 001 ;MAAK KAR.-ROM. OR
A #004 ;DICHT.. STA 001.
LDA 56334 ;WEL TIMER-. ORA #001
;INTERRUPTS.. STA 56334.
LDY #007 ;TRANSPOSITIE.TRA2 LDX #00
7 ;EN OUTPUT..TRA3 ROL 00820,X.
.BYTE $6A. DEX. BPL TRA3 .
JSR 65490. DEY. BPL TR
A2. RTS ;NAAR H.P.. N
OP. NOP. ;.
;EENBYTE.
;BIN-DEC.. ;DECONVERS
IE.. ;.
;IN: (251) BIN.. ;
UIT: AF ADRES. ;AU=(25
4,253).. ;AU+0:100....
. ;AU+2:1. ASCII..
;.BIDC1 STY 002 ;RED
(Y).. LDA 251 ;INPUT NAAR.
STA 038 ;(039,038).. LDA #0
00. STA 039. LDY #002. L
DA #048.BID01 STA (253),Y ;VUL (AU+0)..
. DEY ;..(AU+2) MET.
BPL BID01 ;NULLEN.. LDY #000
;M=0.. BEQ BID03 ; -->[BID03
].BID02 SEC ;TREK 100 AF.
LDA 038 ;VAN (039,038).. SBC #
100. STA 038. LDA 039.
SBC #000. STA 039. CLC
;TEL 1 OP BIJ. LDA (253),Y ;(AU
+M).. ADC #001. STA (253),Y.BI
D03 LDA 039 ;VERGELIJK. CMP #0
00 ;(39,38)::100.. BCC BID04.
BNE BID02 ;>100-->[BID02].
LDA 038. CMP #100. BCS BID02
.BID04 LDA 039 ;REST NUL?. BNE
BID05. LDA 038. BEQ BID06
;JA:NAAR H.P..BID05 CLC ;ANDE
RS: VERME-. ROL 038 ;NIGVULDIG
. ROL 039 ;(39,38) * 10..
LDA 039. STA 041. LDA 038.
CLC. .BYTE $2A. ROL 041
. .BYTE $2A. ROL 041. CL
C. ADC 038. STA 038. LD
A 041. ADC 039. STA 039.
INY. CLC. BCC BID03 ;
-->[BID03].BID06 LDY 002 ;HERSTEL
(Y).. RTS ;NAAR H.P..
NOP. ;.
;VERMENIGV.MET. ;
OPTELLEN.. ;(250,249)+
PRO-. ;DUCT (110,109).
;*(108,107) IN.
;(250,249)..
;.MULOP TXA ;RED (X), (Y)..
PHA. TYA. PHA. LDX
108 ;(108,107). LDY 107 ;
ONVERANDERD.. CLC ;(110,10
9).MUL01 LDA 110 ;GEDEELTELIJK.
BNE MUL02 ;PRODUCT. LDA 109
;WORDT VER-. BEQ MUL05 ;SCHOV
EN.. BNE MUL03.MUL02 ROR 110.MUL0
3 ROR 109. BCC MUL04. CLC.
TYA. ADC 249 ;BIT 1:TEL OP
.. STA 249. TXA. ADC 25
0. STA 250. CLC.MUL04 TYA
;DAARNA SCHUIF.. ROL A.
TAY. TXA. ROL A. TAX.
CLC. BCC MUL01.MUL05 PLA
;EIND:HERSTEL. TAY ;(X
), (Y).. PLA. TAX. RTS
;NAAR H.P.. NOP. NOP.
NOP. ;.
;TEKST T=(X).
;NAAR SCHERM. ;AF LOPE
R.. ;(108,107).
;ADRES VAN.
;BEGIN VAN. ;VOORBLO
K.. ;.SCNTX CLC.
TXA. .BYTE $2A. TAY ;
(Y)=2*T.. CLC. LDA (107),Y.
ADC 107. STA 253 ;ADRES IN
. INY ;STUURBLOK:. LD
A (107),Y ;AS=(254,253).. ADC 108
. STA 254. LDY #000 ;LENG
TE.. LDA (253),Y ;NUL:-->[SCNT4].
BEQ SCNT4. STA 002 ;IN (
002)..SCNT1 INY ;ZET ADRES IN.
CLC ;(188,187).. LDA
(253),Y. ADC 107. STA 187.
INY. LDA (253),Y. ADC 108
. STA 188. TYA. PHA.
LDY #000 ;AANTAL IN. LDA (187
),Y ;(183).. BEQ SCNT3 ;NUL:SLA
OVER.. STA 183. INC 187
;ADRES+1.. BNE SCNT2. INC 1
88.SCNT2 JSR 62913 ;OUTPUT..SCNT3 PLA
;LENGTE WEER.. TAY.
DEC 002 ;AFTELLEN.. BNE SCNT1
;KLAAR:.SCNT4 RTS ;NAAR H.P.
. NOP. NOP.
;. ;ACCEPT TOETS..
;TOETS IN (X)..
;.KEYIN LDA 197 ;TOETS IN?
. CMP #064. BEQ KEYIN.KEYIO J
SR 65508 ;JA:UIT BUFFER.. CMP #0
00. BEQ KEYIO. TAX ;
IN X..KEYIT LDA 197 ;TOETS LOS?.
CMP #064. BNE KEYIT. RTS
;JA:NAAR H.P.. NOP. NO
P. NOP. NOP.ADPAD CLC
;ADR+(Y)=>ADR. TYA ;EN 0=
>(Y).. ADC 249,X ;MODIFIC.(X):.
STA 249,X ;0:(250,249).. LD
A #000 ;2:(252,251).. TAY
;4:(254,253).. ADC 250,X.
STA 250,X. RTS. NOP. NO
P.VAVBX LDA 249. STA 249,X.
LDA 250. STA 250,X. RTS.VAXV
B LDA 249,X. STA 249. LDA 2
50,X. STA 250. RTS.VHNL LDY
171 ;BEGINMODIF.=M.. CLC
; EINDMODIF.=N.. BCC VHN2 ;
M=(170)..VHN1 LDA (251),Y ;N=(171)..
STA (253),Y ; HAAL:252,251..VHN2 D
EY ;BRENG:254,253.. CPY 1
70 ;VAN HOOG ADRES. BPL VHN1
;NAAR LAAG.. RTS.VLNH LDY 170
;BEGINMODIF.=M.. CLC ;
EINDMODIF.=N.. BCC VLN2 ;M=(170
)..VLN1 LDA (251),Y ;N=(171).. ST
A (253),Y ; HAAL:252,251.. INY
;BRENG:254,253..VLN2 CPY 171
;VAN LAAG ADRES. BMI VLN1 ;NAA
R HOOG.. RTS.VULL LDY 170 ;VU
L MET ITEM. CLC ;IN 251..
BCC VUL2.VUL1 LDA 251. STA
(253),Y. INY.VUL2 CPY 171. B
MI VUL1. RTS. NOP.REVER ROL
002 ;TEKEN OMKEREN.. SEC
;(X)=BIT 7.. CPX 000 ;TEKEN
IN 002.. BNE REVE1. CLC.REVE
1 ROR 002. RTS. NOP. NOP
. NOP. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL