DISD00
FILE INFORMATION
FILENAME(S): DISD00
FILE TYPE(S): SEQ
FILE SIZE: 5.2K
FIRST SEEN: 2025-11-30 21:11:47
APPEARS ON: 1 disk(s)
FILE HASH
8efd31d202b31ab191f6693805615b9d0ba998178f8fda4afab45709a5cb8634
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 ASSEMBLER | DISD00 | SEQ | DuncanTwain | 2 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 2A 3D 33 36 30 30 30 | *=36000| 00000010: 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 30 20 |. LDA #000 | 00000020: 20 20 20 20 20 3B 53 43 48 45 52 4D 20 4F 50 0D | ;SCHERM OP.| 00000030: 20 20 20 20 20 20 53 54 41 20 20 35 33 32 38 30 | STA 53280| 00000040: 20 20 20 20 3B 5A 57 41 52 54 2E 0D 20 20 20 20 | ;ZWART.. | 00000050: 20 20 53 54 41 20 20 35 33 32 38 31 20 20 20 20 | STA 53281 | 00000060: 3B 0D 20 20 20 20 20 20 4C 44 41 20 23 31 35 35 |;. LDA #155| 00000070: 20 20 20 20 20 20 3B 54 45 4B 45 4E 53 0D 20 20 | ;TEKENS. | 00000080: 20 20 20 20 4A 53 52 20 20 36 35 34 39 30 20 20 | JSR 65490 | 00000090: 20 20 3B 47 52 49 4A 53 2E 0D 20 20 20 20 20 20 | ;GRIJS.. | 000000A0: 4C 44 41 20 23 30 37 30 20 20 20 20 20 20 3B 54 |LDA #070 ;T| 000000B0: 4F 50 20 42 41 53 49 43 0D 20 20 20 20 20 20 53 |OP BASIC. S| 000000C0: 54 41 20 20 30 35 32 20 20 20 20 20 20 3B 37 30 |TA 052 ;70| 000000D0: 2A 32 35 36 3D 31 37 39 32 30 2E 0D 20 20 20 20 |*256=17920.. | 000000E0: 20 20 53 54 41 20 20 30 35 36 20 20 20 20 20 20 | STA 056 | 000000F0: 3B 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 32 |;. LDX #002| 00000100: 20 20 20 20 20 20 3B 5A 45 54 20 4C 55 0D 20 20 | ;ZET LU. | 00000110: 20 20 20 20 4A 53 52 20 20 33 38 33 38 31 20 20 | JSR 38381 | 00000120: 20 20 3B 49 4E 20 28 32 35 34 2C 32 35 33 29 2E | ;IN (254,253).| 00000130: 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 30 20 |. LDX #000 | 00000140: 20 20 20 20 20 3B 5A 45 54 20 52 55 0D 20 20 20 | ;ZET RU. | 00000150: 20 20 20 4A 53 52 20 20 33 38 33 39 32 20 20 20 | JSR 38392 | 00000160: 20 3B 49 4E 20 28 31 37 30 2C 31 36 39 29 2E 0D | ;IN (170,169)..| 00000170: 20 20 20 20 20 20 4A 53 52 20 20 33 38 34 32 36 | JSR 38426| 00000180: 20 20 20 20 3B 28 4C 55 2D 52 55 29 2F 36 2E 0D | ;(LU-RU)/6..| 00000190: 20 20 20 20 20 20 4C 44 41 20 20 32 35 31 20 20 | LDA 251 | 000001A0: 20 20 20 20 3B 0D 20 20 20 20 20 20 53 54 41 20 | ;. STA | 000001B0: 20 30 30 37 35 32 20 20 20 20 3B 52 4D 3D 28 37 | 00752 ;RM=(7| 000001C0: 35 33 2C 37 35 32 29 0D 20 20 20 20 20 20 4C 44 |53,752). LD| 000001D0: 41 20 20 32 35 32 20 20 20 20 20 20 3B 4D 41 58 |A 252 ;MAX| 000001E0: 2E 41 41 4E 54 41 4C 0D 20 20 20 20 20 20 53 54 |.AANTAL. ST| 000001F0: 41 20 20 30 30 37 35 33 20 20 20 20 3B 52 45 47 |A 00753 ;REG| 00000200: 45 4C 53 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 |ELS.. LDX #| 00000210: 30 30 34 20 20 20 20 20 20 3B 5A 45 54 20 5A 55 |004 ;ZET ZU| 00000220: 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 33 38 |. JSR 3838| 00000230: 31 20 20 20 20 3B 49 4E 20 28 32 35 34 2C 32 35 |1 ;IN (254,25| 00000240: 33 29 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 30 |3).. LDX #0| 00000250: 30 32 20 20 20 20 20 20 3B 5A 45 54 20 4C 55 0D |02 ;ZET LU.| 00000260: 20 20 20 20 20 20 4A 53 52 20 20 33 38 33 39 32 | JSR 38392| 00000270: 20 20 20 20 3B 49 4E 20 28 31 37 30 2C 31 36 39 | ;IN (170,169| 00000280: 29 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 |).. JSR 38| 00000290: 34 34 34 20 20 20 20 3B 28 5A 55 2D 4C 55 29 2F |444 ;(ZU-LU)/| 000002A0: 32 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 |2.. LDA 25| 000002B0: 31 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 53 |1 ;. S| 000002C0: 54 41 20 20 30 30 37 35 34 20 20 20 20 3B 4C 4D |TA 00754 ;LM| 000002D0: 3D 28 37 35 35 2C 37 35 34 29 0D 20 20 20 20 20 |=(755,754). | 000002E0: 20 4C 44 41 20 20 32 35 32 20 20 20 20 20 20 3B | LDA 252 ;| 000002F0: 4D 41 58 2E 41 41 4E 54 41 4C 0D 20 20 20 20 20 |MAX.AANTAL. | 00000300: 20 53 54 41 20 20 30 30 37 35 35 20 20 20 20 3B | STA 00755 ;| 00000310: 4C 41 42 45 4C 53 2E 0D 20 20 20 20 20 20 4A 53 |LABELS.. JS| 00000320: 52 20 20 33 38 38 31 37 20 20 20 20 3B 41 44 52 |R 38817 ;ADR| 00000330: 45 53 20 56 4F 4F 52 42 4C 2E 0D 20 20 20 20 20 |ES VOORBL.. | 00000340: 20 4C 44 58 20 23 30 32 33 20 20 20 20 20 20 3B | LDX #023 ;| 00000350: 4E 49 45 55 57 45 20 52 45 47 45 4C 2E 0D 20 20 |NIEUWE REGEL.. | 00000360: 20 20 20 20 4A 53 52 20 20 33 38 37 31 32 20 20 | JSR 38712 | 00000370: 20 20 3B 0D 20 20 20 20 20 20 4C 44 41 20 20 30 | ;. LDA 0| 00000380: 30 37 35 32 20 20 20 20 3B 52 4D 20 44 45 43 4F |0752 ;RM DECO| 00000390: 4E 56 2E 0D 20 20 20 20 20 20 53 54 41 20 20 32 |NV.. STA 2| 000003A0: 35 31 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 |51 ;. | 000003B0: 4C 44 41 20 20 30 30 37 35 33 20 20 20 20 3B 0D |LDA 00753 ;.| 000003C0: 20 20 20 20 20 20 53 54 41 20 20 32 35 32 20 20 | STA 252 | 000003D0: 20 20 20 20 3B 0D 20 20 20 20 20 20 4A 53 52 20 | ;. JSR | 000003E0: 20 33 38 37 39 32 20 20 20 20 3B 45 4E 20 49 4E | 38792 ;EN IN| 000003F0: 20 58 58 58 58 58 2E 0D 20 20 20 20 20 20 4C 44 | XXXXX.. LD| 00000400: 41 20 20 30 30 37 35 34 20 20 20 20 3B 4C 4D 20 |A 00754 ;LM | 00000410: 44 45 43 4F 4E 56 2E 0D 20 20 20 20 20 20 53 54 |DECONV.. ST| 00000420: 41 20 20 32 35 31 20 20 20 20 20 20 3B 0D 20 20 |A 251 ;. | 00000430: 20 20 20 20 4C 44 41 20 20 30 30 37 35 35 20 20 | LDA 00755 | 00000440: 20 20 3B 0D 20 20 20 20 20 20 53 54 41 20 20 32 | ;. STA 2| 00000450: 35 32 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 |52 ;. | 00000460: 4A 53 52 20 20 33 38 38 30 34 20 20 20 20 3B 45 |JSR 38804 ;E| 00000470: 4E 20 49 4E 20 59 59 59 59 59 2E 0D 20 20 20 20 |N IN YYYYY.. | 00000480: 20 20 4C 44 58 20 23 30 30 35 20 20 20 20 20 20 | LDX #005 | 00000490: 3B 27 4D 41 58 2E 2E 2E 52 45 47 45 4C 53 0D 20 |;'MAX...REGELS. | 000004A0: 20 20 20 20 20 4A 53 52 20 20 33 38 37 31 32 20 | JSR 38712 | 000004B0: 20 20 20 3B 2E 2E 2E 4C 41 42 45 4C 53 2E 27 0D | ;...LABELS.'.| 000004C0: 20 20 20 20 20 20 4C 44 58 20 23 30 30 37 20 20 | LDX #007 | 000004D0: 20 20 20 20 3B 27 44 52 55 4B 20 4F 50 0D 20 20 | ;'DRUK OP. | 000004E0: 20 20 20 20 4A 53 52 20 20 33 38 37 31 32 20 20 | JSR 38712 | 000004F0: 20 20 3B 53 50 41 54 49 45 42 41 4C 4B 2E 27 0D | ;SPATIEBALK.'.| 00000500: 44 50 30 30 31 20 4A 53 52 20 20 34 30 30 39 35 |DP001 JSR 40095| 00000510: 20 20 20 20 3B 54 4F 45 54 53 20 41 43 43 45 50 | ;TOETS ACCEP| 00000520: 54 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 30 33 |T.. LDA #03| 00000530: 32 20 20 20 20 20 20 3B 53 50 41 54 49 45 42 41 |2 ;SPATIEBA| 00000540: 4C 4B 3F 0D 20 20 20 20 20 20 43 4D 50 20 20 30 |LK?. CMP 0| 00000550: 30 32 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 |02 ;. | 00000560: 42 4E 45 20 20 44 50 30 30 31 20 20 20 20 3B 4A |BNE DP001 ;J| 00000570: 41 3A 0D 20 20 20 20 20 20 4C 44 41 20 23 31 34 |A:. LDA #14| 00000580: 37 20 20 20 20 20 20 3B 50 4F 45 54 53 20 53 43 |7 ;POETS SC| 00000590: 48 45 52 4D 2E 0D 20 20 20 20 20 20 4A 53 52 20 |HERM.. JSR | 000005A0: 20 36 35 34 39 30 20 20 20 20 3B 0D 20 20 20 20 | 65490 ;. | 000005B0: 20 20 4C 44 58 20 23 30 30 39 20 20 20 20 20 20 | LDX #009 | 000005C0: 3B 54 49 54 45 4C 3B 27 4E 41 20 45 4C 4B 0D 20 |;TITEL;'NA ELK. | 000005D0: 20 20 20 20 20 4A 53 52 20 20 33 38 37 31 32 20 | JSR 38712 | 000005E0: 20 20 20 3B 41 4E 54 57 2E 2E 49 4E 44 52 4B 4E | ;ANTW..INDRKN| 000005F0: 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 30 31 30 |.. LDX #010| 00000600: 20 20 20 20 20 20 3B 27 44 45 43 2E 4F 46 20 48 | ;'DEC.OF H| 00000610: 45 58 3F 27 0D 20 20 20 20 20 20 4A 53 52 20 20 |EX?'. JSR | 00000620: 33 38 37 31 32 20 20 20 20 3B 0D 20 20 20 20 20 |38712 ;. | 00000630: 20 4C 44 41 20 23 30 30 30 20 20 20 20 20 20 3B | LDA #000 ;| 00000640: 44 43 2D 56 4C 41 47 20 4E 45 45 52 2E 0D 20 20 |DC-VLAG NEER.. | 00000650: 20 20 20 20 53 54 41 20 20 30 30 37 35 36 20 20 | STA 00756 | 00000660: 20 20 3B 30 3D 48 45 58 2E 20 31 3D 44 45 43 2E | ;0=HEX. 1=DEC.| 00000670: 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 31 20 |. LDX #001 | 00000680: 20 20 20 20 20 3B 31 20 54 45 4B 45 4E 2E 0D 20 | ;1 TEKEN.. | 00000690: 20 20 20 20 20 4A 53 52 20 20 33 38 31 34 34 20 | JSR 38144 | 000006A0: 20 20 20 3B 41 43 43 45 50 54 2E 0D 20 20 20 20 | ;ACCEPT.. | 000006B0: 20 20 4C 44 58 20 23 30 30 38 20 20 20 20 20 20 | LDX #008 | 000006C0: 3B 41 44 52 45 53 20 56 41 4E 0D 20 20 20 20 20 |;ADRES VAN. | 000006D0: 20 4A 53 52 20 20 33 38 33 39 32 20 20 20 20 3B | JSR 38392 ;| 000006E0: 57 45 52 4B 56 45 4C 44 2E 0D 20 20 20 20 20 20 |WERKVELD.. | 000006F0: 4C 44 59 20 23 30 30 31 20 20 20 20 20 20 3B 4E |LDY #001 ;N| 00000700: 41 20 44 45 20 4C 45 4E 47 54 45 2E 0D 20 20 20 |A DE LENGTE.. | 00000710: 20 20 20 4C 44 41 20 28 31 36 39 29 2C 59 20 20 | LDA (169),Y | 00000720: 20 3B 54 45 4B 45 4E 2E 0D 20 20 20 20 20 20 43 | ;TEKEN.. C| 00000730: 4D 50 20 23 30 36 38 20 20 20 20 20 20 3B 45 45 |MP #068 ;EE| 00000740: 4E 20 27 44 27 3F 0D 20 20 20 20 20 20 42 4E 45 |N 'D'?. BNE| 00000750: 20 20 44 50 30 30 32 20 20 20 20 3B 4A 41 3A 0D | DP002 ;JA:.| 00000760: 20 20 20 20 20 20 49 4E 43 20 20 30 30 37 35 36 | INC 00756| 00000770: 20 20 20 20 3B 44 43 2D 56 4C 41 47 20 4F 50 2E | ;DC-VLAG OP.| 00000780: 0D 44 50 30 30 32 20 4C 44 58 20 23 30 32 34 20 |.DP002 LDX #024 | 00000790: 20 20 20 20 20 3B 4F 50 45 4E 20 52 45 47 45 4C | ;OPEN REGEL| 000007A0: 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 37 |.. JSR 387| 000007B0: 31 32 20 20 20 20 3B 0D 20 20 20 20 20 20 4C 44 |12 ;. LD| 000007C0: 41 20 23 30 30 30 20 20 20 20 20 20 3B 28 37 34 |A #000 ;(74| 000007D0: 31 2C 37 34 30 29 0D 20 20 20 20 20 20 53 54 41 |1,740). STA| 000007E0: 20 20 30 30 37 34 30 20 20 20 20 3B 41 44 52 2E | 00740 ;ADR.| 000007F0: 27 56 41 4E 27 0D 20 20 20 20 20 20 53 54 41 20 |'VAN'. STA | 00000800: 20 30 30 37 34 31 20 20 20 20 3B 4F 50 20 30 30 | 00741 ;OP 00| 00000810: 30 30 30 2E 0D 20 20 20 20 20 20 53 54 41 20 20 |000.. STA | 00000820: 30 30 37 34 32 20 20 20 20 3B 28 37 34 33 2C 37 |00742 ;(743,7| 00000830: 34 32 29 0D 20 20 20 20 20 20 4C 44 41 20 23 30 |42). LDA #0| 00000840: 30 31 20 20 20 20 20 20 3B 41 44 52 2E 27 54 4F |01 ;ADR.'TO| 00000850: 54 27 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 |T'. STA 00| 00000860: 37 34 33 20 20 20 20 3B 4F 50 20 30 30 32 35 36 |743 ;OP 00256| 00000870: 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 32 |.. JSR 382| 00000880: 35 33 20 20 20 20 3B 27 55 49 54 47 45 5A 4F 4E |53 ;'UITGEZON| 00000890: 44 2E 27 0D 20 20 20 20 20 20 4C 44 41 20 20 34 |D.'. LDA 4| 000008A0: 30 39 32 38 20 20 20 20 3B 28 37 34 31 2C 37 34 |0928 ;(741,74| 000008B0: 30 29 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 |0). STA 00| 000008C0: 37 34 30 20 20 20 20 3B 4F 50 20 52 55 2E 0D 20 |740 ;OP RU.. | 000008D0: 20 20 20 20 20 4C 44 41 20 20 34 30 39 32 39 20 | LDA 40929 | 000008E0: 20 20 20 3B 0D 20 20 20 20 20 20 53 54 41 20 20 | ;. STA | 000008F0: 30 30 37 34 31 20 20 20 20 3B 0D 20 20 20 20 20 |00741 ;. | 00000900: 20 4C 44 41 20 20 34 30 39 33 32 20 20 20 20 3B | LDA 40932 ;| 00000910: 28 37 34 33 2C 37 34 32 29 0D 20 20 20 20 20 20 |(743,742). | 00000920: 53 54 41 20 20 30 30 37 34 32 20 20 20 20 3B 4F |STA 00742 ;O| 00000930: 50 20 5A 55 2E 0D 20 20 20 20 20 20 4C 44 41 20 |P ZU.. LDA | 00000940: 20 34 30 39 33 33 20 20 20 20 3B 0D 20 20 20 20 | 40933 ;. | 00000950: 20 20 53 54 41 20 20 30 30 37 34 33 20 20 20 20 | STA 00743 | 00000960: 3B 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 32 |;. JSR 382| 00000970: 35 33 20 20 20 20 3B 27 55 49 54 47 45 5A 4F 4E |53 ;'UITGEZON| 00000980: 44 2E 27 0D 44 50 30 30 33 20 4C 44 58 20 23 30 |D.'.DP003 LDX #0| 00000990: 31 31 20 20 20 20 20 20 3B 56 52 41 41 47 20 42 |11 ;VRAAG B| 000009A0: 45 47 49 4E 2D 0D 20 20 20 20 20 20 4A 53 52 20 |EGIN-. JSR | 000009B0: 20 33 38 31 38 32 20 20 20 20 3B 41 44 52 45 53 | 38182 ;ADRES| 000009C0: 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 32 |.. JSR 382| 000009D0: 32 31 20 20 20 20 3B 5A 45 54 20 47 45 42 49 45 |21 ;ZET GEBIE| 000009E0: 44 53 2D 0D 20 20 20 20 20 20 4C 44 41 20 20 32 |DS-. LDA 2| 000009F0: 35 31 20 20 20 20 20 20 3B 4E 55 4D 4D 45 52 20 |51 ;NUMMER | 00000A00: 45 4E 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 |EN. STA 00| 00000A10: 37 36 30 20 20 20 20 3B 41 44 52 45 53 2E 0D 20 |760 ;ADRES.. | 00000A20: 20 20 20 20 20 4C 44 41 20 20 32 35 32 20 20 20 | LDA 252 | 00000A30: 20 20 20 3B 0D 20 20 20 20 20 20 53 54 41 20 20 | ;. STA | 00000A40: 30 30 37 36 31 20 20 20 20 3B 41 42 3D 28 37 36 |00761 ;AB=(76| 00000A50: 31 2C 37 36 30 29 2E 0D 20 20 20 20 20 20 53 54 |1,760).. ST| 00000A60: 58 20 20 30 33 30 20 20 20 20 20 20 3B 47 45 42 |X 030 ;GEB| 00000A70: 49 45 44 20 47 42 2E 0D 20 20 20 20 20 20 4C 44 |IED GB.. LD| 00000A80: 58 20 23 30 31 33 20 20 20 20 20 20 3B 56 52 41 |X #013 ;VRA| 00000A90: 41 47 20 45 49 4E 44 2D 0D 20 20 20 20 20 20 4A |AG EIND-. J| 00000AA0: 53 52 20 20 33 38 31 38 32 20 20 20 20 3B 41 44 |SR 38182 ;AD| 00000AB0: 52 45 53 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |RES.. JSR | 00000AC0: 33 38 32 32 31 20 20 20 20 3B 5A 45 54 20 47 45 |38221 ;ZET GE| 00000AD0: 42 49 45 44 53 2D 0D 20 20 20 20 20 20 4C 44 41 |BIEDS-. LDA| 00000AE0: 20 20 32 35 31 20 20 20 20 20 20 3B 4E 55 4D 4D | 251 ;NUMM| 00000AF0: 45 52 20 45 4E 0D 20 20 20 20 20 20 53 54 41 20 |ER EN. STA | 00000B00: 20 30 30 37 36 32 20 20 20 20 3B 41 44 52 45 53 | 00762 ;ADRES| 00000B10: 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 32 |.. LDA 252| 00000B20: 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 53 54 | ;. ST| 00000B30: 41 20 20 30 30 37 36 33 20 20 20 20 3B 41 45 3D |A 00763 ;AE=| 00000B40: 28 37 36 33 2C 37 36 32 29 2E 0D 20 20 20 20 20 |(763,762).. | 00000B50: 20 53 54 58 20 20 30 33 31 20 20 20 20 20 20 3B | STX 031 ;| 00000B60: 47 45 42 49 45 44 20 47 45 2E 0D 20 20 20 20 20 |GEBIED GE.. | 00000B70: 20 4C 44 58 20 23 30 32 34 20 20 20 20 20 20 3B | LDX #024 ;| 00000B80: 4F 50 45 4E 20 52 45 47 45 4C 2E 0D 20 20 20 20 |OPEN REGEL.. | 00000B90: 20 20 4A 53 52 20 20 33 38 37 31 32 20 20 20 20 | JSR 38712 | 00000BA0: 3B 0D 20 20 20 20 20 20 4C 44 41 20 20 30 33 30 |;. LDA 030| 00000BB0: 20 20 20 20 20 20 3B 41 42 20 4E 49 45 54 20 49 | ;AB NIET I| 00000BC0: 4E 0D 20 20 20 20 20 20 42 45 51 20 20 44 50 30 |N. BEQ DP0| 00000BD0: 30 36 20 20 20 20 3B 47 45 42 2E 20 30 20 4F 46 |06 ;GEB. 0 OF| 00000BE0: 20 32 2E 0D 20 20 20 20 20 20 43 4D 50 20 23 30 | 2.. CMP #0| 00000BF0: 30 32 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 |02 ;. | 00000C00: 42 45 51 20 20 44 50 30 30 36 20 20 20 20 3B 0D |BEQ DP006 ;.| 00000C10: 20 20 20 20 20 20 4C 44 41 20 20 30 33 31 20 20 | LDA 031 | 00000C20: 20 20 20 20 3B 41 45 20 4E 49 45 54 20 49 4E 0D | ;AE NIET IN.| 00000C30: 20 20 20 20 20 20 42 45 51 20 20 44 50 30 30 36 | BEQ DP006| 00000C40: 20 20 20 20 3B 47 45 42 2E 20 30 20 4F 46 20 32 | ;GEB. 0 OF 2| 00000C50: 2E 0D 20 20 20 20 20 20 43 4D 50 20 23 30 30 32 |.. CMP #002| 00000C60: 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 42 45 | ;. BE| 00000C70: 51 20 20 44 50 30 30 36 20 20 20 20 3B 0D 20 20 |Q DP006 ;. | 00000C80: 20 20 20 20 43 4D 50 20 20 30 33 30 20 20 20 20 | CMP 030 | 00000C90: 20 20 3B 41 42 20 45 4E 20 41 45 20 49 4E 0D 20 | ;AB EN AE IN. | 00000CA0: 20 20 20 20 20 42 4E 45 20 20 44 50 30 30 36 20 | BNE DP006 | 00000CB0: 20 20 20 3B 5A 45 4C 46 44 45 20 47 45 42 2E 0D | ;ZELFDE GEB..| 00000CC0: 20 20 20 20 20 20 4C 44 41 20 20 30 30 37 36 33 | LDA 00763| 00000CD0: 20 20 20 20 3B 41 45 2E 0D 20 20 20 20 20 20 53 | ;AE.. S| 00000CE0: 54 41 20 20 32 35 32 20 20 20 20 20 20 3B 0D 20 |TA 252 ;. | 00000CF0: 20 20 20 20 20 4C 44 41 20 20 30 30 37 36 32 20 | LDA 00762 | 00000D00: 20 20 20 3B 0D 20 20 20 20 20 20 53 54 41 20 20 | ;. STA | 00000D10: 32 35 31 20 20 20 20 20 20 3B 0D 20 20 20 20 20 |251 ;. | 00000D20: 20 4C 44 41 20 20 30 30 37 36 31 20 20 20 20 3B | LDA 00761 ;| 00000D30: 41 42 2E 0D 20 20 20 20 20 20 53 54 41 20 20 31 |AB.. STA 1| 00000D40: 37 30 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 |70 ;. | 00000D50: 4C 44 41 20 20 30 30 37 36 30 20 20 20 20 3B 0D |LDA 00760 ;.| 00000D60: 20 20 20 20 20 20 53 54 41 20 20 31 36 39 20 20 | STA 169 | 00000D70: 20 20 20 20 3B 0D 20 20 20 20 20 20 4A 53 52 20 | ;. JSR | 00000D80: 20 33 38 37 38 30 20 20 20 20 3B 41 42 3E 41 45 | 38780 ;AB>AE| 00000D90: 3F 0D 20 20 20 20 20 20 42 43 53 20 20 44 50 30 |?. BCS DP0| 00000DA0: 30 38 20 20 20 20 3B 4E 45 45 4E 3A 56 45 52 44 |08 ;NEEN:VERD| 00000DB0: 45 52 2E 0D 44 50 30 30 36 20 4C 44 58 20 23 30 |ER..DP006 LDX #0| 00000DC0: 30 36 20 20 20 20 20 20 3B 27 46 4F 55 54 21 0D |06 ;'FOUT!.| 00000DD0: 20 20 20 20 20 20 4A 53 52 20 20 33 38 37 31 32 | JSR 38712| 00000DE0: 20 20 20 20 3B 4E 4F 47 20 45 45 4E 53 2E 27 0D | ;NOG EENS.'.| 00000DF0: 44 50 30 30 37 20 4C 44 58 20 23 30 32 33 20 20 |DP007 LDX #023 | 00000E00: 20 20 20 20 3B 4E 49 45 55 57 45 20 52 45 47 45 | ;NIEUWE REGE| 00000E10: 4C 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 |L.. JSR 38| 00000E20: 37 31 32 20 20 20 20 3B 0D 20 20 20 20 20 20 43 |712 ;. C| 00000E30: 4C 43 20 20 20 20 20 20 20 20 20 20 20 3B 4F 50 |LC ;OP| 00000E40: 4E 49 45 55 57 2E 0D 20 20 20 20 20 20 42 43 43 |NIEUW.. BCC| 00000E50: 20 20 44 50 30 30 33 20 20 20 20 3B 0D 44 50 30 | DP003 ;.DP0| 00000E60: 30 38 20 4C 44 41 20 20 30 30 37 36 30 20 20 20 |08 LDA 00760 | 00000E70: 20 3B 41 42 20 44 45 43 4F 4E 56 2E 0D 20 20 20 | ;AB DECONV.. | 00000E80: 20 20 20 53 54 41 20 20 32 35 31 20 20 20 20 20 | STA 251 | 00000E90: 20 3B 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 | ;. LDA 00| 00000EA0: 37 36 31 20 20 20 20 3B 0D 20 20 20 20 20 20 53 |761 ;. S| 00000EB0: 54 41 20 20 32 35 32 20 20 20 20 20 20 3B 0D 20 |TA 252 ;. | 00000EC0: 20 20 20 20 20 4A 53 52 20 20 33 38 37 39 32 20 | JSR 38792 | 00000ED0: 20 20 20 3B 45 4E 20 49 4E 20 58 58 58 58 58 2E | ;EN IN XXXXX.| 00000EE0: 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 37 36 |. LDA 0076| 00000EF0: 32 20 20 20 20 3B 41 45 20 44 45 43 4F 4E 56 2E |2 ;AE DECONV.| 00000F00: 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 31 20 |. STA 251 | 00000F10: 20 20 20 20 20 3B 0D 20 20 20 20 20 20 4C 44 41 | ;. LDA| 00000F20: 20 20 30 30 37 36 33 20 20 20 20 3B 0D 20 20 20 | 00763 ;. | 00000F30: 20 20 20 53 54 41 20 20 32 35 32 20 20 20 20 20 | STA 252 | 00000F40: 20 3B 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 | ;. JSR 38| 00000F50: 38 30 34 20 20 20 20 3B 45 4E 20 49 4E 20 59 59 |804 ;EN IN YY| 00000F60: 59 59 59 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 |YYY.. LDX #| 00000F70: 30 30 32 20 20 20 20 20 20 3B 27 56 45 4C 44 20 |002 ;'VELD | 00000F80: 56 41 4E 0D 20 20 20 20 20 20 4A 53 52 20 20 33 |VAN. JSR 3| 00000F90: 38 37 31 32 20 20 20 20 3B 58 58 20 54 2F 4D 20 |8712 ;XX T/M | 00000FA0: 59 59 2E 27 0D 20 20 20 20 20 20 4A 53 52 20 20 |YY.'. JSR | 00000FB0: 33 38 34 35 33 20 20 20 20 3B 27 43 4F 4E 54 52 |38453 ;'CONTR| 00000FC0: 2E 2E 3C 46 3E 27 2E 0D 20 20 20 20 20 20 54 58 |..<F>'.. TX| 00000FD0: 41 20 20 20 20 20 20 20 20 20 20 20 3B 3C 46 3E |A ;<F>| 00000FE0: 3A 20 57 45 45 52 0D 20 20 20 20 20 20 42 4E 45 |: WEER. BNE| 00000FF0: 20 20 44 50 30 30 37 20 20 20 20 3B 42 45 47 49 | DP007 ;BEGI| 00001000: 4E 41 44 52 45 53 2E 0D 44 50 30 30 39 20 4C 44 |NADRES..DP009 LD| 00001010: 58 20 23 30 32 30 20 20 20 20 20 20 3B 27 4C 41 |X #020 ;'LA| 00001020: 42 45 4C 20 42 45 47 49 4E 2D 0D 20 20 20 20 20 |BEL BEGIN-. | 00001030: 20 4A 53 52 20 20 33 38 37 31 32 20 20 20 20 3B | JSR 38712 ;| 00001040: 20 4C 45 54 54 45 52 53 3F 27 0D 20 20 20 20 20 | LETTERS?'. | 00001050: 20 4C 44 58 20 23 30 30 32 20 20 20 20 20 20 3B | LDX #002 ;| 00001060: 41 43 43 45 50 54 0D 20 20 20 20 20 20 4A 53 52 |ACCEPT. JSR| 00001070: 20 20 33 38 31 34 34 20 20 20 20 3B 54 57 45 45 | 38144 ;TWEE| 00001080: 20 4C 45 54 54 45 52 53 2E 0D 20 20 20 20 20 20 | LETTERS.. | 00001090: 4C 44 59 20 23 30 30 30 20 20 20 20 20 20 3B 4C |LDY #000 ;L| 000010A0: 45 4E 47 54 45 20 32 3F 0D 20 20 20 20 20 20 4C |ENGTE 2?. L| 000010B0: 44 41 20 28 32 35 33 29 2C 59 20 20 20 3B 0D 20 |DA (253),Y ;. | 000010C0: 20 20 20 20 20 43 4D 50 20 23 30 30 32 20 20 20 | CMP #002 | 000010D0: 20 20 20 3B 0D 20 20 20 20 20 20 42 45 51 20 20 | ;. BEQ | 000010E0: 44 50 30 31 31 20 20 20 20 3B 4E 45 45 4E 3A 0D |DP011 ;NEEN:.| 000010F0: 44 50 31 30 39 20 4C 44 58 20 23 30 30 36 20 20 |DP109 LDX #006 | 00001100: 20 20 20 20 3B 27 46 4F 55 54 21 0D 20 20 20 20 | ;'FOUT!. | 00001110: 20 20 4A 53 52 20 20 33 38 37 31 32 20 20 20 20 | JSR 38712 | 00001120: 3B 20 4E 4F 47 20 45 45 4E 53 2E 27 0D 44 50 30 |; NOG EENS.'.DP0| 00001130: 31 30 20 4C 44 58 20 23 30 32 33 20 20 20 20 20 |10 LDX #023 | 00001140: 20 3B 4F 50 45 4E 20 52 45 47 45 4C 2E 0D 20 20 | ;OPEN REGEL.. | 00001150: 20 20 20 20 4A 53 52 20 20 33 38 37 31 32 20 20 | JSR 38712 | 00001160: 20 20 3B 0D 20 20 20 20 20 20 43 4C 43 20 20 20 | ;. CLC | 00001170: 20 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 | ;. | 00001180: 42 43 43 20 20 44 50 30 30 39 20 20 20 20 3B 0D |BCC DP009 ;.| 00001190: 44 50 30 31 31 20 49 4E 59 20 20 20 20 20 20 20 |DP011 INY | 000011A0: 20 20 20 20 3B 45 45 52 53 54 45 20 54 45 4B 45 | ;EERSTE TEKE| 000011B0: 4E 0D 20 20 20 20 20 20 4C 44 41 20 28 32 35 33 |N. LDA (253| 000011C0: 29 2C 59 20 20 20 3B 4C 45 54 54 45 52 3F 0D 20 |),Y ;LETTER?. | 000011D0: 20 20 20 20 20 43 4D 50 20 23 30 36 35 20 20 20 | CMP #065 | 000011E0: 20 20 20 3B 0D 20 20 20 20 20 20 42 43 43 20 20 | ;. BCC | 000011F0: 44 50 31 30 39 20 20 20 20 3B 3C 27 41 27 2E 0D |DP109 ;<'A'..| 00001200: 20 20 20 20 20 20 43 4D 50 20 23 30 39 31 20 20 | CMP #091 | 00001210: 20 20 20 20 3B 0D 20 20 20 20 20 20 42 43 53 20 | ;. BCS | 00001220: 20 44 50 31 30 39 20 20 20 20 3B 3C 3D 27 5A 27 | DP109 ;<='Z'| 00001230: 2E 0D 44 50 30 31 32 20 4C 44 58 20 23 30 32 31 |..DP012 LDX #021| 00001240: 20 20 20 20 20 20 3B 27 4E 41 41 52 20 41 50 50 | ;'NAAR APP| 00001250: 41 2D 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 |A-. JSR 38| 00001260: 37 31 32 20 20 20 20 3B 20 52 41 41 54 2E 2E 2E |712 ; RAAT...| 00001270: 3F 27 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 |?'. LDX #00| 00001280: 31 20 20 20 20 20 20 3B 41 43 43 45 50 54 0D 20 |1 ;ACCEPT. | 00001290: 20 20 20 20 20 4A 53 52 20 20 33 38 31 34 34 20 | JSR 38144 | 000012A0: 20 20 20 3B 45 45 4E 20 4C 45 54 54 45 52 2E 0D | ;EEN LETTER..| 000012B0: 20 20 20 20 20 20 4C 44 58 20 23 30 30 30 20 20 | LDX #000 | 000012C0: 20 20 20 20 3B 54 4F 45 53 54 45 4C 4E 55 4D 4D | ;TOESTELNUMM| 000012D0: 2E 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 31 |.. LDY #001| 000012E0: 20 20 20 20 20 20 3B 43 48 45 43 4B 2E 0D 20 20 | ;CHECK.. | 000012F0: 20 20 20 20 4C 44 41 20 28 32 35 33 29 2C 59 20 | LDA (253),Y | 00001300: 20 20 3B 0D 20 20 20 20 20 20 43 4D 50 20 23 30 | ;. CMP #0| 00001310: 38 34 20 20 20 20 20 20 3B 27 54 27 2E 0D 20 20 |84 ;'T'.. | 00001320: 20 20 20 20 42 45 51 20 44 50 30 32 30 20 20 20 | BEQ DP020 | 00001330: 20 20 3B 0D 20 20 20 20 20 20 43 4D 50 20 23 30 | ;. CMP #0| 00001340: 36 38 20 20 20 20 20 20 3B 27 44 27 2E 0D 20 20 |68 ;'D'.. | 00001350: 20 20 20 20 42 45 51 20 44 50 30 31 39 20 20 20 | BEQ DP019 | 00001360: 20 20 3B 0D 20 20 20 20 20 20 43 4D 50 20 23 30 | ;. CMP #0| 00001370: 38 30 20 20 20 20 20 20 3B 27 50 27 2E 0D 20 20 |80 ;'P'.. | 00001380: 20 20 20 20 42 45 51 20 44 50 30 31 38 20 20 20 | BEQ DP018 | 00001390: 20 20 3B 0D 20 20 20 20 20 20 43 4D 50 20 23 30 | ;. CMP #0| 000013A0: 38 33 20 20 20 20 20 20 3B 27 53 27 2E 0D 20 20 |83 ;'S'.. | 000013B0: 20 20 20 20 42 45 51 20 44 50 30 31 37 20 20 20 | BEQ DP017 | 000013C0: 20 20 3B 0D 20 20 20 20 20 20 4C 44 58 20 23 30 | ;. LDX #0| 000013D0: 30 36 20 20 20 20 20 20 3B 27 46 4F 55 54 21 0D |06 ;'FOUT!.| 000013E0: 20 20 20 20 20 20 4A 53 52 20 20 33 38 37 31 32 | JSR 38712| 000013F0: 20 20 20 20 3B 20 4E 4F 47 20 45 45 4E 53 2E 27 | ; NOG EENS.'| 00001400: 0D 20 20 20 20 20 20 4C 44 58 20 23 30 32 33 20 |. LDX #023 | 00001410: 20 20 20 20 20 3B 4F 50 45 4E 20 52 45 47 45 4C | ;OPEN REGEL| 00001420: 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 37 |.. JSR 387| 00001430: 31 32 20 20 20 20 3B 0D 20 20 20 20 20 20 43 4C |12 ;. CL| 00001440: 43 20 20 20 20 20 20 20 20 20 20 20 3B 0D 20 20 |C ;. | 00001450: 20 20 20 20 42 43 43 20 20 44 50 30 31 32 20 20 | BCC DP012 | 00001460: 20 20 3B 0D 44 50 30 31 37 20 49 4E 58 20 20 20 | ;.DP017 INX | 00001470: 20 20 20 20 20 20 20 20 3B 0D 44 50 30 31 38 20 | ;.DP018 | 00001480: 49 4E 58 20 20 20 20 20 20 20 20 20 20 20 3B 0D |INX ;.| 00001490: 44 50 30 31 39 20 49 4E 58 20 20 20 20 20 20 20 |DP019 INX | 000014A0: 20 20 20 20 3B 0D 44 50 30 32 30 20 53 54 58 20 | ;.DP020 STX | 000014B0: 20 30 30 37 35 31 20 20 20 20 3B 0D 20 20 20 20 | 00751 ;. | 000014C0: 20 20 52 54 53 20 20 20 20 20 20 20 20 20 20 20 | RTS | 000014D0: 3B 56 4F 4F 52 4C 4F 50 49 47 2E 0D 20 20 20 20 |;VOORLOPIG.. | 000014E0: 20 20 4E 4F 50 0D 20 20 20 20 20 20 2E 45 4E 44 | NOP. .END| 000014F0: 0D |. |
*=36000. LDA #000 ;SC
HERM OP. STA 53280 ;ZWART..
STA 53281 ;. LDA #155 ;T
EKENS. JSR 65490 ;GRIJS..
LDA #070 ;TOP BASIC. STA 052
;70*256=17920.. STA 056
;. LDX #002 ;ZET LU. JSR
38381 ;IN (254,253).. LDX #000
;ZET RU. JSR 38392 ;IN (17
0,169).. JSR 38426 ;(LU-RU)/6..
LDA 251 ;. STA 00752
;RM=(753,752). LDA 252 ;MAX
.AANTAL. STA 00753 ;REGELS..
LDX #004 ;ZET ZU. JSR 3838
1 ;IN (254,253).. LDX #002
;ZET LU. JSR 38392 ;IN (170,169
).. JSR 38444 ;(ZU-LU)/2..
LDA 251 ;. STA 00754 ;LM
=(755,754). LDA 252 ;MAX.AANT
AL. STA 00755 ;LABELS.. JS
R 38817 ;ADRES VOORBL.. LDX #02
3 ;NIEUWE REGEL.. JSR 38712
;. LDA 00752 ;RM DECONV..
STA 251 ;. LDA 00753 ;.
STA 252 ;. JSR 38792
;EN IN XXXXX.. LDA 00754 ;LM
DECONV.. STA 251 ;. LDA
00755 ;. STA 252 ;.
JSR 38804 ;EN IN YYYYY.. LDX #0
05 ;'MAX...REGELS. JSR 38712
;...LABELS.'. LDX #007 ;'DR
UK OP. JSR 38712 ;SPATIEBALK.'.
DP001 JSR 40095 ;TOETS ACCEPT..
LDA #032 ;SPATIEBALK?. CMP 0
02 ;. BNE DP001 ;JA:.
LDA #147 ;POETS SCHERM.. JSR
65490 ;. LDX #009 ;TITEL;'
NA ELK. JSR 38712 ;ANTW..INDRKN
.. LDX #010 ;'DEC.OF HEX?'.
JSR 38712 ;. LDA #000 ;
DC-VLAG NEER.. STA 00756 ;0=HEX
. 1=DEC.. LDX #001 ;1 TEKEN..
JSR 38144 ;ACCEPT.. LDX #0
08 ;ADRES VAN. JSR 38392 ;
WERKVELD.. LDY #001 ;NA DE LEN
GTE.. LDA (169),Y ;TEKEN.. C
MP #068 ;EEN 'D'?. BNE DP002
;JA:. INC 00756 ;DC-VLAG OP.
.DP002 LDX #024 ;OPEN REGEL..
JSR 38712 ;. LDA #000 ;(74
1,740). STA 00740 ;ADR.'VAN'.
STA 00741 ;OP 00000.. STA
00742 ;(743,742). LDA #001
;ADR.'TOT'. STA 00743 ;OP 00256
.. JSR 38253 ;'UITGEZOND.'.
LDA 40928 ;(741,740). STA 00
740 ;OP RU.. LDA 40929 ;.
STA 00741 ;. LDA 40932 ;
(743,742). STA 00742 ;OP ZU..
LDA 40933 ;. STA 00743
;. JSR 38253 ;'UITGEZOND.'.DP00
3 LDX #011 ;VRAAG BEGIN-. JSR
38182 ;ADRES.. JSR 38221 ;Z
ET GEBIEDS-. LDA 251 ;NUMMER
EN. STA 00760 ;ADRES.. LDA
252 ;. STA 00761 ;AB=(76
1,760).. STX 030 ;GEBIED GB..
LDX #013 ;VRAAG EIND-. J
SR 38182 ;ADRES.. JSR 38221
;ZET GEBIEDS-. LDA 251 ;NUMM
ER EN. STA 00762 ;ADRES..
LDA 252 ;. STA 00763 ;AE=
(763,762).. STX 031 ;GEBIED G
E.. LDX #024 ;OPEN REGEL..
JSR 38712 ;. LDA 030 ;A
B NIET IN. BEQ DP006 ;GEB. 0 OF
2.. CMP #002 ;. BEQ DP0
06 ;. LDA 031 ;AE NIET IN.
BEQ DP006 ;GEB. 0 OF 2..
CMP #002 ;. BEQ DP006 ;.
CMP 030 ;AB EN AE IN. BNE
DP006 ;ZELFDE GEB.. LDA 00763
;AE.. STA 252 ;. LDA
00762 ;. STA 251 ;.
LDA 00761 ;AB.. STA 170
;. LDA 00760 ;. STA 169
;. JSR 38780 ;AB>AE?.
BCS DP008 ;NEEN:VERDER..DP006 LDX #0
06 ;'FOUT!. JSR 38712 ;NOG
EENS.'.DP007 LDX #023 ;NIEUWE REGE
L.. JSR 38712 ;. CLC
;OPNIEUW.. BCC DP003 ;.DP0
08 LDA 00760 ;AB DECONV.. STA
251 ;. LDA 00761 ;. S
TA 252 ;. JSR 38792 ;EN I
N XXXXX.. LDA 00762 ;AE DECONV.
. STA 251 ;. LDA 00763
;. STA 252 ;. JSR 38
804 ;EN IN YYYYY.. LDX #002
;'VELD VAN. JSR 38712 ;XX T/M
YY.'. JSR 38453 ;'CONTR..<F>'..
TXA ;<F>: WEER. BNE
DP007 ;BEGINADRES..DP009 LDX #020
;'LABEL BEGIN-. JSR 38712 ;
LETTERS?'. LDX #002 ;ACCEPT.
JSR 38144 ;TWEE LETTERS..
LDY #000 ;LENGTE 2?. LDA (253)
,Y ;. CMP #002 ;. BEQ
DP011 ;NEEN:.DP109 LDX #006 ;'FO
UT!. JSR 38712 ; NOG EENS.'.DP0
10 LDX #023 ;OPEN REGEL.. JSR
38712 ;. CLC ;.
BCC DP009 ;.DP011 INY ;EER
STE TEKEN. LDA (253),Y ;LETTER?.
CMP #065 ;. BCC DP109
;<'A'.. CMP #091 ;. BCS
DP109 ;<='Z'..DP012 LDX #021 ;'
NAAR APPA-. JSR 38712 ; RAAT...
?'. LDX #001 ;ACCEPT. JSR
38144 ;EEN LETTER.. LDX #000
;TOESTELNUMM.. LDY #001 ;C
HECK.. LDA (253),Y ;. CMP #0
84 ;'T'.. BEQ DP020 ;.
CMP #068 ;'D'.. BEQ DP019
;. CMP #080 ;'P'.. BEQ
DP018 ;. CMP #083 ;'S'..
BEQ DP017 ;. LDX #006
;'FOUT!. JSR 38712 ; NOG EENS.'
. LDX #023 ;OPEN REGEL..
JSR 38712 ;. CLC ;.
BCC DP012 ;.DP017 INX
;.DP018 INX ;.DP019 INX
;.DP020 STX 00751 ;. RTS
;VOORLOPIG.. NOP. .END
.
> CLICK IMAGE PREVIEW FOR FULL MODAL