DISA21
FILE INFORMATION
FILENAME(S): DISA21
FILE TYPE(S): SEQ
FILE SIZE: 7K
FIRST SEEN: 2025-11-30 21:27:27
APPEARS ON: 1 disk(s)
FILE HASH
ad3ecb151824899a647a3b61f5507b5cc8cb66686a5fb11910aff8974a7ae172
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TESTFILES | DISA21 | SEQ | DuncanTwain | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 2A 3D 33 36 33 34 35 | *=36345| 00000010: 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 38 31 |. JSR 3881| 00000020: 37 20 3B 42 45 47 49 4E 41 44 52 45 53 20 56 41 |7 ;BEGINADRES VA| 00000030: 4E 0D 20 20 20 20 20 20 4C 44 58 20 23 30 31 36 |N. LDX #016| 00000040: 20 20 20 3B 56 4F 4F 52 42 4C 4F 4B 2E 0D 20 20 | ;VOORBLOK.. | 00000050: 20 20 20 20 4A 53 52 20 20 33 38 37 31 32 20 3B | JSR 38712 ;| 00000060: 27 44 4F 4F 52 47 41 4E 47 20 32 2E 27 0D 20 20 |'DOORGANG 2.'. | 00000070: 20 20 20 20 4C 44 58 20 23 30 31 30 20 20 20 3B | LDX #010 ;| 00000080: 42 45 47 49 4E 41 44 52 45 53 20 56 41 4E 0D 20 |BEGINADRES VAN. | 00000090: 20 20 20 20 20 4A 53 52 20 20 33 38 33 38 31 20 | JSR 38381 | 000000A0: 3B 42 45 53 54 41 4E 44 53 4E 41 41 4D 2E 0D 20 |;BESTANDSNAAM.. | 000000B0: 20 20 20 20 20 4A 53 52 20 20 33 37 35 36 34 20 | JSR 37564 | 000000C0: 3B 4F 50 45 4E 20 54 4F 45 53 54 2E 30 2D 33 2E |;OPEN TOEST.0-3.| 000000D0: 0D 20 20 20 20 20 20 4C 44 41 20 20 31 34 34 20 |. LDA 144 | 000000E0: 20 20 3B 53 54 41 54 55 53 20 30 3F 20 4E 45 45 | ;STATUS 0? NEE| 000000F0: 3A 0D 20 20 20 20 20 20 42 4E 45 20 20 50 44 20 |:. BNE PD | 00000100: 20 20 20 3B 4E 41 41 52 20 48 2E 50 2E 20 46 4F | ;NAAR H.P. FO| 00000110: 55 54 2E 0D 50 41 20 20 20 20 4C 44 41 20 20 30 |UT..PA LDA 0| 00000120: 30 37 35 31 20 3B 53 43 48 45 52 4D 2F 50 52 49 |0751 ;SCHERM/PRI| 00000130: 4E 54 45 52 3F 0D 20 20 20 20 20 20 42 45 51 20 |NTER?. BEQ | 00000140: 20 50 42 0D 20 20 20 20 20 20 43 4D 50 20 23 30 | PB. CMP #0| 00000150: 30 33 20 20 20 3B 4E 45 45 3A 20 20 20 20 2D 2D |03 ;NEE: --| 00000160: 2D 3E 5B 50 43 5D 0D 20 20 20 20 20 20 42 43 43 |->[PC]. BCC| 00000170: 20 20 50 43 20 20 20 20 3B 4A 41 3A 0D 50 42 20 | PC ;JA:.PB | 00000180: 20 20 20 4A 53 52 20 20 33 38 38 31 37 20 3B 56 | JSR 38817 ;V| 00000190: 4F 4F 52 42 4C 4F 4B 2E 0D 20 20 20 20 20 20 4C |OORBLOK.. L| 000001A0: 44 41 20 20 30 30 37 35 31 20 3B 54 4F 45 53 54 |DA 00751 ;TOEST| 000001B0: 45 4C 2E 0D 20 20 20 20 20 20 42 45 51 20 20 50 |EL.. BEQ P| 000001C0: 42 41 20 20 20 3B 50 52 49 4E 54 45 52 3A 4D 41 |BA ;PRINTER:MA| 000001D0: 52 47 45 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |RGE.. JSR | 000001E0: 33 36 39 37 34 20 3B 49 4E 5A 45 54 54 45 4E 2E |36974 ;INZETTEN.| 000001F0: 0D 50 42 41 20 20 20 4C 44 58 20 23 30 30 31 20 |.PBA LDX #001 | 00000200: 20 20 3B 27 44 49 53 53 45 4D 42 4C 41 47 45 2E | ;'DISSEMBLAGE.| 00000210: 27 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 37 |'. JSR 387| 00000220: 31 32 0D 20 20 20 20 20 20 4C 44 58 20 23 30 35 |12. LDX #05| 00000230: 30 20 20 20 3B 42 45 47 49 4E 41 44 52 45 53 20 |0 ;BEGINADRES | 00000240: 41 42 0D 20 20 20 20 20 20 4A 53 52 20 20 33 39 |AB. JSR 39| 00000250: 37 31 31 20 3B 4E 41 41 52 20 28 32 35 32 2C 32 |711 ;NAAR (252,2| 00000260: 35 31 29 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |51).. JSR | 00000270: 33 38 37 39 32 20 3B 56 55 4C 20 58 58 58 58 58 |38792 ;VUL XXXXX| 00000280: 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 30 35 32 |.. LDX #052| 00000290: 20 20 20 3B 20 45 49 4E 44 41 44 52 45 53 20 41 | ; EINDADRES A| 000002A0: 45 0D 20 20 20 20 20 20 4A 53 52 20 20 33 39 37 |E. JSR 397| 000002B0: 31 31 20 3B 4E 41 41 52 20 28 32 35 32 2C 32 35 |11 ;NAAR (252,25| 000002C0: 31 29 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 33 |1).. JSR 3| 000002D0: 38 38 30 34 20 3B 56 55 4C 20 59 59 59 59 59 2E |8804 ;VUL YYYYY.| 000002E0: 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 32 20 |. LDX #002 | 000002F0: 20 20 3B 27 56 45 4C 44 20 56 41 4E 20 58 58 58 | ;'VELD VAN XXX| 00000300: 58 58 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 |XX. JSR 38| 00000310: 37 31 32 20 3B 20 54 2F 4D 20 59 59 59 59 59 2E |712 ; T/M YYYYY.| 00000320: 27 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 34 |'. JSR 384| 00000330: 38 38 20 3B 4F 50 45 4E 20 52 45 47 45 4C 20 4E |88 ;OPEN REGEL N| 00000340: 41 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |A.. | 00000350: 20 20 20 20 20 20 3B 42 58 3D 28 32 35 34 2C 32 | ;BX=(254,2| 00000360: 35 33 29 2E 0D 50 43 20 20 20 20 4A 53 52 20 20 |53)..PC JSR | 00000370: 33 37 37 32 33 20 20 20 3B 2A 2A 2A 2A 2A 2A 2A |37723 ;*******| 00000380: 2A 2A 2A 2A 2A 2A 0D 20 20 20 20 20 20 4C 44 59 |******. LDY| 00000390: 20 23 30 31 30 20 20 20 20 20 3B 42 55 3D 3E 42 | #010 ;BU=>B| 000003A0: 58 20 4D 45 54 0D 20 20 20 20 20 20 4C 44 41 20 |X MET. LDA | 000003B0: 23 30 34 32 20 20 20 20 20 3B 32 30 20 53 50 41 |#042 ;20 SPA| 000003C0: 54 49 45 53 20 4E 41 0D 20 20 20 20 20 20 53 54 |TIES NA. ST| 000003D0: 41 20 28 32 35 33 29 2C 59 20 20 3B 4C 45 4E 47 |A (253),Y ;LENG| 000003E0: 54 45 42 59 54 45 2E 0D 20 20 20 20 20 20 49 4E |TEBYTE.. IN| 000003F0: 59 20 20 20 20 20 20 20 20 20 20 3B 5A 45 54 20 |Y ;ZET | 00000400: 4F 50 20 31 30 20 27 2A 27 2E 0D 20 20 20 20 20 |OP 10 '*'.. | 00000410: 20 4C 44 41 20 23 30 36 31 20 20 20 20 20 3B 5A | LDA #061 ;Z| 00000420: 45 54 20 4F 50 20 31 31 20 27 3D 27 2E 0D 20 20 |ET OP 11 '='.. | 00000430: 20 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 0D | STA (253),Y.| 00000440: 20 20 20 20 20 20 49 4E 59 20 20 20 20 20 20 20 | INY | 00000450: 20 3B 31 32 3D 3E 28 59 29 2E 0D 20 20 20 20 20 | ;12=>(Y).. | 00000460: 20 4A 53 52 20 20 33 38 35 33 32 20 3B 42 58 2B | JSR 38532 ;BX+| 00000470: 28 59 29 3D 3E 42 58 2E 0D 20 20 20 20 20 20 4C |(Y)=>BX.. L| 00000480: 44 58 20 23 30 35 30 20 20 20 3B 42 4E 3D 28 32 |DX #050 ;BN=(2| 00000490: 35 32 2C 32 35 31 29 2E 0D 20 20 20 20 20 20 4A |52,251).. J| 000004A0: 53 52 20 20 33 39 37 31 31 20 3B 2A 2A 2A 2A 2A |SR 39711 ;*****| 000004B0: 2A 2A 2A 2A 2A 2A 2A 2A 0D 20 20 20 20 20 20 4A |********. J| 000004C0: 53 52 20 20 33 37 30 30 38 20 3B 41 42 3D 3E 42 |SR 37008 ;AB=>B| 000004D0: 4E 20 56 4F 4F 52 0D 20 20 20 20 20 20 20 20 20 |N VOOR. | 000004E0: 20 20 20 20 20 20 20 20 3B 44 45 43 4F 4E 56 45 | ;DECONVE| 000004F0: 52 53 49 45 0D 20 20 20 20 20 20 20 20 20 20 20 |RSIE. | 00000500: 20 20 20 20 20 20 3B 44 55 42 42 45 4C 42 59 54 | ;DUBBELBYT| 00000510: 45 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |E. | 00000520: 20 20 20 3B 48 45 58 41 44 45 43 2E 2F 44 45 43 | ;HEXADEC./DEC| 00000530: 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 33 37 31 |.. JSR 371| 00000540: 39 38 20 3B 52 45 47 45 4C 4F 55 54 50 55 54 2E |98 ;REGELOUTPUT.| 00000550: 0D 20 20 20 20 20 20 4C 44 41 20 20 31 34 34 20 |. LDA 144 | 00000560: 20 20 3B 53 54 41 54 55 53 20 30 3F 0D 20 20 20 | ;STATUS 0?. | 00000570: 20 20 20 42 45 51 20 20 50 45 20 20 20 20 3B 4E | BEQ PE ;N| 00000580: 45 45 3A 0D 50 44 20 20 20 20 4A 53 52 20 20 33 |EE:.PD JSR 3| 00000590: 37 35 33 38 20 3B 41 4C 41 52 4D 20 45 4E 0D 20 |7538 ;ALARM EN. | 000005A0: 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 | RTS | 000005B0: 3B 4E 41 41 52 20 48 2E 50 2E 0D 50 45 20 20 20 |;NAAR H.P..PE | 000005C0: 20 4C 44 41 20 20 32 34 37 20 20 20 3B 52 45 3D | LDA 247 ;RE=| 000005D0: 3E 28 37 35 38 2C 37 35 37 29 2E 0D 20 20 20 20 |>(758,757).. | 000005E0: 20 20 53 54 41 20 20 30 30 37 35 37 20 3B 20 20 | STA 00757 ; | 000005F0: 28 52 45 3D 52 58 20 55 49 54 0D 20 20 20 20 20 |(RE=RX UIT. | 00000600: 20 4C 44 41 20 20 32 34 38 20 20 20 3B 20 20 20 | LDA 248 ; | 00000610: 44 4F 4F 52 47 41 4E 47 20 31 2E 29 0D 20 20 20 |DOORGANG 1.). | 00000620: 20 20 20 53 54 41 20 20 30 30 37 35 38 0D 20 20 | STA 00758. | 00000630: 20 20 20 20 4C 44 58 20 23 30 30 30 20 20 20 3B | LDX #000 ;| 00000640: 52 55 3D 3E 28 32 34 38 2C 32 34 37 29 2E 0D 20 |RU=>(248,247).. | 00000650: 20 20 20 20 20 4A 53 52 20 20 33 38 33 38 31 0D | JSR 38381.| 00000660: 20 20 20 20 20 20 4C 44 58 20 23 30 30 30 0D 20 | LDX #000. | 00000670: 20 20 20 20 20 4A 53 52 20 20 33 39 37 32 32 0D | JSR 39722.| 00000680: 50 46 20 20 20 20 4C 44 41 20 20 32 34 38 20 20 |PF LDA 248 | 00000690: 20 3B 42 45 47 49 4E 20 56 41 4E 0D 20 20 20 20 | ;BEGIN VAN. | 000006A0: 20 20 43 4D 50 20 20 30 30 37 35 38 20 3B 52 45 | CMP 00758 ;RE| 000006B0: 47 45 4C 4C 55 53 2E 0D 20 20 20 20 20 20 42 4E |GELLUS.. BN| 000006C0: 45 20 20 50 47 0D 20 20 20 20 20 20 4C 44 41 20 |E PG. LDA | 000006D0: 20 32 34 37 0D 20 20 20 20 20 20 43 4D 50 20 20 | 247. CMP | 000006E0: 30 30 37 35 37 0D 50 47 20 20 20 20 42 43 53 20 |00757.PG BCS | 000006F0: 20 50 58 34 0D 20 20 20 20 20 20 4C 44 41 20 20 | PX4. LDA | 00000700: 30 30 37 35 31 20 20 3B 53 43 48 45 52 4D 3A 47 |00751 ;SCHERM:G| 00000710: 45 45 4E 0D 20 20 20 20 20 20 42 45 51 20 20 50 |EEN. BEQ P| 00000720: 47 41 20 20 20 20 3B 52 45 47 45 4C 4E 55 4D 4D |GA ;REGELNUMM| 00000730: 45 52 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 33 |ER.. JSR 3| 00000740: 37 39 36 39 20 20 3B 4F 56 45 52 49 47 45 3A 57 |7969 ;OVERIGE:W| 00000750: 45 4C 2E 0D 50 47 41 20 20 20 4C 44 59 20 23 30 |EL..PGA LDY #0| 00000760: 30 35 20 20 20 20 3B 56 55 4C 20 57 45 52 4B 42 |05 ;VUL WERKB| 00000770: 59 54 45 53 2E 0D 50 48 20 20 20 20 4C 44 41 20 |YTES..PH LDA | 00000780: 28 32 34 37 29 2C 59 0D 20 20 20 20 20 20 53 54 |(247),Y. ST| 00000790: 41 20 20 30 30 37 31 30 2C 59 0D 20 20 20 20 20 |A 00710,Y. | 000007A0: 20 44 45 59 0D 20 20 20 20 20 20 42 50 4C 20 20 | DEY. BPL | 000007B0: 50 48 0D 50 49 20 20 20 20 4A 53 52 20 20 33 37 |PH.PI JSR 37| 000007C0: 37 32 33 20 20 3B 50 4F 45 54 53 20 52 45 47 45 |723 ;POETS REGE| 000007D0: 4C 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 31 |L. LDY #001| 000007E0: 20 20 20 20 3B 56 4F 4F 52 20 4F 55 54 50 55 54 | ;VOOR OUTPUT| 000007F0: 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 35 |.. JSR 385| 00000800: 33 32 20 20 3B 42 55 2B 31 3D 3E 42 58 2E 0D 20 |32 ;BU+1=>BX.. | 00000810: 20 20 20 20 20 4C 44 58 20 20 30 30 37 31 32 20 | LDX 00712 | 00000820: 20 3B 53 31 20 49 4E 20 58 2E 0D 20 20 20 20 20 | ;S1 IN X.. | 00000830: 20 54 58 41 0D 20 20 20 20 20 20 41 4E 44 20 23 | TXA. AND #| 00000840: 31 39 32 20 20 20 20 3B 4E 4E 20 55 49 54 20 53 |192 ;NN UIT S| 00000850: 31 2E 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 |1.. CLC | 00000860: 20 20 20 20 20 3B 4E 41 41 52 20 42 49 54 20 31 | ;NAAR BIT 1| 00000870: 2C 30 2E 0D 20 20 20 20 20 20 2E 42 59 54 45 20 |,0.. .BYTE | 00000880: 24 32 41 0D 20 20 20 20 20 20 2E 42 59 54 45 20 |$2A. .BYTE | 00000890: 24 32 41 0D 20 20 20 20 20 20 2E 42 59 54 45 20 |$2A. .BYTE | 000008A0: 24 32 41 20 20 20 3B 4E 4E 3D 41 41 4E 54 41 4C |$2A ;NN=AANTAL| 000008B0: 20 4E 41 2D 0D 20 20 20 20 20 20 53 54 41 20 20 | NA-. STA | 000008C0: 30 30 37 31 36 20 20 3B 42 59 54 45 53 20 4F 50 |00716 ;BYTES OP| 000008D0: 44 52 41 43 48 54 2E 0D 20 20 20 20 20 20 54 58 |DRACHT.. TX| 000008E0: 41 20 20 20 20 20 20 20 20 20 3B 53 31 20 5A 4F |A ;S1 ZO| 000008F0: 4E 44 45 52 20 4E 4E 20 49 53 0D 20 20 20 20 20 |NDER NN IS. | 00000900: 20 41 4E 44 20 23 30 36 33 20 20 20 20 3B 4F 50 | AND #063 ;OP| 00000910: 43 4F 44 45 2D 49 4E 44 45 58 2E 0D 20 20 20 20 |CODE-INDEX.. | 00000920: 20 20 53 54 41 20 20 30 30 37 31 32 0D 20 20 20 | STA 00712. | 00000930: 20 20 20 4C 44 58 20 20 30 30 37 31 33 20 20 3B | LDX 00713 ;| 00000940: 53 32 20 49 4E 20 58 2E 0D 20 20 20 20 20 20 54 |S2 IN X.. T| 00000950: 58 41 0D 20 20 20 20 20 20 41 4E 44 20 23 30 30 |XA. AND #00| 00000960: 37 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 37 |7. STA 007| 00000970: 31 39 20 20 3B 53 3D 53 55 46 46 49 58 2E 0D 20 |19 ;S=SUFFIX.. | 00000980: 20 20 20 20 20 54 58 41 0D 20 20 20 20 20 20 2E | TXA. .| 00000990: 42 59 54 45 20 24 34 41 0D 20 20 20 20 20 20 2E |BYTE $4A. .| 000009A0: 42 59 54 45 20 24 34 41 0D 20 20 20 20 20 20 2E |BYTE $4A. .| 000009B0: 42 59 54 45 20 24 34 41 0D 20 20 20 20 20 20 54 |BYTE $4A. T| 000009C0: 41 58 0D 20 20 20 20 20 20 41 4E 44 20 23 30 30 |AX. AND #00| 000009D0: 33 0D 20 20 20 20 20 20 53 54 41 20 20 30 30 37 |3. STA 007| 000009E0: 31 38 20 20 3B 4E 53 3D 41 41 4E 54 41 4C 20 4E |18 ;NS=AANTAL N| 000009F0: 41 2D 0D 20 20 20 20 20 20 54 58 41 20 20 20 20 |A-. TXA | 00000A00: 20 20 20 20 20 3B 42 59 54 45 53 20 44 49 53 53 | ;BYTES DISS| 00000A10: 45 4D 42 4C 2E 0D 20 20 20 20 20 20 2E 42 59 54 |EMBL.. .BYT| 00000A20: 45 20 24 34 41 0D 20 20 20 20 20 20 2E 42 59 54 |E $4A. .BYT| 00000A30: 45 20 24 34 41 0D 20 20 20 20 20 20 41 4E 44 20 |E $4A. AND | 00000A40: 23 30 30 33 0D 20 20 20 20 20 20 53 54 41 20 20 |#003. STA | 00000A50: 30 30 37 31 37 20 20 3B 50 3D 50 52 45 46 49 58 |00717 ;P=PREFIX| 00000A60: 2E 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 |.. CLC | 00000A70: 20 20 20 20 3B 54 55 53 53 45 4E 2D 0D 20 20 20 | ;TUSSEN-. | 00000A80: 20 20 20 42 43 43 20 20 50 4A 20 20 20 20 20 3B | BCC PJ ;| 00000A90: 53 50 52 4F 4E 47 2E 0D 50 44 31 20 20 20 43 4C |SPRONG..PD1 CL| 00000AA0: 43 20 20 20 20 20 20 20 20 20 3B 54 55 53 53 45 |C ;TUSSE| 00000AB0: 4E 2D 0D 20 20 20 20 20 20 42 43 43 20 20 50 44 |N-. BCC PD| 00000AC0: 20 20 20 20 20 3B 53 50 52 4F 4E 47 2E 0D 50 46 | ;SPRONG..PF| 00000AD0: 31 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 20 |1 CLC | 00000AE0: 3B 54 55 53 53 45 4E 2D 0D 20 20 20 20 20 20 42 |;TUSSEN-. B| 00000AF0: 43 43 20 20 50 46 20 20 20 20 20 3B 53 50 52 4F |CC PF ;SPRO| 00000B00: 4E 47 2E 0D 50 58 34 20 20 20 43 4C 43 20 20 20 |NG..PX4 CLC | 00000B10: 20 20 20 20 20 20 3B 54 55 53 53 45 4E 2D 0D 20 | ;TUSSEN-. | 00000B20: 20 20 20 20 20 42 43 43 20 20 50 58 33 20 20 20 | BCC PX3 | 00000B30: 20 3B 53 50 52 4F 4E 47 2E 0D 50 4A 20 20 20 20 | ;SPRONG..PJ | 00000B40: 4C 44 41 20 20 30 30 37 31 30 20 20 3B 59 48 2C |LDA 00710 ;YH,| 00000B50: 59 4C 20 4E 41 41 52 0D 20 20 20 20 20 20 53 54 |YL NAAR. ST| 00000B60: 41 20 20 30 33 38 20 20 20 20 3B 28 30 33 39 2C |A 038 ;(039,| 00000B70: 30 33 38 29 2E 0D 20 20 20 20 20 20 4C 44 41 20 |038).. LDA | 00000B80: 20 30 30 37 31 31 0D 20 20 20 20 20 20 53 54 41 | 00711. STA| 00000B90: 20 20 30 33 39 0D 20 20 20 20 20 20 4A 53 52 20 | 039. JSR | 00000BA0: 20 33 37 38 37 36 20 3B 4C 41 42 45 4C 20 49 4E | 37876 ;LABEL IN| 00000BB0: 20 54 41 42 45 4C 3F 0D 20 20 20 20 20 20 43 50 | TABEL?. CP| 00000BC0: 58 20 23 30 30 30 20 20 20 3B 4E 45 45 3A 20 20 |X #000 ;NEE: | 00000BD0: 20 20 2D 2D 2D 3E 5B 50 4B 5D 0D 20 20 20 20 20 | --->[PK]. | 00000BE0: 20 42 4E 45 20 20 50 4B 20 20 20 20 3B 4A 41 3A | BNE PK ;JA:| 00000BF0: 0D 20 20 20 20 20 20 4A 53 52 20 20 33 37 35 31 |. JSR 3751| 00000C00: 30 20 3B 5A 45 54 20 4C 41 42 45 4C 2E 0D 50 4B |0 ;ZET LABEL..PK| 00000C10: 20 20 20 20 4C 44 59 20 23 30 30 36 20 20 20 3B | LDY #006 ;| 00000C20: 42 58 2B 36 3D 3E 42 58 2E 0D 20 20 20 20 20 20 |BX+6=>BX.. | 00000C30: 4A 53 52 20 20 33 38 35 33 32 0D 20 20 20 20 20 |JSR 38532. | 00000C40: 20 4C 44 41 20 20 30 30 37 31 32 20 3B 4F 50 45 | LDA 00712 ;OPE| 00000C50: 52 2E 20 22 2E 42 59 54 45 22 3F 0D 20 20 20 20 |R. ".BYTE"?. | 00000C60: 20 20 43 4D 50 20 23 30 36 33 20 20 20 3B 4E 45 | CMP #063 ;NE| 00000C70: 45 3A 20 20 20 20 2D 2D 2D 3E 5B 50 4C 5D 0D 20 |E: --->[PL]. | 00000C80: 20 20 20 20 20 42 4E 45 20 20 50 4C 20 20 20 20 | BNE PL | 00000C90: 3B 4A 41 3A 0D 20 20 20 20 20 20 4C 44 58 20 23 |;JA:. LDX #| 00000CA0: 30 30 30 20 20 20 3B 5A 45 54 20 59 48 2C 59 4C |000 ;ZET YH,YL| 00000CB0: 0D 20 20 20 20 20 20 4A 53 52 20 20 33 39 37 31 |. JSR 3971| 00000CC0: 31 20 3B 49 4E 20 28 32 35 32 2C 32 35 31 29 2E |1 ;IN (252,251).| 00000CD0: 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 30 20 |. LDY #000 | 00000CE0: 20 20 3B 42 59 54 45 57 41 41 52 44 45 3D 3E 42 | ;BYTEWAARDE=>B| 00000CF0: 49 2E 0D 20 20 20 20 20 20 4C 44 41 20 28 32 35 |I.. LDA (25| 00000D00: 31 29 2C 59 0D 20 20 20 20 20 20 53 54 41 20 20 |1),Y. STA | 00000D10: 32 35 31 0D 20 20 20 20 20 20 4A 53 52 20 20 33 |251. JSR 3| 00000D20: 37 31 38 34 20 3B 52 45 47 45 4C 20 2E 42 59 54 |7184 ;REGEL .BYT| 00000D30: 45 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 31 34 |E.. LDA 14| 00000D40: 34 20 20 20 3B 53 54 41 54 55 53 3D 30 3A 56 4F |4 ;STATUS=0:VO| 00000D50: 4C 47 45 4E 2D 0D 20 20 20 20 20 20 42 45 51 20 |LGEN-. BEQ | 00000D60: 20 50 55 33 20 20 20 3B 44 45 20 52 45 47 45 4C | PU3 ;DE REGEL| 00000D70: 3B 20 41 4E 44 45 52 53 0D 20 20 20 20 20 20 20 |; ANDERS. | 00000D80: 20 20 20 20 20 20 20 20 20 20 3B 4E 41 41 52 20 | ;NAAR | 00000D90: 48 2E 50 2E 20 46 4F 55 54 2E 0D 50 44 32 20 20 |H.P. FOUT..PD2 | 00000DA0: 20 43 4C 43 20 20 20 20 20 20 20 20 3B 54 55 53 | CLC ;TUS| 00000DB0: 53 45 4E 2D 0D 20 20 20 20 20 20 42 43 43 20 20 |SEN-. BCC | 00000DC0: 50 44 31 20 20 20 3B 53 50 52 4F 4E 47 2E 0D 50 |PD1 ;SPRONG..P| 00000DD0: 46 32 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 |F2 CLC | 00000DE0: 3B 54 55 53 53 45 4E 2D 0D 20 20 20 20 20 20 42 |;TUSSEN-. B| 00000DF0: 43 43 20 20 50 46 31 20 20 20 3B 53 50 52 4F 4E |CC PF1 ;SPRON| 00000E00: 47 2E 0D 50 4C 20 20 20 20 4C 44 41 20 20 30 30 |G..PL LDA 00| 00000E10: 37 31 36 20 3B 4E 4E 3D 30 3F 0D 20 20 20 20 20 |716 ;NN=0?. | 00000E20: 20 42 45 51 20 20 50 4E 20 20 20 20 3B 4A 41 3A | BEQ PN ;JA:| 00000E30: 20 20 20 20 20 2D 2D 2D 3E 5B 50 4E 5D 0D 20 20 | --->[PN]. | 00000E40: 20 20 20 20 4A 53 52 20 20 33 37 30 32 34 20 3B | JSR 37024 ;| 00000E50: 4E 45 45 3A 53 55 42 50 41 53 53 20 31 2E 0D 20 |NEE:SUBPASS 1.. | 00000E60: 20 20 20 20 20 4C 44 41 20 20 30 34 30 20 20 20 | LDA 040 | 00000E70: 3B 4A 56 3D 30 3A 20 20 20 2D 2D 2D 3E 5B 50 4E |;JV=0: --->[PN| 00000E80: 5D 0D 20 20 20 20 20 20 42 45 51 20 20 50 4E 0D |]. BEQ PN.| 00000E90: 20 20 20 20 20 20 4C 44 58 20 23 30 30 30 20 20 | LDX #000 | 00000EA0: 20 3B 5A 45 54 20 59 48 2C 59 4C 0D 20 20 20 20 | ;ZET YH,YL. | 00000EB0: 20 20 4A 53 52 20 20 33 39 37 31 31 20 3B 49 4E | JSR 39711 ;IN| 00000EC0: 20 28 32 35 32 2C 32 35 31 29 2E 0D 20 20 20 20 | (252,251).. | 00000ED0: 20 20 4C 44 59 20 23 30 30 30 20 20 20 3B 42 59 | LDY #000 ;BY| 00000EE0: 54 45 57 41 41 52 44 45 3D 3E 42 49 2E 0D 20 20 |TEWAARDE=>BI.. | 00000EF0: 20 20 20 20 4C 44 41 20 28 32 35 31 29 2C 59 0D | LDA (251),Y.| 00000F00: 20 20 20 20 20 20 53 54 41 20 20 32 35 31 0D 20 | STA 251. | 00000F10: 20 20 20 20 20 4A 53 52 20 20 33 37 31 38 34 20 | JSR 37184 | 00000F20: 3B 52 45 47 45 4C 20 2E 42 59 54 45 2E 0D 20 20 |;REGEL .BYTE.. | 00000F30: 20 20 20 20 4C 44 41 20 20 31 34 34 20 20 20 3B | LDA 144 ;| 00000F40: 53 54 41 54 55 53 20 4E 49 45 54 20 4E 55 4C 3A |STATUS NIET NUL:| 00000F50: 0D 20 20 20 20 20 20 42 4E 45 20 20 50 44 32 20 |. BNE PD2 | 00000F60: 20 20 3B 4E 41 41 52 20 48 2E 50 2E 20 46 4F 55 | ;NAAR H.P. FOU| 00000F70: 54 2E 0D 50 4D 20 20 20 20 4A 53 52 20 20 33 37 |T..PM JSR 37| 00000F80: 30 39 36 20 3B 53 55 42 50 41 53 53 20 32 2E 0D |096 ;SUBPASS 2..| 00000F90: 20 20 20 20 20 20 4C 44 41 20 20 31 34 34 20 20 | LDA 144 | 00000FA0: 20 3B 53 54 41 54 55 53 3D 30 3A 56 4F 4C 47 45 | ;STATUS=0:VOLGE| 00000FB0: 4E 2D 0D 20 20 20 20 20 20 42 4E 45 20 20 50 44 |N-. BNE PD| 00000FC0: 32 20 20 20 3B 44 45 20 52 45 47 45 4C 3B 20 41 |2 ;DE REGEL; A| 00000FD0: 4E 44 45 52 53 0D 20 20 20 20 20 20 42 45 51 20 |NDERS. BEQ | 00000FE0: 20 50 55 33 20 20 20 3B 4E 41 41 52 20 48 2E 50 | PU3 ;NAAR H.P| 00000FF0: 2E 20 46 4F 55 54 2E 0D 50 58 33 20 20 20 43 4C |. FOUT..PX3 CL| 00001000: 43 20 20 20 20 20 20 20 20 3B 54 55 53 53 45 4E |C ;TUSSEN| 00001010: 2D 0D 20 20 20 20 20 20 42 43 43 20 20 50 58 32 |-. BCC PX2| 00001020: 20 20 20 3B 53 50 52 4F 4E 47 2E 0D 50 4E 20 20 | ;SPRONG..PN | 00001030: 20 20 4C 44 58 20 20 30 30 37 31 32 20 3B 53 31 | LDX 00712 ;S1| 00001040: 3D 3E 28 58 29 2E 0D 20 20 20 20 20 20 4C 44 59 |=>(X).. LDY| 00001050: 20 23 30 30 30 0D 20 20 20 20 20 20 4C 44 41 20 | #000. LDA | 00001060: 20 34 30 37 33 36 2C 58 0D 20 20 20 20 20 20 53 | 40736,X. S| 00001070: 54 41 20 28 32 35 33 29 2C 59 20 20 3B 4F 50 43 |TA (253),Y ;OPC| 00001080: 4F 44 45 20 31 2E 0D 20 20 20 20 20 20 49 4E 59 |ODE 1.. INY| 00001090: 0D 20 20 20 20 20 20 4C 44 41 20 20 34 30 38 30 |. LDA 4080| 000010A0: 30 2C 58 0D 20 20 20 20 20 20 53 54 41 20 28 32 |0,X. STA (2| 000010B0: 35 33 29 2C 59 20 20 3B 4F 50 43 4F 44 45 20 32 |53),Y ;OPCODE 2| 000010C0: 2E 0D 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 |.. INY. | 000010D0: 20 20 4C 44 41 20 20 34 30 38 36 34 2C 58 0D 20 | LDA 40864,X. | 000010E0: 20 20 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 | STA (253),Y| 000010F0: 20 20 3B 4F 50 43 4F 44 45 20 33 2E 0D 20 20 20 | ;OPCODE 3.. | 00001100: 20 20 20 4C 44 59 20 23 30 30 34 20 20 20 20 20 | LDY #004 | 00001110: 3B 42 58 2B 34 2E 0D 20 20 20 20 20 20 4A 53 52 |;BX+4.. JSR| 00001120: 20 20 33 38 35 33 32 0D 20 20 20 20 20 20 4C 44 | 38532. LD| 00001130: 41 20 20 30 30 37 31 38 20 3B 4E 53 3D 30 3F 0D |A 00718 ;NS=0?.| 00001140: 20 20 20 20 20 20 42 4E 45 20 20 50 4F 0D 20 20 | BNE PO. | 00001150: 20 20 20 20 4A 53 52 20 20 33 37 31 39 38 20 3B | JSR 37198 ;| 00001160: 52 45 47 45 4C 4F 55 54 50 55 54 2E 0D 20 20 20 |REGELOUTPUT.. | 00001170: 20 20 20 4C 44 41 20 20 31 34 34 20 20 20 3B 53 | LDA 144 ;S| 00001180: 54 41 54 55 53 3D 30 3A 56 4F 4C 47 45 4E 2D 0D |TATUS=0:VOLGEN-.| 00001190: 20 20 20 20 20 20 42 45 51 20 20 50 55 33 20 20 | BEQ PU3 | 000011A0: 20 3B 44 45 20 52 45 47 45 4C 3B 20 41 4E 44 45 | ;DE REGEL; ANDE| 000011B0: 52 53 0D 50 44 33 20 20 20 43 4C 43 20 20 20 20 |RS.PD3 CLC | 000011C0: 20 20 20 20 3B 4E 41 41 52 20 48 2E 50 2E 20 46 | ;NAAR H.P. F| 000011D0: 4F 55 54 2E 0D 20 20 20 20 20 20 42 43 43 20 20 |OUT.. BCC | 000011E0: 50 44 32 0D 50 46 33 20 20 20 43 4C 43 20 20 20 |PD2.PF3 CLC | 000011F0: 20 20 20 20 20 3B 54 55 53 53 45 4E 2D 0D 20 20 | ;TUSSEN-. | 00001200: 20 20 20 20 42 43 43 20 20 50 46 32 20 20 20 3B | BCC PF2 ;| 00001210: 53 50 52 4F 4E 47 2E 0D 50 55 33 20 20 20 43 4C |SPRONG..PU3 CL| 00001220: 43 20 20 20 20 20 20 20 20 3B 54 55 53 53 45 4E |C ;TUSSEN| 00001230: 2D 0D 20 20 20 20 20 20 42 43 43 20 20 50 55 32 |-. BCC PU2| 00001240: 20 20 20 3B 53 50 52 4F 4E 47 2E 0D 50 4F 20 20 | ;SPRONG..PO | 00001250: 20 20 4C 44 59 20 23 30 30 30 20 20 20 3B 50 52 | LDY #000 ;PR| 00001260: 45 46 49 58 2E 0D 20 20 20 20 20 20 4C 44 58 20 |EFIX.. LDX | 00001270: 20 30 30 37 31 37 0D 20 20 20 20 20 20 4C 44 41 | 00717. LDA| 00001280: 20 20 34 30 32 32 34 2C 58 0D 20 20 20 20 20 20 | 40224,X. | 00001290: 53 54 41 20 28 32 35 33 29 2C 59 0D 20 20 20 20 |STA (253),Y. | 000012A0: 20 20 49 4E 59 0D 20 20 20 20 20 20 4A 53 52 20 | INY. JSR | 000012B0: 20 33 38 35 33 32 20 3B 4E 41 20 50 52 45 46 49 | 38532 ;NA PREFI| 000012C0: 58 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 |X.. LDA 00| 000012D0: 37 31 33 20 3B 4E 55 4D 2E 4F 50 45 52 41 4E 44 |713 ;NUM.OPERAND| 000012E0: 3F 0D 20 20 20 20 20 20 41 4E 44 20 23 31 32 38 |?. AND #128| 000012F0: 20 20 20 3B 53 32 20 42 49 54 20 37 2E 0D 20 20 | ;S2 BIT 7.. | 00001300: 20 20 20 20 42 45 51 20 20 50 50 20 20 20 20 3B | BEQ PP ;| 00001310: 4E 55 4C 3A 20 20 20 20 2D 2D 2D 3E 5B 50 50 5D |NUL: --->[PP]| 00001320: 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 37 31 |. LDA 0071| 00001330: 34 20 3B 45 45 4E 3A 5A 45 54 20 4F 48 2C 4F 4C |4 ;EEN:ZET OH,OL| 00001340: 0D 20 20 20 20 20 20 53 54 41 20 20 30 33 38 20 |. STA 038 | 00001350: 20 20 3B 49 4E 20 28 30 33 39 2C 30 33 38 29 2E | ;IN (039,038).| 00001360: 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 37 31 |. LDA 0071| 00001370: 35 0D 20 20 20 20 20 20 53 54 41 20 20 30 33 39 |5. STA 039| 00001380: 0D 20 20 20 20 20 20 4A 53 52 20 20 33 37 38 37 |. JSR 3787| 00001390: 36 20 3B 49 4E 20 4C 41 42 45 4C 54 41 42 45 4C |6 ;IN LABELTABEL| 000013A0: 3F 0D 20 20 20 20 20 20 43 50 58 20 23 30 30 30 |?. CPX #000| 000013B0: 20 20 20 3B 4E 45 45 3A 5A 45 54 20 4E 55 4D 45 | ;NEE:ZET NUME| 000013C0: 52 2E 0D 20 20 20 20 20 20 42 45 51 20 20 50 52 |R.. BEQ PR| 000013D0: 20 20 20 20 3B 4F 50 45 52 41 4E 44 2E 0D 20 20 | ;OPERAND.. | 000013E0: 20 20 20 20 4A 53 52 20 20 33 37 30 30 38 20 3B | JSR 37008 ;| 000013F0: 44 45 43 4F 4E 56 2E 44 55 42 42 2E 42 54 45 2E |DECONV.DUBB.BTE.| 00001400: 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 |. CLC. | 00001410: 20 42 43 43 20 20 50 53 0D 50 55 32 20 20 20 43 | BCC PS.PU2 C| 00001420: 4C 43 20 20 20 20 20 20 20 20 3B 54 55 53 53 45 |LC ;TUSSE| 00001430: 4E 2D 0D 20 20 20 20 20 20 42 43 43 20 20 50 55 |N-. BCC PU| 00001440: 31 20 20 20 3B 53 50 52 4F 4E 47 2E 0D 50 58 32 |1 ;SPRONG..PX2| 00001450: 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 3B 54 | CLC ;T| 00001460: 55 53 53 45 4E 2D 0D 20 20 20 20 20 20 42 43 43 |USSEN-. BCC| 00001470: 20 20 50 58 31 20 20 20 3B 53 50 52 4F 4E 47 2E | PX1 ;SPRONG.| 00001480: 0D 50 52 20 20 20 20 4A 53 52 20 20 33 37 35 31 |.PR JSR 3751| 00001490: 30 20 3B 4A 41 3A 4C 41 42 45 4C 20 5A 45 54 54 |0 ;JA:LABEL ZETT| 000014A0: 45 4E 2E 0D 50 53 20 20 20 20 4C 44 59 20 23 30 |EN..PS LDY #0| 000014B0: 30 35 20 20 20 3B 57 49 4A 5A 45 52 20 4E 41 20 |05 ;WIJZER NA | 000014C0: 44 45 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 |DE. JSR 38| 000014D0: 35 33 32 20 3B 4C 41 42 45 4C 2F 4F 50 45 52 41 |532 ;LABEL/OPERA| 000014E0: 4E 44 2E 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 |ND.. CLC. | 000014F0: 20 20 20 20 42 43 43 20 20 50 54 0D 50 44 34 20 | BCC PT.PD4 | 00001500: 20 20 43 4C 43 20 20 20 20 20 20 20 20 3B 54 55 | CLC ;TU| 00001510: 53 53 45 4E 2D 0D 20 20 20 20 20 20 42 43 43 20 |SSEN-. BCC | 00001520: 20 50 44 33 20 20 20 3B 53 50 52 4F 4E 47 2E 0D | PD3 ;SPRONG..| 00001530: 50 46 34 20 20 20 43 4C 43 20 20 20 20 20 20 20 |PF4 CLC | 00001540: 20 3B 54 55 53 53 45 4E 2D 0D 20 20 20 20 20 20 | ;TUSSEN-. | 00001550: 42 43 43 20 20 50 46 33 20 20 20 3B 53 50 52 4F |BCC PF3 ;SPRO| 00001560: 4E 47 2E 0D 50 55 31 20 20 20 43 4C 43 20 20 20 |NG..PU1 CLC | 00001570: 20 20 20 20 20 3B 54 55 53 53 45 4E 2D 0D 20 20 | ;TUSSEN-. | 00001580: 20 20 20 20 42 43 43 20 20 50 55 20 20 20 20 3B | BCC PU ;| 00001590: 53 50 52 4F 4E 47 2E 0D 50 50 20 20 20 20 4C 44 |SPRONG..PP LD| 000015A0: 41 20 23 30 30 30 20 20 20 3B 4E 55 4D 2E 4F 50 |A #000 ;NUM.OP| 000015B0: 45 52 41 4E 44 2E 0D 20 20 20 20 20 20 53 54 41 |ERAND.. STA| 000015C0: 20 20 30 30 37 35 30 20 3B 45 4E 4B 45 4C 42 59 | 00750 ;ENKELBY| 000015D0: 54 45 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 30 |TE.. LDX #0| 000015E0: 30 34 20 20 20 3B 5A 45 54 20 4F 48 2C 4F 4C 0D |04 ;ZET OH,OL.| 000015F0: 20 20 20 20 20 20 4A 53 52 20 20 33 39 37 31 31 | JSR 39711| 00001600: 20 3B 49 4E 20 28 32 35 32 2C 32 35 31 29 2E 0D | ;IN (252,251)..| 00001610: 20 20 20 20 20 20 4C 44 58 20 23 30 30 33 20 20 | LDX #003 | 00001620: 20 3B 33 3D 54 3D 3E 28 58 29 2E 0D 20 20 20 20 | ;3=T=>(X).. | 00001630: 20 20 4C 44 41 20 20 30 30 37 31 38 20 3B 4E 53 | LDA 00718 ;NS| 00001640: 3D 32 3F 0D 20 20 20 20 20 20 43 4D 50 20 23 30 |=2?. CMP #0| 00001650: 30 32 0D 20 20 20 20 20 20 42 4E 45 20 20 50 51 |02. BNE PQ| 00001660: 20 20 20 20 3B 4E 45 45 3A 50 41 47 45 20 5A 45 | ;NEE:PAGE ZE| 00001670: 52 4F 2E 0D 20 20 20 20 20 20 49 4E 43 20 20 30 |RO.. INC 0| 00001680: 30 37 35 30 20 3B 4A 41 3A 50 41 47 45 20 31 2E |0750 ;JA:PAGE 1.| 00001690: 2E 2E 2E 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 |..... LDX #| 000016A0: 30 30 35 20 20 20 3B 35 3D 54 3D 3E 28 58 29 2E |005 ;5=T=>(X).| 000016B0: 0D 50 51 20 20 20 20 53 54 58 20 20 31 30 30 0D |.PQ STX 100.| 000016C0: 20 20 20 20 20 20 4A 53 52 20 20 33 37 34 37 32 | JSR 37472| 000016D0: 20 3B 45 4E 4B 45 4C 2F 44 55 42 42 45 4C 0D 20 | ;ENKEL/DUBBEL. | 000016E0: 20 20 20 20 20 4C 44 59 20 20 31 30 30 20 20 20 | LDY 100 | 000016F0: 3B 44 45 43 4F 4E 56 45 52 53 49 45 2E 0D 20 20 |;DECONVERSIE.. | 00001700: 20 20 20 20 4A 53 52 20 20 33 38 35 33 32 20 3B | JSR 38532 ;| 00001710: 33 20 4F 46 20 35 20 50 4F 53 49 54 49 45 53 2E |3 OF 5 POSITIES.| 00001720: 0D 50 54 20 20 20 20 4C 44 59 20 23 30 30 30 20 |.PT LDY #000 | 00001730: 20 20 3B 53 55 46 46 49 58 2E 0D 20 20 20 20 20 | ;SUFFIX.. | 00001740: 20 4C 44 58 20 20 30 30 37 31 39 0D 20 20 20 20 | LDX 00719. | 00001750: 20 20 4C 44 41 20 20 34 30 32 33 32 2C 58 0D 20 | LDA 40232,X. | 00001760: 20 20 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 | STA (253),Y| 00001770: 0D 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 |. INY. | 00001780: 20 4C 44 41 20 20 34 30 32 34 30 2C 58 0D 20 20 | LDA 40240,X. | 00001790: 20 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 0D | STA (253),Y.| 000017A0: 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 | INY. | 000017B0: 4C 44 41 20 20 34 30 32 34 38 2C 58 0D 20 20 20 |LDA 40248,X. | 000017C0: 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 0D 20 | STA (253),Y. | 000017D0: 20 20 20 20 20 4A 53 52 20 20 33 37 31 39 38 20 | JSR 37198 | 000017E0: 3B 52 45 47 45 4C 4F 55 54 50 55 54 2E 0D 20 20 |;REGELOUTPUT.. | 000017F0: 20 20 20 20 4C 44 41 20 20 31 34 34 20 20 20 3B | LDA 144 ;| 00001800: 53 54 41 54 55 53 20 4E 55 4C 3F 0D 20 20 20 20 |STATUS NUL?. | 00001810: 20 20 42 45 51 20 20 50 55 20 20 20 20 3B 4E 45 | BEQ PU ;NE| 00001820: 45 3A 46 4F 55 54 2E 0D 50 44 35 20 20 20 43 4C |E:FOUT..PD5 CL| 00001830: 43 20 20 20 20 20 20 20 20 3B 54 55 53 53 45 4E |C ;TUSSEN| 00001840: 2D 0D 20 20 20 20 20 20 42 43 43 20 20 50 44 34 |-. BCC PD4| 00001850: 20 20 20 3B 53 50 52 4F 4E 47 2E 0D 50 58 31 20 | ;SPRONG..PX1 | 00001860: 20 20 43 4C 43 20 20 20 20 20 20 20 20 3B 54 55 | CLC ;TU| 00001870: 53 53 45 4E 2D 0D 20 20 20 20 20 20 42 43 43 20 |SSEN-. BCC | 00001880: 20 50 58 20 20 20 20 3B 53 50 52 4F 4E 47 2E 0D | PX ;SPRONG..| 00001890: 50 55 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 |PU CLC | 000018A0: 20 3B 56 4F 4C 47 45 4E 44 45 0D 20 20 20 20 20 | ;VOLGENDE. | 000018B0: 20 4C 44 41 20 20 32 34 37 20 20 20 3B 52 45 47 | LDA 247 ;REG| 000018C0: 45 4C 3A 0D 20 20 20 20 20 20 41 44 43 20 23 30 |EL:. ADC #0| 000018D0: 30 36 20 20 20 3B 28 32 34 38 2C 32 34 37 29 2B |06 ;(248,247)+| 000018E0: 36 0D 20 20 20 20 20 20 53 54 41 20 20 32 34 37 |6. STA 247| 000018F0: 20 20 20 3B 3D 3E 28 32 34 38 2C 32 34 37 29 2E | ;=>(248,247).| 00001900: 0D 20 20 20 20 20 20 4C 44 41 20 20 32 34 38 0D |. LDA 248.| 00001910: 20 20 20 20 20 20 41 44 43 20 23 30 30 30 0D 20 | ADC #000. | 00001920: 20 20 20 20 20 53 54 41 20 20 32 34 38 0D 50 46 | STA 248.PF| 00001930: 35 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 3B |5 CLC ;| 00001940: 20 20 20 20 20 20 20 20 2D 2D 2D 3E 5B 50 46 5D | --->[PF]| 00001950: 0D 20 20 20 20 20 20 42 43 43 20 20 50 46 34 0D |. BCC PF4.| 00001960: 50 58 20 20 20 20 4A 53 52 20 20 33 37 37 32 33 |PX JSR 37723| 00001970: 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 37 0D |. LDY #007.| 00001980: 20 20 20 20 20 20 4A 53 52 20 20 33 38 35 33 32 | JSR 38532| 00001990: 0D 20 20 20 20 20 20 4A 53 52 20 20 33 37 32 35 |. JSR 3725| 000019A0: 36 20 3B 2E 45 4E 44 2E 0D 20 20 20 20 20 20 4A |6 ;.END.. J| 000019B0: 53 52 20 20 33 37 31 39 38 0D 20 20 20 20 20 20 |SR 37198. | 000019C0: 4C 44 41 20 20 31 34 34 20 20 20 3B 53 54 41 54 |LDA 144 ;STAT| 000019D0: 55 53 20 4E 55 4C 3F 0D 20 20 20 20 20 20 42 4E |US NUL?. BN| 000019E0: 45 20 20 50 44 35 20 20 20 3B 4E 45 45 3A 46 4F |E PD5 ;NEE:FO| 000019F0: 55 54 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 30 |UT.. LDA 0| 00001A00: 30 37 35 31 20 3B 54 4F 45 53 54 45 4C 20 49 53 |0751 ;TOESTEL IS| 00001A10: 0D 20 20 20 20 20 20 42 45 51 20 20 50 59 20 20 |. BEQ PY | 00001A20: 20 20 3B 53 43 48 45 52 4D 2F 50 52 49 4E 54 45 | ;SCHERM/PRINTE| 00001A30: 52 3F 0D 20 20 20 20 20 20 43 4D 50 20 23 30 30 |R?. CMP #00| 00001A40: 33 0D 20 20 20 20 20 20 42 43 43 20 20 50 5A 0D |3. BCC PZ.| 00001A50: 50 59 20 20 20 20 4A 53 52 20 20 33 38 38 31 37 |PY JSR 38817| 00001A60: 20 3B 56 4F 4F 52 42 4C 4F 4B 2E 0D 20 20 20 20 | ;VOORBLOK.. | 00001A70: 20 20 4C 44 58 20 23 30 30 33 20 20 20 3B 27 45 | LDX #003 ;'E| 00001A80: 49 4E 44 45 20 56 41 4E 0D 20 20 20 20 20 20 4A |INDE VAN. J| 00001A90: 53 52 20 20 33 38 37 31 32 20 3B 20 44 49 53 53 |SR 38712 ; DISS| 00001AA0: 45 4D 42 4C 41 47 45 2E 27 0D 20 20 20 20 20 20 |EMBLAGE.'. | 00001AB0: 4C 44 41 20 20 30 30 37 35 31 20 3B 54 4F 45 53 |LDA 00751 ;TOES| 00001AC0: 54 45 4C 2E 0D 20 20 20 20 20 20 42 45 51 20 20 |TEL.. BEQ | 00001AD0: 50 5A 20 20 20 20 3B 50 52 49 4E 54 45 52 3A 4D |PZ ;PRINTER:M| 00001AE0: 41 52 47 45 0D 20 20 20 20 20 20 4A 53 52 20 20 |ARGE. JSR | 00001AF0: 33 36 39 39 34 20 3B 48 45 52 5A 45 54 54 45 4E |36994 ;HERZETTEN| 00001B00: 2E 0D 50 5A 20 20 20 20 4A 53 52 20 20 33 37 36 |..PZ JSR 376| 00001B10: 39 37 20 3B 53 4C 55 49 54 45 4E 2E 0D 20 20 20 |97 ;SLUITEN.. | 00001B20: 20 20 20 4C 44 41 20 20 31 34 34 20 20 20 3B 53 | LDA 144 ;S| 00001B30: 54 41 54 55 53 2E 0D 20 20 20 20 20 20 42 4E 45 |TATUS.. BNE| 00001B40: 20 20 50 44 35 20 20 20 3B 4E 49 45 54 20 4E 55 | PD5 ;NIET NU| 00001B50: 4C 3A 46 4F 55 54 2E 0D 20 20 20 20 20 20 52 54 |L:FOUT.. RT| 00001B60: 53 20 20 20 20 20 20 20 20 3B 4E 55 4C 3A 20 4B |S ;NUL: K| 00001B70: 4C 41 41 52 2E 0D 20 20 20 20 20 20 2E 42 59 54 |LAAR.. .BYT| 00001B80: 45 20 32 35 35 0D 20 20 20 20 20 20 2E 42 59 54 |E 255. .BYT| 00001B90: 45 20 32 35 35 0D 20 20 20 20 20 20 2E 42 59 54 |E 255. .BYT| 00001BA0: 45 20 32 35 35 0D 20 20 20 20 20 20 2E 42 59 54 |E 255. .BYT| 00001BB0: 45 20 32 35 35 0D 20 20 20 20 20 20 2E 42 59 54 |E 255. .BYT| 00001BC0: 45 20 32 35 35 0D 20 20 20 20 20 20 2E 42 59 54 |E 255. .BYT| 00001BD0: 45 20 32 35 35 0D 20 20 20 20 20 20 2E 42 59 54 |E 255. .BYT| 00001BE0: 45 20 32 35 35 0D 20 20 20 20 20 20 2E 42 59 54 |E 255. .BYT| 00001BF0: 45 20 32 35 35 0D 20 20 20 20 20 20 2E 42 59 54 |E 255. .BYT| 00001C00: 45 20 32 35 35 0D 20 20 20 20 20 20 2E 42 59 54 |E 255. .BYT| 00001C10: 45 20 32 35 35 0D 20 20 20 20 20 20 2E 45 4E 44 |E 255. .END| 00001C20: 0D |. |
*=36345. JSR 38817 ;BEGIN
ADRES VAN. LDX #016 ;VOORBLOK..
JSR 38712 ;'DOORGANG 2.'. LDX
#010 ;BEGINADRES VAN. JSR 38381
;BESTANDSNAAM.. JSR 37564 ;OPEN TO
EST.0-3.. LDA 144 ;STATUS 0? NEE
:. BNE PD ;NAAR H.P. FOUT..PA
LDA 00751 ;SCHERM/PRINTER?. BEQ
PB. CMP #003 ;NEE: --->[PC].
BCC PC ;JA:.PB JSR 38817 ;V
OORBLOK.. LDA 00751 ;TOESTEL..
BEQ PBA ;PRINTER:MARGE.. JSR
36974 ;INZETTEN..PBA LDX #001 ;'DISS
EMBLAGE.'. JSR 38712. LDX #05
0 ;BEGINADRES AB. JSR 39711 ;NAA
R (252,251).. JSR 38792 ;VUL XXXXX
.. LDX #052 ; EINDADRES AE.
JSR 39711 ;NAAR (252,251).. JSR 3
8804 ;VUL YYYYY.. LDX #002 ;'VELD
VAN XXXXX. JSR 38712 ; T/M YYYYY.
'. JSR 38488 ;OPEN REGEL NA..
;BX=(254,253)..PC JSR
37723 ;*************. LDY #010
;BU=>BX MET. LDA #042 ;20 SPA
TIES NA. STA (253),Y ;LENGTEBYTE..
INY ;ZET OP 10 '*'..
LDA #061 ;ZET OP 11 '='.. STA
(253),Y. INY ;12=>(Y)..
JSR 38532 ;BX+(Y)=>BX.. LDX #050
;BN=(252,251).. JSR 39711 ;*****
********. JSR 37008 ;AB=>BN VOOR.
;DECONVERSIE.
;DUBBELBYTE. ;HEXA
DEC./DEC.. JSR 37198 ;REGELOUTPUT.
. LDA 144 ;STATUS 0?. BEQ
PE ;NEE:.PD JSR 37538 ;ALARM EN.
RTS ;NAAR H.P..PE LDA 24
7 ;RE=>(758,757).. STA 00757 ;
(RE=RX UIT. LDA 248 ; DOORGANG
1.). STA 00758. LDX #000 ;
RU=>(248,247).. JSR 38381. LD
X #000. JSR 39722.PF LDA 248
;BEGIN VAN. CMP 00758 ;REGELLUS..
BNE PG. LDA 247. CMP
00757.PG BCS PX4. LDA 00751 ;
SCHERM:GEEN. BEQ PGA ;REGELNUMM
ER.. JSR 37969 ;OVERIGE:WEL..PGA
LDY #005 ;VUL WERKBYTES..PH LDA
(247),Y. STA 00710,Y. DEY.
BPL PH.PI JSR 37723 ;POETS REGE
L. LDY #001 ;VOOR OUTPUT..
JSR 38532 ;BU+1=>BX.. LDX 00712
;S1 IN X.. TXA. AND #192 ;
NN UIT S1.. CLC ;NAAR BIT 1
,0.. .BYTE $2A. .BYTE $2A.
.BYTE $2A ;NN=AANTAL NA-. STA
00716 ;BYTES OPDRACHT.. TXA
;S1 ZONDER NN IS. AND #063 ;OP
CODE-INDEX.. STA 00712. LDX
00713 ;S2 IN X.. TXA. AND #00
7. STA 00719 ;S=SUFFIX.. TXA
. .BYTE $4A. .BYTE $4A. .
BYTE $4A. TAX. AND #003.
STA 00718 ;NS=AANTAL NA-. TXA
;BYTES DISSEMBL.. .BYTE $4A.
.BYTE $4A. AND #003. STA
00717 ;P=PREFIX.. CLC ;TUS
SEN-. BCC PJ ;SPRONG..PD1 CL
C ;TUSSEN-. BCC PD ;SP
RONG..PF1 CLC ;TUSSEN-. B
CC PF ;SPRONG..PX4 CLC ;T
USSEN-. BCC PX3 ;SPRONG..PJ
LDA 00710 ;YH,YL NAAR. STA 038
;(039,038).. LDA 00711. STA
039. JSR 37876 ;LABEL IN TABEL?.
CPX #000 ;NEE: --->[PK].
BNE PK ;JA:. JSR 37510 ;ZET L
ABEL..PK LDY #006 ;BX+6=>BX..
JSR 38532. LDA 00712 ;OPER. ".BYT
E"?. CMP #063 ;NEE: --->[PL].
BNE PL ;JA:. LDX #000 ;Z
ET YH,YL. JSR 39711 ;IN (252,251).
. LDY #000 ;BYTEWAARDE=>BI..
LDA (251),Y. STA 251. JSR 3
7184 ;REGEL .BYTE.. LDA 144 ;STA
TUS=0:VOLGEN-. BEQ PU3 ;DE REGEL
; ANDERS. ;NAAR H.P. FOU
T..PD2 CLC ;TUSSEN-. BCC
PD1 ;SPRONG..PF2 CLC ;TUSSEN-
. BCC PF1 ;SPRONG..PL LDA 00
716 ;NN=0?. BEQ PN ;JA: ---
>[PN]. JSR 37024 ;NEE:SUBPASS 1..
LDA 040 ;JV=0: --->[PN].
BEQ PN. LDX #000 ;ZET YH,YL.
JSR 39711 ;IN (252,251).. LDY #0
00 ;BYTEWAARDE=>BI.. LDA (251),Y.
STA 251. JSR 37184 ;REGEL .
BYTE.. LDA 144 ;STATUS NIET NUL:
. BNE PD2 ;NAAR H.P. FOUT..PM
JSR 37096 ;SUBPASS 2.. LDA 144
;STATUS=0:VOLGEN-. BNE PD2 ;DE
REGEL; ANDERS. BEQ PU3 ;NAAR H.P
. FOUT..PX3 CLC ;TUSSEN-.
BCC PX2 ;SPRONG..PN LDX 00712 ;S1
=>(X).. LDY #000. LDA 40736,X
. STA (253),Y ;OPCODE 1.. INY
. LDA 40800,X. STA (253),Y ;
OPCODE 2.. INY. LDA 40864,X.
STA (253),Y ;OPCODE 3.. LDY #
004 ;BX+4.. JSR 38532. LD
A 00718 ;NS=0?. BNE PO. JSR
37198 ;REGELOUTPUT.. LDA 144 ;S
TATUS=0:VOLGEN-. BEQ PU3 ;DE REG
EL; ANDERS.PD3 CLC ;NAAR H.P. F
OUT.. BCC PD2.PF3 CLC ;TU
SSEN-. BCC PF2 ;SPRONG..PU3 CL
C ;TUSSEN-. BCC PU2 ;SPRO
NG..PO LDY #000 ;PREFIX.. LDX
00717. LDA 40224,X. STA (253
),Y. INY. JSR 38532 ;NA PREFI
X.. LDA 00713 ;NUM.OPERAND?.
AND #128 ;S2 BIT 7.. BEQ PP ;
NUL: --->[PP]. LDA 00714 ;EEN:Z
ET OH,OL. STA 038 ;IN (039,038).
. LDA 00715. STA 039. J
SR 37876 ;IN LABELTABEL?. CPX #000
;NEE:ZET NUMER.. BEQ PR ;OPE
RAND.. JSR 37008 ;DECONV.DUBB.BTE.
. CLC. BCC PS.PU2 CLC
;TUSSEN-. BCC PU1 ;SPRONG..PX2
CLC ;TUSSEN-. BCC PX1
;SPRONG..PR JSR 37510 ;JA:LABEL ZETT
EN..PS LDY #005 ;WIJZER NA DE.
JSR 38532 ;LABEL/OPERAND.. CLC.
BCC PT.PD4 CLC ;TUSSEN-.
BCC PD3 ;SPRONG..PF4 CLC
;TUSSEN-. BCC PF3 ;SPRONG..PU1
CLC ;TUSSEN-. BCC PU ;
SPRONG..PP LDA #000 ;NUM.OPERAND..
STA 00750 ;ENKELBYTE.. LDX #0
04 ;ZET OH,OL. JSR 39711 ;IN (25
2,251).. LDX #003 ;3=T=>(X)..
LDA 00718 ;NS=2?. CMP #002.
BNE PQ ;NEE:PAGE ZERO.. INC 0
0750 ;JA:PAGE 1...... LDX #005 ;5
=T=>(X)..PQ STX 100. JSR 37472
;ENKEL/DUBBEL. LDY 100 ;DECONVE
RSIE.. JSR 38532 ;3 OF 5 POSITIES.
.PT LDY #000 ;SUFFIX.. LDX 00
719. LDA 40232,X. STA (253),Y
. INY. LDA 40240,X. STA
(253),Y. INY. LDA 40248,X.
STA (253),Y. JSR 37198 ;REGELOU
TPUT.. LDA 144 ;STATUS NUL?.
BEQ PU ;NEE:FOUT..PD5 CLC
;TUSSEN-. BCC PD4 ;SPRONG..PX1
CLC ;TUSSEN-. BCC PX ;
SPRONG..PU CLC ;VOLGENDE.
LDA 247 ;REGEL:. ADC #006 ;(2
48,247)+6. STA 247 ;=>(248,247).
. LDA 248. ADC #000. STA
248.PF5 CLC ; --->[PF]
. BCC PF4.PX JSR 37723. L
DY #007. JSR 38532. JSR 3725
6 ;.END.. JSR 37198. LDA 144
;STATUS NUL?. BNE PD5 ;NEE:FO
UT.. LDA 00751 ;TOESTEL IS. B
EQ PY ;SCHERM/PRINTER?. CMP #00
3. BCC PZ.PY JSR 38817 ;VOORBL
OK.. LDX #003 ;'EINDE VAN. J
SR 38712 ; DISSEMBLAGE.'. LDA 007
51 ;TOESTEL.. BEQ PZ ;PRINTER:M
ARGE. JSR 36994 ;HERZETTEN..PZ
JSR 37697 ;SLUITEN.. LDA 144 ;S
TATUS.. BNE PD5 ;NIET NUL:FOUT..
RTS ;NUL: KLAAR.. .BYT
E 255. .BYTE 255. .BYTE 255.
.BYTE 255. .BYTE 255. .BYT
E 255. .BYTE 255. .BYTE 255.
.BYTE 255. .BYTE 255. .END
.
> CLICK IMAGE PREVIEW FOR FULL MODAL