DISE00
FILE INFORMATION
FILENAME(S): DISE00
FILE TYPE(S): DEL
FILE SIZE: 3.1K
FIRST SEEN: 2025-11-30 21:27:27
APPEARS ON: 1 disk(s)
FILE HASH
336620e23f133df50b3ce704d77edc7f0b82d130c03e6ce2cb5999852c67a05d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TESTFILES | DISE00 | DEL | DuncanTwain | 12 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 2A 3D 33 35 34 35 36 | *=35456| 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 20 31 2E 0D 20 20 | ; INLOOP 1.. | 00000040: 20 20 20 20 53 54 41 20 20 35 33 32 38 31 0D 20 | STA 53281. | 00000050: 20 20 20 20 20 4C 44 41 20 23 31 35 35 0D 20 20 | LDA #155. | 00000060: 20 20 20 20 4A 53 52 20 20 36 35 34 39 30 20 3B | JSR 65490 ;| 00000070: 47 52 49 4A 53 20 4F 50 20 5A 57 41 52 54 2E 0D |GRIJS OP ZWART..| 00000080: 20 20 20 20 20 20 4C 44 58 20 23 30 30 32 20 20 | LDX #002 | 00000090: 20 3B 4C 55 3D 3E 28 32 35 34 2C 32 35 33 29 2E | ;LU=>(254,253).| 000000A0: 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 33 38 |. JSR 3838| 000000B0: 31 20 3B 52 55 3D 3E 28 31 31 30 2C 31 30 39 29 |1 ;RU=>(110,109)| 000000C0: 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 30 |.. LDX #000| 000000D0: 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 33 39 |. JSR 3839| 000000E0: 32 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 34 |2. JSR 384| 000000F0: 32 36 20 3B 52 4D 3D 28 4C 55 2D 52 55 29 2F 36 |26 ;RM=(LU-RU)/6| 00000100: 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 30 34 32 |.. LDX #042| 00000110: 20 20 20 3B 52 4D 3D 3E 28 37 35 33 2C 37 35 32 | ;RM=>(753,752| 00000120: 29 3A 0D 20 20 20 20 20 20 4A 53 52 20 20 33 37 |):. JSR 37| 00000130: 39 35 38 20 3B 4D 41 58 2E 41 41 4E 54 2E 52 45 |958 ;MAX.AANT.RE| 00000140: 47 45 4C 53 2E 0D 20 20 20 20 20 20 4C 44 58 20 |GELS.. LDX | 00000150: 23 30 30 34 20 20 20 3B 5A 55 3D 3E 28 32 35 34 |#004 ;ZU=>(254| 00000160: 2C 32 35 33 29 2E 0D 20 20 20 20 20 20 4A 53 52 |,253).. JSR| 00000170: 20 20 33 38 33 38 31 20 3B 4C 55 3D 3E 28 31 31 | 38381 ;LU=>(11| 00000180: 30 2C 31 30 39 29 2E 0D 20 20 20 20 20 20 4C 44 |0,109).. LD| 00000190: 58 20 23 30 30 32 0D 20 20 20 20 20 20 4A 53 52 |X #002. JSR| 000001A0: 20 20 33 38 33 39 32 0D 20 20 20 20 20 20 4A 53 | 38392. JS| 000001B0: 52 20 20 33 38 34 34 34 20 3B 4C 4D 3D 28 5A 55 |R 38444 ;LM=(ZU| 000001C0: 2D 4C 55 29 2F 32 2E 0D 20 20 20 20 20 20 4C 44 |-LU)/2.. LD| 000001D0: 58 20 23 30 34 34 20 20 20 3B 4C 4D 3D 3E 28 37 |X #044 ;LM=>(7| 000001E0: 35 35 2C 37 35 34 29 3A 0D 20 20 20 20 20 20 4A |55,754):. J| 000001F0: 53 52 20 20 33 37 39 35 38 20 3B 4D 41 58 2E 41 |SR 37958 ;MAX.A| 00000200: 41 4E 54 2E 4C 41 42 45 4C 53 2E 0D 20 20 20 20 |ANT.LABELS.. | 00000210: 20 20 4A 53 52 20 20 33 38 38 31 37 20 3B 41 44 | JSR 38817 ;AD| 00000220: 52 45 53 20 56 4F 4F 52 42 4C 4F 4B 2E 0D 20 20 |RES VOORBLOK.. | 00000230: 20 20 20 20 4A 53 52 20 20 33 38 34 38 38 20 3B | JSR 38488 ;| 00000240: 4F 50 45 4E 20 52 45 47 45 4C 2E 0D 20 20 20 20 |OPEN REGEL.. | 00000250: 20 20 4C 44 58 20 23 30 34 32 20 20 20 3B 52 4D | LDX #042 ;RM| 00000260: 20 44 45 43 4F 4E 56 45 52 53 49 45 0D 20 20 20 | DECONVERSIE. | 00000270: 20 20 20 4A 53 52 20 20 33 39 37 31 31 20 3B 45 | JSR 39711 ;E| 00000280: 4E 20 49 4E 20 58 58 58 58 58 2E 0D 20 20 20 20 |N IN XXXXX.. | 00000290: 20 20 4A 53 52 20 20 33 38 37 39 32 0D 20 20 20 | JSR 38792. | 000002A0: 20 20 20 4C 44 58 20 23 30 34 34 20 20 20 3B 4C | LDX #044 ;L| 000002B0: 4D 20 44 45 43 4F 4E 56 45 52 53 49 45 0D 20 20 |M DECONVERSIE. | 000002C0: 20 20 20 20 4A 53 52 20 20 33 39 37 31 31 20 3B | JSR 39711 ;| 000002D0: 45 4E 20 49 4E 20 59 59 59 59 59 2E 0D 20 20 20 |EN IN YYYYY.. | 000002E0: 20 20 20 4A 53 52 20 20 33 38 38 30 34 0D 20 20 | JSR 38804. | 000002F0: 20 20 20 20 4C 44 58 20 23 30 30 35 20 20 20 3B | LDX #005 ;| 00000300: 27 4D 41 58 2E 2E 2E 52 45 47 45 4C 53 0D 20 20 |'MAX...REGELS. | 00000310: 20 20 20 20 4A 53 52 20 20 33 38 37 31 32 20 3B | JSR 38712 ;| 00000320: 2E 2E 2E 4C 41 42 45 4C 53 2E 27 0D 20 20 20 20 |...LABELS.'. | 00000330: 20 20 4C 44 58 20 23 30 30 37 20 20 20 3B 27 44 | LDX #007 ;'D| 00000340: 52 55 4B 20 4F 50 0D 20 20 20 20 20 20 4A 53 52 |RUK OP. JSR| 00000350: 20 20 33 38 37 31 32 20 3B 53 50 41 54 49 45 42 | 38712 ;SPATIEB| 00000360: 41 4C 4B 2E 27 0D 44 50 30 30 31 20 4A 53 52 20 |ALK.'.DP001 JSR | 00000370: 20 34 30 30 39 35 20 3B 54 4F 45 54 53 20 41 43 | 40095 ;TOETS AC| 00000380: 43 45 50 54 2E 0D 20 20 20 20 20 20 43 50 58 20 |CEPT.. CPX | 00000390: 23 30 33 32 20 20 20 3B 53 50 41 54 49 45 42 41 |#032 ;SPATIEBA| 000003A0: 4C 4B 3F 0D 20 20 20 20 20 20 42 4E 45 20 20 44 |LK?. BNE D| 000003B0: 50 30 30 31 20 3B 4A 41 3A 50 4F 45 54 53 20 53 |P001 ;JA:POETS S| 000003C0: 43 48 45 52 4D 2E 0D 20 20 20 20 20 20 4C 44 41 |CHERM.. LDA| 000003D0: 20 23 31 34 37 0D 20 20 20 20 20 20 4A 53 52 20 | #147. JSR | 000003E0: 20 36 35 34 39 30 0D 20 20 20 20 20 20 4C 44 58 | 65490. LDX| 000003F0: 20 23 30 30 39 20 20 20 3B 54 49 54 45 4C 3B 27 | #009 ;TITEL;'| 00000400: 4E 41 20 45 4C 4B 0D 20 20 20 20 20 20 4A 53 52 |NA ELK. JSR| 00000410: 20 20 33 38 37 31 32 20 3B 41 4E 54 57 2E 2D 44 | 38712 ;ANTW.-D| 00000420: 52 55 4B 4B 45 4E 2E 27 0D 20 20 20 20 20 20 4C |RUKKEN.'. L| 00000430: 44 58 20 23 30 31 30 20 20 20 3B 27 44 45 43 2E |DX #010 ;'DEC.| 00000440: 4F 46 20 48 45 58 3F 27 0D 20 20 20 20 20 20 4A |OF HEX?'. J| 00000450: 53 52 20 20 33 38 37 31 32 0D 20 20 20 20 20 20 |SR 38712. | 00000460: 4C 44 41 20 23 30 30 30 20 20 20 3B 44 43 2D 56 |LDA #000 ;DC-V| 00000470: 4C 41 47 20 4E 45 45 52 2E 0D 20 20 20 20 20 20 |LAG NEER.. | 00000480: 53 54 41 20 20 30 30 37 35 36 20 3B 30 3D 48 45 |STA 00756 ;0=HE| 00000490: 58 2E 20 31 3D 44 45 43 2E 0D 20 20 20 20 20 20 |X. 1=DEC.. | 000004A0: 4C 44 58 20 23 30 30 31 20 20 20 3B 31 20 54 45 |LDX #001 ;1 TE| 000004B0: 4B 45 4E 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |KEN.. JSR | 000004C0: 33 38 31 34 34 20 3B 41 43 43 45 50 54 2E 0D 20 |38144 ;ACCEPT.. | 000004D0: 20 20 20 20 20 4C 44 59 20 23 30 30 31 20 20 20 | LDY #001 | 000004E0: 3B 4E 41 20 44 45 20 4C 45 4E 47 54 45 2E 0D 20 |;NA DE LENGTE.. | 000004F0: 20 20 20 20 20 4C 44 41 20 28 32 35 33 29 2C 59 | LDA (253),Y| 00000500: 20 20 3B 54 45 4B 45 4E 3D 27 44 27 3F 0D 20 20 | ;TEKEN='D'?. | 00000510: 20 20 20 20 43 4D 50 20 23 30 36 38 0D 20 20 20 | CMP #068. | 00000520: 20 20 20 42 4E 45 20 20 44 50 30 30 32 20 3B 4A | BNE DP002 ;J| 00000530: 41 3A 44 43 2D 56 4C 41 47 20 4F 50 2E 0D 20 20 |A:DC-VLAG OP.. | 00000540: 20 20 20 20 49 4E 43 20 20 30 30 37 35 36 0D 44 | INC 00756.D| 00000550: 50 30 30 32 20 4A 53 52 20 20 33 38 34 38 38 20 |P002 JSR 38488 | 00000560: 3B 4F 50 45 4E 20 52 45 47 45 4C 2E 0D 20 20 20 |;OPEN REGEL.. | 00000570: 20 20 20 4C 44 41 20 23 30 30 30 20 20 20 3B 28 | LDA #000 ;(| 00000580: 37 34 31 2C 37 34 30 29 0D 20 20 20 20 20 20 53 |741,740). S| 00000590: 54 41 20 20 30 30 37 34 30 20 3B 41 44 52 45 53 |TA 00740 ;ADRES| 000005A0: 20 27 56 41 4E 27 0D 20 20 20 20 20 20 53 54 41 | 'VAN'. STA| 000005B0: 20 20 30 30 37 34 31 20 3B 4F 50 20 30 30 30 30 | 00741 ;OP 0000| 000005C0: 30 2E 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 |0.. STA 00| 000005D0: 37 34 32 20 3B 28 37 34 33 2C 37 34 32 29 0D 20 |742 ;(743,742). | 000005E0: 20 20 20 20 20 4C 44 41 20 23 30 30 31 20 20 20 | LDA #001 | 000005F0: 3B 41 44 52 45 53 20 27 54 4F 54 27 0D 20 20 20 |;ADRES 'TOT'. | 00000600: 20 20 20 53 54 41 20 20 30 30 37 34 33 20 3B 4F | STA 00743 ;O| 00000610: 50 20 30 30 32 35 36 2E 0D 20 20 20 20 20 20 4A |P 00256.. J| 00000620: 53 52 20 20 33 38 32 35 33 20 3B 27 55 49 54 47 |SR 38253 ;'UITG| 00000630: 45 5A 4F 4E 44 45 52 44 27 0D 20 20 20 20 20 20 |EZONDERD'. | 00000640: 4C 44 41 20 20 34 30 39 32 38 20 3B 28 37 34 31 |LDA 40928 ;(741| 00000650: 2C 37 34 30 29 0D 20 20 20 20 20 20 53 54 41 20 |,740). STA | 00000660: 20 30 30 37 34 30 20 3B 41 44 52 45 53 20 27 56 | 00740 ;ADRES 'V| 00000670: 41 4E 27 0D 20 20 20 20 20 20 4C 44 41 20 20 34 |AN'. LDA 4| 00000680: 30 39 32 39 20 3B 4F 50 20 52 55 2E 0D 20 20 20 |0929 ;OP RU.. | 00000690: 20 20 20 53 54 41 20 20 30 30 37 34 31 0D 20 20 | STA 00741. | 000006A0: 20 20 20 20 4C 44 41 20 20 34 30 39 33 32 20 3B | LDA 40932 ;| 000006B0: 28 37 34 33 2C 37 34 32 29 0D 20 20 20 20 20 20 |(743,742). | 000006C0: 53 54 41 20 20 30 30 37 34 32 20 3B 41 44 52 45 |STA 00742 ;ADRE| 000006D0: 53 20 27 54 4F 54 27 0D 20 20 20 20 20 20 4C 44 |S 'TOT'. LD| 000006E0: 41 20 20 34 30 39 33 33 20 3B 4F 50 20 5A 55 2E |A 40933 ;OP ZU.| 000006F0: 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 37 34 |. STA 0074| 00000700: 33 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 32 |3. JSR 382| 00000710: 35 33 20 3B 27 55 49 54 47 45 5A 4F 4E 44 45 52 |53 ;'UITGEZONDER| 00000720: 44 27 0D 44 50 30 30 33 20 4C 44 58 20 23 30 31 |D'.DP003 LDX #01| 00000730: 31 20 20 20 3B 56 52 41 41 47 20 42 45 47 49 4E |1 ;VRAAG BEGIN| 00000740: 2D 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 31 |-. JSR 381| 00000750: 38 32 20 3B 41 44 52 45 53 2E 0D 20 20 20 20 20 |82 ;ADRES.. | 00000760: 20 4A 53 52 20 20 33 38 32 32 31 20 3B 5A 45 54 | JSR 38221 ;ZET| 00000770: 20 47 45 42 49 45 44 53 2D 0D 20 20 20 20 20 20 | GEBIEDS-. | 00000780: 53 54 58 20 20 30 33 30 20 20 20 3B 4E 55 4D 4D |STX 030 ;NUMM| 00000790: 45 52 20 49 4E 20 47 42 2E 0D 20 20 20 20 20 20 |ER IN GB.. | 000007A0: 4C 44 58 20 23 30 35 30 20 20 20 3B 42 45 47 49 |LDX #050 ;BEGI| 000007B0: 4E 41 44 52 45 53 0D 20 20 20 20 20 20 4A 53 52 |NADRES. JSR| 000007C0: 20 20 33 37 39 35 38 20 3B 41 42 3D 3E 28 37 36 | 37958 ;AB=>(76| 000007D0: 31 2C 37 36 30 29 2E 0D 20 20 20 20 20 20 4C 44 |1,760).. LD| 000007E0: 58 20 23 30 31 33 20 20 20 3B 56 52 41 41 47 20 |X #013 ;VRAAG | 000007F0: 45 49 4E 44 2D 0D 20 20 20 20 20 20 4A 53 52 20 |EIND-. JSR | 00000800: 20 33 38 31 38 32 20 3B 41 44 52 45 53 2E 0D 20 | 38182 ;ADRES.. | 00000810: 20 20 20 20 20 4A 53 52 20 20 33 38 32 32 31 20 | JSR 38221 | 00000820: 3B 5A 45 54 20 47 45 42 49 45 44 53 2D 0D 20 20 |;ZET GEBIEDS-. | 00000830: 20 20 20 20 53 54 58 20 20 30 33 31 20 20 20 3B | STX 031 ;| 00000840: 4E 55 4D 4D 45 52 20 49 4E 20 47 45 2E 0D 20 20 |NUMMER IN GE.. | 00000850: 20 20 20 20 4C 44 58 20 23 30 35 32 20 20 20 3B | LDX #052 ;| 00000860: 45 49 4E 44 41 44 52 45 53 0D 20 20 20 20 20 20 |EINDADRES. | 00000870: 4A 53 52 20 20 33 37 39 35 38 20 3B 41 45 3D 3E |JSR 37958 ;AE=>| 00000880: 28 37 36 33 2C 37 36 32 29 2E 0D 20 20 20 20 20 |(763,762).. | 00000890: 20 4C 44 41 20 20 30 33 30 20 20 20 3B 41 42 20 | LDA 030 ;AB | 000008A0: 4E 49 45 54 20 49 4E 0D 20 20 20 20 20 20 42 45 |NIET IN. BE| 000008B0: 51 20 20 44 50 30 30 36 20 3B 47 45 42 49 45 44 |Q DP006 ;GEBIED| 000008C0: 20 30 20 4F 46 20 32 2E 0D 20 20 20 20 20 20 43 | 0 OF 2.. C| 000008D0: 4D 50 20 23 30 30 32 0D 20 20 20 20 20 20 42 45 |MP #002. BE| 000008E0: 51 20 20 44 50 30 30 36 0D 20 20 20 20 20 20 4C |Q DP006. L| 000008F0: 44 41 20 20 30 33 31 20 20 20 3B 41 45 20 4E 49 |DA 031 ;AE NI| 00000900: 45 54 20 49 4E 0D 20 20 20 20 20 20 42 45 51 20 |ET IN. BEQ | 00000910: 20 44 50 30 30 36 20 3B 47 45 42 49 45 44 20 30 | DP006 ;GEBIED 0| 00000920: 20 4F 46 20 32 2E 0D 20 20 20 20 20 20 43 4D 50 | OF 2.. CMP| 00000930: 20 23 30 30 32 0D 20 20 20 20 20 20 42 45 51 20 | #002. BEQ | 00000940: 20 44 50 30 30 36 20 3B 41 42 20 45 4E 20 41 45 | DP006 ;AB EN AE| 00000950: 20 49 4E 0D 20 20 20 20 20 20 43 4D 50 20 20 30 | IN. CMP 0| 00000960: 33 30 20 20 20 3B 5A 45 4C 46 44 45 20 47 45 42 |30 ;ZELFDE GEB| 00000970: 49 45 44 2E 0D 20 20 20 20 20 20 42 4E 45 20 20 |IED.. BNE | 00000980: 44 50 30 30 36 0D 20 20 20 20 20 20 4C 44 58 20 |DP006. LDX | 00000990: 23 30 35 32 20 20 20 3B 41 45 3D 3E 28 32 35 32 |#052 ;AE=>(252| 000009A0: 2C 32 35 31 29 2E 0D 20 20 20 20 20 20 4A 53 52 |,251).. JSR| 000009B0: 20 20 33 39 37 31 31 0D 20 20 20 20 20 20 4C 44 | 39711. LD| 000009C0: 58 20 23 30 35 30 20 20 20 3B 41 42 3D 3E 28 31 |X #050 ;AB=>(1| 000009D0: 31 30 2C 31 30 39 29 2E 0D 20 20 20 20 20 20 4A |10,109).. J| 000009E0: 53 52 20 20 33 39 37 30 30 0D 20 20 20 20 20 20 |SR 39700. | 000009F0: 4A 53 52 20 20 33 38 37 38 30 20 3B 41 42 3E 41 |JSR 38780 ;AB>A| 00000A00: 45 3F 0D 20 20 20 20 20 20 42 43 53 20 20 44 50 |E?. BCS DP| 00000A10: 30 30 38 20 3B 4A 41 3A 27 46 4F 55 54 21 0D 44 |008 ;JA:'FOUT!.D| 00000A20: 50 30 30 36 20 4A 53 52 20 20 33 37 32 31 36 20 |P006 JSR 37216 | 00000A30: 3B 20 4E 4F 47 20 45 45 4E 53 2E 27 0D 44 50 30 |; NOG EENS.'.DP0| 00000A40: 30 37 20 4A 53 52 20 20 33 38 34 38 38 20 3B 4F |07 JSR 38488 ;O| 00000A50: 50 45 4E 20 52 45 47 45 4C 2E 0D 20 20 20 20 20 |PEN REGEL.. | 00000A60: 20 43 4C 43 20 20 20 20 20 20 20 20 3B 4F 50 4E | CLC ;OPN| 00000A70: 49 45 55 57 20 44 45 0D 20 20 20 20 20 20 42 43 |IEUW DE. BC| 00000A80: 43 20 20 44 50 30 30 33 20 3B 41 44 52 45 53 53 |C DP003 ;ADRESS| 00000A90: 45 4E 2E 0D 44 50 30 30 38 20 4C 44 58 20 23 30 |EN..DP008 LDX #0| 00000AA0: 35 30 20 20 20 3B 41 42 20 44 45 43 4F 4E 56 45 |50 ;AB DECONVE| 00000AB0: 52 53 49 45 0D 20 20 20 20 20 20 4A 53 52 20 20 |RSIE. JSR | 00000AC0: 33 39 37 31 31 20 3B 45 4E 20 49 4E 20 58 58 58 |39711 ;EN IN XXX| 00000AD0: 58 58 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 33 |XX.. JSR 3| 00000AE0: 38 37 39 32 0D 20 20 20 20 20 20 4C 44 58 20 23 |8792. LDX #| 00000AF0: 30 35 32 20 20 20 3B 41 45 20 44 45 43 4F 4E 56 |052 ;AE DECONV| 00000B00: 45 52 53 49 45 0D 20 20 20 20 20 20 4A 53 52 20 |ERSIE. JSR | 00000B10: 20 33 39 37 31 31 20 3B 45 4E 20 49 4E 20 59 59 | 39711 ;EN IN YY| 00000B20: 59 59 59 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |YYY.. JSR | 00000B30: 33 38 38 30 34 0D 20 20 20 20 20 20 4A 53 52 20 |38804. JSR | 00000B40: 20 33 38 34 38 38 20 3B 4F 50 45 4E 20 52 45 47 | 38488 ;OPEN REG| 00000B50: 45 4C 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 30 |EL.. LDX #0| 00000B60: 30 32 20 20 20 3B 27 56 45 4C 44 20 56 41 4E 0D |02 ;'VELD VAN.| 00000B70: 20 20 20 20 20 20 4A 53 52 20 20 33 38 37 31 32 | JSR 38712| 00000B80: 20 3B 20 58 58 20 54 2F 4D 20 59 59 2E 27 0D 20 | ; XX T/M YY.'. | 00000B90: 20 20 20 20 20 4A 53 52 20 20 33 38 34 35 33 20 | JSR 38453 | 00000BA0: 3B 27 43 4F 4E 54 52 2E 2E 3C 46 3E 27 2E 0D 20 |;'CONTR..<F>'.. | 00000BB0: 20 20 20 20 20 54 58 41 20 20 20 20 20 20 20 20 | TXA | 00000BC0: 3B 3C 46 3E 3A 20 57 45 45 52 0D 20 20 20 20 20 |;<F>: WEER. | 00000BD0: 20 42 4E 45 20 20 44 50 30 30 37 20 3B 41 44 52 | BNE DP007 ;ADR| 00000BE0: 45 53 53 45 4E 2E 0D 20 20 20 20 20 20 52 54 53 |ESSEN.. RTS| 00000BF0: 20 20 20 20 20 20 20 20 3B 52 45 54 55 52 4E 20 | ;RETURN | 00000C00: 56 4F 4F 52 2D 0D 20 20 20 20 20 20 4E 4F 50 20 |VOOR-. NOP | 00000C10: 20 20 20 20 20 20 20 3B 4C 4F 50 49 47 2E 0D 20 | ;LOPIG.. | 00000C20: 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E | NOP. N| 00000C30: 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 |OP. NOP. | 00000C40: 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 | NOP. NOP| 00000C50: 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 |. NOP. | 00000C60: 20 2E 45 4E 44 0D | .END. |
*=35456. LDA #000. ST
A 53280 ; INLOOP 1.. STA 53281.
LDA #155. JSR 65490 ;GRIJS OP
ZWART.. LDX #002 ;LU=>(254,253).
. JSR 38381 ;RU=>(110,109)..
LDX #000. JSR 38392. JSR 384
26 ;RM=(LU-RU)/6.. LDX #042 ;RM=>
(753,752):. JSR 37958 ;MAX.AANT.RE
GELS.. LDX #004 ;ZU=>(254,253)..
JSR 38381 ;LU=>(110,109).. LD
X #002. JSR 38392. JSR 38444
;LM=(ZU-LU)/2.. LDX #044 ;LM=>(7
55,754):. JSR 37958 ;MAX.AANT.LABE
LS.. JSR 38817 ;ADRES VOORBLOK..
JSR 38488 ;OPEN REGEL.. LDX #0
42 ;RM DECONVERSIE. JSR 39711 ;E
N IN XXXXX.. JSR 38792. LDX #
044 ;LM DECONVERSIE. JSR 39711 ;
EN IN YYYYY.. JSR 38804. LDX
#005 ;'MAX...REGELS. JSR 38712 ;
...LABELS.'. LDX #007 ;'DRUK OP.
JSR 38712 ;SPATIEBALK.'.DP001 JSR
40095 ;TOETS ACCEPT.. CPX #032 ;
SPATIEBALK?. BNE DP001 ;JA:POETS S
CHERM.. LDA #147. JSR 65490.
LDX #009 ;TITEL;'NA ELK. JSR
38712 ;ANTW.-DRUKKEN.'. LDX #010
;'DEC.OF HEX?'. JSR 38712.
LDA #000 ;DC-VLAG NEER.. STA 007
56 ;0=HEX. 1=DEC.. LDX #001 ;1 TE
KEN.. JSR 38144 ;ACCEPT.. LDY
#001 ;NA DE LENGTE.. LDA (253),Y
;TEKEN='D'?. CMP #068. BNE
DP002 ;JA:DC-VLAG OP.. INC 00756.D
P002 JSR 38488 ;OPEN REGEL.. LDA #
000 ;(741,740). STA 00740 ;ADRES
'VAN'. STA 00741 ;OP 00000..
STA 00742 ;(743,742). LDA #001
;ADRES 'TOT'. STA 00743 ;OP 00256.
. JSR 38253 ;'UITGEZONDERD'.
LDA 40928 ;(741,740). STA 00740 ;
ADRES 'VAN'. LDA 40929 ;OP RU..
STA 00741. LDA 40932 ;(743,742
). STA 00742 ;ADRES 'TOT'. LD
A 40933 ;OP ZU.. STA 00743.
JSR 38253 ;'UITGEZONDERD'.DP003 LDX #01
1 ;VRAAG BEGIN-. JSR 38182 ;ADRE
S.. JSR 38221 ;ZET GEBIEDS-.
STX 030 ;NUMMER IN GB.. LDX #050
;BEGINADRES. JSR 37958 ;AB=>(76
1,760).. LDX #013 ;VRAAG EIND-.
JSR 38182 ;ADRES.. JSR 38221
;ZET GEBIEDS-. STX 031 ;NUMMER I
N GE.. LDX #052 ;EINDADRES.
JSR 37958 ;AE=>(763,762).. LDA 03
0 ;AB NIET IN. BEQ DP006 ;GEBIED
0 OF 2.. CMP #002. BEQ DP006
. LDA 031 ;AE NIET IN. BEQ
DP006 ;GEBIED 0 OF 2.. CMP #002.
BEQ DP006 ;AB EN AE IN. CMP 0
30 ;ZELFDE GEBIED.. BNE DP006.
LDX #052 ;AE=>(252,251).. JSR
39711. LDX #050 ;AB=>(110,109).
. JSR 39700. JSR 38780 ;AB>A
E?. BCS DP008 ;JA:'FOUT!.DP006 JSR
37216 ; NOG EENS.'.DP007 JSR 38488 ;O
PEN REGEL.. CLC ;OPNIEUW DE.
BCC DP003 ;ADRESSEN..DP008 LDX #0
50 ;AB DECONVERSIE. JSR 39711 ;E
N IN XXXXX.. JSR 38792. LDX #
052 ;AE DECONVERSIE. JSR 39711 ;
EN IN YYYYY.. JSR 38804. JSR
38488 ;OPEN REGEL.. LDX #002 ;'V
ELD VAN. JSR 38712 ; XX T/M YY.'.
JSR 38453 ;'CONTR..<F>'.. TXA
;<F>: WEER. BNE DP007 ;ADR
ESSEN.. RTS ;RETURN VOOR-.
NOP ;LOPIG.. NOP. N
OP. NOP. NOP. NOP. N
OP. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL