DISA00
FILE INFORMATION
FILENAME(S): DISA00
FILE TYPE(S): SEQ
FILE SIZE: 5.6K
FIRST SEEN: 2025-11-30 21:27:27
APPEARS ON: 1 disk(s)
FILE HASH
028fc6b5ae1d1c32ad40915d80edb9037e97764e09830f8e4836c4f191822555
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TESTFILES | DISA00 | SEQ | DuncanTwain | 23 | 4 | 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 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 58 20 23 30 30 32 20 20 20 3B | LDX #002 ;| 00000090: 4C 55 3D 3E 28 32 35 34 2C 32 35 33 29 2E 0D 20 |LU=>(254,253).. | 000000A0: 20 20 20 20 20 4A 53 52 20 20 33 38 33 38 31 20 | JSR 38381 | 000000B0: 3B 52 55 3D 3E 28 31 31 30 2C 31 30 39 29 2E 0D |;RU=>(110,109)..| 000000C0: 20 20 20 20 20 20 4C 44 58 20 23 30 30 30 0D 20 | LDX #000. | 000000D0: 20 20 20 20 20 4A 53 52 20 20 33 38 33 39 32 0D | JSR 38392.| 000000E0: 20 20 20 20 20 20 4A 53 52 20 20 33 38 34 32 36 | JSR 38426| 000000F0: 20 3B 52 4D 3D 28 4C 55 2D 52 55 29 2F 36 2E 0D | ;RM=(LU-RU)/6..| 00000100: 20 20 20 20 20 20 4C 44 58 20 23 30 34 32 20 20 | LDX #042 | 00000110: 20 3B 52 4D 3D 3E 28 37 35 33 2C 37 35 32 29 3A | ;RM=>(753,752):| 00000120: 0D 20 20 20 20 20 20 4A 53 52 20 20 33 37 39 35 |. JSR 3795| 00000130: 38 20 3B 4D 41 58 2E 41 41 4E 54 2E 52 45 47 45 |8 ;MAX.AANT.REGE| 00000140: 4C 53 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 30 |LS.. LDX #0| 00000150: 30 34 20 20 20 3B 5A 55 3D 3E 28 32 35 34 2C 32 |04 ;ZU=>(254,2| 00000160: 35 33 29 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |53).. JSR | 00000170: 33 38 33 38 31 20 3B 4C 55 3D 3E 28 31 31 30 2C |38381 ;LU=>(110,| 00000180: 31 30 39 29 2E 0D 20 20 20 20 20 20 4C 44 58 20 |109).. LDX | 00000190: 23 30 30 32 0D 20 20 20 20 20 20 4A 53 52 20 20 |#002. JSR | 000001A0: 33 38 33 39 32 0D 20 20 20 20 20 20 4A 53 52 20 |38392. JSR | 000001B0: 20 33 38 34 34 34 20 3B 4C 4D 3D 28 5A 55 2D 4C | 38444 ;LM=(ZU-L| 000001C0: 55 29 2F 32 2E 0D 20 20 20 20 20 20 4C 44 41 20 |U)/2.. LDA | 000001D0: 23 30 30 31 20 20 20 3B 44 45 43 49 4D 41 41 4C |#001 ;DECIMAAL| 000001E0: 20 56 4F 4F 52 0D 20 20 20 20 20 20 53 54 41 20 | VOOR. STA | 000001F0: 20 30 30 37 35 36 20 3B 44 45 20 41 41 4E 54 41 | 00756 ;DE AANTA| 00000200: 4C 4C 45 4E 2E 0D 20 20 20 20 20 20 4C 44 58 20 |LLEN.. LDX | 00000210: 23 30 34 34 20 20 20 3B 4C 4D 3D 3E 28 37 35 35 |#044 ;LM=>(755| 00000220: 2C 37 35 34 29 3A 0D 20 20 20 20 20 20 4A 53 52 |,754):. JSR| 00000230: 20 20 33 37 39 35 38 20 3B 4D 41 58 2E 41 41 4E | 37958 ;MAX.AAN| 00000240: 54 2E 4C 41 42 45 4C 53 2E 0D 20 20 20 20 20 20 |T.LABELS.. | 00000250: 4A 53 52 20 20 33 38 38 31 37 20 3B 41 44 52 45 |JSR 38817 ;ADRE| 00000260: 53 20 56 4F 4F 52 42 4C 4F 4B 2E 0D 20 20 20 20 |S VOORBLOK.. | 00000270: 20 20 4A 53 52 20 20 33 38 34 38 38 20 3B 4F 50 | JSR 38488 ;OP| 00000280: 45 4E 20 52 45 47 45 4C 2E 0D 20 20 20 20 20 20 |EN REGEL.. | 00000290: 4C 44 58 20 23 30 34 32 20 20 20 3B 52 4D 20 44 |LDX #042 ;RM D| 000002A0: 45 43 4F 4E 56 45 52 53 49 45 0D 20 20 20 20 20 |ECONVERSIE. | 000002B0: 20 4A 53 52 20 20 33 39 37 31 31 20 3B 45 4E 20 | JSR 39711 ;EN | 000002C0: 49 4E 20 58 58 58 58 58 2E 0D 20 20 20 20 20 20 |IN XXXXX.. | 000002D0: 4A 53 52 20 20 33 38 37 39 32 0D 20 20 20 20 20 |JSR 38792. | 000002E0: 20 4C 44 58 20 23 30 34 34 20 20 20 3B 4C 4D 20 | LDX #044 ;LM | 000002F0: 44 45 43 4F 4E 56 45 52 53 49 45 0D 20 20 20 20 |DECONVERSIE. | 00000300: 20 20 4A 53 52 20 20 33 39 37 31 31 20 3B 45 4E | JSR 39711 ;EN| 00000310: 20 49 4E 20 59 59 59 59 59 2E 0D 20 20 20 20 20 | IN YYYYY.. | 00000320: 20 4A 53 52 20 20 33 38 38 30 34 0D 20 20 20 20 | JSR 38804. | 00000330: 20 20 4C 44 58 20 23 30 30 35 20 20 20 3B 27 4D | LDX #005 ;'M| 00000340: 41 58 2E 2E 2E 52 45 47 45 4C 53 0D 20 20 20 20 |AX...REGELS. | 00000350: 20 20 4A 53 52 20 20 33 38 37 31 32 20 3B 2E 2E | JSR 38712 ;..| 00000360: 2E 4C 41 42 45 4C 53 2E 27 0D 20 20 20 20 20 20 |.LABELS.'. | 00000370: 4C 44 58 20 23 30 30 37 20 20 20 3B 27 44 52 55 |LDX #007 ;'DRU| 00000380: 4B 20 4F 50 0D 20 20 20 20 20 20 4A 53 52 20 20 |K OP. JSR | 00000390: 33 38 37 31 32 20 3B 53 50 41 54 49 45 42 41 4C |38712 ;SPATIEBAL| 000003A0: 4B 2E 27 0D 44 50 30 30 31 20 4A 53 52 20 20 34 |K.'.DP001 JSR 4| 000003B0: 30 30 39 35 20 3B 54 4F 45 54 53 20 41 43 43 45 |0095 ;TOETS ACCE| 000003C0: 50 54 2E 0D 20 20 20 20 20 20 43 50 58 20 23 30 |PT.. CPX #0| 000003D0: 33 32 20 20 20 3B 53 50 41 54 49 45 42 41 4C 4B |32 ;SPATIEBALK| 000003E0: 3F 0D 20 20 20 20 20 20 42 4E 45 20 20 44 50 30 |?. BNE DP0| 000003F0: 30 31 20 3B 4A 41 3A 50 4F 45 54 53 20 53 43 48 |01 ;JA:POETS SCH| 00000400: 45 52 4D 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 |ERM.. LDA #| 00000410: 31 34 37 0D 20 20 20 20 20 20 4A 53 52 20 20 36 |147. JSR 6| 00000420: 35 34 39 30 0D 20 20 20 20 20 20 4C 44 58 20 23 |5490. LDX #| 00000430: 30 30 39 20 20 20 3B 54 49 54 45 4C 3B 27 4E 41 |009 ;TITEL;'NA| 00000440: 20 45 4C 4B 0D 20 20 20 20 20 20 4A 53 52 20 20 | ELK. JSR | 00000450: 33 38 37 31 32 20 3B 41 4E 54 57 2E 2D 44 52 55 |38712 ;ANTW.-DRU| 00000460: 4B 4B 45 4E 2E 27 0D 20 20 20 20 20 20 4C 44 58 |KKEN.'. LDX| 00000470: 20 23 30 31 30 20 20 20 3B 27 44 45 43 2E 4F 46 | #010 ;'DEC.OF| 00000480: 20 48 45 58 3F 27 0D 20 20 20 20 20 20 4A 53 52 | HEX?'. JSR| 00000490: 20 20 33 38 37 31 32 0D 20 20 20 20 20 20 4C 44 | 38712. LD| 000004A0: 41 20 23 30 30 30 20 20 20 3B 44 43 2D 56 4C 41 |A #000 ;DC-VLA| 000004B0: 47 20 4E 45 45 52 2E 0D 20 20 20 20 20 20 53 54 |G NEER.. ST| 000004C0: 41 20 20 30 30 37 35 36 20 3B 30 3D 48 45 58 2E |A 00756 ;0=HEX.| 000004D0: 20 31 3D 44 45 43 2E 0D 20 20 20 20 20 20 4C 44 | 1=DEC.. LD| 000004E0: 58 20 23 30 30 31 20 20 20 3B 31 20 54 45 4B 45 |X #001 ;1 TEKE| 000004F0: 4E 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 |N.. JSR 38| 00000500: 31 34 34 20 3B 41 43 43 45 50 54 2E 0D 20 20 20 |144 ;ACCEPT.. | 00000510: 20 20 20 4C 44 59 20 23 30 30 31 20 20 20 3B 4E | LDY #001 ;N| 00000520: 41 20 44 45 20 4C 45 4E 47 54 45 2E 0D 20 20 20 |A DE LENGTE.. | 00000530: 20 20 20 4C 44 41 20 28 32 35 33 29 2C 59 20 20 | LDA (253),Y | 00000540: 3B 54 45 4B 45 4E 3D 27 44 27 3F 0D 20 20 20 20 |;TEKEN='D'?. | 00000550: 20 20 43 4D 50 20 23 30 36 38 0D 20 20 20 20 20 | CMP #068. | 00000560: 20 42 4E 45 20 20 44 50 30 30 32 20 3B 4A 41 3A | BNE DP002 ;JA:| 00000570: 44 43 2D 56 4C 41 47 20 4F 50 2E 0D 20 20 20 20 |DC-VLAG OP.. | 00000580: 20 20 49 4E 43 20 20 30 30 37 35 36 0D 44 50 30 | INC 00756.DP0| 00000590: 30 32 20 4A 53 52 20 20 33 38 34 38 38 20 20 20 |02 JSR 38488 | 000005A0: 3B 4F 50 45 4E 20 52 45 47 45 4C 2E 0D 20 20 20 |;OPEN REGEL.. | 000005B0: 20 20 20 4C 44 58 20 23 30 30 33 20 20 20 20 20 | LDX #003 | 000005C0: 3B 28 37 34 31 2C 37 34 30 29 0D 20 20 20 20 20 |;(741,740). | 000005D0: 20 4C 44 41 20 23 30 30 30 20 20 20 20 20 3B 41 | LDA #000 ;A| 000005E0: 44 52 45 53 20 27 56 41 4E 27 0D 44 50 41 30 32 |DRES 'VAN'.DPA02| 000005F0: 20 53 54 41 20 20 30 30 37 34 30 2C 58 20 3B 4F | STA 00740,X ;O| 00000600: 50 20 30 30 30 30 30 2E 0D 20 20 20 20 20 20 44 |P 00000.. D| 00000610: 45 58 20 20 20 20 20 20 20 20 20 20 3B 28 37 34 |EX ;(74| 00000620: 33 2C 37 34 32 29 0D 20 20 20 20 20 20 42 50 4C |3,742). BPL| 00000630: 20 20 44 50 41 30 32 20 20 20 3B 41 44 52 45 53 | DPA02 ;ADRES| 00000640: 20 27 54 4F 54 27 0D 20 20 20 20 20 20 49 4E 43 | 'TOT'. INC| 00000650: 20 20 30 30 37 34 33 20 20 20 3B 4F 50 20 30 30 | 00743 ;OP 00| 00000660: 32 35 36 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |256.. JSR | 00000670: 33 38 32 35 33 20 20 20 3B 27 55 49 54 47 45 5A |38253 ;'UITGEZ| 00000680: 4F 4E 44 2E 27 0D 20 20 20 20 20 20 4C 44 58 20 |OND.'. LDX | 00000690: 23 30 30 31 20 20 20 20 20 3B 28 37 34 31 2C 37 |#001 ;(741,7| 000006A0: 34 30 29 0D 44 50 42 30 32 20 4C 44 41 20 20 34 |40).DPB02 LDA 4| 000006B0: 30 39 32 38 2C 58 20 3B 41 44 52 45 53 20 27 56 |0928,X ;ADRES 'V| 000006C0: 41 4E 27 0D 20 20 20 20 20 20 53 54 41 20 20 30 |AN'. STA 0| 000006D0: 30 37 34 30 2C 58 20 3B 4F 50 20 52 55 2E 0D 20 |0740,X ;OP RU.. | 000006E0: 20 20 20 20 20 4C 44 41 20 20 34 30 39 33 32 2C | LDA 40932,| 000006F0: 58 20 3B 28 37 34 33 2C 37 34 32 29 0D 20 20 20 |X ;(743,742). | 00000700: 20 20 20 53 54 41 20 20 30 30 37 34 32 2C 58 20 | STA 00742,X | 00000710: 3B 41 44 52 45 53 20 27 54 4F 54 27 0D 20 20 20 |;ADRES 'TOT'. | 00000720: 20 20 20 44 45 58 20 20 20 20 20 20 20 20 20 20 | DEX | 00000730: 3B 4F 50 20 5A 55 2E 0D 20 20 20 20 20 20 42 50 |;OP ZU.. BP| 00000740: 4C 20 20 44 50 42 30 32 0D 20 20 20 20 20 20 4A |L DPB02. J| 00000750: 53 52 20 20 33 38 32 35 33 20 20 20 3B 27 55 49 |SR 38253 ;'UI| 00000760: 54 47 45 5A 4F 4E 44 2E 27 0D 44 50 30 30 33 20 |TGEZOND.'.DP003 | 00000770: 4C 44 58 20 23 30 31 31 20 20 20 3B 56 52 41 41 |LDX #011 ;VRAA| 00000780: 47 20 42 45 47 49 4E 2D 0D 20 20 20 20 20 20 4A |G BEGIN-. J| 00000790: 53 52 20 20 33 38 31 38 32 20 3B 41 44 52 45 53 |SR 38182 ;ADRES| 000007A0: 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 32 |.. JSR 382| 000007B0: 32 31 20 3B 5A 45 54 20 47 45 42 49 45 44 53 2D |21 ;ZET GEBIEDS-| 000007C0: 0D 20 20 20 20 20 20 53 54 58 20 20 30 33 30 20 |. STX 030 | 000007D0: 20 20 3B 4E 55 4D 4D 45 52 20 49 4E 20 47 42 2E | ;NUMMER IN GB.| 000007E0: 0D 20 20 20 20 20 20 4C 44 58 20 23 30 35 30 20 |. LDX #050 | 000007F0: 20 20 3B 42 45 47 49 4E 41 44 52 45 53 0D 20 20 | ;BEGINADRES. | 00000800: 20 20 20 20 4A 53 52 20 20 33 37 39 35 38 20 3B | JSR 37958 ;| 00000810: 41 42 3D 3E 28 37 36 31 2C 37 36 30 29 2E 0D 20 |AB=>(761,760).. | 00000820: 20 20 20 20 20 4C 44 58 20 23 30 31 33 20 20 20 | LDX #013 | 00000830: 3B 56 52 41 41 47 20 45 49 4E 44 2D 0D 20 20 20 |;VRAAG EIND-. | 00000840: 20 20 20 4A 53 52 20 20 33 38 31 38 32 20 3B 41 | JSR 38182 ;A| 00000850: 44 52 45 53 2E 0D 20 20 20 20 20 20 4A 53 52 20 |DRES.. JSR | 00000860: 20 33 38 32 32 31 20 3B 5A 45 54 20 47 45 42 49 | 38221 ;ZET GEBI| 00000870: 45 44 53 2D 0D 20 20 20 20 20 20 53 54 58 20 20 |EDS-. STX | 00000880: 30 33 31 20 20 20 3B 4E 55 4D 4D 45 52 20 49 4E |031 ;NUMMER IN| 00000890: 20 47 45 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 | GE.. LDX #| 000008A0: 30 35 32 20 20 20 3B 45 49 4E 44 41 44 52 45 53 |052 ;EINDADRES| 000008B0: 0D 20 20 20 20 20 20 4A 53 52 20 20 33 37 39 35 |. JSR 3795| 000008C0: 38 20 3B 41 45 3D 3E 28 37 36 33 2C 37 36 32 29 |8 ;AE=>(763,762)| 000008D0: 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 30 33 30 |.. LDA 030| 000008E0: 20 20 20 3B 41 42 20 4E 49 45 54 20 49 4E 0D 20 | ;AB NIET IN. | 000008F0: 20 20 20 20 20 42 45 51 20 20 44 50 30 30 36 20 | BEQ DP006 | 00000900: 3B 47 45 42 49 45 44 20 30 20 4F 46 20 32 2E 0D |;GEBIED 0 OF 2..| 00000910: 20 20 20 20 20 20 43 4D 50 20 23 30 30 32 0D 20 | CMP #002. | 00000920: 20 20 20 20 20 42 45 51 20 20 44 50 30 30 36 0D | BEQ DP006.| 00000930: 20 20 20 20 20 20 4C 44 41 20 20 30 33 31 20 20 | LDA 031 | 00000940: 20 3B 41 45 20 4E 49 45 54 20 49 4E 0D 20 20 20 | ;AE NIET IN. | 00000950: 20 20 20 42 45 51 20 20 44 50 30 30 36 20 3B 47 | BEQ DP006 ;G| 00000960: 45 42 49 45 44 20 30 20 4F 46 20 32 2E 0D 20 20 |EBIED 0 OF 2.. | 00000970: 20 20 20 20 43 4D 50 20 23 30 30 32 0D 20 20 20 | CMP #002. | 00000980: 20 20 20 42 45 51 20 20 44 50 30 30 36 20 3B 41 | BEQ DP006 ;A| 00000990: 42 20 45 4E 20 41 45 20 49 4E 0D 20 20 20 20 20 |B EN AE IN. | 000009A0: 20 43 4D 50 20 20 30 33 30 20 20 20 3B 5A 45 4C | CMP 030 ;ZEL| 000009B0: 46 44 45 20 47 45 42 49 45 44 2E 0D 20 20 20 20 |FDE GEBIED.. | 000009C0: 20 20 42 4E 45 20 20 44 50 30 30 36 0D 20 20 20 | BNE DP006. | 000009D0: 20 20 20 4C 44 58 20 23 30 35 32 20 20 20 3B 41 | LDX #052 ;A| 000009E0: 45 3D 3E 28 32 35 32 2C 32 35 31 29 2E 0D 20 20 |E=>(252,251).. | 000009F0: 20 20 20 20 4A 53 52 20 20 33 39 37 31 31 0D 20 | JSR 39711. | 00000A00: 20 20 20 20 20 4C 44 58 20 23 30 35 30 20 20 20 | LDX #050 | 00000A10: 3B 41 42 3D 3E 28 31 31 30 2C 31 30 39 29 2E 0D |;AB=>(110,109)..| 00000A20: 20 20 20 20 20 20 4A 53 52 20 20 33 39 37 30 30 | JSR 39700| 00000A30: 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 37 38 |. JSR 3878| 00000A40: 30 20 3B 41 42 3E 41 45 3F 0D 20 20 20 20 20 20 |0 ;AB>AE?. | 00000A50: 42 43 53 20 20 44 50 30 30 38 20 3B 4A 41 3A 27 |BCS DP008 ;JA:'| 00000A60: 46 4F 55 54 21 0D 44 50 30 30 36 20 4A 53 52 20 |FOUT!.DP006 JSR | 00000A70: 20 33 37 32 31 36 20 3B 20 4E 4F 47 20 45 45 4E | 37216 ; NOG EEN| 00000A80: 53 2E 27 0D 44 50 30 30 37 20 4A 53 52 20 20 33 |S.'.DP007 JSR 3| 00000A90: 38 34 38 38 20 3B 4F 50 45 4E 20 52 45 47 45 4C |8488 ;OPEN REGEL| 00000AA0: 2E 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 |.. CLC | 00000AB0: 20 20 20 3B 4F 50 4E 49 45 55 57 20 44 45 0D 20 | ;OPNIEUW DE. | 00000AC0: 20 20 20 20 20 42 43 43 20 20 44 50 30 30 33 20 | BCC DP003 | 00000AD0: 3B 41 44 52 45 53 53 45 4E 2E 0D 44 50 30 30 38 |;ADRESSEN..DP008| 00000AE0: 20 4C 44 58 20 23 30 35 30 20 20 20 3B 41 42 20 | LDX #050 ;AB | 00000AF0: 44 45 43 4F 4E 56 45 52 53 49 45 0D 20 20 20 20 |DECONVERSIE. | 00000B00: 20 20 4A 53 52 20 20 33 39 37 31 31 20 3B 45 4E | JSR 39711 ;EN| 00000B10: 20 49 4E 20 58 58 58 58 58 2E 0D 20 20 20 20 20 | IN XXXXX.. | 00000B20: 20 4A 53 52 20 20 33 38 37 39 32 0D 20 20 20 20 | JSR 38792. | 00000B30: 20 20 4C 44 58 20 23 30 35 32 20 20 20 3B 41 45 | LDX #052 ;AE| 00000B40: 20 44 45 43 4F 4E 56 45 52 53 49 45 0D 20 20 20 | DECONVERSIE. | 00000B50: 20 20 20 4A 53 52 20 20 33 39 37 31 31 20 3B 45 | JSR 39711 ;E| 00000B60: 4E 20 49 4E 20 59 59 59 59 59 2E 0D 20 20 20 20 |N IN YYYYY.. | 00000B70: 20 20 4A 53 52 20 20 33 38 38 30 34 0D 20 20 20 | JSR 38804. | 00000B80: 20 20 20 4A 53 52 20 20 33 38 34 38 38 20 3B 4F | JSR 38488 ;O| 00000B90: 50 45 4E 20 52 45 47 45 4C 2E 0D 20 20 20 20 20 |PEN REGEL.. | 00000BA0: 20 4C 44 58 20 23 30 30 32 20 20 20 3B 27 56 45 | LDX #002 ;'VE| 00000BB0: 4C 44 20 56 41 4E 0D 20 20 20 20 20 20 4A 53 52 |LD VAN. JSR| 00000BC0: 20 20 33 38 37 31 32 20 3B 20 58 58 20 54 2F 4D | 38712 ; XX T/M| 00000BD0: 20 59 59 2E 27 0D 20 20 20 20 20 20 4C 44 58 20 | YY.'. LDX | 00000BE0: 23 30 30 38 20 20 20 3B 42 45 47 49 4E 41 44 52 |#008 ;BEGINADR| 00000BF0: 45 53 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 |ES. JSR 38| 00000C00: 33 38 31 20 3B 57 45 52 4B 56 45 4C 44 45 4E 2E |381 ;WERKVELDEN.| 00000C10: 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 |. CLC | 00000C20: 20 20 3B 54 55 53 53 45 4E 2D 0D 20 20 20 20 20 | ;TUSSEN-. | 00000C30: 20 42 43 43 20 20 44 50 30 30 39 20 3B 53 50 52 | BCC DP009 ;SPR| 00000C40: 4F 4E 47 2E 0D 44 50 41 30 38 20 43 4C 43 20 20 |ONG..DPA08 CLC | 00000C50: 20 20 20 20 20 20 3B 54 55 53 53 45 4E 2D 0D 20 | ;TUSSEN-. | 00000C60: 20 20 20 20 20 42 43 43 20 20 44 50 30 30 37 20 | BCC DP007 | 00000C70: 3B 53 50 52 4F 4E 47 2E 0D 44 50 30 30 39 20 4A |;SPRONG..DP009 J| 00000C80: 53 52 20 20 33 38 34 38 38 20 3B 4F 50 45 4E 20 |SR 38488 ;OPEN | 00000C90: 52 45 47 45 4C 2E 0D 20 20 20 20 20 20 4C 44 58 |REGEL.. LDX| 00000CA0: 20 23 30 32 30 20 20 20 3B 27 4C 41 42 45 4C 20 | #020 ;'LABEL | 00000CB0: 42 45 47 49 4E 2D 0D 20 20 20 20 20 20 4A 53 52 |BEGIN-. JSR| 00000CC0: 20 20 33 38 37 31 32 20 3B 20 4C 45 54 54 45 52 | 38712 ; LETTER| 00000CD0: 53 3F 27 0D 20 20 20 20 20 20 4C 44 58 20 23 30 |S?'. LDX #0| 00000CE0: 30 32 20 20 20 3B 41 43 43 50 54 2E 32 20 4C 45 |02 ;ACCPT.2 LE| 00000CF0: 54 54 45 52 53 2E 0D 20 20 20 20 20 20 4A 53 52 |TTERS.. JSR| 00000D00: 20 20 33 38 31 34 34 0D 20 20 20 20 20 20 4C 44 | 38144. LD| 00000D10: 59 20 23 30 30 31 20 20 20 3B 4C 45 4E 47 54 45 |Y #001 ;LENGTE| 00000D20: 20 2D 20 31 2E 0D 20 20 20 20 20 20 4A 53 52 20 | - 1.. JSR | 00000D30: 20 33 38 34 37 35 0D 20 20 20 20 20 20 4C 44 41 | 38475. LDA| 00000D40: 20 28 32 35 33 29 2C 59 0D 20 20 20 20 20 20 43 | (253),Y. C| 00000D50: 4D 50 20 23 30 30 32 20 20 20 3B 4C 45 4E 47 54 |MP #002 ;LENGT| 00000D60: 45 3D 32 3F 0D 20 20 20 20 20 20 42 45 51 20 20 |E=2?. BEQ | 00000D70: 44 50 30 31 31 20 3B 4E 45 45 3A 27 46 4F 55 54 |DP011 ;NEE:'FOUT| 00000D80: 21 0D 44 50 31 30 39 20 4A 53 52 20 20 33 37 32 |!.DP109 JSR 372| 00000D90: 31 36 20 3B 20 4E 4F 47 20 45 45 4E 53 2E 27 0D |16 ; NOG EENS.'.| 00000DA0: 44 50 30 31 30 20 43 4C 43 20 20 20 20 20 20 20 |DP010 CLC | 00000DB0: 20 3B 57 45 45 52 20 4E 41 41 52 20 4C 41 42 45 | ;WEER NAAR LABE| 00000DC0: 4C 0D 20 20 20 20 20 20 42 43 43 20 20 44 50 30 |L. BCC DP0| 00000DD0: 30 39 20 3B 42 45 47 49 4E 4C 45 54 54 45 52 53 |09 ;BEGINLETTERS| 00000DE0: 2E 0D 44 50 30 31 31 20 49 4E 59 20 20 20 20 20 |..DP011 INY | 00000DF0: 20 20 20 20 3B 45 45 52 53 54 45 20 45 45 4E 0D | ;EERSTE EEN.| 00000E00: 20 20 20 20 20 20 4C 44 41 20 28 32 35 33 29 2C | LDA (253),| 00000E10: 59 20 3B 4C 45 54 54 45 52 3F 20 4A 41 3A 0D 20 |Y ;LETTER? JA:. | 00000E20: 20 20 20 20 20 43 4D 50 20 23 30 36 35 20 20 20 | CMP #065 | 00000E30: 20 3B 3C 27 41 27 3F 0D 20 20 20 20 20 20 42 43 | ;<'A'?. BC| 00000E40: 43 20 20 44 50 31 30 39 20 20 3B 4E 45 45 4E 3A |C DP109 ;NEEN:| 00000E50: 46 4F 55 54 2E 0D 20 20 20 20 20 20 43 4D 50 20 |FOUT.. CMP | 00000E60: 23 30 39 31 20 20 20 20 3B 3C 3D 27 5A 27 3F 0D |#091 ;<='Z'?.| 00000E70: 20 20 20 20 20 20 42 43 53 20 20 44 50 31 30 39 | BCS DP109| 00000E80: 20 20 3B 4E 45 45 4E 3A 46 4F 55 54 2E 0D 20 20 | ;NEEN:FOUT.. | 00000E90: 20 20 20 20 53 54 41 20 20 30 30 37 36 36 20 20 | STA 00766 | 00000EA0: 3B 4A 41 3A 53 4C 41 20 4F 50 2E 0D 20 20 20 20 |;JA:SLA OP.. | 00000EB0: 20 20 49 4E 59 20 20 20 20 20 20 20 20 20 3B 54 | INY ;T| 00000EC0: 57 45 45 44 45 20 45 45 4E 0D 20 20 20 20 20 20 |WEEDE EEN. | 00000ED0: 4C 44 41 20 28 32 35 33 29 2C 59 20 3B 4C 45 54 |LDA (253),Y ;LET| 00000EE0: 54 45 52 3F 20 4A 41 3A 0D 20 20 20 20 20 20 43 |TER? JA:. C| 00000EF0: 4D 50 20 23 30 36 35 20 20 20 20 3B 3C 27 41 27 |MP #065 ;<'A'| 00000F00: 3F 0D 20 20 20 20 20 20 42 43 43 20 20 44 50 31 |?. BCC DP1| 00000F10: 30 39 20 20 3B 4E 45 45 4E 3A 46 4F 55 54 2E 0D |09 ;NEEN:FOUT..| 00000F20: 20 20 20 20 20 20 43 4D 50 20 23 30 39 31 20 20 | CMP #091 | 00000F30: 20 20 3B 3C 3D 27 5A 27 3F 0D 20 20 20 20 20 20 | ;<='Z'?. | 00000F40: 42 43 53 20 20 44 50 31 30 39 20 20 3B 4E 45 45 |BCS DP109 ;NEE| 00000F50: 4E 3A 46 4F 55 54 2E 0D 20 20 20 20 20 20 53 54 |N:FOUT.. ST| 00000F60: 41 20 20 30 30 37 36 37 20 20 3B 4A 41 3A 53 4C |A 00767 ;JA:SL| 00000F70: 41 20 4F 50 2E 0D 20 20 20 20 20 20 43 4C 43 20 |A OP.. CLC | 00000F80: 20 20 20 20 20 20 20 20 3B 4C 41 42 45 4C 20 4E | ;LABEL N| 00000F90: 55 20 49 4E 0D 20 20 20 20 20 20 42 43 43 20 20 |U IN. BCC | 00000FA0: 44 50 32 31 32 20 20 3B 28 37 36 36 2C 37 36 37 |DP212 ;(766,767| 00000FB0: 29 2E 0D 44 50 31 32 35 20 43 4C 43 20 20 20 20 |)..DP125 CLC | 00000FC0: 20 20 20 20 20 3B 54 55 53 53 45 4E 2D 0D 20 20 | ;TUSSEN-. | 00000FD0: 20 20 20 20 42 43 43 20 20 44 50 41 30 38 20 20 | BCC DPA08 | 00000FE0: 3B 53 50 52 4F 4E 47 2E 0D 44 50 32 31 32 20 4A |;SPRONG..DP212 J| 00000FF0: 53 52 20 20 33 38 34 38 38 20 20 3B 4F 50 45 4E |SR 38488 ;OPEN| 00001000: 20 52 45 47 45 4C 2E 0D 44 50 30 31 32 20 4C 44 | REGEL..DP012 LD| 00001010: 58 20 23 30 32 31 20 20 20 20 3B 27 4E 41 41 52 |X #021 ;'NAAR| 00001020: 20 41 50 50 41 2D 0D 20 20 20 20 20 20 4A 53 52 | APPA-. JSR| 00001030: 20 20 33 38 37 31 32 20 20 3B 20 52 41 41 54 2E | 38712 ; RAAT.| 00001040: 2E 2E 2E 3F 27 0D 20 20 20 20 20 20 4C 44 58 20 |...?'. LDX | 00001050: 23 30 30 31 20 20 20 20 3B 41 43 43 45 50 54 45 |#001 ;ACCEPTE| 00001060: 45 52 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 |ER. JSR 38| 00001070: 31 34 34 20 20 3B 41 50 50 41 52 41 41 54 4C 45 |144 ;APPARAATLE| 00001080: 54 54 45 52 2E 0D 20 20 20 20 20 20 4C 44 58 20 |TTER.. LDX | 00001090: 23 30 30 30 0D 20 20 20 20 20 20 4C 44 59 20 23 |#000. LDY #| 000010A0: 30 30 31 20 20 20 20 3B 43 48 45 43 4B 45 4E 2E |001 ;CHECKEN.| 000010B0: 0D 20 20 20 20 20 20 4C 44 41 20 28 32 35 33 29 |. LDA (253)| 000010C0: 2C 59 0D 20 20 20 20 20 20 43 4D 50 20 23 30 38 |,Y. CMP #08| 000010D0: 33 20 20 20 20 3B 20 27 53 27 3F 20 30 3D 53 43 |3 ; 'S'? 0=SC| 000010E0: 48 45 52 4D 2E 0D 20 20 20 20 20 20 42 45 51 20 |HERM.. BEQ | 000010F0: 20 44 50 30 32 30 0D 20 20 20 20 20 20 43 4D 50 | DP020. CMP| 00001100: 20 23 30 38 34 20 20 20 20 3B 20 27 54 27 3F 20 | #084 ; 'T'? | 00001110: 31 3D 54 41 50 45 2E 0D 20 20 20 20 20 20 42 45 |1=TAPE.. BE| 00001120: 51 20 20 44 50 30 31 39 0D 20 20 20 20 20 20 43 |Q DP019. C| 00001130: 4D 50 20 23 30 36 38 20 20 20 20 3B 20 27 44 27 |MP #068 ; 'D'| 00001140: 3F 20 32 3D 44 49 53 4B 2E 0D 20 20 20 20 20 20 |? 2=DISK.. | 00001150: 42 45 51 20 20 44 50 30 31 38 0D 20 20 20 20 20 |BEQ DP018. | 00001160: 20 43 4D 50 20 23 30 38 30 20 20 20 20 3B 20 27 | CMP #080 ; '| 00001170: 50 27 3F 20 33 3D 50 52 49 4E 54 2E 0D 20 20 20 |P'? 3=PRINT.. | 00001180: 20 20 20 42 45 51 20 20 44 50 30 31 37 0D 20 20 | BEQ DP017. | 00001190: 20 20 20 20 4A 53 52 20 20 33 37 32 31 36 20 20 | JSR 37216 | 000011A0: 3B 41 4E 44 45 52 53 3A 20 27 46 4F 55 54 21 0D |;ANDERS: 'FOUT!.| 000011B0: 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 | CLC | 000011C0: 20 20 3B 20 4E 4F 47 20 45 45 4E 53 2E 27 0D 20 | ; NOG EENS.'. | 000011D0: 20 20 20 20 20 42 43 43 20 20 44 50 32 31 32 20 | BCC DP212 | 000011E0: 20 3B 4F 50 45 4E 20 52 45 47 45 4C 2E 0D 44 50 | ;OPEN REGEL..DP| 000011F0: 30 31 37 20 49 4E 58 20 20 20 20 20 20 20 20 20 |017 INX | 00001200: 3B 33 20 3D 20 50 52 49 4E 54 45 52 2E 0D 44 50 |;3 = PRINTER..DP| 00001210: 30 31 38 20 49 4E 58 20 20 20 20 20 20 20 20 20 |018 INX | 00001220: 3B 32 20 3D 20 44 49 53 4B 2E 0D 44 50 30 31 39 |;2 = DISK..DP019| 00001230: 20 49 4E 58 20 20 20 20 20 20 20 20 20 3B 31 20 | INX ;1 | 00001240: 3D 20 54 41 50 45 2E 0D 20 20 20 20 20 20 20 20 |= TAPE.. | 00001250: 20 20 20 20 20 20 20 20 20 20 3B 30 20 3D 20 53 | ;0 = S| 00001260: 43 48 45 52 4D 2E 0D 44 50 30 32 30 20 53 54 58 |CHERM..DP020 STX| 00001270: 20 20 30 30 37 35 31 20 20 3B 20 20 3D 3E 20 55 | 00751 ; => U| 00001280: 56 3D 28 37 35 31 29 2E 0D 20 20 20 20 20 20 4C |V=(751).. L| 00001290: 44 58 20 23 30 31 30 20 20 20 20 3B 4E 41 41 4D |DX #010 ;NAAM| 000012A0: 56 2E 42 45 47 2E 41 44 52 45 53 0D 20 20 20 20 |V.BEG.ADRES. | 000012B0: 20 20 4A 53 52 20 20 33 38 33 39 32 20 20 3B 49 | JSR 38392 ;I| 000012C0: 4E 20 28 31 31 30 2C 31 30 39 29 2E 0D 20 20 20 |N (110,109).. | 000012D0: 20 20 20 4C 44 41 20 20 30 30 37 35 31 0D 20 20 | LDA 00751. | 000012E0: 20 20 20 20 43 4D 50 20 23 30 30 31 20 20 20 20 | CMP #001 | 000012F0: 3B 31 3D 54 41 50 45 3F 0D 20 20 20 20 20 20 42 |;1=TAPE?. B| 00001300: 45 51 20 20 44 50 30 33 30 0D 20 20 20 20 20 20 |EQ DP030. | 00001310: 43 4D 50 20 23 30 30 32 20 20 20 20 3B 32 3D 44 |CMP #002 ;2=D| 00001320: 49 53 4B 3F 0D 20 20 20 20 20 20 42 4E 45 20 20 |ISK?. BNE | 00001330: 44 50 30 33 34 0D 44 50 30 33 30 20 4A 53 52 20 |DP034.DP030 JSR | 00001340: 20 33 38 34 38 38 20 20 3B 54 41 50 45 20 4F 46 | 38488 ;TAPE OF| 00001350: 20 44 49 53 4B 3A 0D 20 20 20 20 20 20 20 20 20 | DISK:. | 00001360: 20 20 20 20 20 20 20 20 20 3B 4F 50 45 4E 20 52 | ;OPEN R| 00001370: 45 47 45 4C 2E 0D 20 20 20 20 20 20 4C 44 58 20 |EGEL.. LDX | 00001380: 23 30 32 32 20 20 20 20 3B 27 4E 41 41 4D 20 55 |#022 ;'NAAM U| 00001390: 49 54 47 41 4E 47 53 2D 0D 20 20 20 20 20 20 4A |ITGANGS-. J| 000013A0: 53 52 20 20 33 38 37 31 32 20 20 3B 42 45 53 54 |SR 38712 ;BEST| 000013B0: 41 4E 44 3F 27 0D 20 20 20 20 20 20 4C 44 58 20 |AND?'. LDX | 000013C0: 23 30 31 36 20 20 20 20 3B 41 43 43 45 50 54 45 |#016 ;ACCEPTE| 000013D0: 45 52 20 54 45 4E 0D 20 20 20 20 20 20 4A 53 52 |ER TEN. JSR| 000013E0: 20 20 33 38 31 34 34 20 20 3B 48 4F 4F 47 53 54 | 38144 ;HOOGST| 000013F0: 45 20 31 36 20 54 45 4B 2E 0D 20 20 20 20 20 20 |E 16 TEK.. | 00001400: 4C 44 59 20 23 30 30 31 20 20 20 20 3B 4C 45 4E |LDY #001 ;LEN| 00001410: 47 54 45 20 2D 20 31 2E 0D 20 20 20 20 20 20 4A |GTE - 1.. J| 00001420: 53 52 20 20 33 38 34 37 35 0D 20 20 20 20 20 20 |SR 38475. | 00001430: 4C 44 41 20 28 32 35 33 29 2C 59 20 3B 41 41 4E |LDA (253),Y ;AAN| 00001440: 54 41 4C 20 45 45 52 53 54 2E 0D 20 20 20 20 20 |TAL EERST.. | 00001450: 20 53 54 41 20 28 31 30 39 29 2C 59 20 3B 49 53 | STA (109),Y ;IS| 00001460: 20 44 41 54 20 31 36 0D 20 20 20 20 20 20 42 45 | DAT 16. BE| 00001470: 51 20 20 44 50 30 33 31 20 20 3B 4F 46 20 4D 49 |Q DP031 ;OF MI| 00001480: 4E 44 45 52 3F 0D 20 20 20 20 20 20 43 4D 50 20 |NDER?. CMP | 00001490: 23 30 31 36 0D 20 20 20 20 20 20 42 43 43 20 20 |#016. BCC | 000014A0: 44 50 30 33 32 0D 20 20 20 20 20 20 42 45 51 20 |DP032. BEQ | 000014B0: 20 44 50 30 33 32 20 20 3B 5A 4F 20 4E 45 45 4E | DP032 ;ZO NEEN| 000014C0: 3A 0D 44 50 30 33 31 20 4A 53 52 20 20 33 37 32 |:.DP031 JSR 372| 000014D0: 31 36 20 20 3B 27 46 4F 55 54 21 27 0D 20 20 20 |16 ;'FOUT!'. | 000014E0: 20 20 20 43 4C 43 0D 20 20 20 20 20 20 42 43 43 | CLC. BCC| 000014F0: 20 20 44 50 30 33 30 0D 44 50 30 33 32 20 54 41 | DP030.DP032 TA| 00001500: 58 20 20 20 20 20 20 20 20 20 3B 4C 45 4E 47 54 |X ;LENGT| 00001510: 45 20 2D 20 31 0D 20 20 20 20 20 20 44 45 58 20 |E - 1. DEX | 00001520: 20 20 20 20 20 20 20 20 3B 59 20 4F 50 20 45 45 | ;Y OP EE| 00001530: 52 53 54 45 2E 0D 44 50 30 33 33 20 49 4E 59 20 |RSTE..DP033 INY | 00001540: 20 20 20 20 20 20 20 20 3B 4E 4F 47 4D 41 41 4C | ;NOGMAAL| 00001550: 53 2E 0D 20 20 20 20 20 20 4C 44 41 20 28 32 35 |S.. LDA (25| 00001560: 33 29 2C 59 20 3B 54 52 41 4E 53 50 4F 52 54 2E |3),Y ;TRANSPORT.| 00001570: 0D 20 20 20 20 20 20 53 54 41 20 28 31 30 39 29 |. STA (109)| 00001580: 2C 59 0D 20 20 20 20 20 20 44 45 58 0D 20 20 20 |,Y. DEX. | 00001590: 20 20 20 42 50 4C 20 20 44 50 30 33 33 0D 44 50 | BPL DP033.DP| 000015A0: 30 33 34 20 4A 53 52 20 20 33 38 34 38 38 20 20 |034 JSR 38488 | 000015B0: 3B 4F 50 45 4E 20 52 45 47 45 4C 2E 0D 20 20 20 |;OPEN REGEL.. | 000015C0: 20 20 20 4A 53 52 20 20 33 38 34 35 33 20 20 3B | JSR 38453 ;| 000015D0: 27 43 4F 4E 54 52 4F 4C 45 2E 2E 27 2E 0D 20 20 |'CONTROLE..'.. | 000015E0: 20 20 20 20 43 50 58 20 23 30 30 31 20 20 20 20 | CPX #001 | 000015F0: 3B 27 46 27 3A 54 45 52 55 47 2E 0D 20 20 20 20 |;'F':TERUG.. | 00001600: 20 20 42 45 51 20 20 44 50 31 32 35 0D 20 20 20 | BEQ DP125. | 00001610: 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 3B | RTS ;| 00001620: 2A 2A 56 4F 4F 52 4C 4F 50 49 47 2E 2A 2A 0D 20 |**VOORLOPIG.**. | 00001630: 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E | NOP. N| 00001640: 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 |OP. NOP. | 00001650: 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 | NOP. NOP| 00001660: 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 |. NOP. | 00001670: 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 | NOP. NOP. | 00001680: 20 20 20 20 20 2E 45 4E 44 0D | .END. |
*=35456. LDA #000. ST
A 53280 ; INLOOP.. STA 53281.
LDA #155. JSR 65490 ;GRIJS OP Z
WART.. LDX #002 ;LU=>(254,253)..
JSR 38381 ;RU=>(110,109).. LD
X #000. JSR 38392. JSR 38426
;RM=(LU-RU)/6.. LDX #042 ;RM=>(7
53,752):. JSR 37958 ;MAX.AANT.REGE
LS.. LDX #004 ;ZU=>(254,253)..
JSR 38381 ;LU=>(110,109).. LDX
#002. JSR 38392. JSR 38444 ;
LM=(ZU-LU)/2.. LDA #001 ;DECIMAAL
VOOR. STA 00756 ;DE AANTALLEN..
LDX #044 ;LM=>(755,754):. JSR
37958 ;MAX.AANT.LABELS.. JSR 388
17 ;ADRES VOORBLOK.. JSR 38488 ;OP
EN REGEL.. LDX #042 ;RM DECONVERS
IE. JSR 39711 ;EN IN XXXXX..
JSR 38792. LDX #044 ;LM DECONVER
SIE. JSR 39711 ;EN IN YYYYY..
JSR 38804. LDX #005 ;'MAX...REG
ELS. JSR 38712 ;...LABELS.'.
LDX #007 ;'DRUK OP. JSR 38712 ;S
PATIEBALK.'.DP001 JSR 40095 ;TOETS ACCE
PT.. CPX #032 ;SPATIEBALK?.
BNE DP001 ;JA:POETS SCHERM.. LDA #
147. JSR 65490. LDX #009 ;T
ITEL;'NA ELK. JSR 38712 ;ANTW.-DRU
KKEN.'. LDX #010 ;'DEC.OF HEX?'.
JSR 38712. LDA #000 ;DC-VLA
G NEER.. STA 00756 ;0=HEX. 1=DEC..
LDX #001 ;1 TEKEN.. JSR 38
144 ;ACCEPT.. LDY #001 ;NA DE LEN
GTE.. LDA (253),Y ;TEKEN='D'?.
CMP #068. BNE DP002 ;JA:DC-VLAG
OP.. INC 00756.DP002 JSR 38488
;OPEN REGEL.. LDX #003 ;(741,74
0). LDA #000 ;ADRES 'VAN'.DPA02
STA 00740,X ;OP 00000.. DEX
;(743,742). BPL DPA02 ;ADRES
'TOT'. INC 00743 ;OP 00256..
JSR 38253 ;'UITGEZOND.'. LDX
#001 ;(741,740).DPB02 LDA 40928,X ;
ADRES 'VAN'. STA 00740,X ;OP RU..
LDA 40932,X ;(743,742). STA
00742,X ;ADRES 'TOT'. DEX
;OP ZU.. BPL DPB02. JSR 3825
3 ;'UITGEZOND.'.DP003 LDX #011 ;VRAA
G BEGIN-. JSR 38182 ;ADRES..
JSR 38221 ;ZET GEBIEDS-. STX 030
;NUMMER IN GB.. LDX #050 ;BEGIN
ADRES. JSR 37958 ;AB=>(761,760)..
LDX #013 ;VRAAG EIND-. JSR
38182 ;ADRES.. JSR 38221 ;ZET GEBI
EDS-. STX 031 ;NUMMER IN GE..
LDX #052 ;EINDADRES. JSR 3795
8 ;AE=>(763,762).. LDA 030 ;AB N
IET IN. BEQ DP006 ;GEBIED 0 OF 2..
CMP #002. BEQ DP006. LD
A 031 ;AE NIET IN. BEQ DP006 ;G
EBIED 0 OF 2.. CMP #002. BEQ
DP006 ;AB EN AE IN. CMP 030 ;ZEL
FDE GEBIED.. BNE DP006. LDX #
052 ;AE=>(252,251).. JSR 39711.
LDX #050 ;AB=>(110,109).. JS
R 39700. JSR 38780 ;AB>AE?.
BCS DP008 ;JA:'FOUT!.DP006 JSR 37216 ;
NOG EENS.'.DP007 JSR 38488 ;OPEN REGEL
.. CLC ;OPNIEUW DE. BCC
DP003 ;ADRESSEN..DP008 LDX #050 ;AB
DECONVERSIE. JSR 39711 ;EN IN XXXX
X.. JSR 38792. LDX #052 ;AE
DECONVERSIE. JSR 39711 ;EN IN YYY
YY.. JSR 38804. JSR 38488 ;O
PEN REGEL.. LDX #002 ;'VELD VAN.
JSR 38712 ; XX T/M YY.'. LDX
#008 ;BEGINADRES. JSR 38381 ;WER
KVELDEN.. CLC ;TUSSEN-.
BCC DP009 ;SPRONG..DPA08 CLC ;T
USSEN-. BCC DP007 ;SPRONG..DP009 J
SR 38488 ;OPEN REGEL.. LDX #020
;'LABEL BEGIN-. JSR 38712 ; LETTER
S?'. LDX #002 ;ACCPT.2 LETTERS..
JSR 38144. LDY #001 ;LENGTE
- 1.. JSR 38475. LDA (253),Y
. CMP #002 ;LENGTE=2?. BEQ
DP011 ;NEE:'FOUT!.DP109 JSR 37216 ; NOG
EENS.'.DP010 CLC ;WEER NAAR LABE
L. BCC DP009 ;BEGINLETTERS..DP011
INY ;EERSTE EEN. LDA (253),
Y ;LETTER? JA:. CMP #065 ;<'A'?.
BCC DP109 ;NEEN:FOUT.. CMP
#091 ;<='Z'?. BCS DP109 ;NEEN:
FOUT.. STA 00766 ;JA:SLA OP..
INY ;TWEEDE EEN. LDA (253
),Y ;LETTER? JA:. CMP #065 ;<'A'
?. BCC DP109 ;NEEN:FOUT.. CM
P #091 ;<='Z'?. BCS DP109 ;NEE
N:FOUT.. STA 00767 ;JA:SLA OP..
CLC ;LABEL NU IN. BCC
DP212 ;(766,767)..DP125 CLC ;TU
SSEN-. BCC DPA08 ;SPRONG..DP212 J
SR 38488 ;OPEN REGEL..DP012 LDX #021
;'NAAR APPA-. JSR 38712 ; RAAT.
...?'. LDX #001 ;ACCEPTEER.
JSR 38144 ;APPARAATLETTER.. LDX
#000. LDY #001 ;CHECKEN.. L
DA (253),Y. CMP #083 ; 'S'? 0=SC
HERM.. BEQ DP020. CMP #084
; 'T'? 1=TAPE.. BEQ DP019. C
MP #068 ; 'D'? 2=DISK.. BEQ DP0
18. CMP #080 ; 'P'? 3=PRINT..
BEQ DP017. JSR 37216 ;ANDERS:
'FOUT!. CLC ; NOG EENS.'.
BCC DP212 ;OPEN REGEL..DP017 INX
;3 = PRINTER..DP018 INX
;2 = DISK..DP019 INX ;1 = TAPE..
;0 = SCHERM..DP020 STX
00751 ; => UV=(751).. LDX #010
;NAAMV.BEG.ADRES. JSR 38392 ;I
N (110,109).. LDA 00751. CMP
#001 ;1=TAPE?. BEQ DP030.
CMP #002 ;2=DISK?. BNE DP034.DP
030 JSR 38488 ;TAPE OF DISK:.
;OPEN REGEL.. LDX #022
;'NAAM UITGANGS-. JSR 38712 ;BEST
AND?'. LDX #016 ;ACCEPTEER TEN.
JSR 38144 ;HOOGSTE 16 TEK..
LDY #001 ;LENGTE - 1.. JSR 3847
5. LDA (253),Y ;AANTAL EERST..
STA (109),Y ;IS DAT 16. BEQ DP031
;OF MINDER?. CMP #016. BCC
DP032. BEQ DP032 ;ZO NEEN:.DP031
JSR 37216 ;'FOUT!'. CLC. BCC
DP030.DP032 TAX ;LENGTE - 1.
DEX ;Y OP EERSTE..DP033 INY
;NOGMAALS.. LDA (253),Y ;TR
ANSPORT.. STA (109),Y. DEX.
BPL DP033.DP034 JSR 38488 ;OPEN RE
GEL.. JSR 38453 ;'CONTROLE..'..
CPX #001 ;'F':TERUG.. BEQ D
P125. RTS ;**VOORLOPIG.**.
NOP. NOP. NOP. NOP.
NOP. NOP. NOP. NOP.
.END.
> CLICK IMAGE PREVIEW FOR FULL MODAL