DISN00
FILE INFORMATION
FILENAME(S): DISN00
FILE TYPE(S): SEQ
FILE SIZE: 6.1K
FIRST SEEN: 2025-11-30 21:27:07
APPEARS ON: 1 disk(s)
FILE HASH
c39ba6c78fccf7b10aa33c660fdd279aac1341e302fcb408d6898711f867453c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TESTFILES 2 | DISN00 | SEQ | DuncanTwain | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 2A 3D 33 32 37 36 38 | *=32768| 00000010: 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 30 0D |. LDA #000.| 00000020: 20 20 20 20 20 20 53 54 41 20 20 35 33 32 38 30 | STA 53280| 00000030: 20 3B 20 20 49 4E 4C 4F 4F 50 2E 0D 20 20 20 20 | ; INLOOP.. | 00000040: 20 20 53 54 41 20 20 35 33 32 38 31 0D 20 20 20 | STA 53281. | 00000050: 20 20 20 4C 44 41 20 23 31 35 35 0D 20 20 20 20 | LDA #155. | 00000060: 20 20 4A 53 52 20 20 36 35 34 39 30 20 3B 47 52 | JSR 65490 ;GR| 00000070: 49 4A 53 20 4F 50 20 5A 57 41 52 54 2E 0D 20 20 |IJS OP ZWART.. | 00000080: 20 20 20 20 4C 44 41 20 23 30 30 31 20 20 20 3B | LDA #001 ;| 00000090: 44 45 43 49 4D 41 41 4C 20 56 4F 4F 52 0D 20 20 |DECIMAAL VOOR. | 000000A0: 20 20 20 20 53 54 41 20 20 30 30 37 35 36 20 3B | STA 00756 ;| 000000B0: 44 45 20 41 41 4E 54 41 4C 4C 45 4E 2E 0D 20 20 |DE AANTALLEN.. | 000000C0: 20 20 20 20 4C 44 58 20 23 30 30 36 20 20 20 3B | LDX #006 ;| 000000D0: 52 55 2E 2E 52 56 2D 31 3A 52 45 47 45 4C 53 2E |RU..RV-1:REGELS.| 000000E0: 0D 20 20 20 20 20 20 4A 53 52 20 20 56 4C 32 41 |. JSR VL2A| 000000F0: 44 20 3B 52 56 3D 3E 28 32 35 34 2C 32 35 33 29 |D ;RV=>(254,253)| 00000100: 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 34 |.. LDX #004| 00000110: 20 20 20 3B 52 55 3D 3E 28 31 31 30 2C 31 30 39 | ;RU=>(110,109| 00000120: 29 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 56 4C |).. JSR VL| 00000130: 32 41 41 20 3B 4D 41 58 2E 41 41 4E 54 2E 52 45 |2AA ;MAX.AANT.RE| 00000140: 47 45 4C 53 3A 0D 20 20 20 20 20 20 4A 53 52 20 |GELS:. JSR | 00000150: 20 52 45 47 42 49 20 3B 52 4D 3D 28 52 56 2D 52 | REGBI ;RM=(RV-R| 00000160: 55 29 2F 36 20 49 4E 0D 20 20 20 20 20 20 20 20 |U)/6 IN. | 00000170: 20 20 20 20 20 20 20 20 20 3B 20 28 32 35 32 2C | ; (252,| 00000180: 32 35 31 29 2E 0D 20 20 20 20 20 20 4A 53 52 20 |251).. JSR | 00000190: 20 56 55 4C 58 58 20 3B 56 55 4C 20 49 4E 20 58 | VULXX ;VUL IN X| 000001A0: 58 58 58 58 2E 0D 20 20 20 20 20 20 4C 44 58 20 |XXXX.. LDX | 000001B0: 23 30 30 32 20 20 20 3B 4C 55 2E 2E 4C 56 2D 31 |#002 ;LU..LV-1| 000001C0: 3A 4C 41 42 45 4C 53 2E 0D 20 20 20 20 20 20 4A |:LABELS.. J| 000001D0: 53 52 20 20 56 4C 32 41 44 20 3B 4C 56 3D 3E 28 |SR VL2AD ;LV=>(| 000001E0: 32 35 34 2C 32 35 33 29 2E 0D 20 20 20 20 20 20 |254,253).. | 000001F0: 4C 44 58 20 23 30 30 30 20 20 20 3B 4C 55 3D 3E |LDX #000 ;LU=>| 00000200: 28 31 31 30 2C 31 30 39 29 2E 0D 20 20 20 20 20 |(110,109).. | 00000210: 20 4A 53 52 20 20 56 4C 32 41 41 20 3B 4D 41 58 | JSR VL2AA ;MAX| 00000220: 2E 41 41 4E 54 2E 4C 41 42 45 4C 53 3A 0D 20 20 |.AANT.LABELS:. | 00000230: 20 20 20 20 4A 53 52 20 20 4C 41 42 42 49 20 3B | JSR LABBI ;| 00000240: 4C 4D 3D 28 4C 56 2D 4C 55 29 2F 32 20 49 4E 0D |LM=(LV-LU)/2 IN.| 00000250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000260: 20 3B 20 28 32 35 32 2C 32 35 31 29 2E 0D 20 20 | ; (252,251).. | 00000270: 20 20 20 20 4A 53 52 20 20 56 55 4C 59 59 20 3B | JSR VULYY ;| 00000280: 56 55 4C 20 49 4E 20 59 59 59 59 59 2E 0D 20 20 |VUL IN YYYYY.. | 00000290: 20 20 20 20 4A 53 52 20 20 41 44 56 54 58 20 3B | JSR ADVTX ;| 000002A0: 41 44 52 45 53 20 56 4F 4F 52 42 4C 4F 4B 2E 0D |ADRES VOORBLOK..| 000002B0: 20 20 20 20 20 20 4A 53 52 20 20 4F 50 52 47 4C | JSR OPRGL| 000002C0: 20 3B 4F 50 45 4E 20 52 45 47 45 4C 2E 0D 20 20 | ;OPEN REGEL.. | 000002D0: 20 20 20 20 4C 44 58 20 23 30 30 35 20 20 20 3B | LDX #005 ;| 000002E0: 27 4D 41 58 2E 2E 2E 52 45 47 45 4C 53 0D 20 20 |'MAX...REGELS. | 000002F0: 20 20 20 20 4A 53 52 20 20 53 43 4E 54 58 20 3B | JSR SCNTX ;| 00000300: 2E 2E 2E 4C 41 42 45 4C 53 2E 27 0D 20 20 20 20 |...LABELS.'. | 00000310: 20 20 4C 44 58 20 23 30 30 37 20 20 20 3B 27 44 | LDX #007 ;'D| 00000320: 52 55 4B 20 4F 50 0D 20 20 20 20 20 20 4A 53 52 |RUK OP. JSR| 00000330: 20 20 53 43 4E 54 58 20 3B 53 50 41 54 49 45 42 | SCNTX ;SPATIEB| 00000340: 41 4C 4B 2E 27 0D 44 50 30 30 31 20 4A 53 52 20 |ALK.'.DP001 JSR | 00000350: 20 4B 45 59 49 4E 20 3B 54 4F 45 54 53 20 41 43 | KEYIN ;TOETS AC| 00000360: 43 45 50 54 2E 0D 20 20 20 20 20 20 43 50 58 20 |CEPT.. CPX | 00000370: 23 30 33 32 20 20 20 3B 53 50 41 54 49 45 42 41 |#032 ;SPATIEBA| 00000380: 4C 4B 3F 0D 20 20 20 20 20 20 42 4E 45 20 20 44 |LK?. BNE D| 00000390: 50 30 30 31 20 3B 4A 41 3A 50 4F 45 54 53 20 53 |P001 ;JA:POETS S| 000003A0: 43 48 45 52 4D 2E 0D 20 20 20 20 20 20 4C 44 41 |CHERM.. LDA| 000003B0: 20 23 31 34 37 0D 20 20 20 20 20 20 4A 53 52 20 | #147. JSR | 000003C0: 20 36 35 34 39 30 0D 20 20 20 20 20 20 4C 44 58 | 65490. LDX| 000003D0: 20 23 30 30 39 20 20 20 3B 54 49 54 45 4C 3B 27 | #009 ;TITEL;'| 000003E0: 4E 41 20 45 4C 4B 0D 20 20 20 20 20 20 4A 53 52 |NA ELK. JSR| 000003F0: 20 20 53 43 4E 54 58 20 3B 41 4E 54 57 2E 2D 44 | SCNTX ;ANTW.-D| 00000400: 52 55 4B 4B 45 4E 2E 27 0D 20 20 20 20 20 20 4C |RUKKEN.'. L| 00000410: 44 58 20 23 30 31 30 20 20 20 3B 27 44 45 43 2E |DX #010 ;'DEC.| 00000420: 4F 46 20 48 45 58 3F 27 0D 20 20 20 20 20 20 4A |OF HEX?'. J| 00000430: 53 52 20 20 53 43 4E 54 58 0D 20 20 20 20 20 20 |SR SCNTX. | 00000440: 4C 44 41 20 23 30 30 30 20 20 20 3B 44 43 2D 56 |LDA #000 ;DC-V| 00000450: 4C 41 47 20 4E 45 45 52 2E 0D 20 20 20 20 20 20 |LAG NEER.. | 00000460: 53 54 41 20 20 30 30 37 35 36 20 3B 30 3D 48 45 |STA 00756 ;0=HE| 00000470: 58 2E 20 31 3D 44 45 43 2E 0D 20 20 20 20 20 20 |X. 1=DEC.. | 00000480: 4C 44 58 20 23 30 30 31 20 20 20 3B 31 20 54 45 |LDX #001 ;1 TE| 00000490: 4B 45 4E 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |KEN.. JSR | 000004A0: 54 58 54 49 4E 20 3B 41 43 43 45 50 54 2E 0D 20 |TXTIN ;ACCEPT.. | 000004B0: 20 20 20 20 20 4C 44 59 20 23 30 30 31 20 20 20 | LDY #001 | 000004C0: 3B 4E 41 20 44 45 20 4C 45 4E 47 54 45 2E 0D 20 |;NA DE LENGTE.. | 000004D0: 20 20 20 20 20 4C 44 41 20 28 32 35 33 29 2C 59 | LDA (253),Y| 000004E0: 20 20 3B 54 45 4B 45 4E 3D 27 44 27 3F 0D 20 20 | ;TEKEN='D'?. | 000004F0: 20 20 20 20 43 4D 50 20 23 30 36 38 0D 20 20 20 | CMP #068. | 00000500: 20 20 20 42 4E 45 20 20 44 50 30 30 32 20 3B 4A | BNE DP002 ;J| 00000510: 41 3A 44 43 2D 56 4C 41 47 20 4F 50 2E 0D 20 20 |A:DC-VLAG OP.. | 00000520: 20 20 20 20 49 4E 43 20 20 30 30 37 35 36 0D 44 | INC 00756.D| 00000530: 50 30 30 32 20 4A 53 52 20 20 4F 50 52 47 4C 20 |P002 JSR OPRGL | 00000540: 20 20 3B 4F 50 45 4E 20 52 45 47 45 4C 2E 0D 20 | ;OPEN REGEL.. | 00000550: 20 20 20 20 20 4C 44 58 20 23 30 30 33 20 20 20 | LDX #003 | 00000560: 20 20 3B 28 37 34 31 2C 37 34 30 29 0D 20 20 20 | ;(741,740). | 00000570: 20 20 20 4C 44 41 20 23 30 30 30 20 20 20 20 20 | LDA #000 | 00000580: 3B 41 44 52 45 53 20 27 56 41 4E 27 0D 44 50 41 |;ADRES 'VAN'.DPA| 00000590: 30 32 20 53 54 41 20 20 30 30 37 34 30 2C 58 20 |02 STA 00740,X | 000005A0: 3B 4F 50 20 30 30 30 30 30 2E 0D 20 20 20 20 20 |;OP 00000.. | 000005B0: 20 44 45 58 20 20 20 20 20 20 20 20 20 20 3B 28 | DEX ;(| 000005C0: 37 34 33 2C 37 34 32 29 0D 20 20 20 20 20 20 42 |743,742). B| 000005D0: 50 4C 20 20 44 50 41 30 32 20 20 20 3B 41 44 52 |PL DPA02 ;ADR| 000005E0: 45 53 20 27 54 4F 54 27 0D 20 20 20 20 20 20 49 |ES 'TOT'. I| 000005F0: 4E 43 20 20 30 30 37 34 33 20 20 20 3B 4F 50 20 |NC 00743 ;OP | 00000600: 30 30 32 35 36 2E 0D 20 20 20 20 20 20 4A 53 52 |00256.. JSR| 00000610: 20 20 55 54 47 5A 44 20 20 20 3B 27 55 49 54 47 | UTGZD ;'UITG| 00000620: 45 5A 4F 4E 44 2E 27 0D 20 20 20 20 20 20 4C 44 |EZOND.'. LD| 00000630: 58 20 23 30 30 33 20 20 20 20 20 3B 28 37 34 31 |X #003 ;(741| 00000640: 2C 37 34 30 29 0D 44 50 42 30 32 20 4C 44 41 20 |,740).DPB02 LDA | 00000650: 20 34 30 39 32 38 2C 58 20 3B 41 44 52 45 53 20 | 40928,X ;ADRES | 00000660: 27 56 41 4E 27 0D 20 20 20 20 20 20 53 54 41 20 |'VAN'. STA | 00000670: 20 30 30 37 34 30 2C 58 20 3B 4F 50 20 52 55 2E | 00740,X ;OP RU.| 00000680: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00000690: 20 20 20 20 3B 28 37 34 33 2C 37 34 32 29 0D 20 | ;(743,742). | 000006A0: 20 20 20 20 20 44 45 58 20 20 20 20 20 20 20 20 | DEX | 000006B0: 20 20 3B 41 44 52 45 53 20 27 54 4F 54 27 0D 20 | ;ADRES 'TOT'. | 000006C0: 20 20 20 20 20 42 50 4C 20 20 44 50 42 30 32 20 | BPL DPB02 | 000006D0: 20 20 3B 4F 50 20 52 56 2E 0D 20 20 20 20 20 20 | ;OP RV.. | 000006E0: 4A 53 52 20 20 55 54 47 5A 44 20 20 20 3B 27 55 |JSR UTGZD ;'U| 000006F0: 49 54 47 45 5A 4F 4E 44 2E 27 0D 20 20 20 20 20 |ITGEZOND.'. | 00000700: 20 4C 44 58 20 23 30 30 33 20 20 20 20 20 3B 28 | LDX #003 ;(| 00000710: 37 34 31 2C 37 34 30 29 0D 44 50 42 30 33 20 4C |741,740).DPB03 L| 00000720: 44 41 20 20 34 30 39 33 32 2C 58 20 3B 41 44 52 |DA 40932,X ;ADR| 00000730: 45 53 20 27 56 41 4E 27 0D 20 20 20 20 20 20 53 |ES 'VAN'. S| 00000740: 54 41 20 20 30 30 37 34 30 2C 58 20 3B 4F 50 20 |TA 00740,X ;OP | 00000750: 4C 55 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 |LU.. | 00000760: 20 20 20 20 20 20 20 3B 28 37 34 33 2C 37 34 32 | ;(743,742| 00000770: 29 0D 20 20 20 20 20 20 44 45 58 20 20 20 20 20 |). DEX | 00000780: 20 20 20 20 20 3B 41 44 52 45 53 20 27 54 4F 54 | ;ADRES 'TOT| 00000790: 27 0D 20 20 20 20 20 20 42 50 4C 20 20 44 50 42 |'. BPL DPB| 000007A0: 30 33 20 20 20 3B 4F 50 20 4C 56 2E 0D 20 20 20 |03 ;OP LV.. | 000007B0: 20 20 20 4A 53 52 20 20 55 54 47 5A 44 20 20 20 | JSR UTGZD | 000007C0: 3B 27 55 49 54 47 45 5A 4F 4E 44 2E 27 0D 20 20 |;'UITGEZOND.'. | 000007D0: 20 20 20 20 4C 44 58 20 23 30 30 30 20 20 20 20 | LDX #000 | 000007E0: 20 3B 52 49 4A 20 41 44 52 45 53 53 45 4E 3A 0D | ;RIJ ADRESSEN:.| 000007F0: 20 20 20 20 20 20 53 54 58 20 20 30 30 37 31 30 | STX 00710| 00000800: 20 20 20 3B 41 44 28 31 29 3D 30 30 32 35 36 2E | ;AD(1)=00256.| 00000810: 0D 20 20 20 20 20 20 49 4E 58 20 20 20 20 20 20 |. INX | 00000820: 20 20 20 20 3B 41 44 28 32 29 3D 4C 55 2E 0D 20 | ;AD(2)=LU.. | 00000830: 20 20 20 20 20 53 54 58 20 20 30 30 37 31 31 20 | STX 00711 | 00000840: 20 20 3B 41 44 28 33 29 3D 4C 56 2E 0D 20 20 20 | ;AD(3)=LV.. | 00000850: 20 20 20 4C 44 58 20 23 30 30 37 20 20 20 20 20 | LDX #007 | 00000860: 3B 41 44 28 34 29 3D 52 55 2E 0D 44 50 43 30 31 |;AD(4)=RU..DPC01| 00000870: 20 4C 44 41 20 20 34 30 39 32 38 2C 58 20 3B 41 | LDA 40928,X ;A| 00000880: 44 28 35 29 3D 52 56 2E 0D 20 20 20 20 20 20 53 |D(5)=RV.. S| 00000890: 54 41 20 20 30 30 37 31 32 2C 58 20 3B 56 4F 4F |TA 00712,X ;VOO| 000008A0: 52 20 49 4E 54 45 52 2D 0D 20 20 20 20 20 20 44 |R INTER-. D| 000008B0: 45 58 20 20 20 20 20 20 20 20 20 20 3B 56 41 4C |EX ;VAL| 000008C0: 54 45 53 54 2E 0D 20 20 20 20 20 20 42 50 4C 20 |TEST.. BPL | 000008D0: 20 44 50 43 30 31 0D 44 50 30 30 33 20 4C 44 58 | DPC01.DP003 LDX| 000008E0: 20 23 30 31 31 20 20 20 20 20 3B 56 52 41 41 47 | #011 ;VRAAG| 000008F0: 20 42 45 47 49 4E 2D 0D 20 20 20 20 20 20 4A 53 | BEGIN-. JS| 00000900: 52 20 20 41 44 52 49 4E 20 20 20 3B 41 44 52 45 |R ADRIN ;ADRE| 00000910: 53 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 49 4E |S.. JSR IN| 00000920: 54 56 4C 20 20 20 3B 5A 45 54 20 47 45 42 49 45 |TVL ;ZET GEBIE| 00000930: 44 53 2D 0D 20 20 20 20 20 20 53 54 58 20 20 30 |DS-. STX 0| 00000940: 33 30 20 20 20 20 20 3B 4E 55 4D 4D 45 52 20 49 |30 ;NUMMER I| 00000950: 4E 20 47 42 2E 0D 20 20 20 20 20 20 4C 44 58 20 |N GB.. LDX | 00000960: 23 30 35 30 20 20 20 20 20 3B 42 45 47 49 4E 41 |#050 ;BEGINA| 00000970: 44 52 45 53 0D 20 20 20 20 20 20 4A 53 52 20 20 |DRES. JSR | 00000980: 42 49 56 4C 31 20 20 20 3B 41 42 3D 3E 28 37 36 |BIVL1 ;AB=>(76| 00000990: 31 2C 37 36 30 29 2E 0D 20 20 20 20 20 20 4C 44 |1,760).. LD| 000009A0: 58 20 23 30 31 33 20 20 20 20 20 3B 56 52 41 41 |X #013 ;VRAA| 000009B0: 47 20 45 49 4E 44 2D 0D 20 20 20 20 20 20 4A 53 |G EIND-. JS| 000009C0: 52 20 20 41 44 52 49 4E 20 20 20 3B 41 44 52 45 |R ADRIN ;ADRE| 000009D0: 53 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 49 4E |S.. JSR IN| 000009E0: 54 56 4C 20 20 20 3B 5A 45 54 20 47 45 42 49 45 |TVL ;ZET GEBIE| 000009F0: 44 53 2D 0D 20 20 20 20 20 20 53 54 58 20 20 30 |DS-. STX 0| 00000A00: 33 31 20 20 20 20 20 3B 4E 55 4D 4D 45 52 20 49 |31 ;NUMMER I| 00000A10: 4E 20 47 45 2E 0D 20 20 20 20 20 20 4C 44 58 20 |N GE.. LDX | 00000A20: 23 30 35 32 20 20 20 20 20 3B 45 49 4E 44 41 44 |#052 ;EINDAD| 00000A30: 52 45 53 0D 20 20 20 20 20 20 4A 53 52 20 20 42 |RES. JSR B| 00000A40: 49 56 4C 31 20 20 20 3B 41 45 3D 3E 28 37 36 33 |IVL1 ;AE=>(763| 00000A50: 2C 37 36 32 29 2E 0D 20 20 20 20 20 20 4C 44 41 |,762).. LDA| 00000A60: 20 20 30 33 30 20 20 20 20 20 3B 41 42 20 4E 49 | 030 ;AB NI| 00000A70: 45 54 20 49 4E 0D 20 20 20 20 20 20 42 45 51 20 |ET IN. BEQ | 00000A80: 20 44 50 30 30 36 20 20 20 3B 47 45 42 49 45 44 | DP006 ;GEBIED| 00000A90: 20 30 2F 32 2F 34 2E 0D 20 20 20 20 20 20 43 4D | 0/2/4.. CM| 00000AA0: 50 20 23 30 30 32 0D 20 20 20 20 20 20 42 45 51 |P #002. BEQ| 00000AB0: 20 20 44 50 30 30 36 0D 20 20 20 20 20 20 43 4D | DP006. CM| 00000AC0: 50 20 23 30 30 34 0D 20 20 20 20 20 20 42 45 51 |P #004. BEQ| 00000AD0: 20 20 44 50 30 30 36 0D 20 20 20 20 20 20 4C 44 | DP006. LD| 00000AE0: 41 20 20 30 33 31 20 20 20 20 20 3B 41 45 20 4E |A 031 ;AE N| 00000AF0: 49 45 54 20 49 4E 0D 20 20 20 20 20 20 42 45 51 |IET IN. BEQ| 00000B00: 20 20 44 50 30 30 36 20 20 20 3B 47 45 42 49 45 | DP006 ;GEBIE| 00000B10: 44 20 30 2F 32 2F 34 2E 0D 20 20 20 20 20 20 43 |D 0/2/4.. C| 00000B20: 4D 50 20 23 30 30 32 0D 20 20 20 20 20 20 42 45 |MP #002. BE| 00000B30: 51 20 20 44 50 30 30 36 0D 20 20 20 20 20 20 43 |Q DP006. C| 00000B40: 4D 50 20 23 30 30 34 0D 20 20 20 20 20 20 42 45 |MP #004. BE| 00000B50: 51 20 20 44 50 30 30 36 20 20 20 3B 41 42 20 45 |Q DP006 ;AB E| 00000B60: 4E 20 41 45 20 4E 49 45 54 0D 20 20 20 20 20 20 |N AE NIET. | 00000B70: 43 4D 50 20 20 30 33 30 20 20 20 20 20 3B 49 4E |CMP 030 ;IN| 00000B80: 20 48 45 54 5A 45 4C 46 44 45 0D 20 20 20 20 20 | HETZELFDE. | 00000B90: 20 42 4E 45 20 20 44 50 30 30 36 20 20 20 3B 47 | BNE DP006 ;G| 00000BA0: 45 42 49 45 44 2E 0D 20 20 20 20 20 20 4C 44 58 |EBIED.. LDX| 00000BB0: 20 23 30 35 32 20 20 20 20 20 3B 41 45 3D 3E 28 | #052 ;AE=>(| 00000BC0: 32 35 32 2C 32 35 31 29 2E 0D 20 20 20 20 20 20 |252,251).. | 00000BD0: 4A 53 52 20 20 56 4C 31 42 49 0D 20 20 20 20 20 |JSR VL1BI. | 00000BE0: 20 4C 44 58 20 23 30 35 30 20 20 20 20 20 3B 41 | LDX #050 ;A| 00000BF0: 42 3D 3E 28 31 31 30 2C 31 30 39 29 2E 0D 20 20 |B=>(110,109).. | 00000C00: 20 20 20 20 4A 53 52 20 20 56 4C 31 41 41 0D 20 | JSR VL1AA. | 00000C10: 20 20 20 20 20 4A 53 52 20 20 56 47 4C 41 42 20 | JSR VGLAB | 00000C20: 20 20 3B 41 42 3E 41 45 3F 0D 20 20 20 20 20 20 | ;AB>AE?. | 00000C30: 42 43 53 20 20 44 50 30 30 38 20 20 20 3B 4A 41 |BCS DP008 ;JA| 00000C40: 3A 27 46 4F 55 54 21 0D 44 50 30 30 36 20 4A 53 |:'FOUT!.DP006 JS| 00000C50: 52 20 20 46 4F 55 54 52 20 20 20 3B 20 4E 4F 47 |R FOUTR ; NOG| 00000C60: 20 45 45 4E 53 2E 27 0D 44 50 30 30 37 20 4A 53 | EENS.'.DP007 JS| 00000C70: 52 20 20 4F 50 52 47 4C 20 20 20 3B 4F 50 45 4E |R OPRGL ;OPEN| 00000C80: 20 52 45 47 45 4C 2E 0D 20 20 20 20 20 20 43 4C | REGEL.. CL| 00000C90: 43 20 20 20 20 20 20 20 20 20 20 3B 4F 50 4E 49 |C ;OPNI| 00000CA0: 45 55 57 20 44 45 0D 20 20 20 20 20 20 42 43 43 |EUW DE. BCC| 00000CB0: 20 20 44 50 30 30 33 20 20 20 3B 41 44 52 45 53 | DP003 ;ADRES| 00000CC0: 53 45 4E 2E 0D 44 50 30 30 38 20 4C 44 58 20 23 |SEN..DP008 LDX #| 00000CD0: 30 35 30 20 20 20 20 20 3B 41 42 20 44 45 43 4F |050 ;AB DECO| 00000CE0: 4E 56 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 56 |NV.. JSR V| 00000CF0: 4C 31 42 49 20 20 20 3B 45 4E 20 49 4E 20 58 58 |L1BI ;EN IN XX| 00000D00: 58 58 58 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |XXX.. JSR | 00000D10: 56 55 4C 58 58 0D 20 20 20 20 20 20 4C 44 58 20 |VULXX. LDX | 00000D20: 23 30 35 32 20 20 20 20 20 3B 41 45 20 44 45 43 |#052 ;AE DEC| 00000D30: 4F 4E 56 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |ONV.. JSR | 00000D40: 56 4C 31 42 49 20 20 20 3B 45 4E 20 49 4E 20 59 |VL1BI ;EN IN Y| 00000D50: 59 59 59 59 2E 0D 20 20 20 20 20 20 4A 53 52 20 |YYYY.. JSR | 00000D60: 20 56 55 4C 59 59 0D 20 20 20 20 20 20 4A 53 52 | VULYY. JSR| 00000D70: 20 20 4F 50 52 47 4C 20 20 20 3B 4F 50 45 4E 20 | OPRGL ;OPEN | 00000D80: 52 45 47 45 4C 2E 0D 20 20 20 20 20 20 4C 44 58 |REGEL.. LDX| 00000D90: 20 23 30 30 32 20 20 20 20 20 3B 27 56 45 4C 44 | #002 ;'VELD| 00000DA0: 20 56 41 4E 0D 20 20 20 20 20 20 4A 53 52 20 20 | VAN. JSR | 00000DB0: 53 43 4E 54 58 20 20 20 3B 20 58 58 20 54 2F 4D |SCNTX ; XX T/M| 00000DC0: 20 59 59 2E 27 0D 20 20 20 20 20 20 4C 44 58 20 | YY.'. LDX | 00000DD0: 23 30 31 30 20 20 20 20 20 3B 42 45 47 49 4E 41 |#010 ;BEGINA| 00000DE0: 44 52 45 53 0D 20 20 20 20 20 20 4A 53 52 20 20 |DRES. JSR | 00000DF0: 56 4C 32 41 44 20 20 20 3B 57 45 52 4B 56 45 4C |VL2AD ;WERKVEL| 00000E00: 44 45 4E 2E 0D 20 20 20 20 20 20 43 4C 43 20 20 |DEN.. CLC | 00000E10: 20 20 20 20 20 20 20 20 3B 54 55 53 53 45 4E 2D | ;TUSSEN-| 00000E20: 0D 20 20 20 20 20 20 42 43 43 20 20 44 50 30 30 |. BCC DP00| 00000E30: 39 20 20 20 3B 53 50 52 4F 4E 47 2E 0D 44 50 41 |9 ;SPRONG..DPA| 00000E40: 30 38 20 43 4C 43 20 20 20 20 20 20 20 20 20 20 |08 CLC | 00000E50: 3B 54 55 53 53 45 4E 2D 0D 20 20 20 20 20 20 42 |;TUSSEN-. B| 00000E60: 43 43 20 20 44 50 30 30 37 20 20 20 3B 53 50 52 |CC DP007 ;SPR| 00000E70: 4F 4E 47 2E 0D 44 50 30 30 39 20 4A 53 52 20 20 |ONG..DP009 JSR | 00000E80: 4F 50 52 47 4C 20 20 20 3B 4F 50 45 4E 20 52 45 |OPRGL ;OPEN RE| 00000E90: 47 45 4C 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 |GEL.. LDX #| 00000EA0: 30 32 30 20 20 20 20 20 3B 27 4C 41 42 45 4C 20 |020 ;'LABEL | 00000EB0: 42 45 47 49 4E 2D 0D 20 20 20 20 20 20 4A 53 52 |BEGIN-. JSR| 00000EC0: 20 20 53 43 4E 54 58 20 20 20 3B 20 4C 45 54 54 | SCNTX ; LETT| 00000ED0: 45 52 53 3F 27 0D 20 20 20 20 20 20 4C 44 58 20 |ERS?'. LDX | 00000EE0: 23 30 30 32 20 20 20 20 20 3B 41 43 43 50 54 2E |#002 ;ACCPT.| 00000EF0: 32 20 4C 45 54 54 2E 0D 20 20 20 20 20 20 4A 53 |2 LETT.. JS| 00000F00: 52 20 20 54 58 54 49 4E 0D 20 20 20 20 20 20 4C |R TXTIN. L| 00000F10: 44 59 20 23 30 30 31 20 20 20 20 20 3B 4C 45 4E |DY #001 ;LEN| 00000F20: 47 54 45 20 2D 20 31 2E 0D 20 20 20 20 20 20 4A |GTE - 1.. J| 00000F30: 53 52 20 20 41 44 4D 41 44 0D 20 20 20 20 20 20 |SR ADMAD. | 00000F40: 4C 44 41 20 28 32 35 33 29 2C 59 0D 20 20 20 20 |LDA (253),Y. | 00000F50: 20 20 43 4D 50 20 23 30 30 32 20 20 20 20 20 3B | CMP #002 ;| 00000F60: 4C 45 4E 47 54 45 3D 32 3F 0D 20 20 20 20 20 20 |LENGTE=2?. | 00000F70: 42 45 51 20 20 44 50 30 31 31 20 20 20 3B 4E 45 |BEQ DP011 ;NE| 00000F80: 45 3A 27 46 4F 55 54 21 0D 44 50 31 30 39 20 4A |E:'FOUT!.DP109 J| 00000F90: 53 52 20 20 46 4F 55 54 52 20 20 20 3B 20 4E 4F |SR FOUTR ; NO| 00000FA0: 47 20 45 45 4E 53 2E 27 0D 44 50 30 31 30 20 43 |G EENS.'.DP010 C| 00000FB0: 4C 43 20 20 20 20 20 20 20 20 20 20 3B 57 45 45 |LC ;WEE| 00000FC0: 52 20 4E 2E 4C 41 42 45 4C 0D 20 20 20 20 20 20 |R N.LABEL. | 00000FD0: 42 43 43 20 20 44 50 30 30 39 20 20 20 3B 42 45 |BCC DP009 ;BE| 00000FE0: 47 49 4E 4C 45 54 54 45 52 53 2E 0D 44 50 30 31 |GINLETTERS..DP01| 00000FF0: 31 20 49 4E 59 20 20 20 20 20 20 20 20 20 20 3B |1 INY ;| 00001000: 31 45 2F 32 45 20 45 45 4E 0D 20 20 20 20 20 20 |1E/2E EEN. | 00001010: 4C 44 41 20 28 32 35 33 29 2C 59 20 20 3B 4C 45 |LDA (253),Y ;LE| 00001020: 54 54 45 52 3F 20 4A 41 3A 0D 20 20 20 20 20 20 |TTER? JA:. | 00001030: 43 4D 50 20 23 30 36 35 20 20 20 20 20 3B 3C 27 |CMP #065 ;<'| 00001040: 41 27 3F 0D 20 20 20 20 20 20 42 43 43 20 20 44 |A'?. BCC D| 00001050: 50 31 30 39 20 20 20 3B 4E 45 45 4E 3A 46 4F 55 |P109 ;NEEN:FOU| 00001060: 54 2E 0D 20 20 20 20 20 20 43 4D 50 20 23 30 39 |T.. CMP #09| 00001070: 31 20 20 20 20 20 3B 3C 3D 27 5A 27 3F 0D 20 20 |1 ;<='Z'?. | 00001080: 20 20 20 20 42 43 53 20 20 44 50 31 30 39 20 20 | BCS DP109 | 00001090: 20 3B 4E 45 45 4E 3A 46 4F 55 54 2E 0D 20 20 20 | ;NEEN:FOUT.. | 000010A0: 20 20 20 53 54 41 20 20 30 30 37 36 35 2C 59 20 | STA 00765,Y | 000010B0: 3B 4A 41 3A 53 4C 41 20 4F 50 2E 0D 20 20 20 20 |;JA:SLA OP.. | 000010C0: 20 20 43 50 59 20 23 30 30 32 20 20 20 20 20 3B | CPY #002 ;| 000010D0: 32 20 4C 45 54 54 45 52 53 20 41 4C 3F 0D 20 20 |2 LETTERS AL?. | 000010E0: 20 20 20 20 42 43 43 20 20 44 50 30 31 31 20 20 | BCC DP011 | 000010F0: 20 3B 4E 45 45 3A 56 4F 4C 47 45 4E 44 45 2E 0D | ;NEE:VOLGENDE..| 00001100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001110: 20 20 20 3B 4C 41 42 45 4C 20 4E 55 20 49 4E 0D | ;LABEL NU IN.| 00001120: 20 20 20 20 20 20 42 43 53 20 20 44 50 32 31 32 | BCS DP212| 00001130: 20 20 20 3B 28 37 36 36 2C 37 36 37 29 2E 0D 44 | ;(766,767)..D| 00001140: 50 31 32 35 20 43 4C 43 20 20 20 20 20 20 20 20 |P125 CLC | 00001150: 20 20 3B 54 55 53 53 45 4E 2D 0D 20 20 20 20 20 | ;TUSSEN-. | 00001160: 20 42 43 43 20 20 44 50 41 30 38 20 20 20 3B 53 | BCC DPA08 ;S| 00001170: 50 52 4F 4E 47 2E 0D 44 50 32 31 32 20 4A 53 52 |PRONG..DP212 JSR| 00001180: 20 20 4F 50 52 47 4C 20 20 20 3B 4F 50 45 4E 20 | OPRGL ;OPEN | 00001190: 52 45 47 45 4C 2E 0D 44 50 30 31 32 20 4C 44 58 |REGEL..DP012 LDX| 000011A0: 20 23 30 32 31 20 20 20 20 20 3B 27 4E 41 41 52 | #021 ;'NAAR| 000011B0: 20 41 50 50 41 2D 0D 20 20 20 20 20 20 4A 53 52 | APPA-. JSR| 000011C0: 20 20 53 43 4E 54 58 20 20 20 3B 20 52 41 41 54 | SCNTX ; RAAT| 000011D0: 2E 2E 2E 2E 3F 27 0D 20 20 20 20 20 20 4C 44 58 |....?'. LDX| 000011E0: 20 23 30 30 31 20 20 20 20 20 3B 41 43 43 45 50 | #001 ;ACCEP| 000011F0: 54 45 45 52 0D 20 20 20 20 20 20 4A 53 52 20 20 |TEER. JSR | 00001200: 54 58 54 49 4E 20 20 20 3B 41 50 50 41 52 41 41 |TXTIN ;APPARAA| 00001210: 54 2D 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 |T-. LDX #00| 00001220: 30 20 20 20 20 20 3B 4C 45 54 54 45 52 2E 0D 20 |0 ;LETTER.. | 00001230: 20 20 20 20 20 4C 44 59 20 23 30 30 31 20 20 20 | LDY #001 | 00001240: 20 20 3B 43 48 45 43 4B 45 4E 2E 0D 20 20 20 20 | ;CHECKEN.. | 00001250: 20 20 4C 44 41 20 28 32 35 33 29 2C 59 0D 20 20 | LDA (253),Y. | 00001260: 20 20 20 20 43 4D 50 20 23 30 38 33 20 20 20 20 | CMP #083 | 00001270: 20 3B 27 53 27 3F 20 30 3D 53 43 48 45 52 4D 2E | ;'S'? 0=SCHERM.| 00001280: 0D 20 20 20 20 20 20 42 45 51 20 20 44 50 30 32 |. BEQ DP02| 00001290: 30 0D 20 20 20 20 20 20 43 4D 50 20 23 30 38 34 |0. CMP #084| 000012A0: 20 20 20 20 20 3B 27 54 27 3F 20 31 3D 54 41 50 | ;'T'? 1=TAP| 000012B0: 45 2E 0D 20 20 20 20 20 20 42 45 51 20 20 44 50 |E.. BEQ DP| 000012C0: 30 31 39 0D 20 20 20 20 20 20 43 4D 50 20 23 30 |019. CMP #0| 000012D0: 36 38 20 20 20 20 20 3B 27 44 27 3F 20 32 3D 44 |68 ;'D'? 2=D| 000012E0: 49 53 4B 2E 0D 20 20 20 20 20 20 42 45 51 20 20 |ISK.. BEQ | 000012F0: 44 50 30 31 38 0D 20 20 20 20 20 20 43 4D 50 20 |DP018. CMP | 00001300: 23 30 38 30 20 20 20 20 20 3B 27 50 27 3F 20 33 |#080 ;'P'? 3| 00001310: 3D 50 52 49 4E 54 2E 0D 20 20 20 20 20 20 42 45 |=PRINT.. BE| 00001320: 51 20 20 44 50 30 31 37 0D 20 20 20 20 20 20 4A |Q DP017. J| 00001330: 53 52 20 20 46 4F 55 54 52 20 20 20 3B 41 4E 44 |SR FOUTR ;AND| 00001340: 45 52 53 3A 27 46 4F 55 54 21 0D 20 20 20 20 20 |ERS:'FOUT!. | 00001350: 20 43 4C 43 20 20 20 20 20 20 20 20 20 20 3B 20 | CLC ; | 00001360: 4E 4F 47 20 45 45 4E 53 2E 27 0D 20 20 20 20 20 |NOG EENS.'. | 00001370: 20 42 43 43 20 20 44 50 32 31 32 20 20 20 3B 4F | BCC DP212 ;O| 00001380: 50 45 4E 20 52 45 47 45 4C 2E 0D 44 50 30 31 37 |PEN REGEL..DP017| 00001390: 20 49 4E 58 20 20 20 20 20 20 20 20 20 20 3B 33 | INX ;3| 000013A0: 20 3D 20 50 52 49 4E 54 45 52 2E 0D 44 50 30 31 | = PRINTER..DP01| 000013B0: 38 20 49 4E 58 20 20 20 20 20 20 20 20 20 20 3B |8 INX ;| 000013C0: 32 20 3D 20 44 49 53 4B 2E 0D 44 50 30 31 39 20 |2 = DISK..DP019 | 000013D0: 49 4E 58 20 20 20 20 20 20 20 20 20 20 3B 31 20 |INX ;1 | 000013E0: 3D 20 54 41 50 45 2E 0D 20 20 20 20 20 20 20 20 |= TAPE.. | 000013F0: 20 20 20 20 20 20 20 20 20 20 20 3B 30 20 3D 20 | ;0 = | 00001400: 53 43 48 45 52 4D 2E 0D 44 50 30 32 30 20 53 54 |SCHERM..DP020 ST| 00001410: 58 20 20 30 30 37 35 31 20 20 20 3B 20 20 3D 3E |X 00751 ; =>| 00001420: 20 55 56 3D 28 37 35 31 29 2E 0D 20 20 20 20 20 | UV=(751).. | 00001430: 20 4C 44 58 20 23 30 31 32 20 20 20 20 20 3B 4E | LDX #012 ;N| 00001440: 41 41 4D 56 2E 42 45 47 2E 41 44 52 2E 0D 20 20 |AAMV.BEG.ADR.. | 00001450: 20 20 20 20 4A 53 52 20 20 56 4C 32 41 41 20 20 | JSR VL2AA | 00001460: 20 3B 49 4E 20 28 31 31 30 2C 31 30 39 29 2E 0D | ;IN (110,109)..| 00001470: 20 20 20 20 20 20 4C 44 41 20 20 30 30 37 35 31 | LDA 00751| 00001480: 0D 20 20 20 20 20 20 43 4D 50 20 23 30 30 31 20 |. CMP #001 | 00001490: 20 20 20 20 3B 31 3D 54 41 50 45 3F 0D 20 20 20 | ;1=TAPE?. | 000014A0: 20 20 20 42 45 51 20 20 44 50 30 33 30 0D 20 20 | BEQ DP030. | 000014B0: 20 20 20 20 43 4D 50 20 23 30 30 32 20 20 20 20 | CMP #002 | 000014C0: 20 3B 32 3D 44 49 53 4B 3F 0D 20 20 20 20 20 20 | ;2=DISK?. | 000014D0: 42 4E 45 20 20 44 50 30 33 34 20 20 20 3B 54 41 |BNE DP034 ;TA| 000014E0: 50 45 20 4F 46 20 44 49 53 4B 3A 0D 44 50 30 33 |PE OF DISK:.DP03| 000014F0: 30 20 4A 53 52 20 20 4F 50 52 47 4C 20 20 20 3B |0 JSR OPRGL ;| 00001500: 4F 50 45 4E 20 52 45 47 45 4C 2E 0D 20 20 20 20 |OPEN REGEL.. | 00001510: 20 20 4C 44 58 20 23 30 32 32 20 20 20 20 20 3B | LDX #022 ;| 00001520: 27 4E 41 41 4D 20 55 49 54 47 2E 2D 0D 20 20 20 |'NAAM UITG.-. | 00001530: 20 20 20 4A 53 52 20 20 53 43 4E 54 58 20 20 20 | JSR SCNTX | 00001540: 3B 42 45 53 54 41 4E 44 3F 27 0D 20 20 20 20 20 |;BESTAND?'. | 00001550: 20 4C 44 58 20 23 30 31 36 20 20 20 20 20 3B 41 | LDX #016 ;A| 00001560: 43 43 45 50 54 45 45 52 0D 20 20 20 20 20 20 4A |CCEPTEER. J| 00001570: 53 52 20 20 54 58 54 49 4E 20 20 20 3B 48 4F 4F |SR TXTIN ;HOO| 00001580: 47 53 54 45 4E 53 0D 20 20 20 20 20 20 20 20 20 |GSTENS. | 00001590: 20 20 20 20 20 20 20 20 20 20 3B 31 36 20 54 45 | ;16 TE| 000015A0: 4B 45 4E 53 2E 0D 20 20 20 20 20 20 4C 44 59 20 |KENS.. LDY | 000015B0: 23 30 30 31 20 20 20 20 20 3B 4C 45 4E 47 54 45 |#001 ;LENGTE| 000015C0: 20 2D 20 31 2E 0D 20 20 20 20 20 20 4A 53 52 20 | - 1.. JSR | 000015D0: 20 41 44 4D 41 44 0D 20 20 20 20 20 20 4C 44 41 | ADMAD. LDA| 000015E0: 20 28 32 35 33 29 2C 59 20 20 3B 41 41 4E 54 41 | (253),Y ;AANTA| 000015F0: 4C 20 45 45 52 53 54 2E 0D 20 20 20 20 20 20 53 |L EERST.. S| 00001600: 54 41 20 28 31 30 39 29 2C 59 20 20 3B 49 53 20 |TA (109),Y ;IS | 00001610: 44 41 54 20 31 36 0D 20 20 20 20 20 20 42 45 51 |DAT 16. BEQ| 00001620: 20 20 44 50 30 33 31 20 20 20 3B 4F 46 20 4D 49 | DP031 ;OF MI| 00001630: 4E 44 45 52 3F 0D 20 20 20 20 20 20 43 4D 50 20 |NDER?. CMP | 00001640: 23 30 31 36 0D 20 20 20 20 20 20 42 43 43 20 20 |#016. BCC | 00001650: 44 50 30 33 32 0D 20 20 20 20 20 20 42 45 51 20 |DP032. BEQ | 00001660: 20 44 50 30 33 32 20 20 20 3B 5A 4F 20 4E 45 45 | DP032 ;ZO NEE| 00001670: 4E 3A 0D 44 50 30 33 31 20 4A 53 52 20 20 46 4F |N:.DP031 JSR FO| 00001680: 55 54 52 20 20 20 3B 27 46 4F 55 54 21 27 0D 20 |UTR ;'FOUT!'. | 00001690: 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 42 | CLC. B| 000016A0: 43 43 20 20 44 50 30 33 30 0D 44 50 30 33 32 20 |CC DP030.DP032 | 000016B0: 54 41 58 20 20 20 20 20 20 20 20 20 20 3B 4C 45 |TAX ;LE| 000016C0: 4E 47 54 45 20 2D 20 31 0D 20 20 20 20 20 20 44 |NGTE - 1. D| 000016D0: 45 58 20 20 20 20 20 20 20 20 20 20 3B 59 20 4F |EX ;Y O| 000016E0: 50 20 45 45 52 53 54 45 2E 0D 44 50 30 33 33 20 |P EERSTE..DP033 | 000016F0: 49 4E 59 20 20 20 20 20 20 20 20 20 20 3B 4E 4F |INY ;NO| 00001700: 47 4D 41 41 4C 53 2E 0D 20 20 20 20 20 20 4C 44 |GMAALS.. LD| 00001710: 41 20 28 32 35 33 29 2C 59 20 20 3B 54 52 41 4E |A (253),Y ;TRAN| 00001720: 53 50 4F 52 54 2E 0D 20 20 20 20 20 20 53 54 41 |SPORT.. STA| 00001730: 20 28 31 30 39 29 2C 59 0D 20 20 20 20 20 20 44 | (109),Y. D| 00001740: 45 58 0D 20 20 20 20 20 20 42 50 4C 20 20 44 50 |EX. BPL DP| 00001750: 30 33 33 0D 44 50 30 33 34 20 4A 53 52 20 20 4F |033.DP034 JSR O| 00001760: 50 52 47 4C 20 20 20 3B 4F 50 45 4E 20 52 45 47 |PRGL ;OPEN REG| 00001770: 45 4C 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 43 |EL.. JSR C| 00001780: 48 45 43 4B 20 20 20 3B 27 43 4F 4E 54 52 4F 4C |HECK ;'CONTROL| 00001790: 45 2E 2E 27 2E 0D 20 20 20 20 20 20 43 50 58 20 |E..'.. CPX | 000017A0: 23 30 30 31 20 20 20 20 20 3B 27 46 27 3A 54 45 |#001 ;'F':TE| 000017B0: 52 55 47 2E 0D 20 20 20 20 20 20 42 45 51 20 20 |RUG.. BEQ | 000017C0: 44 50 31 32 35 0D 20 20 20 20 20 20 52 54 53 0D |DP125. RTS.| 000017D0: 20 20 20 20 20 20 2E 42 59 54 45 20 32 35 35 2C | .BYTE 255,| 000017E0: 32 35 35 2C 32 35 35 0D 20 20 20 20 20 20 2E 42 |255,255. .B| 000017F0: 59 54 45 20 32 35 35 2C 32 35 35 2C 32 35 35 0D |YTE 255,255,255.| 00001800: 20 20 20 20 20 20 2E 42 59 54 45 20 32 35 35 2C | .BYTE 255,| 00001810: 32 35 35 2C 32 35 35 0D 20 20 20 20 20 20 2E 4C |255,255. .L| 00001820: 49 42 20 20 44 49 4C 4E 30 30 0D 20 20 20 20 20 |IB DILN00. | 00001830: 20 2E 45 4E 44 0D | .END. |
*=32768. LDA #000. ST
A 53280 ; INLOOP.. STA 53281.
LDA #155. JSR 65490 ;GRIJS OP Z
WART.. LDA #001 ;DECIMAAL VOOR.
STA 00756 ;DE AANTALLEN.. LDX
#006 ;RU..RV-1:REGELS.. JSR VL2A
D ;RV=>(254,253).. LDX #004 ;RU=>
(110,109).. JSR VL2AA ;MAX.AANT.RE
GELS:. JSR REGBI ;RM=(RV-RU)/6 IN.
; (252,251).. JSR
VULXX ;VUL IN XXXXX.. LDX #002 ;
LU..LV-1:LABELS.. JSR VL2AD ;LV=>(
254,253).. LDX #000 ;LU=>(110,109
).. JSR VL2AA ;MAX.AANT.LABELS:.
JSR LABBI ;LM=(LV-LU)/2 IN.
; (252,251).. JSR VULYY ;
VUL IN YYYYY.. JSR ADVTX ;ADRES VO
ORBLOK.. JSR OPRGL ;OPEN REGEL..
LDX #005 ;'MAX...REGELS. JSR
SCNTX ;...LABELS.'. LDX #007 ;'D
RUK OP. JSR SCNTX ;SPATIEBALK.'.DP
001 JSR KEYIN ;TOETS ACCEPT.. CPX
#032 ;SPATIEBALK?. BNE DP001 ;JA
:POETS SCHERM.. LDA #147. JSR
65490. LDX #009 ;TITEL;'NA ELK.
JSR SCNTX ;ANTW.-DRUKKEN.'. L
DX #010 ;'DEC.OF HEX?'. JSR SCNT
X. LDA #000 ;DC-VLAG NEER..
STA 00756 ;0=HEX. 1=DEC.. LDX #001
;1 TEKEN.. JSR TXTIN ;ACCEPT..
LDY #001 ;NA DE LENGTE.. LDA
(253),Y ;TEKEN='D'?. CMP #068.
BNE DP002 ;JA:DC-VLAG OP.. INC
00756.DP002 JSR OPRGL ;OPEN REGEL..
LDX #003 ;(741,740). LDA #
000 ;ADRES 'VAN'.DPA02 STA 00740,X
;OP 00000.. DEX ;(743,742)
. BPL DPA02 ;ADRES 'TOT'. I
NC 00743 ;OP 00256.. JSR UTGZD
;'UITGEZOND.'. LDX #003 ;(741
,740).DPB02 LDA 40928,X ;ADRES 'VAN'.
STA 00740,X ;OP RU..
;(743,742). DEX ;ADRES
'TOT'. BPL DPB02 ;OP RV..
JSR UTGZD ;'UITGEZOND.'. LDX #00
3 ;(741,740).DPB03 LDA 40932,X ;ADR
ES 'VAN'. STA 00740,X ;OP LU..
;(743,742). DEX
;ADRES 'TOT'. BPL DPB03 ;OP
LV.. JSR UTGZD ;'UITGEZOND.'.
LDX #000 ;RIJ ADRESSEN:. ST
X 00710 ;AD(1)=00256.. INX
;AD(2)=LU.. STX 00711 ;AD(3)
=LV.. LDX #007 ;AD(4)=RU..DPC01
LDA 40928,X ;AD(5)=RV.. STA 0071
2,X ;VOOR INTER-. DEX ;VAL
TEST.. BPL DPC01.DP003 LDX #011
;VRAAG BEGIN-. JSR ADRIN ;ADRE
S.. JSR INTVL ;ZET GEBIEDS-.
STX 030 ;NUMMER IN GB.. LDX
#050 ;BEGINADRES. JSR BIVL1
;AB=>(761,760).. LDX #013 ;VRAA
G EIND-. JSR ADRIN ;ADRES..
JSR INTVL ;ZET GEBIEDS-. STX 0
31 ;NUMMER IN GE.. LDX #052
;EINDADRES. JSR BIVL1 ;AE=>(763
,762).. LDA 030 ;AB NIET IN.
BEQ DP006 ;GEBIED 0/2/4.. CM
P #002. BEQ DP006. CMP #004.
BEQ DP006. LDA 031 ;AE N
IET IN. BEQ DP006 ;GEBIED 0/2/4.
. CMP #002. BEQ DP006. C
MP #004. BEQ DP006 ;AB EN AE NIE
T. CMP 030 ;IN HETZELFDE.
BNE DP006 ;GEBIED.. LDX #052
;AE=>(252,251).. JSR VL1BI.
LDX #050 ;AB=>(110,109).. JSR
VL1AA. JSR VGLAB ;AB>AE?.
BCS DP008 ;JA:'FOUT!.DP006 JSR FOUTR
; NOG EENS.'.DP007 JSR OPRGL ;OPEN
REGEL.. CLC ;OPNIEUW DE.
BCC DP003 ;ADRESSEN..DP008 LDX #
050 ;AB DECONV.. JSR VL1BI ;
EN IN XXXXX.. JSR VULXX. LDX
#052 ;AE DECONV.. JSR VL1BI
;EN IN YYYYY.. JSR VULYY. JSR
OPRGL ;OPEN REGEL.. LDX #002
;'VELD VAN. JSR SCNTX ; XX T/M
YY.'. LDX #010 ;BEGINADRES.
JSR VL2AD ;WERKVELDEN.. CLC
;TUSSEN-. BCC DP009 ;SPR
ONG..DPA08 CLC ;TUSSEN-. B
CC DP007 ;SPRONG..DP009 JSR OPRGL
;OPEN REGEL.. LDX #020 ;'LABEL
BEGIN-. JSR SCNTX ; LETTERS?'.
LDX #002 ;ACCPT.2 LETT.. JS
R TXTIN. LDY #001 ;LENGTE - 1.
. JSR ADMAD. LDA (253),Y.
CMP #002 ;LENGTE=2?. BEQ DP0
11 ;NEE:'FOUT!.DP109 JSR FOUTR ; NO
G EENS.'.DP010 CLC ;WEER N.LABE
L. BCC DP009 ;BEGINLETTERS..DP01
1 INY ;1E/2E EEN. LDA (253
),Y ;LETTER? JA:. CMP #065 ;<'
A'?. BCC DP109 ;NEEN:FOUT..
CMP #091 ;<='Z'?. BCS DP109
;NEEN:FOUT.. STA 00765,Y ;JA:SLA
OP.. CPY #002 ;2 LETTERS AL?.
BCC DP011 ;NEE:VOLGENDE..
;LABEL NU IN. BCS DP212
;(766,767)..DP125 CLC ;TUSSE
N-. BCC DPA08 ;SPRONG..DP212 JSR
OPRGL ;OPEN REGEL..DP012 LDX #021
;'NAAR APPA-. JSR SCNTX ; RAAT
....?'. LDX #001 ;ACCEPTEER.
JSR TXTIN ;APPARAAT-. LDX #00
0 ;LETTER.. LDY #001 ;CHECK
EN.. LDA (253),Y. CMP #083
;'S'? 0=SCHERM.. BEQ DP020.
CMP #084 ;'T'? 1=TAPE.. BEQ DP
019. CMP #068 ;'D'? 2=DISK..
BEQ DP018. CMP #080 ;'P'? 3
=PRINT.. BEQ DP017. JSR FOUT
R ;ANDERS:'FOUT!. CLC ;
NOG EENS.'. BCC DP212 ;OPEN REGE
L..DP017 INX ;3 = PRINTER..DP01
8 INX ;2 = DISK..DP019 INX
;1 = TAPE.. ;0 =
SCHERM..DP020 STX 00751 ; => UV=(751
).. LDX #012 ;NAAMV.BEG.ADR..
JSR VL2AA ;IN (110,109).. LD
A 00751. CMP #001 ;1=TAPE?.
BEQ DP030. CMP #002 ;2=DISK
?. BNE DP034 ;TAPE OF DISK:.DP03
0 JSR OPRGL ;OPEN REGEL.. LDX #0
22 ;'NAAM UITG.-. JSR SCNTX
;BESTAND?'. LDX #016 ;ACCEPTEER
. JSR TXTIN ;HOOGSTENS.
;16 TEKENS.. LDY #001
;LENGTE - 1.. JSR ADMAD. LDA
(253),Y ;AANTAL EERST.. STA (109)
,Y ;IS DAT 16. BEQ DP031 ;OF MI
NDER?. CMP #016. BCC DP032.
BEQ DP032 ;ZO NEEN:.DP031 JSR FO
UTR ;'FOUT!'. CLC. BCC DP03
0.DP032 TAX ;LENGTE - 1. D
EX ;Y OP EERSTE..DP033 INY
;NOGMAALS.. LDA (253),Y ;TRAN
SPORT.. STA (109),Y. DEX.
BPL DP033.DP034 JSR OPRGL ;OPEN REG
EL.. JSR CHECK ;'CONTROLE..'..
CPX #001 ;'F':TERUG.. BEQ
DP125. RTS. .BYTE 255,255,255.
.BYTE 255,255,255. .BYTE 255,
255,255. .LIB DILN00. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL