DISA05
FILE INFORMATION
FILENAME(S): DISA05
FILE TYPE(S): DEL
FILE SIZE: 8.4K
FIRST SEEN: 2025-11-30 21:27:27
APPEARS ON: 1 disk(s)
FILE HASH
e9060684411174d5876456ead7e20f17a82e8b3ee4e650461c4526d39fa3505e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TESTFILES | DISA05 | DEL | DuncanTwain | 25 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 36 2C 30 34 31 0D 20 20 20 20 20 20 43 4C 43 0D |6,041. CLC.| 00000010: 20 20 20 20 20 20 41 44 43 20 20 30 33 38 0D 20 | ADC 038. | 00000020: 20 20 20 20 20 53 54 41 20 20 30 33 38 0D 20 20 | STA 038. | 00000030: 20 20 20 20 4C 44 41 20 20 30 34 31 0D 20 20 20 | LDA 041. | 00000040: 20 20 20 41 44 43 20 20 30 33 39 0D 20 20 20 20 | ADC 039. | 00000050: 20 20 53 54 41 20 20 30 33 39 0D 20 20 20 20 20 | STA 039. | 00000060: 20 49 4E 59 20 20 20 20 20 20 20 20 20 3B 56 4F | INY ;VO| 00000070: 4C 47 45 4E 44 20 43 49 4A 46 45 52 2E 0D 20 20 |LGEND CIJFER.. | 00000080: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 42 43 | CLC. BC| 00000090: 43 20 20 4F 4F 30 30 33 0D 4F 4F 30 30 36 20 4C |C OO003.OO006 L| 000000A0: 44 59 20 20 30 30 32 20 20 20 20 3B 48 45 52 53 |DY 002 ;HERS| 000000B0: 54 45 4C 20 28 59 29 2E 0D 20 20 20 20 20 20 52 |TEL (Y).. R| 000000C0: 54 53 20 20 20 20 20 20 20 20 20 3B 4E 41 41 52 |TS ;NAAR| 000000D0: 20 48 2E 50 2E 0D 20 20 20 20 20 20 4E 4F 50 0D | H.P.. NOP.| 000000E0: 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 | NOP. | 000000F0: 4E 4F 50 0D 20 20 20 20 20 20 20 20 20 2A 3D 33 |NOP. *=3| 00000100: 37 33 38 34 0D 4F 4F 30 31 37 20 53 54 59 20 20 |7384.OO017 STY | 00000110: 30 33 39 20 20 3B 45 45 4E 42 59 54 45 20 42 49 |039 ;EENBYTE BI| 00000120: 4E 2D 48 45 58 2E 0D 20 20 20 20 20 20 4C 44 59 |N-HEX.. LDY| 00000130: 20 23 30 30 30 20 20 3B 49 4E 3A 28 32 35 31 29 | #000 ;IN:(251)| 00000140: 20 42 49 4E 41 49 52 2E 0D 20 20 20 20 20 20 4C | BINAIR.. L| 00000150: 44 41 20 20 32 35 31 20 20 3B 55 49 54 3A 41 46 |DA 251 ;UIT:AF| 00000160: 20 41 44 52 45 53 0D 20 20 20 20 20 20 2E 42 59 | ADRES. .BY| 00000170: 54 45 20 24 34 41 20 3B 41 55 3D 28 32 35 34 2C |TE $4A ;AU=(254,| 00000180: 32 35 33 29 2E 0D 20 20 20 20 20 20 2E 42 59 54 |253).. .BYT| 00000190: 45 20 24 34 41 20 3B 53 43 48 55 49 46 20 34 20 |E $4A ;SCHUIF 4 | 000001A0: 42 49 54 53 0D 20 20 20 20 20 20 2E 42 59 54 45 |BITS. .BYTE| 000001B0: 20 24 34 41 20 3B 4E 41 41 52 20 52 45 43 48 54 | $4A ;NAAR RECHT| 000001C0: 53 2E 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 |S.. .BYTE $| 000001D0: 34 41 20 3B 4D 2E 53 2E 44 45 45 4C 2E 0D 20 20 |4A ;M.S.DEEL.. | 000001E0: 20 20 20 20 4F 52 41 20 23 30 34 38 0D 20 20 20 | ORA #048. | 000001F0: 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 0D 20 | STA (253),Y. | 00000200: 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 4C | INY. L| 00000210: 44 41 20 20 32 35 31 20 20 3B 4C 2E 53 2E 44 45 |DA 251 ;L.S.DE| 00000220: 45 4C 2E 0D 20 20 20 20 20 20 41 4E 44 20 23 30 |EL.. AND #0| 00000230: 31 35 0D 20 20 20 20 20 20 4F 52 41 20 23 30 34 |15. ORA #04| 00000240: 38 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 33 |8. STA (253| 00000250: 29 2C 59 0D 4F 4F 30 30 38 20 4C 44 41 20 28 32 |),Y.OO008 LDA (2| 00000260: 35 33 29 2C 59 20 3B 48 45 58 41 44 45 43 2E 54 |53),Y ;HEXADEC.T| 00000270: 45 4B 45 4E 2E 0D 20 20 20 20 20 20 43 4D 50 20 |EKEN.. CMP | 00000280: 23 30 35 38 0D 20 20 20 20 20 20 42 43 43 20 20 |#058. BCC | 00000290: 4F 4F 30 30 39 0D 20 20 20 20 20 20 41 44 43 20 |OO009. ADC | 000002A0: 23 30 30 36 0D 20 20 20 20 20 20 53 54 41 20 28 |#006. STA (| 000002B0: 32 35 33 29 2C 59 0D 4F 4F 30 30 39 20 44 45 59 |253),Y.OO009 DEY| 000002C0: 0D 20 20 20 20 20 20 42 50 4C 20 20 4F 4F 30 30 |. BPL OO00| 000002D0: 38 0D 20 20 20 20 20 20 4C 44 59 20 20 30 33 39 |8. LDY 039| 000002E0: 20 20 20 20 3B 48 45 52 53 54 45 4C 20 28 59 29 | ;HERSTEL (Y)| 000002F0: 2E 0D 20 20 20 20 20 20 52 54 53 20 20 20 20 20 |.. RTS | 00000300: 20 20 20 20 3B 4E 41 41 52 20 48 2E 50 2E 0D 44 | ;NAAR H.P..D| 00000310: 45 43 49 20 20 4C 44 41 20 20 30 30 37 35 30 20 |ECI LDA 00750 | 00000320: 20 3B 44 45 43 2E 4F 50 20 56 4C 41 47 20 44 42 | ;DEC.OP VLAG DB| 00000330: 3A 0D 20 20 20 20 20 20 42 45 51 20 20 44 45 4E |:. BEQ DEN| 00000340: 4B 20 20 20 3B 30 3D 45 4E 4B 45 4C 42 59 54 45 |K ;0=ENKELBYTE| 00000350: 3B 0D 20 20 20 20 20 20 4A 53 52 20 20 33 39 37 |;. JSR 397| 00000360: 34 34 20 20 3B 31 3D 44 55 42 42 45 4C 42 59 54 |44 ;1=DUBBELBYT| 00000370: 45 2E 0D 20 20 20 20 20 20 52 54 53 0D 44 45 4E |E.. RTS.DEN| 00000380: 4B 20 20 4A 53 52 20 20 4F 4F 30 31 38 0D 20 20 |K JSR OO018. | 00000390: 20 20 20 20 52 54 53 0D 48 45 58 41 20 20 4C 44 | RTS.HEXA LD| 000003A0: 41 20 20 30 30 37 35 30 20 20 3B 48 45 58 2E 4F |A 00750 ;HEX.O| 000003B0: 50 20 56 4C 41 47 20 44 42 3A 0D 20 20 20 20 20 |P VLAG DB:. | 000003C0: 20 42 45 51 20 20 48 45 4E 4B 20 20 20 3B 30 3D | BEQ HENK ;0=| 000003D0: 45 4E 4B 45 4C 42 59 54 45 3B 0D 20 20 20 20 20 |ENKELBYTE;. | 000003E0: 20 4A 53 52 20 20 33 39 38 38 38 20 20 3B 31 3D | JSR 39888 ;1=| 000003F0: 44 55 42 42 45 4C 42 59 54 45 2E 0D 20 20 20 20 |DUBBELBYTE.. | 00000400: 20 20 52 54 53 0D 48 45 4E 4B 20 20 4A 53 52 20 | RTS.HENK JSR | 00000410: 20 4F 4F 30 31 37 0D 20 20 20 20 20 20 52 54 53 | OO017. RTS| 00000420: 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 30 20 |. LDY #000 | 00000430: 20 20 20 3B 4C 45 4E 47 54 45 20 56 41 4E 0D 20 | ;LENGTE VAN. | 00000440: 20 20 20 20 20 4C 44 41 20 28 32 35 33 29 2C 59 | LDA (253),Y| 00000450: 20 3B 45 4C 45 4D 45 4E 54 20 42 45 50 41 4C 45 | ;ELEMENT BEPALE| 00000460: 4E 0D 20 20 20 20 20 20 42 4E 45 20 20 4F 4F 30 |N. BNE OO0| 00000470: 31 30 20 20 3B 4D 45 54 20 54 45 52 55 47 54 45 |10 ;MET TERUGTE| 00000480: 4C 4C 45 4E 0D 20 20 20 20 20 20 52 54 53 20 20 |LLEN. RTS | 00000490: 20 20 20 20 20 20 20 3B 56 41 4E 20 4E 41 53 50 | ;VAN NASP| 000004A0: 41 54 49 45 53 2E 0D 4F 4F 30 31 30 20 54 41 59 |ATIES..OO010 TAY| 000004B0: 20 20 20 20 20 20 20 20 20 3B 28 32 35 34 2C 32 | ;(254,2| 000004C0: 35 33 29 20 57 49 4A 53 54 0D 4F 4F 30 31 31 20 |53) WIJST.OO011 | 000004D0: 4C 44 41 20 28 32 35 33 29 2C 59 20 3B 4C 45 4E |LDA (253),Y ;LEN| 000004E0: 47 54 45 42 59 54 45 20 41 41 4E 2E 0D 20 20 20 |GTEBYTE AAN.. | 000004F0: 20 20 20 43 4D 50 20 23 30 33 32 0D 20 20 20 20 | CMP #032. | 00000500: 20 20 42 4E 45 20 20 4F 4F 30 31 32 0D 20 20 20 | BNE OO012. | 00000510: 20 20 20 44 45 59 0D 20 20 20 20 20 20 42 4E 45 | DEY. BNE| 00000520: 20 20 4F 4F 30 31 31 0D 4F 4F 30 31 32 20 54 59 | OO011.OO012 TY| 00000530: 41 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 30 |A. LDY #000| 00000540: 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 33 29 |. STA (253)| 00000550: 2C 59 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 |,Y. RTS. | 00000560: 20 20 20 4C 44 41 20 20 30 30 37 35 36 20 20 3B | LDA 00756 ;| 00000570: 44 45 43 4F 4E 56 45 52 53 49 45 20 4F 50 0D 20 |DECONVERSIE OP. | 00000580: 20 20 20 20 20 42 45 51 20 20 4F 4F 30 31 33 20 | BEQ OO013 | 00000590: 20 3B 44 42 2D 20 45 4E 20 44 43 2D 56 4C 41 47 | ;DB- EN DC-VLAG| 000005A0: 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 44 45 43 |.. JSR DEC| 000005B0: 49 0D 20 20 20 20 20 20 52 54 53 0D 4F 4F 30 31 |I. RTS.OO01| 000005C0: 33 20 4C 44 59 20 23 30 30 30 0D 20 20 20 20 20 |3 LDY #000. | 000005D0: 20 4C 44 41 20 23 30 33 36 20 20 20 20 3B 27 24 | LDA #036 ;'$| 000005E0: 27 20 56 4F 4F 52 4F 50 2E 0D 20 20 20 20 20 20 |' VOOROP.. | 000005F0: 53 54 41 20 28 32 35 33 29 2C 59 0D 20 20 20 20 |STA (253),Y. | 00000600: 20 20 4C 44 41 20 20 32 35 34 20 20 20 20 3B 52 | LDA 254 ;R| 00000610: 45 44 20 41 44 52 45 53 2E 0D 20 20 20 20 20 20 |ED ADRES.. | 00000620: 50 48 41 0D 20 20 20 20 20 20 4C 44 41 20 20 32 |PHA. LDA 2| 00000630: 35 33 0D 20 20 20 20 20 20 50 48 41 0D 20 20 20 |53. PHA. | 00000640: 20 20 20 49 4E 43 20 20 32 35 33 0D 20 20 20 20 | INC 253. | 00000650: 20 20 42 4E 45 20 20 4F 4F 30 31 34 0D 20 20 20 | BNE OO014. | 00000660: 20 20 20 49 4E 43 20 20 32 35 34 0D 4F 4F 30 31 | INC 254.OO01| 00000670: 34 20 4A 53 52 20 20 48 45 58 41 0D 20 20 20 20 |4 JSR HEXA. | 00000680: 20 20 50 4C 41 20 20 20 20 20 20 20 20 20 3B 48 | PLA ;H| 00000690: 45 52 53 54 45 4C 20 41 44 52 45 53 2E 0D 20 20 |ERSTEL ADRES.. | 000006A0: 20 20 20 20 53 54 41 20 20 32 35 33 0D 20 20 20 | STA 253. | 000006B0: 20 20 20 50 4C 41 0D 20 20 20 20 20 20 53 54 41 | PLA. STA| 000006C0: 20 20 32 35 34 0D 20 20 20 20 20 20 52 54 53 0D | 254. RTS.| 000006D0: 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 | NOP. | 000006E0: 4A 53 52 20 20 33 39 37 34 34 20 20 20 3B 4C 41 |JSR 39744 ;LA| 000006F0: 42 45 4C 20 5A 45 54 54 45 4E 2E 0D 20 20 20 20 |BEL ZETTEN.. | 00000700: 20 20 4C 44 59 20 23 30 30 31 20 20 20 20 20 3B | LDY #001 ;| 00000710: 56 4F 4F 52 4C 45 54 54 45 52 53 0D 4F 4F 30 34 |VOORLETTERS.OO04| 00000720: 30 20 4C 44 41 20 20 30 30 37 36 36 2C 59 20 3B |0 LDA 00766,Y ;| 00000730: 55 49 54 20 28 37 36 36 2C 37 36 37 29 2E 0D 20 |UIT (766,767).. | 00000740: 20 20 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 | STA (253),Y| 00000750: 20 20 3B 49 4E 3A 20 28 32 35 32 2C 32 35 31 29 | ;IN: (252,251)| 00000760: 2E 0D 20 20 20 20 20 20 44 45 59 20 20 20 20 20 |.. DEY | 00000770: 20 20 20 20 20 3B 55 49 54 3A 28 32 35 34 2C 32 | ;UIT:(254,2| 00000780: 35 33 29 0D 20 20 20 20 20 20 42 50 4C 20 20 4F |53). BPL O| 00000790: 4F 30 34 30 20 20 20 3B 42 45 47 49 4E 41 44 52 |O040 ;BEGINADR| 000007A0: 45 53 2E 0D 20 20 20 20 20 20 52 54 53 0D 20 20 |ES.. RTS. | 000007B0: 20 20 20 20 4A 53 52 20 20 33 39 37 34 34 20 20 | JSR 39744 | 000007C0: 20 3B 54 57 45 45 20 56 4F 4F 52 4E 55 4C 2D 0D | ;TWEE VOORNUL-.| 000007D0: 20 20 20 20 20 20 4C 44 59 20 23 30 30 31 20 20 | LDY #001 | 000007E0: 20 20 20 3B 4C 45 4E 20 56 45 52 56 41 4E 47 45 | ;LEN VERVANGE| 000007F0: 4E 0D 20 20 20 20 20 20 4C 44 41 20 23 30 33 32 |N. LDA #032| 00000800: 20 20 20 20 20 3B 44 4F 4F 52 20 53 50 41 54 49 | ;DOOR SPATI| 00000810: 45 53 2E 0D 4F 4F 30 34 31 20 53 54 41 20 28 32 |ES..OO041 STA (2| 00000820: 35 33 29 2C 59 20 20 3B 49 4E 3A 20 28 32 35 32 |53),Y ;IN: (252| 00000830: 2C 32 35 31 29 2E 0D 20 20 20 20 20 20 44 45 59 |,251).. DEY| 00000840: 20 20 20 20 20 20 20 20 20 20 3B 55 49 54 3A 28 | ;UIT:(| 00000850: 32 35 34 2C 32 35 33 29 0D 20 20 20 20 20 20 42 |254,253). B| 00000860: 50 4C 20 20 4F 4F 30 34 31 20 20 20 3B 42 45 47 |PL OO041 ;BEG| 00000870: 49 4E 41 44 52 45 53 2E 0D 20 20 20 20 20 20 52 |INADRES.. R| 00000880: 54 53 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 |TS. NOP. | 00000890: 20 20 20 4C 44 41 20 20 31 34 34 20 20 20 20 3B | LDA 144 ;| 000008A0: 53 54 41 54 55 53 20 4F 50 0D 20 20 20 20 20 20 |STATUS OP. | 000008B0: 53 54 41 20 20 32 35 31 20 20 20 20 3B 53 43 48 |STA 251 ;SCH| 000008C0: 45 52 4D 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 |ERM.. LDA #| 000008D0: 30 30 30 0D 20 20 20 20 20 20 53 54 41 20 20 32 |000. STA 2| 000008E0: 35 32 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 |52. JSR 38| 000008F0: 37 39 32 20 20 3B 56 55 4C 20 58 58 58 58 58 2E |792 ;VUL XXXXX.| 00000900: 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 38 31 |. JSR 3881| 00000910: 37 20 20 3B 54 45 58 54 20 56 4F 4F 52 42 4C 4F |7 ;TEXT VOORBLO| 00000920: 4B 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 |K.. LDX #00| 00000930: 30 20 20 20 20 3B 27 54 4F 45 53 54 41 4E 44 20 |0 ;'TOESTAND | 00000940: 58 58 58 2E 27 0D 20 20 20 20 20 20 4A 53 52 20 |XXX.'. JSR | 00000950: 20 33 38 37 31 32 0D 20 20 20 20 20 20 4C 44 58 | 38712. LDX| 00000960: 20 23 30 32 34 20 20 20 20 3B 4F 50 45 4E 20 52 | #024 ;OPEN R| 00000970: 45 47 45 4C 2E 0D 20 20 20 20 20 20 4A 53 52 20 |EGEL.. JSR | 00000980: 20 33 38 37 31 32 0D 20 20 20 20 20 20 52 54 53 | 38712. RTS| 00000990: 20 20 20 20 20 20 20 20 20 3B 4E 41 41 52 20 48 | ;NAAR H| 000009A0: 2E 50 2E 0D 20 20 20 20 20 20 4E 4F 50 0D 4F 50 |.P.. NOP.OP| 000009B0: 30 20 20 20 4C 44 41 20 23 30 30 35 20 20 20 20 |0 LDA #005 | 000009C0: 3B 2A 2A 4F 50 45 4E 45 4E 2E 20 2A 2A 0D 20 20 |;**OPENEN. **. | 000009D0: 20 20 20 20 4C 44 58 20 20 30 30 37 35 31 20 20 | LDX 00751 | 000009E0: 3B 42 45 53 54 2E 35 3B 54 4F 45 53 54 45 4C 2E |;BEST.5;TOESTEL.| 000009F0: 0D 20 20 20 20 20 20 42 4E 45 20 20 4F 50 31 20 |. BNE OP1 | 00000A00: 20 20 20 3B 30 3A 20 53 43 48 45 52 4D 2E 0D 20 | ;0: SCHERM.. | 00000A10: 20 20 20 20 20 4C 44 58 20 23 30 30 33 20 20 20 | LDX #003 | 00000A20: 20 3B 41 50 50 41 52 41 41 54 4E 52 2E 0D 20 20 | ;APPARAATNR.. | 00000A30: 20 20 20 20 42 4E 45 20 20 4F 50 32 20 20 20 20 | BNE OP2 | 00000A40: 3B 20 20 20 20 20 20 20 2D 2D 3E 5B 4F 50 32 5D |; -->[OP2]| 00000A50: 0D 4F 50 31 20 20 20 43 50 58 20 23 30 30 33 0D |.OP1 CPX #003.| 00000A60: 20 20 20 20 20 20 42 4E 45 20 20 4F 50 35 20 20 | BNE OP5 | 00000A70: 20 20 3B 33 3A 20 50 52 49 4E 54 45 52 2E 0D 20 | ;3: PRINTER.. | 00000A80: 20 20 20 20 20 4C 44 58 20 23 30 30 34 20 20 20 | LDX #004 | 00000A90: 20 3B 41 50 50 41 52 41 41 54 4E 52 2E 0D 4F 50 | ;APPARAATNR..OP| 00000AA0: 32 20 20 20 4C 44 59 20 23 30 30 30 20 20 20 20 |2 LDY #000 | 00000AB0: 3B 53 45 43 2E 41 44 52 2E 4E 55 4C 2E 0D 20 20 |;SEC.ADR.NUL.. | 00000AC0: 20 20 20 20 4A 53 52 20 20 36 35 34 36 36 20 20 | JSR 65466 | 00000AD0: 3B 2A 20 53 45 54 4C 46 53 20 2A 0D 20 20 20 20 |;* SETLFS *. | 00000AE0: 20 20 4C 44 41 20 23 30 30 30 20 20 20 20 3B 47 | LDA #000 ;G| 00000AF0: 45 45 4E 20 4E 41 41 4D 2E 0D 20 20 20 20 20 20 |EEN NAAM.. | 00000B00: 42 45 51 20 20 4F 50 39 20 20 20 20 3B 20 20 20 |BEQ OP9 ; | 00000B10: 20 20 20 20 2D 2D 3E 5B 4F 50 39 5D 0D 4F 50 35 | -->[OP9].OP5| 00000B20: 20 20 20 4C 44 41 20 23 30 30 30 20 20 20 20 3B | LDA #000 ;| 00000B30: 4E 41 41 4D 56 4C 41 47 0D 20 20 20 20 20 20 53 |NAAMVLAG. S| 00000B40: 54 41 20 20 30 30 32 20 20 20 20 3B 4E 56 3D 30 |TA 002 ;NV=0| 00000B50: 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 37 |.. LDA 007| 00000B60: 35 31 0D 20 20 20 20 20 20 43 4D 50 20 23 30 30 |51. CMP #00| 00000B70: 31 20 20 20 20 3B 31 3A 20 54 41 50 45 2E 0D 20 |1 ;1: TAPE.. | 00000B80: 20 20 20 20 20 42 45 51 20 20 4F 50 36 20 20 20 | BEQ OP6 | 00000B90: 20 3B 32 3A 20 44 49 53 4B 2E 0D 20 20 20 20 20 | ;2: DISK.. | 00000BA0: 20 4C 44 58 20 23 30 30 38 20 20 20 20 3B 44 49 | LDX #008 ;DI| 00000BB0: 53 4B 3A 41 50 50 2E 38 2E 0D 20 20 20 20 20 20 |SK:APP.8.. | 00000BC0: 4C 44 59 20 23 30 30 33 20 20 20 20 3B 53 45 43 |LDY #003 ;SEC| 00000BD0: 2E 41 44 52 2E 3D 33 2E 0D 20 20 20 20 20 20 49 |.ADR.=3.. I| 00000BE0: 4E 43 20 20 30 30 32 20 20 20 20 3B 5A 45 54 20 |NC 002 ;ZET | 00000BF0: 4E 56 3D 31 2E 0D 20 20 20 20 20 20 43 4C 43 20 |NV=1.. CLC | 00000C00: 20 20 20 20 20 20 20 20 3B 20 20 20 20 20 20 20 | ; | 00000C10: 2D 2D 3E 5B 4F 50 37 5D 0D 20 20 20 20 20 20 42 |-->[OP7]. B| 00000C20: 43 43 20 20 4F 50 37 0D 4F 50 36 20 20 20 4C 44 |CC OP7.OP6 LD| 00000C30: 58 20 23 30 30 31 20 20 20 20 3B 54 41 50 45 3A |X #001 ;TAPE:| 00000C40: 41 50 50 2E 31 2E 0D 20 20 20 20 20 20 4C 44 59 |APP.1.. LDY| 00000C50: 20 23 30 30 31 20 20 20 20 3B 53 45 43 2E 41 44 | #001 ;SEC.AD| 00000C60: 52 2E 3D 31 2E 0D 4F 50 37 20 20 20 4C 44 41 20 |R.=1..OP7 LDA | 00000C70: 23 30 30 35 20 20 20 20 3B 42 45 53 54 41 4E 44 |#005 ;BESTAND| 00000C80: 53 4E 52 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |SNR.. JSR | 00000C90: 36 35 34 36 36 20 20 3B 2A 20 53 45 54 4C 46 53 |65466 ;* SETLFS| 00000CA0: 20 2A 0D 20 20 20 20 20 20 4C 44 41 20 20 30 30 | *. LDA 00| 00000CB0: 32 20 20 20 20 3B 4E 56 3D 30 3A 20 20 2D 2D 3E |2 ;NV=0: -->| 00000CC0: 5B 4F 50 38 5D 0D 20 20 20 20 20 20 42 45 51 20 |[OP8]. BEQ | 00000CD0: 20 4F 50 38 20 20 20 20 3B 4E 56 3D 31 3A 0D 20 | OP8 ;NV=1:. | 00000CE0: 20 20 20 20 20 4C 44 58 20 23 30 34 34 20 20 20 | LDX #044 | 00000CF0: 20 3B 4B 4F 4D 4D 41 2E 0D 20 20 20 20 20 20 4A | ;KOMMA.. J| 00000D00: 53 52 20 20 33 37 37 30 38 0D 20 20 20 20 20 20 |SR 37708. | 00000D10: 4C 44 58 20 23 30 38 33 20 20 20 20 3B 27 53 27 |LDX #083 ;'S'| 00000D20: 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 33 37 37 |.. JSR 377| 00000D30: 30 38 0D 20 20 20 20 20 20 4C 44 58 20 23 30 34 |08. LDX #04| 00000D40: 34 20 20 20 20 3B 4B 4F 4D 4D 41 2E 0D 20 20 20 |4 ;KOMMA.. | 00000D50: 20 20 20 4A 53 52 20 20 33 37 37 30 38 0D 20 20 | JSR 37708. | 00000D60: 20 20 20 20 4C 44 58 20 23 30 38 37 20 20 20 20 | LDX #087 | 00000D70: 3B 27 57 27 2E 0D 20 20 20 20 20 20 4A 53 52 20 |;'W'.. JSR | 00000D80: 20 33 37 37 30 38 0D 4F 50 38 20 20 20 4C 44 59 | 37708.OP8 LDY| 00000D90: 20 23 30 30 30 20 20 20 20 3B 4C 45 4E 47 54 45 | #000 ;LENGTE| 00000DA0: 20 49 4E 0D 20 20 20 20 20 20 4C 44 41 20 28 32 | IN. LDA (2| 00000DB0: 35 33 29 2C 59 20 3B 44 45 20 53 54 41 50 45 4C |53),Y ;DE STAPEL| 00000DC0: 2E 0D 20 20 20 20 20 20 50 48 41 0D 20 20 20 20 |.. PHA. | 00000DD0: 20 20 43 4C 43 0D 20 20 20 20 20 20 4C 44 41 20 | CLC. LDA | 00000DE0: 20 32 35 33 20 20 20 20 3B 4C 53 20 41 44 52 45 | 253 ;LS ADRE| 00000DF0: 53 20 4E 41 41 4D 2E 0D 20 20 20 20 20 20 41 44 |S NAAM.. AD| 00000E00: 43 20 23 30 30 31 0D 20 20 20 20 20 20 54 41 58 |C #001. TAX| 00000E10: 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 34 20 |. LDA 254 | 00000E20: 20 20 20 3B 4D 53 20 41 44 52 45 53 20 4E 41 41 | ;MS ADRES NAA| 00000E30: 4D 2E 0D 20 20 20 20 20 20 41 44 43 20 23 30 30 |M.. ADC #00| 00000E40: 30 0D 20 20 20 20 20 20 54 41 59 20 20 20 20 20 |0. TAY | 00000E50: 20 20 20 20 3B 4C 45 4E 47 54 45 20 55 49 54 0D | ;LENGTE UIT.| 00000E60: 20 20 20 20 20 20 50 4C 41 20 20 20 20 20 20 20 | PLA | 00000E70: 20 20 3B 44 45 20 53 54 41 50 45 4C 2E 0D 4F 50 | ;DE STAPEL..OP| 00000E80: 39 20 20 20 4A 53 52 20 20 36 35 34 36 39 20 20 |9 JSR 65469 | 00000E90: 3B 2A 20 53 45 54 4E 41 4D 20 2A 0D 20 20 20 20 |;* SETNAM *. | 00000EA0: 20 20 4A 53 52 20 20 36 35 34 37 32 20 20 3B 2A | JSR 65472 ;*| 00000EB0: 20 4F 50 45 4E 20 20 20 2A 0D 20 20 20 20 20 20 | OPEN *. | 00000EC0: 4C 44 58 20 23 30 30 35 20 20 20 20 3B 42 45 53 |LDX #005 ;BES| 00000ED0: 54 41 4E 44 53 4E 52 2E 0D 20 20 20 20 20 20 4A |TANDSNR.. J| 00000EE0: 53 52 20 20 36 35 34 38 31 20 20 3B 2A 20 43 48 |SR 65481 ;* CH| 00000EF0: 4B 4F 55 54 20 2A 0D 20 20 20 20 20 20 52 54 53 |KOUT *. RTS| 00000F00: 20 20 20 20 20 20 20 20 20 3B 4E 41 41 52 20 48 | ;NAAR H| 00000F10: 2E 50 2E 0D 20 20 20 20 20 20 2E 42 59 54 45 20 |.P.. .BYTE | 00000F20: 24 45 41 2C 24 45 41 0D 4F 52 30 20 20 20 4C 44 |$EA,$EA.OR0 LD| 00000F30: 59 20 23 30 30 30 20 20 20 20 3B 2A 2A 53 43 48 |Y #000 ;**SCH| 00000F40: 52 49 4A 46 2E 2A 2A 0D 20 20 20 20 20 20 4C 44 |RIJF.**. LD| 00000F50: 41 20 28 32 35 33 29 2C 59 20 3B 52 45 47 45 4C |A (253),Y ;REGEL| 00000F60: 4C 45 4E 47 54 45 0D 20 20 20 20 20 20 53 54 41 |LENGTE. STA| 00000F70: 20 20 30 30 32 20 20 20 20 3B 54 49 4A 44 45 4C | 002 ;TIJDEL| 00000F80: 49 4A 4B 2E 0D 20 20 20 20 20 20 42 4E 45 20 20 |IJK.. BNE | 00000F90: 4F 52 32 20 20 20 20 3B 3E 30 3A 20 20 20 20 2D |OR2 ;>0: -| 00000FA0: 2D 3E 5B 4F 52 32 5D 0D 20 20 20 20 20 20 42 45 |->[OR2]. BE| 00000FB0: 51 20 20 4F 52 39 20 20 20 20 3B 3D 30 3A 20 20 |Q OR9 ;=0: | 00000FC0: 20 20 2D 2D 3E 5B 4F 52 39 5D 0D 4F 52 31 20 20 | -->[OR9].OR1 | 00000FD0: 20 49 4E 59 20 20 20 20 20 20 20 20 20 3B 56 4F | INY ;VO| 00000FE0: 4C 47 45 4E 44 45 20 42 59 54 45 2E 0D 20 20 20 |LGENDE BYTE.. | 00000FF0: 20 20 20 4C 44 41 20 28 32 35 33 29 2C 59 20 3B | LDA (253),Y ;| 00001000: 55 49 54 20 45 4C 45 4D 45 4E 54 2E 0D 20 20 20 |UIT ELEMENT.. | 00001010: 20 20 20 4A 53 52 20 20 36 35 34 39 30 20 20 3B | JSR 65490 ;| 00001020: 2A 20 43 48 52 4F 55 54 20 2A 0D 4F 52 32 20 20 |* CHROUT *.OR2 | 00001030: 20 43 50 59 20 20 30 30 32 20 20 20 20 3B 4B 4C | CPY 002 ;KL| 00001040: 41 41 52 3F 0D 20 20 20 20 20 20 42 43 43 20 20 |AAR?. BCC | 00001050: 4F 52 31 20 20 20 20 3B 4E 45 45 4E 3A 20 20 2D |OR1 ;NEEN: -| 00001060: 2D 3E 5B 4F 52 31 5D 0D 4F 52 39 20 20 20 52 54 |->[OR1].OR9 RT| 00001070: 53 20 20 20 20 20 20 20 20 20 3B 4E 41 41 52 20 |S ;NAAR | 00001080: 48 2E 50 2E 0D 20 20 20 20 20 20 2E 42 59 54 45 |H.P.. .BYTE| 00001090: 20 24 45 41 2C 24 45 41 0D 4F 53 30 20 20 20 4C | $EA,$EA.OS0 L| 000010A0: 44 41 20 23 30 30 35 20 20 20 20 3B 2A 2A 53 4C |DA #005 ;**SL| 000010B0: 55 49 54 45 4E 2E 2A 2A 0D 20 20 20 20 20 20 4A |UITEN.**. J| 000010C0: 53 52 20 20 36 35 34 37 35 20 20 3B 2A 20 43 4C |SR 65475 ;* CL| 000010D0: 4F 53 45 20 20 2A 0D 20 20 20 20 20 20 4A 53 52 |OSE *. JSR| 000010E0: 20 20 36 35 35 31 31 20 20 3B 2A 20 43 4C 41 4C | 65511 ;* CLAL| 000010F0: 4C 20 20 2A 0D 20 20 20 20 20 20 52 54 53 20 20 |L *. RTS | 00001100: 20 20 20 20 20 20 20 3B 4E 41 41 52 20 48 2E 50 | ;NAAR H.P| 00001110: 2E 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 45 |.. .BYTE $E| 00001120: 41 2C 24 45 41 0D 20 20 20 20 20 20 4C 44 59 20 |A,$EA. LDY | 00001130: 23 30 30 30 20 20 20 20 3B 2A 2A 45 58 54 52 41 |#000 ;**EXTRA| 00001140: 2D 58 2E 2A 2A 0D 20 20 20 20 20 20 43 4C 43 0D |-X.**. CLC.| 00001150: 20 20 20 20 20 20 4C 44 41 20 28 32 35 33 29 2C | LDA (253),| 00001160: 59 20 3B 4C 45 4E 47 54 45 20 4D 45 54 20 45 45 |Y ;LENGTE MET EE| 00001170: 4E 0D 20 20 20 20 20 20 41 44 43 20 23 30 30 31 |N. ADC #001| 00001180: 20 20 20 20 3B 4F 50 48 4F 47 45 4E 2E 0D 20 20 | ;OPHOGEN.. | 00001190: 20 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 20 | STA (253),Y | 000011A0: 3B 4C 45 4E 47 54 45 20 4D 45 54 20 45 45 4E 0D |;LENGTE MET EEN.| 000011B0: 20 20 20 20 20 20 54 41 59 20 20 20 20 20 20 20 | TAY | 000011C0: 20 20 3B 5A 45 54 20 49 4E 20 28 59 29 2E 0D 20 | ;ZET IN (Y).. | 000011D0: 20 20 20 20 20 54 58 41 20 20 20 20 20 20 20 20 | TXA | 000011E0: 20 3B 45 58 54 52 41 20 54 45 4B 45 4E 20 28 58 | ;EXTRA TEKEN (X| 000011F0: 29 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 33 |). STA (253| 00001200: 29 2C 59 20 3B 41 43 48 54 45 52 41 41 4E 2E 0D |),Y ;ACHTERAAN..| 00001210: 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 | RTS. | 00001220: 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 |NOP. NOP. | 00001230: 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F | NOP. NO| 00001240: 50 0D 20 20 20 20 20 20 20 20 20 2A 3D 33 37 37 |P. *=377| 00001250: 32 33 0D 20 20 20 20 20 20 4C 44 58 20 23 30 31 |23. LDX #01| 00001260: 30 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 33 |0. JSR 383| 00001270: 38 31 20 20 3B 42 55 3D 3E 28 32 35 34 2C 32 35 |81 ;BU=>(254,25| 00001280: 33 29 2E 0D 20 20 20 20 20 20 4C 44 41 20 23 30 |3).. LDA #0| 00001290: 33 32 20 20 20 20 3B 53 50 41 54 49 45 2E 0D 20 |32 ;SPATIE.. | 000012A0: 20 20 20 20 20 53 54 41 20 20 32 35 32 20 20 20 | STA 252 | 000012B0: 20 3B 41 41 4E 54 41 4C 20 4D 4F 45 54 20 4F 4F | ;AANTAL MOET OO| 000012C0: 4B 0D 20 20 20 20 20 20 4C 44 41 20 23 30 32 30 |K. LDA #020| 000012D0: 20 20 20 20 3B 49 4E 20 28 42 55 2B 30 29 20 47 | ;IN (BU+0) G| 000012E0: 45 5A 45 54 0D 20 20 20 20 20 20 53 54 41 20 20 |EZET. STA | 000012F0: 32 35 31 20 20 20 20 3B 57 4F 52 44 45 4E 2E 0D |251 ;WORDEN..| 00001300: 20 20 20 20 20 20 4A 53 52 20 20 33 38 35 32 30 | JSR 38520| 00001310: 20 20 3B 5A 45 54 20 49 4E 2E 0D 20 20 20 20 20 | ;ZET IN.. | 00001320: 20 52 54 53 0D 20 20 20 20 20 20 4E 4F 50 0D 20 | RTS. NOP. | 00001330: 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E | NOP. N| 00001340: 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 |OP. NOP. | 00001350: 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 | NOP. NOP| 00001360: 0D 20 20 20 20 20 20 20 20 20 2A 3D 33 37 37 34 |. *=3774| 00001370: 34 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |4. | 00001380: 20 20 20 20 3B 0D 20 20 20 20 20 20 20 20 20 20 | ;. | 00001390: 20 20 20 20 20 20 20 20 3B 27 4C 41 42 45 4C 4F | ;'LABELO| 000013A0: 56 45 52 4C 4F 4F 50 0D 20 20 20 20 20 20 20 20 |VERLOOP. | 000013B0: 20 20 20 20 20 20 20 20 20 20 3B 20 52 45 47 45 | ; REGE| 000013C0: 4C 2E 2E 2E 2E 27 0D 20 20 20 20 20 20 20 20 20 |L....'. | 000013D0: 20 20 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 | ;. | 000013E0: 20 4C 44 58 20 23 30 30 30 0D 20 20 20 20 20 20 | LDX #000. | 000013F0: 4A 53 52 20 20 33 38 33 39 32 20 20 3B 52 55 3D |JSR 38392 ;RU=| 00001400: 3E 28 31 31 30 2C 31 30 39 29 2E 0D 20 20 20 20 |>(110,109).. | 00001410: 20 20 4A 53 52 20 20 33 39 37 33 31 20 20 3B 52 | JSR 39731 ;R| 00001420: 58 3D 3E 28 32 35 34 2C 32 35 33 29 2E 0D 20 20 |X=>(254,253).. | 00001430: 20 20 20 20 4A 53 52 20 20 33 38 34 32 36 20 20 | JSR 38426 | 00001440: 3B 52 45 47 45 4C 4E 55 4D 4D 45 52 2E 0D 20 20 |;REGELNUMMER.. | 00001450: 20 20 20 20 4A 53 52 20 20 33 38 37 39 32 20 20 | JSR 38792 | 00001460: 3B 5A 45 54 20 49 4E 20 58 58 58 58 58 2E 0D 20 |;ZET IN XXXXX.. | 00001470: 20 20 20 20 20 4A 53 52 20 20 33 38 38 31 37 20 | JSR 38817 | 00001480: 20 3B 56 4F 4F 52 42 4C 2E 54 45 4B 53 54 2E 0D | ;VOORBL.TEKST..| 00001490: 20 20 20 20 20 20 4C 44 58 20 23 30 31 37 20 20 | LDX #017 | 000014A0: 20 20 3B 27 4C 41 42 45 4C 4F 56 45 52 4C 2E 0D | ;'LABELOVERL..| 000014B0: 20 20 20 20 20 20 4A 53 52 20 20 33 38 37 31 32 | JSR 38712| 000014C0: 20 20 3B 20 52 45 47 45 4C 2E 2E 2E 2E 27 0D 20 | ; REGEL....'. | 000014D0: 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 4E | RTS. N| 000014E0: 4F 50 0D 20 20 20 20 20 20 20 20 20 2A 3D 33 37 |OP. *=37| 000014F0: 37 36 38 0D 20 20 20 20 20 20 20 20 20 20 20 20 |768. | 00001500: 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 20 20 | ;. | 00001510: 20 20 20 20 20 20 20 20 20 20 3B 27 52 45 47 45 | ;'REGE| 00001520: 4C 4F 56 45 52 4C 4F 4F 50 0D 20 20 20 20 20 20 |LOVERLOOP. | 00001530: 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 41 44 | ; AD| 00001540: 52 45 53 2E 2E 2E 2E 27 0D 20 20 20 20 20 20 20 |RES....'. | 00001550: 20 20 20 20 20 20 20 20 20 20 20 3B 0D 20 20 20 | ;. | 00001560: 20 20 20 4C 44 41 20 20 30 30 37 30 30 20 20 3B | LDA 00700 ;| 00001570: 41 44 52 45 53 20 49 4E 20 54 45 4B 53 54 2E 0D |ADRES IN TEKST..| 00001580: 20 20 20 20 20 20 53 54 41 20 20 32 35 31 0D 20 | STA 251. | 00001590: 20 20 20 20 20 4C 44 41 20 20 30 30 37 30 31 0D | LDA 00701.| 000015A0: 20 20 20 20 20 20 53 54 41 20 20 32 35 32 0D 20 | STA 252. | 000015B0: 20 20 20 20 20 4A 53 52 20 20 33 38 37 39 32 20 | JSR 38792 | 000015C0: 20 3B 5A 45 54 20 49 4E 20 58 58 58 58 58 2E 0D | ;ZET IN XXXXX..| 000015D0: 20 20 20 20 20 20 4A 53 52 20 20 33 38 38 31 37 | JSR 38817| 000015E0: 20 20 3B 56 4F 4F 52 42 4C 2E 54 45 4B 53 54 2E | ;VOORBL.TEKST.| 000015F0: 0D 20 20 20 20 20 20 4C 44 58 20 23 30 31 38 20 |. LDX #018 | 00001600: 20 20 20 3B 27 52 45 47 45 4C 4F 56 45 52 4C 2E | ;'REGELOVERL.| 00001610: 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 37 31 |. JSR 3871| 00001620: 32 20 20 3B 20 41 44 52 45 53 2E 2E 2E 2E 27 0D |2 ; ADRES....'.| 00001630: 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 | RTS. | 00001640: 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 |NOP. NOP. | 00001650: 20 20 20 20 20 20 20 2A 3D 33 37 37 39 32 0D 20 | *=37792. | 00001660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001670: 3B 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |;. | 00001680: 20 20 20 3B 56 55 4C 20 4C 41 42 45 4C 54 41 42 | ;VUL LABELTAB| 00001690: 45 4C 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 |EL.. | 000016A0: 20 20 20 20 20 3B 54 45 20 56 4F 52 45 4E 20 28 | ;TE VOREN (| 000016B0: 37 35 38 29 0D 20 20 20 20 20 20 20 20 20 20 20 |758). | 000016C0: 20 20 20 20 20 20 3B 41 46 56 52 41 47 45 4E 2E | ;AFVRAGEN.| 000016D0: 31 3D 56 4F 4C 2E 0D 20 20 20 20 20 20 20 20 20 |1=VOL.. | 000016E0: 20 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 | ;. | 000016F0: 4C 44 58 20 23 30 30 32 20 20 20 20 3B 28 32 35 |LDX #002 ;(25| 00001700: 30 2C 32 34 39 29 3D 4C 58 2E 0D 20 20 20 20 20 |0,249)=LX.. | 00001710: 20 4C 44 59 20 23 30 30 32 0D 20 20 20 20 20 20 | LDY #002. | 00001720: 4A 53 52 20 20 33 37 39 38 34 0D 20 20 20 20 20 |JSR 37984. | 00001730: 20 4C 44 58 20 23 30 30 34 20 20 20 20 3B 28 32 | LDX #004 ;(2| 00001740: 35 32 2C 32 35 31 29 3D 4C 58 2B 32 2E 0D 20 20 |52,251)=LX+2.. | 00001750: 20 20 20 20 4A 53 52 20 20 33 38 33 39 32 20 20 | JSR 38392 | 00001760: 3B 28 31 31 30 2C 31 30 39 29 3D 5A 55 2E 0D 20 |;(110,109)=ZU.. | 00001770: 20 20 20 20 20 4A 53 52 20 20 33 38 37 38 30 20 | JSR 38780 | 00001780: 20 3B 4C 58 2B 32 3C 5A 55 3F 0D 20 20 20 20 20 | ;LX+2<ZU?. | 00001790: 20 42 43 43 20 20 4C 56 31 0D 20 20 20 20 20 20 | BCC LV1. | 000017A0: 49 4E 43 20 20 30 30 37 35 38 20 20 3B 4E 45 45 |INC 00758 ;NEE| 000017B0: 4E 3A 20 56 42 20 4F 50 2E 0D 20 20 20 20 20 20 |N: VB OP.. | 000017C0: 52 54 53 20 20 20 20 20 20 20 20 20 3B 54 45 52 |RTS ;TER| 000017D0: 55 47 2E 0D 4C 56 31 20 20 20 4C 44 59 20 23 30 |UG..LV1 LDY #0| 000017E0: 30 30 20 20 20 20 3B 58 4C 2C 58 48 20 4E 49 45 |00 ;XL,XH NIE| 000017F0: 55 57 21 21 0D 20 20 20 20 20 20 4C 44 41 20 20 |UW!!. LDA | 00001800: 30 33 38 20 20 20 20 3B 28 30 33 38 29 3D 58 4C |038 ;(038)=XL| 00001810: 2E 0D 20 20 20 20 20 20 53 54 41 20 28 32 34 39 |.. STA (249| 00001820: 29 2C 59 0D 20 20 20 20 20 20 49 4E 59 0D 20 20 |),Y. INY. | 00001830: 20 20 20 20 4C 44 41 20 20 30 33 39 20 20 20 20 | LDA 039 | 00001840: 3B 28 30 33 39 29 3D 58 48 2E 0D 20 20 20 20 20 |;(039)=XH.. | 00001850: 20 53 54 41 20 28 32 34 39 29 2C 59 0D 20 20 20 | STA (249),Y. | 00001860: 20 20 20 4C 44 58 20 23 30 30 32 20 20 20 20 3B | LDX #002 ;| 00001870: 28 32 35 32 2C 32 35 31 29 20 49 4E 0D 20 20 20 |(252,251) IN. | 00001880: 20 20 20 4A 53 52 20 20 33 38 30 30 37 20 20 3B | JSR 38007 ;| 00001890: 28 32 35 30 2C 32 34 39 29 3D 4C 58 2E 0D 20 20 |(250,249)=LX.. | 000018A0: 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 4E 4F | RTS. NO| 000018B0: 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 |P. NOP. | 000018C0: 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D | NOP. NOP.| 000018D0: 20 20 20 20 20 20 20 20 20 2A 3D 33 37 38 33 34 | *=37834| 000018E0: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 000018F0: 20 20 3B 0D 20 20 20 20 20 20 20 20 20 20 20 20 | ;. | 00001900: 20 20 20 20 20 3B 56 55 4C 20 52 45 47 45 4C 47 | ;VUL REGELG| 00001910: 45 42 49 45 44 2E 0D 20 20 20 20 20 20 20 20 20 |EBIED.. | 00001920: 20 20 20 20 20 20 20 20 3B 54 45 20 56 4F 52 45 | ;TE VORE| 00001930: 4E 20 28 37 35 39 29 0D 20 20 20 20 20 20 20 20 |N (759). | 00001940: 20 20 20 20 20 20 20 20 20 3B 41 46 56 52 41 47 | ;AFVRAG| 00001950: 45 4E 2E 31 3D 56 4F 4C 2E 0D 20 20 20 20 20 20 |EN.1=VOL.. | 00001960: 20 20 20 20 20 20 20 20 20 20 20 3B 0D 20 20 20 | ;. | 00001970: 20 20 20 4C 44 58 20 23 30 30 30 20 20 20 3B 28 | LDX #000 ;(| 00001980: 32 34 38 2C 32 34 37 29 3D 52 58 2E 0D 20 20 20 |248,247)=RX.. | 00001990: 20 20 20 4C 44 59 20 23 30 30 36 0D 20 20 20 20 | LDY #006. | 000019A0: 20 20 4A 53 52 20 20 33 37 39 38 34 0D 20 20 20 | JSR 37984. | 000019B0: 20 20 20 4C 44 58 20 23 30 30 32 20 20 20 20 3B | LDX #002 ;| 000019C0: 28 32 35 32 2C 32 35 31 29 3D 52 58 2B 36 2E 0D |(252,251)=RX+6..| 000019D0: 20 20 20 20 20 20 4A 53 52 20 20 33 38 33 39 32 | JSR 38392| 000019E0: 20 20 3B 28 31 31 30 2C 31 30 39 29 3D 4C 55 2E | ;(110,109)=LU.| 000019F0: 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 37 38 |. JSR 3878| 00001A00: 30 20 20 3B 52 58 2B 36 3C 4C 55 3F 0D 20 20 20 |0 ;RX+6<LU?. | 00001A10: 20 20 20 42 43 43 20 20 52 56 31 0D 20 20 20 20 | BCC RV1. | 00001A20: 20 20 49 4E 43 20 20 30 30 37 35 37 20 20 20 20 | INC 00757 | 00001A30: 3B 4E 45 45 4E 3A 20 56 41 20 4F 50 2E 0D 20 20 |;NEEN: VA OP.. | 00001A40: 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 | RTS | 00001A50: 20 20 3B 54 45 52 55 47 2E 0D 52 56 31 20 20 20 | ;TERUG..RV1 | 00001A60: 4C 44 59 20 23 30 30 35 20 20 20 20 20 20 3B 28 |LDY #005 ;(| 00001A70: 37 30 30 29 3D 41 4C 2E 0D 52 56 32 20 20 20 4C |700)=AL..RV2 L| 00001A80: 44 41 20 20 30 30 37 30 30 2C 59 20 20 3B 28 37 |DA 00700,Y ;(7| 00001A90: 30 31 29 3D 41 48 2E 0D 20 20 20 20 20 20 53 54 |01)=AH.. ST| 00001AA0: 41 20 28 32 34 37 29 2C 59 20 20 20 3B 28 37 30 |A (247),Y ;(70| 00001AB0: 32 29 3D 53 31 2E 0D 20 20 20 20 20 20 44 45 59 |2)=S1.. DEY| 00001AC0: 20 20 20 20 20 20 20 20 20 20 20 3B 28 37 30 33 | ;(703| 00001AD0: 29 3D 53 32 2E 0D 20 20 20 20 20 20 42 50 4C 20 |)=S2.. BPL | 00001AE0: 20 52 56 32 20 20 20 20 20 20 3B 28 37 30 34 29 | RV2 ;(704)| 00001AF0: 3D 4F 4C 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 |=OL.. LDX #| 00001B00: 30 30 30 20 20 20 20 20 20 3B 28 37 30 35 29 3D |000 ;(705)=| 00001B10: 4F 48 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 33 |OH.. JSR 3| 00001B20: 38 30 30 37 20 20 20 20 3B 28 32 35 32 2C 32 35 |8007 ;(252,25| 00001B30: 31 29 20 49 4E 0D 20 20 20 20 20 20 52 54 53 20 |1) IN. RTS | 00001B40: 20 20 20 20 20 20 20 20 20 20 3B 28 32 34 38 2C | ;(248,| 00001B50: 32 34 37 29 3D 52 58 2E 0D 20 20 20 20 20 20 4E |247)=RX.. N| 00001B60: 4F 50 0D 20 20 20 20 20 20 20 20 20 2A 3D 33 37 |OP. *=37| 00001B70: 38 37 36 0D 20 20 20 20 20 20 4C 44 41 20 20 32 |876. LDA 2| 00001B80: 35 33 20 20 20 20 3B 0D 20 20 20 20 20 20 53 54 |53 ;. ST| 00001B90: 41 20 20 30 39 38 20 20 20 20 3B 5A 4F 45 4B 20 |A 098 ;ZOEK | 00001BA0: 4C 41 42 45 4C 20 49 4E 0D 20 20 20 20 20 20 4C |LABEL IN. L| 00001BB0: 44 41 20 20 32 35 34 20 20 20 20 3B 54 41 42 45 |DA 254 ;TABE| 00001BC0: 4C 2E 0D 20 20 20 20 20 20 53 54 41 20 20 30 39 |L.. STA 09| 00001BD0: 39 20 20 20 20 3B 28 30 33 39 2C 30 33 38 29 20 |9 ;(039,038) | 00001BE0: 49 54 45 4D 2E 0D 20 20 20 20 20 20 4C 44 58 20 |ITEM.. LDX | 00001BF0: 23 30 30 32 20 20 20 20 3B 28 32 35 34 2C 32 35 |#002 ;(254,25| 00001C00: 33 29 20 52 45 44 2E 0D 20 20 20 20 20 20 4A 53 |3) RED.. JS| 00001C10: 52 20 20 33 38 33 39 32 20 20 3B 28 31 31 30 2C |R 38392 ;(110,| 00001C20: 31 30 39 29 3D 4C 55 2E 0D 20 20 20 20 20 20 4C |109)=LU.. L| 00001C30: 44 58 20 23 30 30 32 20 20 20 20 3B 28 32 35 30 |DX #002 ;(250| 00001C40: 2C 32 34 39 29 3D 4C 58 0D 20 20 20 20 20 20 4A |,249)=LX. J| 00001C50: 53 52 20 20 33 37 39 39 38 20 20 3B 49 4E 20 28 |SR 37998 ;IN (| 00001C60: 32 35 32 2C 32 35 31 29 2E 0D 49 5A 31 20 20 20 |252,251)..IZ1 | 00001C70: 53 45 43 20 20 20 20 20 20 20 20 20 3B 54 52 45 |SEC ;TRE| 00001C80: 4B 20 32 20 41 46 2E 0D 20 20 20 20 20 20 4C 44 |K 2 AF.. LD| 00001C90: 41 20 20 32 35 31 0D 20 20 20 20 20 20 53 42 43 |A 251. SBC| 00001CA0: 20 23 30 30 32 0D 20 20 20 20 20 20 53 54 41 20 | #002. STA | 00001CB0: 20 32 35 31 0D 20 20 20 20 20 20 4C 44 41 20 20 | 251. LDA | 00001CC0: 32 35 32 0D 20 20 20 20 20 20 53 42 43 20 23 30 |252. SBC #0| 00001CD0: 30 30 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 |00. STA 25| 00001CE0: 32 0D 20 20 20 20 20 20 4A 53 52 20 20 33 38 37 |2. JSR 387| 00001CF0: 38 30 20 20 20 20 3B 56 45 52 47 45 4C 49 4A 4B |80 ;VERGELIJK| 00001D00: 2E 0D 20 20 20 20 20 20 42 43 43 20 20 49 5A 38 |.. BCC IZ8| 00001D10: 20 20 20 20 20 20 3B 4C 45 45 47 2E 0D 20 20 20 | ;LEEG.. | 00001D20: 20 20 20 4C 44 59 20 23 30 30 31 0D 49 5A 32 20 | LDY #001.IZ2 | 00001D30: 20 20 54 59 41 0D 20 20 20 20 20 20 54 41 58 0D | TYA. TAX.| 00001D40: 20 20 20 20 20 20 4C 44 41 20 28 32 35 31 29 2C | LDA (251),| 00001D50: 59 0D 20 20 20 20 20 20 43 4D 50 20 20 30 33 38 |Y. CMP 038| 00001D60: 2C 58 20 20 20 20 3B 5A 4F 45 4B 49 54 45 4D 0D |,X ;ZOEKITEM.| 00001D70: 20 20 20 20 20 20 42 4E 45 20 20 49 5A 31 20 20 | BNE IZ1 | 00001D80: 20 20 20 20 3B 28 30 33 39 2C 30 33 38 29 2E 0D | ;(039,038)..| 00001D90: 20 20 20 20 20 20 44 45 59 20 20 20 20 20 20 20 | DEY | 00001DA0: 20 20 20 20 3B 20 58 48 2C 58 4C 2E 0D 20 20 20 | ; XH,XL.. | 00001DB0: 20 20 20 42 50 4C 20 20 49 5A 32 0D 20 20 20 20 | BPL IZ2. | 00001DC0: 20 20 43 4C 43 0D 20 20 20 20 20 20 4C 44 41 20 | CLC. LDA | 00001DD0: 20 32 35 31 0D 20 20 20 20 20 20 41 44 43 20 23 | 251. ADC #| 00001DE0: 30 30 32 0D 20 20 20 20 20 20 53 54 41 20 20 32 |002. STA 2| 00001DF0: 35 33 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 |53. LDA 25| 00001E00: 32 0D 20 20 20 20 20 20 41 44 43 20 23 30 30 30 |2. ADC #000| 00001E10: 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 34 0D |. STA 254.| 00001E20: 20 20 20 20 20 20 4A 53 52 20 20 33 38 34 34 34 | JSR 38444| 00001E30: 20 20 3B 4C 41 42 45 4C 4E 55 4D 4D 45 52 2E 0D | ;LABELNUMMER..| 00001E40: 20 20 20 20 20 20 4C 44 58 20 23 30 30 30 20 20 | LDX #000 | 00001E50: 20 20 3B 47 45 56 4F 4E 44 45 4E 2E 0D 20 20 20 | ;GEVONDEN.. | 00001E60: 20 20 20 42 45 51 20 20 49 5A 39 0D 49 5A 38 20 | BEQ IZ9.IZ8 | 00001E70: 20 20 4C 44 58 20 23 30 30 31 20 20 20 20 3B 4E | LDX #001 ;N| 00001E80: 49 45 54 20 47 45 56 4F 4E 44 45 4E 2E 0D 49 5A |IET GEVONDEN..IZ| 00001E90: 39 20 20 20 4C 44 41 20 20 30 39 38 20 20 20 20 |9 LDA 098 | 00001EA0: 3B 48 45 52 53 54 45 4C 0D 20 20 20 20 20 20 53 |;HERSTEL. S| 00001EB0: 54 41 20 20 32 35 33 20 20 20 20 3B 28 32 35 34 |TA 253 ;(254| 00001EC0: 2C 32 35 33 29 2E 0D 20 20 20 20 20 20 4C 44 41 |,253).. LDA| 00001ED0: 20 20 30 39 39 0D 20 20 20 20 20 20 53 54 41 20 | 099. STA | 00001EE0: 20 32 35 34 0D 20 20 20 20 20 20 52 54 53 0D 20 | 254. RTS. | 00001EF0: 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E | NOP. N| 00001F00: 4F 50 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 |OP. LDA 25| 00001F10: 31 20 20 20 20 20 3B 28 32 35 32 2C 32 35 31 29 |1 ;(252,251)| 00001F20: 20 4E 41 41 52 0D 20 20 20 20 20 20 53 54 41 20 | NAAR. STA | 00001F30: 20 30 30 37 31 30 2C 58 20 3B 28 37 31 31 2B 58 | 00710,X ;(711+X| 00001F40: 2C 37 31 30 2B 58 29 2E 0D 20 20 20 20 20 20 4C |,710+X).. L| 00001F50: 44 41 20 20 32 35 32 0D 20 20 20 20 20 20 53 54 |DA 252. ST| 00001F60: 41 20 20 30 30 37 31 31 2C 58 0D 20 20 20 20 20 |A 00711,X. | 00001F70: 20 52 54 53 0D 20 20 20 20 20 20 4A 53 52 20 20 | RTS. JSR | 00001F80: 33 37 30 31 37 20 20 20 3B 52 45 47 45 4C 4E 55 |37017 ;REGELNU| 00001F90: 4D 4D 45 52 0D 20 20 20 20 20 20 4C 44 58 20 23 |MMER. LDX #| 00001FA0: 30 30 30 20 20 20 20 20 3B 53 43 48 45 52 4D 20 |000 ;SCHERM | 00001FB0: 52 45 43 48 54 53 0D 20 20 20 20 20 20 4A 53 52 |RECHTS. JSR| 00001FC0: 20 20 33 39 37 33 31 20 20 20 3B 42 4F 56 45 4E | 39731 ;BOVEN| 00001FD0: 41 41 4E 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |AAN.. JSR | 00001FE0: 33 38 34 32 36 0D 20 20 20 20 20 20 4A 53 52 20 |38426. JSR | 00001FF0: 20 33 38 32 39 31 0D 20 20 20 20 20 20 52 54 53 | 38291. RTS| 00002000: 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 |. NOP. | 00002010: 20 20 20 20 2A 3D 33 37 39 38 34 0D 20 20 20 20 | *=37984. | 00002020: 20 20 43 4C 43 0D 20 20 20 20 20 20 54 59 41 0D | CLC. TYA.| 00002030: 20 20 20 20 20 20 41 44 43 20 20 32 34 37 2C 58 | ADC 247,X| 00002040: 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 31 0D |. STA 251.| 00002050: 20 20 20 20 20 20 4C 44 59 20 23 30 30 30 0D 20 | LDY #000. | 00002060: 20 20 20 20 20 54 59 41 0D 20 20 20 20 20 20 41 | TYA. A| 00002070: 44 43 20 20 32 34 38 2C 58 0D 20 20 20 20 20 20 |DC 248,X. | 00002080: 53 54 41 20 20 32 35 32 0D 20 20 20 20 20 20 52 |STA 252. R| 00002090: 54 53 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 |TS. NOP. | 000020A0: 20 20 20 20 20 20 2A 3D 33 37 39 39 38 0D 20 20 | *=37998. | 000020B0: 20 20 20 20 4C 44 41 20 20 32 34 37 2C 58 0D 20 | LDA 247,X. | 000020C0: 20 20 20 20 20 53 54 41 20 20 32 35 31 0D 20 20 | STA 251. | 000020D0: 20 20 20 20 4C 44 41 20 20 32 34 38 2C 58 0D 20 | LDA 248,X. | 000020E0: 20 20 20 20 20 53 54 41 20 20 32 35 32 0D 20 20 | STA 252. | 000020F0: 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 4E 4F | RTS. NO| 00002100: 50 0D 20 20 20 20 20 20 20 20 20 2A 3D 33 38 30 |P. *=380| 00002110: 30 37 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 |07. LDA 25| 00002120: 31 0D 20 20 20 20 20 20 53 54 41 20 20 32 34 37 |1. STA 247| 00002130: 2C 58 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 |,X. LDA 25| 00002140: 32 0D 20 20 20 20 20 20 53 54 41 20 20 32 34 38 |2. STA 248| 00002150: 2C 58 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 |,X. RTS. | 00002160: 20 20 20 2E 45 4E 44 0D | .END. |
6,041. CLC. ADC 038. STA
038. LDA 041. ADC 039.
STA 039. INY ;VOLGEND CI
JFER.. CLC. BCC OO003.OO006 L
DY 002 ;HERSTEL (Y).. RTS
;NAAR H.P.. NOP. NOP.
NOP. *=37384.OO017 STY 039 ;EE
NBYTE BIN-HEX.. LDY #000 ;IN:(251)
BINAIR.. LDA 251 ;UIT:AF ADRES.
.BYTE $4A ;AU=(254,253).. .BYT
E $4A ;SCHUIF 4 BITS. .BYTE $4A ;NA
AR RECHTS.. .BYTE $4A ;M.S.DEEL..
ORA #048. STA (253),Y. INY
. LDA 251 ;L.S.DEEL.. AND #0
15. ORA #048. STA (253),Y.OO00
8 LDA (253),Y ;HEXADEC.TEKEN.. CMP
#058. BCC OO009. ADC #006.
STA (253),Y.OO009 DEY. BPL OO00
8. LDY 039 ;HERSTEL (Y)..
RTS ;NAAR H.P..DECI LDA 00750
;DEC.OP VLAG DB:. BEQ DENK ;0=E
NKELBYTE;. JSR 39744 ;1=DUBBELBYT
E.. RTS.DENK JSR OO018. RTS.
HEXA LDA 00750 ;HEX.OP VLAG DB:.
BEQ HENK ;0=ENKELBYTE;. JSR 39
888 ;1=DUBBELBYTE.. RTS.HENK JSR
OO017. RTS. LDY #000 ;LENG
TE VAN. LDA (253),Y ;ELEMENT BEPALE
N. BNE OO010 ;MET TERUGTELLEN.
RTS ;VAN NASPATIES..OO010 TAY
;(254,253) WIJST.OO011 LDA (253
),Y ;LENGTEBYTE AAN.. CMP #032.
BNE OO012. DEY. BNE OO011.
OO012 TYA. LDY #000. STA (253)
,Y. RTS. LDA 00756 ;DECONVER
SIE OP. BEQ OO013 ;DB- EN DC-VLAG
.. JSR DECI. RTS.OO013 LDY #0
00. LDA #036 ;'$' VOOROP..
STA (253),Y. LDA 254 ;RED ADRES
.. PHA. LDA 253. PHA.
INC 253. BNE OO014. INC
254.OO014 JSR HEXA. PLA ;H
ERSTEL ADRES.. STA 253. PLA.
STA 254. RTS. NOP.
JSR 39744 ;LABEL ZETTEN.. LDY #0
01 ;VOORLETTERS.OO040 LDA 00766,Y ;
UIT (766,767).. STA (253),Y ;IN: (
252,251).. DEY ;UIT:(254,2
53). BPL OO040 ;BEGINADRES..
RTS. JSR 39744 ;TWEE VOORNUL-.
LDY #001 ;LEN VERVANGEN.
LDA #032 ;DOOR SPATIES..OO041 STA (2
53),Y ;IN: (252,251).. DEY
;UIT:(254,253). BPL OO041 ;BEG
INADRES.. RTS. NOP. LDA
144 ;STATUS OP. STA 251 ;SCH
ERM.. LDA #000. STA 252.
JSR 38792 ;VUL XXXXX.. JSR 3881
7 ;TEXT VOORBLOK.. LDX #000 ;'T
OESTAND XXX.'. JSR 38712. LDX
#024 ;OPEN REGEL.. JSR 38712.
RTS ;NAAR H.P.. NOP.OP
0 LDA #005 ;**OPENEN. **. LDX
00751 ;BEST.5;TOESTEL.. BNE OP1
;0: SCHERM.. LDX #003 ;APPARA
ATNR.. BNE OP2 ; -->[OP2]
.OP1 CPX #003. BNE OP5 ;3: PR
INTER.. LDX #004 ;APPARAATNR..OP
2 LDY #000 ;SEC.ADR.NUL.. JSR
65466 ;* SETLFS *. LDA #000 ;G
EEN NAAM.. BEQ OP9 ; -->[
OP9].OP5 LDA #000 ;NAAMVLAG. S
TA 002 ;NV=0.. LDA 00751.
CMP #001 ;1: TAPE.. BEQ OP6
;2: DISK.. LDX #008 ;DISK:APP.8
.. LDY #003 ;SEC.ADR.=3.. I
NC 002 ;ZET NV=1.. CLC
; -->[OP7]. BCC OP7.OP6 LD
X #001 ;TAPE:APP.1.. LDY #001
;SEC.ADR.=1..OP7 LDA #005 ;BESTAND
SNR.. JSR 65466 ;* SETLFS *.
LDA 002 ;NV=0: -->[OP8]. BEQ
OP8 ;NV=1:. LDX #044 ;KOMMA.
. JSR 37708. LDX #083 ;'S'
.. JSR 37708. LDX #044 ;KO
MMA.. JSR 37708. LDX #087
;'W'.. JSR 37708.OP8 LDY #000
;LENGTE IN. LDA (253),Y ;DE STAPEL
.. PHA. CLC. LDA 253
;LS ADRES NAAM.. ADC #001. TAX
. LDA 254 ;MS ADRES NAAM..
ADC #000. TAY ;LENGTE UIT.
PLA ;DE STAPEL..OP9 JSR
65469 ;* SETNAM *. JSR 65472 ;*
OPEN *. LDX #005 ;BESTANDSNR.
. JSR 65481 ;* CHKOUT *. RTS
;NAAR H.P.. .BYTE $EA,$EA.
OR0 LDY #000 ;**SCHRIJF.**. LD
A (253),Y ;REGELLENGTE. STA 002
;TIJDELIJK.. BNE OR2 ;>0: -
->[OR2]. BEQ OR9 ;=0: -->[OR
9].OR1 INY ;VOLGENDE BYTE..
LDA (253),Y ;UIT ELEMENT.. JSR
65490 ;* CHROUT *.OR2 CPY 002 ;KL
AAR?. BCC OR1 ;NEEN: -->[OR1].
OR9 RTS ;NAAR H.P.. .BYTE
$EA,$EA.OS0 LDA #005 ;**SLUITEN.**
. JSR 65475 ;* CLOSE *. JSR
65511 ;* CLALL *. RTS ;
NAAR H.P.. .BYTE $EA,$EA. LDY
#000 ;**EXTRA-X.**. CLC. LD
A (253),Y ;LENGTE MET EEN. ADC #001
;OPHOGEN.. STA (253),Y ;LENGTE
MET EEN. TAY ;ZET IN (Y)..
TXA ;EXTRA TEKEN (X).
STA (253),Y ;ACHTERAAN.. RTS.
NOP. NOP. NOP. NOP.
*=37723. LDX #010. JSR 383
81 ;BU=>(254,253).. LDA #032 ;S
PATIE.. STA 252 ;AANTAL MOET OO
K. LDA #020 ;IN (BU+0) GEZET.
STA 251 ;WORDEN.. JSR 38520
;ZET IN.. RTS. NOP. NOP
. NOP. NOP. NOP. NOP
. *=37744. ;.
;'LABELOVERLOOP.
; REGEL....'.
;. LDX #000. JSR 38392 ;RU=
>(110,109).. JSR 39731 ;RX=>(254,
253).. JSR 38426 ;REGELNUMMER..
JSR 38792 ;ZET IN XXXXX.. JSR
38817 ;VOORBL.TEKST.. LDX #017
;'LABELOVERL.. JSR 38712 ; REGE
L....'. RTS. NOP. *=37
768. ;.
;'REGELOVERLOOP. ; AD
RES....'. ;. LDA
00700 ;ADRES IN TEKST.. STA 251.
LDA 00701. STA 252. JSR
38792 ;ZET IN XXXXX.. JSR 38817
;VOORBL.TEKST.. LDX #018 ;'REG
ELOVERL.. JSR 38712 ; ADRES....'.
RTS. NOP. NOP. *
=37792. ;.
;VUL LABELTABEL.. ;TE
VOREN (758). ;AFVRAGEN.
1=VOL.. ;. LDX #002
;(250,249)=LX.. LDY #002.
JSR 37984. LDX #004 ;(252,251)=
LX+2.. JSR 38392 ;(110,109)=ZU..
JSR 38780 ;LX+2<ZU?. BCC LV
1. INC 00758 ;NEEN: VB OP..
RTS ;TERUG..LV1 LDY #000 ;X
L,XH NIEUW!!. LDA 038 ;(038)=XL
.. STA (249),Y. INY. LDA
039 ;(039)=XH.. STA (249),Y.
LDX #002 ;(252,251) IN. JSR
38007 ;(250,249)=LX.. RTS. NO
P. NOP. NOP. NOP.
*=37834. ;.
;VUL REGELGEBIED..
;TE VOREN (759). ;AFVRAG
EN.1=VOL.. ;. LDX #
000 ;(248,247)=RX.. LDY #006.
JSR 37984. LDX #002 ;(252,251
)=RX+6.. JSR 38392 ;(110,109)=LU.
. JSR 38780 ;RX+6<LU?. BCC
RV1. INC 00757 ;NEEN: VA OP..
RTS ;TERUG..RV1 LDY #005
;(700)=AL..RV2 LDA 00700,Y ;(7
01)=AH.. STA (247),Y ;(702)=S1..
DEY ;(703)=S2.. BPL
RV2 ;(704)=OL.. LDX #000
;(705)=OH.. JSR 38007 ;(252,25
1) IN. RTS ;(248,247)=RX.
. NOP. *=37876. LDA 2
53 ;. STA 098 ;ZOEK LABEL IN
. LDA 254 ;TABEL.. STA 09
9 ;(039,038) ITEM.. LDX #002
;(254,253) RED.. JSR 38392 ;(110,
109)=LU.. LDX #002 ;(250,249)=LX
. JSR 37998 ;IN (252,251)..IZ1
SEC ;TREK 2 AF.. LDA 251.
SBC #002. STA 251. LDA
252. SBC #000. STA 252.
JSR 38780 ;VERGELIJK.. BCC IZ8
;LEEG.. LDY #001.IZ2 TYA.
TAX. LDA (251),Y. CMP 038
,X ;ZOEKITEM. BNE IZ1 ;(03
9,038).. DEY ; XH,XL..
BPL IZ2. CLC. LDA 251.
ADC #002. STA 253. LDA 25
2. ADC #000. STA 254. JS
R 38444 ;LABELNUMMER.. LDX #000
;GEVONDEN.. BEQ IZ9.IZ8 LDX #0
01 ;NIET GEVONDEN..IZ9 LDA 098
;HERSTEL. STA 253 ;(254,253)..
LDA 099. STA 254. RTS.
NOP. NOP. LDA 251 ;(
252,251) NAAR. STA 00710,X ;(711+X
,710+X).. LDA 252. STA 00711
,X. RTS. JSR 37017 ;REGELNU
MMER. LDX #000 ;SCHERM RECHTS.
JSR 39731 ;BOVENAAN.. JSR
38426. JSR 38291. RTS. N
OP. *=37984. CLC. TYA.
ADC 247,X. STA 251. LD
Y #000. TYA. ADC 248,X.
STA 252. RTS. NOP. *=
37998. LDA 247,X. STA 251.
LDA 248,X. STA 252. RTS.
NOP. *=38007. LDA 25
1. STA 247,X. LDA 252.
STA 248,X. RTS. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL