DISN05
FILE INFORMATION
FILENAME(S): DISN05
FILE TYPE(S): SEQ
FILE SIZE: 9.4K
FIRST SEEN: 2025-11-30 21:27:07
APPEARS ON: 1 disk(s)
FILE HASH
dadcc8b8deff6aa47b9fdb3b8f470f98b2d681c815cef9c545d4cc6f406fb58e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TESTFILES 2 | DISN05 | SEQ | DuncanTwain | 25 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 2A 3D 33 34 36 32 34 | *=34624| 00000010: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00000020: 20 3B 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 | ;. | 00000030: 20 20 20 3B 44 49 53 53 45 4D 42 4C 45 52 0D 20 | ;DISSEMBLER. | 00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;| 00000050: 53 55 42 52 4F 55 54 49 4E 45 53 2E 0D 20 20 20 |SUBROUTINES.. | 00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 44 | ; D| 00000070: 45 45 4C 20 32 2E 0D 20 20 20 20 20 20 20 20 20 |EEL 2.. | 00000080: 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 20 | ;. | 00000090: 20 20 20 20 20 20 20 20 20 3B 43 4F 4E 56 45 52 | ;CONVER| 000000A0: 53 49 45 53 2E 0D 20 20 20 20 20 20 20 20 20 20 |SIES.. | 000000B0: 20 20 20 20 20 20 3B 44 45 43 4F 4E 56 45 52 53 | ;DECONVERS| 000000C0: 49 45 53 2E 0D 20 20 20 20 20 20 20 20 20 20 20 |IES.. | 000000D0: 20 20 20 20 20 3B 0D 42 49 44 43 31 20 53 54 59 | ;.BIDC1 STY| 000000E0: 20 20 30 30 32 20 20 3B 45 45 4E 42 59 54 45 20 | 002 ;EENBYTE | 000000F0: 42 49 4E 2D 44 45 43 2E 0D 20 20 20 20 20 20 4C |BIN-DEC.. L| 00000100: 44 41 20 20 32 35 31 20 20 3B 49 4E 3A 28 32 35 |DA 251 ;IN:(25| 00000110: 31 29 20 42 49 4E 41 49 52 2E 0D 20 20 20 20 20 |1) BINAIR.. | 00000120: 20 53 54 41 20 20 30 33 38 20 20 20 20 3B 55 49 | STA 038 ;UI| 00000130: 54 3A 41 46 20 41 44 52 45 53 0D 20 20 20 20 20 |T:AF ADRES. | 00000140: 20 4C 44 41 20 23 30 30 30 20 20 20 20 3B 41 55 | LDA #000 ;AU| 00000150: 3D 28 32 35 34 2C 32 35 33 29 2E 0D 20 20 20 20 |=(254,253).. | 00000160: 20 20 53 54 41 20 20 30 33 39 20 20 20 20 3B 41 | STA 039 ;A| 00000170: 55 2B 30 3A 31 30 30 2E 0D 20 20 20 20 20 20 4C |U+0:100.. L| 00000180: 44 59 20 23 30 30 32 20 20 20 20 3B 2E 2E 2E 41 |DY #002 ;...A| 00000190: 55 2B 32 3A 31 2E 0D 20 20 20 20 20 20 4C 44 41 |U+2:1.. LDA| 000001A0: 20 23 30 34 38 20 20 20 20 3B 41 53 43 49 49 2D | #048 ;ASCII-| 000001B0: 43 4F 44 45 2E 0D 42 49 44 30 31 20 53 54 41 20 |CODE..BID01 STA | 000001C0: 28 32 35 33 29 2C 59 20 3B 56 55 4C 20 4D 45 54 |(253),Y ;VUL MET| 000001D0: 20 30 30 30 2E 0D 20 20 20 20 20 20 44 45 59 0D | 000.. DEY.| 000001E0: 20 20 20 20 20 20 42 50 4C 20 20 42 49 44 30 31 | BPL BID01| 000001F0: 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 30 0D |. LDY #000.| 00000200: 20 20 20 20 20 20 42 45 51 20 20 42 49 44 30 33 | BEQ BID03| 00000210: 0D 42 49 44 30 32 20 53 45 43 20 20 20 20 20 20 |.BID02 SEC | 00000220: 20 20 20 3B 54 52 45 4B 20 31 30 30 20 41 46 0D | ;TREK 100 AF.| 00000230: 20 20 20 20 20 20 4C 44 41 20 20 30 33 38 20 20 | LDA 038 | 00000240: 20 20 3B 56 41 4E 20 28 33 39 2C 33 38 29 2E 0D | ;VAN (39,38)..| 00000250: 20 20 20 20 20 20 53 42 43 20 23 31 30 30 0D 20 | SBC #100. | 00000260: 20 20 20 20 20 53 54 41 20 20 30 33 38 0D 20 20 | STA 038. | 00000270: 20 20 20 20 4C 44 41 20 20 30 33 39 0D 20 20 20 | LDA 039. | 00000280: 20 20 20 53 42 43 20 23 30 30 30 0D 20 20 20 20 | SBC #000. | 00000290: 20 20 53 54 41 20 20 30 33 39 0D 20 20 20 20 20 | STA 039. | 000002A0: 20 43 4C 43 20 20 20 20 20 20 20 20 20 3B 54 45 | CLC ;TE| 000002B0: 4C 20 31 20 4F 50 0D 20 20 20 20 20 20 4C 44 41 |L 1 OP. LDA| 000002C0: 20 28 32 35 33 29 2C 59 20 3B 42 49 4A 20 28 41 | (253),Y ;BIJ (A| 000002D0: 55 2B 4D 29 2E 0D 20 20 20 20 20 20 41 44 43 20 |U+M).. ADC | 000002E0: 23 30 30 31 0D 20 20 20 20 20 20 53 54 41 20 28 |#001. STA (| 000002F0: 32 35 33 29 2C 59 0D 42 49 44 30 33 20 4C 44 41 |253),Y.BID03 LDA| 00000300: 20 20 30 33 39 20 20 20 20 3B 56 45 52 47 45 4C | 039 ;VERGEL| 00000310: 49 4A 4B 45 4E 2E 0D 20 20 20 20 20 20 43 4D 50 |IJKEN.. CMP| 00000320: 20 23 30 30 30 20 20 20 20 3B 28 33 39 2C 33 38 | #000 ;(39,38| 00000330: 29 0D 20 20 20 20 20 20 42 43 43 20 20 42 49 44 |). BCC BID| 00000340: 30 34 20 20 3B 4D 45 54 20 31 30 30 2E 0D 20 20 |04 ;MET 100.. | 00000350: 20 20 20 20 42 4E 45 20 20 42 49 44 30 32 20 20 | BNE BID02 | 00000360: 3B 3E 31 30 30 2E 0D 20 20 20 20 20 20 4C 44 41 |;>100.. LDA| 00000370: 20 20 30 33 38 0D 20 20 20 20 20 20 43 4D 50 20 | 038. CMP | 00000380: 23 31 30 30 0D 20 20 20 20 20 20 42 43 53 20 20 |#100. BCS | 00000390: 42 49 44 30 32 0D 42 49 44 30 34 20 4C 44 41 20 |BID02.BID04 LDA | 000003A0: 20 30 33 39 20 20 20 20 3B 52 45 53 54 20 4E 55 | 039 ;REST NU| 000003B0: 4C 3F 0D 20 20 20 20 20 20 42 4E 45 20 20 42 49 |L?. BNE BI| 000003C0: 44 30 35 0D 20 20 20 20 20 20 4C 44 41 20 20 30 |D05. LDA 0| 000003D0: 33 38 0D 20 20 20 20 20 20 42 45 51 20 20 42 49 |38. BEQ BI| 000003E0: 44 30 36 20 20 20 20 3B 4A 41 3A 4E 41 41 52 20 |D06 ;JA:NAAR | 000003F0: 48 2E 50 2E 0D 42 49 44 30 35 20 43 4C 43 20 20 |H.P..BID05 CLC | 00000400: 20 20 20 20 20 20 20 20 20 3B 4E 45 45 4E 3A 0D | ;NEEN:.| 00000410: 20 20 20 20 20 20 2E 42 59 54 45 20 24 32 36 2C | .BYTE $26,| 00000420: 30 33 38 20 3B 28 33 39 2C 33 38 29 2A 31 30 2E |038 ;(39,38)*10.| 00000430: 0D 20 20 20 20 20 20 2E 42 59 54 45 20 24 32 36 |. .BYTE $26| 00000440: 2C 30 33 39 0D 20 20 20 20 20 20 4C 44 41 20 20 |,039. LDA | 00000450: 30 33 39 0D 20 20 20 20 20 20 53 54 41 20 20 30 |039. STA 0| 00000460: 34 31 0D 20 20 20 20 20 20 4C 44 41 20 20 30 33 |41. LDA 03| 00000470: 38 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 |8. CLC. | 00000480: 20 20 2E 42 59 54 45 20 24 32 41 0D 20 20 20 20 | .BYTE $2A. | 00000490: 20 20 2E 42 59 54 45 20 24 32 36 2C 30 34 31 0D | .BYTE $26,041.| 000004A0: 20 20 20 20 20 20 2E 42 59 54 45 20 24 32 41 0D | .BYTE $2A.| 000004B0: 20 20 20 20 20 20 2E 42 59 54 45 20 24 32 36 2C | .BYTE $26,| 000004C0: 30 34 31 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 |041. CLC. | 000004D0: 20 20 20 20 41 44 43 20 20 30 33 38 0D 20 20 20 | ADC 038. | 000004E0: 20 20 20 53 54 41 20 20 30 33 38 0D 20 20 20 20 | STA 038. | 000004F0: 20 20 4C 44 41 20 20 30 34 31 0D 20 20 20 20 20 | LDA 041. | 00000500: 20 41 44 43 20 20 30 33 39 0D 20 20 20 20 20 20 | ADC 039. | 00000510: 53 54 41 20 20 30 33 39 0D 20 20 20 20 20 20 49 |STA 039. I| 00000520: 4E 59 20 20 20 20 20 20 20 20 20 3B 56 4F 4C 47 |NY ;VOLG| 00000530: 45 4E 44 20 43 49 4A 46 45 52 2E 0D 20 20 20 20 |END CIJFER.. | 00000540: 20 20 43 4C 43 0D 20 20 20 20 20 20 42 43 43 20 | CLC. BCC | 00000550: 20 42 49 44 30 33 0D 42 49 44 30 36 20 4C 44 59 | BID03.BID06 LDY| 00000560: 20 20 30 30 32 20 20 20 20 3B 48 45 52 53 54 45 | 002 ;HERSTE| 00000570: 4C 20 28 59 29 2E 0D 20 20 20 20 20 20 52 54 53 |L (Y).. RTS| 00000580: 20 20 20 20 20 20 20 20 20 3B 4E 41 41 52 20 48 | ;NAAR H| 00000590: 2E 50 2E 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 |.P.. NOP. | 000005A0: 20 20 20 20 4E 4F 50 0D 42 49 48 58 31 20 53 54 | NOP.BIHX1 ST| 000005B0: 59 20 20 30 33 39 20 20 3B 45 45 4E 42 59 54 45 |Y 039 ;EENBYTE| 000005C0: 20 42 49 4E 2D 48 45 58 2E 0D 20 20 20 20 20 20 | BIN-HEX.. | 000005D0: 4C 44 59 20 23 30 30 30 20 20 3B 49 4E 3A 28 32 |LDY #000 ;IN:(2| 000005E0: 35 31 29 20 42 49 4E 41 49 52 2E 0D 20 20 20 20 |51) BINAIR.. | 000005F0: 20 20 4C 44 41 20 20 32 35 31 20 20 3B 55 49 54 | LDA 251 ;UIT| 00000600: 3A 41 46 20 41 44 52 45 53 0D 20 20 20 20 20 20 |:AF ADRES. | 00000610: 2E 42 59 54 45 20 24 34 41 20 3B 41 55 3D 28 32 |.BYTE $4A ;AU=(2| 00000620: 35 34 2C 32 35 33 29 2E 0D 20 20 20 20 20 20 2E |54,253).. .| 00000630: 42 59 54 45 20 24 34 41 20 3B 53 43 48 55 49 46 |BYTE $4A ;SCHUIF| 00000640: 20 34 20 42 49 54 53 0D 20 20 20 20 20 20 2E 42 | 4 BITS. .B| 00000650: 59 54 45 20 24 34 41 20 3B 4E 41 41 52 20 52 45 |YTE $4A ;NAAR RE| 00000660: 43 48 54 53 2E 0D 20 20 20 20 20 20 2E 42 59 54 |CHTS.. .BYT| 00000670: 45 20 24 34 41 20 3B 4D 2E 53 2E 44 45 45 4C 2E |E $4A ;M.S.DEEL.| 00000680: 0D 20 20 20 20 20 20 4F 52 41 20 23 30 34 38 0D |. ORA #048.| 00000690: 20 20 20 20 20 20 53 54 41 20 28 32 35 33 29 2C | STA (253),| 000006A0: 59 0D 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 |Y. INY. | 000006B0: 20 20 4C 44 41 20 20 32 35 31 20 20 3B 4C 2E 53 | LDA 251 ;L.S| 000006C0: 2E 44 45 45 4C 2E 0D 20 20 20 20 20 20 41 4E 44 |.DEEL.. AND| 000006D0: 20 23 30 31 35 0D 20 20 20 20 20 20 4F 52 41 20 | #015. ORA | 000006E0: 23 30 34 38 0D 20 20 20 20 20 20 53 54 41 20 28 |#048. STA (| 000006F0: 32 35 33 29 2C 59 0D 42 49 48 30 31 20 4C 44 41 |253),Y.BIH01 LDA| 00000700: 20 28 32 35 33 29 2C 59 20 3B 48 45 58 41 44 45 | (253),Y ;HEXADE| 00000710: 43 2E 54 45 4B 45 4E 2E 0D 20 20 20 20 20 20 43 |C.TEKEN.. C| 00000720: 4D 50 20 23 30 35 38 0D 20 20 20 20 20 20 42 43 |MP #058. BC| 00000730: 43 20 20 42 49 48 30 32 0D 20 20 20 20 20 20 41 |C BIH02. A| 00000740: 44 43 20 23 30 30 36 0D 20 20 20 20 20 20 53 54 |DC #006. ST| 00000750: 41 20 28 32 35 33 29 2C 59 0D 42 49 48 30 32 20 |A (253),Y.BIH02 | 00000760: 44 45 59 0D 20 20 20 20 20 20 42 50 4C 20 20 42 |DEY. BPL B| 00000770: 49 48 30 31 0D 20 20 20 20 20 20 4C 44 59 20 20 |IH01. LDY | 00000780: 30 33 39 20 20 20 20 3B 48 45 52 53 54 45 4C 20 |039 ;HERSTEL | 00000790: 28 59 29 2E 0D 20 20 20 20 20 20 52 54 53 0D 20 |(Y).. RTS. | 000007A0: 20 20 20 20 20 4E 4F 50 0D 42 49 44 43 20 20 4C | NOP.BIDC L| 000007B0: 44 41 20 20 30 30 37 35 30 20 20 3B 44 45 43 2E |DA 00750 ;DEC.| 000007C0: 4F 50 20 56 4C 41 47 20 44 42 3A 0D 20 20 20 20 |OP VLAG DB:. | 000007D0: 20 20 42 45 51 20 20 44 45 4E 4B 20 20 20 3B 30 | BEQ DENK ;0| 000007E0: 3D 45 4E 4B 45 4C 42 59 54 45 3B 0D 20 20 20 20 |=ENKELBYTE;. | 000007F0: 20 20 4A 53 52 20 20 42 49 44 43 32 20 20 3B 31 | JSR BIDC2 ;1| 00000800: 3D 44 55 42 42 45 4C 42 59 54 45 2E 0D 20 20 20 |=DUBBELBYTE.. | 00000810: 20 20 20 52 54 53 0D 44 45 4E 4B 20 20 4A 53 52 | RTS.DENK JSR| 00000820: 20 20 42 49 44 43 31 0D 20 20 20 20 20 20 52 54 | BIDC1. RT| 00000830: 53 0D 42 49 48 58 20 20 4C 44 41 20 20 30 30 37 |S.BIHX LDA 007| 00000840: 35 30 20 20 3B 48 45 58 2E 4F 50 20 56 4C 41 47 |50 ;HEX.OP VLAG| 00000850: 20 44 42 3A 0D 20 20 20 20 20 20 42 45 51 20 20 | DB:. BEQ | 00000860: 48 45 4E 4B 20 20 20 3B 30 3D 45 4E 4B 45 4C 42 |HENK ;0=ENKELB| 00000870: 59 54 45 3B 0D 20 20 20 20 20 20 4A 53 52 20 20 |YTE;. JSR | 00000880: 42 49 48 58 32 20 20 3B 31 3D 44 55 42 42 45 4C |BIHX2 ;1=DUBBEL| 00000890: 42 59 54 45 2E 0D 20 20 20 20 20 20 52 54 53 0D |BYTE.. RTS.| 000008A0: 48 45 4E 4B 20 20 4A 53 52 20 20 42 49 48 58 31 |HENK JSR BIHX1| 000008B0: 0D 20 20 20 20 20 20 52 54 53 0D 45 4C 4D 4C 47 |. RTS.ELMLG| 000008C0: 20 4C 44 59 20 23 30 30 30 20 20 20 20 3B 4C 45 | LDY #000 ;LE| 000008D0: 4E 47 54 45 20 56 41 4E 0D 20 20 20 20 20 20 4C |NGTE VAN. L| 000008E0: 44 41 20 28 32 35 33 29 2C 59 20 3B 45 4C 45 4D |DA (253),Y ;ELEM| 000008F0: 45 4E 54 20 42 45 50 41 4C 45 4E 0D 20 20 20 20 |ENT BEPALEN. | 00000900: 20 20 42 4E 45 20 20 45 4C 4D 4C 31 20 20 3B 4D | BNE ELML1 ;M| 00000910: 45 54 20 54 45 52 55 47 54 45 4C 4C 45 4E 0D 20 |ET TERUGTELLEN. | 00000920: 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 | RTS | 00000930: 20 3B 56 41 4E 20 4E 41 53 50 41 54 49 45 53 2E | ;VAN NASPATIES.| 00000940: 0D 45 4C 4D 4C 31 20 54 41 59 20 20 20 20 20 20 |.ELML1 TAY | 00000950: 20 20 20 3B 28 32 35 34 2C 32 35 33 29 20 57 49 | ;(254,253) WI| 00000960: 4A 53 54 0D 45 4C 4D 4C 32 20 4C 44 41 20 28 32 |JST.ELML2 LDA (2| 00000970: 35 33 29 2C 59 20 3B 4C 45 4E 47 54 45 42 59 54 |53),Y ;LENGTEBYT| 00000980: 45 20 41 41 4E 2E 0D 20 20 20 20 20 20 43 4D 50 |E AAN.. CMP| 00000990: 20 23 30 33 32 0D 20 20 20 20 20 20 42 4E 45 20 | #032. BNE | 000009A0: 20 45 4C 4D 4C 33 0D 20 20 20 20 20 20 44 45 59 | ELML3. DEY| 000009B0: 0D 20 20 20 20 20 20 42 4E 45 20 20 45 4C 4D 4C |. BNE ELML| 000009C0: 32 0D 45 4C 4D 4C 33 20 54 59 41 0D 20 20 20 20 |2.ELML3 TYA. | 000009D0: 20 20 4C 44 59 20 23 30 30 30 0D 20 20 20 20 20 | LDY #000. | 000009E0: 20 53 54 41 20 28 32 35 33 29 2C 59 0D 20 20 20 | STA (253),Y. | 000009F0: 20 20 20 52 54 53 0D 42 49 58 58 20 20 4C 44 41 | RTS.BIXX LDA| 00000A00: 20 20 30 30 37 35 36 20 20 3B 44 45 43 4F 4E 56 | 00756 ;DECONV| 00000A10: 45 52 53 49 45 20 4F 50 0D 20 20 20 20 20 20 42 |ERSIE OP. B| 00000A20: 45 51 20 20 42 49 58 31 20 20 20 3B 44 42 2D 20 |EQ BIX1 ;DB- | 00000A30: 45 4E 20 44 43 2D 56 4C 41 47 2E 0D 20 20 20 20 |EN DC-VLAG.. | 00000A40: 20 20 4A 53 52 20 20 42 49 44 43 0D 20 20 20 20 | JSR BIDC. | 00000A50: 20 20 52 54 53 0D 42 49 58 31 20 20 4C 44 59 20 | RTS.BIX1 LDY | 00000A60: 23 30 30 30 0D 20 20 20 20 20 20 4C 44 41 20 23 |#000. LDA #| 00000A70: 30 33 36 20 20 20 20 3B 27 24 27 20 56 4F 4F 52 |036 ;'$' VOOR| 00000A80: 4F 50 2E 0D 20 20 20 20 20 20 53 54 41 20 28 32 |OP.. STA (2| 00000A90: 35 33 29 2C 59 0D 20 20 20 20 20 20 4C 44 41 20 |53),Y. LDA | 00000AA0: 20 32 35 34 20 20 20 20 3B 52 45 44 20 41 44 52 | 254 ;RED ADR| 00000AB0: 45 53 2E 0D 20 20 20 20 20 20 50 48 41 0D 20 20 |ES.. PHA. | 00000AC0: 20 20 20 20 4C 44 41 20 20 32 35 33 0D 20 20 20 | LDA 253. | 00000AD0: 20 20 20 50 48 41 0D 20 20 20 20 20 20 49 4E 43 | PHA. INC| 00000AE0: 20 20 32 35 33 0D 20 20 20 20 20 20 42 4E 45 20 | 253. BNE | 00000AF0: 20 42 49 58 32 0D 20 20 20 20 20 20 49 4E 43 20 | BIX2. INC | 00000B00: 20 32 35 34 0D 42 49 58 32 20 20 4A 53 52 20 20 | 254.BIX2 JSR | 00000B10: 42 49 48 58 0D 20 20 20 20 20 20 50 4C 41 20 20 |BIHX. PLA | 00000B20: 20 20 20 20 20 20 20 3B 48 45 52 53 54 45 4C 20 | ;HERSTEL | 00000B30: 41 44 52 45 53 2E 0D 20 20 20 20 20 20 53 54 41 |ADRES.. STA| 00000B40: 20 20 32 35 33 0D 20 20 20 20 20 20 50 4C 41 0D | 253. PLA.| 00000B50: 20 20 20 20 20 20 53 54 41 20 20 32 35 34 0D 20 | STA 254. | 00000B60: 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 4E | RTS. N| 00000B70: 4F 50 0D 4C 41 42 45 5A 20 4A 53 52 20 20 42 49 |OP.LABEZ JSR BI| 00000B80: 44 43 32 20 20 20 3B 4C 41 42 45 4C 20 5A 45 54 |DC2 ;LABEL ZET| 00000B90: 54 45 4E 2E 0D 20 20 20 20 20 20 4C 44 59 20 23 |TEN.. LDY #| 00000BA0: 30 30 31 20 20 20 20 20 3B 56 4F 4F 52 4C 45 54 |001 ;VOORLET| 00000BB0: 54 45 52 53 0D 4C 41 42 45 31 20 4C 44 41 20 20 |TERS.LABE1 LDA | 00000BC0: 30 30 37 36 36 2C 59 20 3B 55 49 54 20 28 37 36 |00766,Y ;UIT (76| 00000BD0: 36 2C 37 36 37 29 2E 0D 20 20 20 20 20 20 53 54 |6,767).. ST| 00000BE0: 41 20 28 32 35 33 29 2C 59 20 20 3B 49 4E 3A 20 |A (253),Y ;IN: | 00000BF0: 28 32 35 32 2C 32 35 31 29 2E 0D 20 20 20 20 20 |(252,251).. | 00000C00: 20 44 45 59 20 20 20 20 20 20 20 20 20 20 3B 55 | DEY ;U| 00000C10: 49 54 3A 28 32 35 34 2C 32 35 33 29 0D 20 20 20 |IT:(254,253). | 00000C20: 20 20 20 42 50 4C 20 20 4C 41 42 45 31 20 20 20 | BPL LABE1 | 00000C30: 3B 42 45 47 49 4E 41 44 52 45 53 2E 0D 20 20 20 |;BEGINADRES.. | 00000C40: 20 20 20 52 54 53 0D 4F 4F 53 50 43 20 4A 53 52 | RTS.OOSPC JSR| 00000C50: 20 20 42 49 44 43 32 20 20 20 3B 54 57 45 45 20 | BIDC2 ;TWEE | 00000C60: 56 4F 4F 52 4E 55 4C 2D 0D 20 20 20 20 20 20 4C |VOORNUL-. L| 00000C70: 44 59 20 23 30 30 31 20 20 20 20 20 3B 4C 45 4E |DY #001 ;LEN| 00000C80: 20 56 45 52 56 41 4E 47 45 4E 0D 20 20 20 20 20 | VERVANGEN. | 00000C90: 20 4C 44 41 20 23 30 33 32 20 20 20 20 20 3B 44 | LDA #032 ;D| 00000CA0: 4F 4F 52 20 53 50 41 54 49 45 53 2E 0D 4F 4F 53 |OOR SPATIES..OOS| 00000CB0: 50 31 20 53 54 41 20 28 32 35 33 29 2C 59 20 20 |P1 STA (253),Y | 00000CC0: 3B 49 4E 3A 20 28 32 35 32 2C 32 35 31 29 2E 0D |;IN: (252,251)..| 00000CD0: 20 20 20 20 20 20 44 45 59 20 20 20 20 20 20 20 | DEY | 00000CE0: 20 20 20 3B 55 49 54 3A 28 32 35 34 2C 32 35 33 | ;UIT:(254,253| 00000CF0: 29 0D 20 20 20 20 20 20 42 50 4C 20 20 4F 4F 53 |). BPL OOS| 00000D00: 50 31 20 20 20 3B 42 45 47 49 4E 41 44 52 45 53 |P1 ;BEGINADRES| 00000D10: 2E 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 |.. RTS. | 00000D20: 20 20 4E 4F 50 0D 53 54 41 54 20 20 4C 44 41 20 | NOP.STAT LDA | 00000D30: 20 31 34 34 20 20 20 20 3B 53 54 41 54 55 53 20 | 144 ;STATUS | 00000D40: 4F 50 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 |OP. STA 25| 00000D50: 31 20 20 20 20 3B 53 43 48 45 52 4D 2E 0D 20 20 |1 ;SCHERM.. | 00000D60: 20 20 20 20 4C 44 41 20 23 30 30 30 0D 20 20 20 | LDA #000. | 00000D70: 20 20 20 53 54 41 20 20 32 35 32 0D 20 20 20 20 | STA 252. | 00000D80: 20 20 4A 53 52 20 20 56 55 4C 58 58 20 20 3B 56 | JSR VULXX ;V| 00000D90: 55 4C 20 58 58 58 58 58 2E 0D 20 20 20 20 20 20 |UL XXXXX.. | 00000DA0: 4A 53 52 20 20 41 44 56 54 58 20 20 3B 54 45 58 |JSR ADVTX ;TEX| 00000DB0: 54 20 56 4F 4F 52 42 4C 4F 4B 2E 0D 20 20 20 20 |T VOORBLOK.. | 00000DC0: 20 20 4C 44 58 20 23 30 30 30 20 20 20 20 3B 27 | LDX #000 ;'| 00000DD0: 54 4F 45 53 54 41 4E 44 20 58 58 58 2E 27 0D 20 |TOESTAND XXX.'. | 00000DE0: 20 20 20 20 20 4A 53 52 20 20 53 43 4E 54 58 0D | JSR SCNTX.| 00000DF0: 20 20 20 20 20 20 4C 44 58 20 23 30 32 34 20 20 | LDX #024 | 00000E00: 20 20 3B 4F 50 45 4E 20 52 45 47 45 4C 2E 0D 20 | ;OPEN REGEL.. | 00000E10: 20 20 20 20 20 4A 53 52 20 20 53 43 4E 54 58 0D | JSR SCNTX.| 00000E20: 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 | RTS. | 00000E30: 4E 4F 50 0D 4F 50 45 4E 20 20 4C 44 41 20 23 30 |NOP.OPEN LDA #0| 00000E40: 30 35 20 20 20 20 3B 2A 2A 4F 50 45 4E 45 4E 2E |05 ;**OPENEN.| 00000E50: 20 2A 2A 0D 20 20 20 20 20 20 4C 44 58 20 20 30 | **. LDX 0| 00000E60: 30 37 35 31 20 20 3B 42 45 53 54 2E 35 3B 54 4F |0751 ;BEST.5;TO| 00000E70: 45 53 54 45 4C 2E 0D 20 20 20 20 20 20 42 4E 45 |ESTEL.. BNE| 00000E80: 20 20 4F 50 45 31 20 20 20 3B 30 3A 20 53 43 48 | OPE1 ;0: SCH| 00000E90: 45 52 4D 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 |ERM.. LDX #| 00000EA0: 30 30 33 20 20 20 20 3B 41 50 50 41 52 41 41 54 |003 ;APPARAAT| 00000EB0: 4E 52 2E 0D 20 20 20 20 20 20 42 4E 45 20 20 4F |NR.. BNE O| 00000EC0: 50 45 32 20 20 20 3B 20 20 20 20 20 20 2D 2D 3E |PE2 ; -->| 00000ED0: 5B 4F 50 45 32 5D 0D 4F 50 45 31 20 20 43 50 58 |[OPE2].OPE1 CPX| 00000EE0: 20 23 30 30 33 0D 20 20 20 20 20 20 42 4E 45 20 | #003. BNE | 00000EF0: 20 4F 50 45 33 20 20 20 3B 33 3A 20 50 52 49 4E | OPE3 ;3: PRIN| 00000F00: 54 45 52 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 |TER.. LDX #| 00000F10: 30 30 34 20 20 20 20 3B 41 50 50 41 52 41 41 54 |004 ;APPARAAT| 00000F20: 4E 52 2E 0D 4F 50 45 32 20 20 4C 44 59 20 23 30 |NR..OPE2 LDY #0| 00000F30: 30 30 20 20 20 20 3B 53 45 43 2E 41 44 52 2E 4E |00 ;SEC.ADR.N| 00000F40: 55 4C 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 36 |UL.. JSR 6| 00000F50: 35 34 36 36 20 20 3B 2A 20 53 45 54 4C 46 53 20 |5466 ;* SETLFS | 00000F60: 2A 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 30 |*. LDA #000| 00000F70: 20 20 20 20 3B 47 45 45 4E 20 4E 41 41 4D 2E 0D | ;GEEN NAAM..| 00000F80: 20 20 20 20 20 20 42 45 51 20 20 4F 50 45 37 20 | BEQ OPE7 | 00000F90: 20 20 3B 20 20 20 20 20 20 2D 2D 3E 5B 4F 50 45 | ; -->[OPE| 00000FA0: 37 5D 0D 4F 50 45 33 20 20 4C 44 41 20 23 30 30 |7].OPE3 LDA #00| 00000FB0: 30 20 20 20 20 3B 4E 41 41 4D 56 4C 41 47 0D 20 |0 ;NAAMVLAG. | 00000FC0: 20 20 20 20 20 53 54 41 20 20 30 30 32 20 20 20 | STA 002 | 00000FD0: 20 3B 4E 56 3D 30 2E 0D 20 20 20 20 20 20 4C 44 | ;NV=0.. LD| 00000FE0: 41 20 20 30 30 37 35 31 0D 20 20 20 20 20 20 43 |A 00751. C| 00000FF0: 4D 50 20 23 30 30 31 20 20 20 20 3B 31 3A 20 54 |MP #001 ;1: T| 00001000: 41 50 45 2E 0D 20 20 20 20 20 20 42 45 51 20 20 |APE.. BEQ | 00001010: 4F 50 45 34 20 20 20 3B 32 3A 20 44 49 53 4B 2E |OPE4 ;2: DISK.| 00001020: 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 38 20 |. LDX #008 | 00001030: 20 20 20 3B 44 49 53 4B 3A 41 50 50 2E 38 2E 0D | ;DISK:APP.8..| 00001040: 20 20 20 20 20 20 4C 44 59 20 23 30 30 33 20 20 | LDY #003 | 00001050: 20 20 3B 53 45 43 2E 41 44 52 2E 3D 33 2E 0D 20 | ;SEC.ADR.=3.. | 00001060: 20 20 20 20 20 49 4E 43 20 20 30 30 32 20 20 20 | INC 002 | 00001070: 20 3B 5A 45 54 20 4E 56 3D 31 2E 0D 20 20 20 20 | ;ZET NV=1.. | 00001080: 20 20 43 4C 43 20 20 20 20 20 20 20 20 20 3B 20 | CLC ; | 00001090: 20 20 20 20 20 2D 2D 3E 5B 4F 50 45 35 5D 0D 20 | -->[OPE5]. | 000010A0: 20 20 20 20 20 42 43 43 20 20 4F 50 45 35 20 20 | BCC OPE5 | 000010B0: 20 3B 0D 4F 50 45 34 20 20 4C 44 58 20 23 30 30 | ;.OPE4 LDX #00| 000010C0: 31 20 20 20 20 3B 54 41 50 45 3A 41 50 50 2E 31 |1 ;TAPE:APP.1| 000010D0: 2E 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 31 |.. LDY #001| 000010E0: 20 20 20 20 3B 53 45 43 2E 41 44 52 2E 3D 31 2E | ;SEC.ADR.=1.| 000010F0: 0D 4F 50 45 35 20 20 4C 44 41 20 23 30 30 35 20 |.OPE5 LDA #005 | 00001100: 20 20 20 3B 42 45 53 54 41 4E 44 53 4E 52 2E 0D | ;BESTANDSNR..| 00001110: 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 36 36 | JSR 65466| 00001120: 20 20 3B 2A 20 53 45 54 4C 46 53 20 2A 0D 20 20 | ;* SETLFS *. | 00001130: 20 20 20 20 4C 44 41 20 20 30 30 32 20 20 20 20 | LDA 002 | 00001140: 3B 4E 56 3D 30 3A 20 2D 2D 3E 5B 4F 50 45 36 5D |;NV=0: -->[OPE6]| 00001150: 0D 20 20 20 20 20 20 42 45 51 20 20 4F 50 45 36 |. BEQ OPE6| 00001160: 20 20 20 3B 0D 20 20 20 20 20 20 4C 44 58 20 23 | ;. LDX #| 00001170: 30 34 34 20 20 20 20 3B 4E 56 3D 31 3A 27 2C 53 |044 ;NV=1:',S| 00001180: 2C 57 27 20 4E 41 2E 0D 20 20 20 20 20 20 4A 53 |,W' NA.. JS| 00001190: 52 20 20 58 54 52 41 58 0D 20 20 20 20 20 20 4C |R XTRAX. L| 000011A0: 44 58 20 23 30 38 33 0D 20 20 20 20 20 20 4A 53 |DX #083. JS| 000011B0: 52 20 20 58 54 52 41 58 0D 20 20 20 20 20 20 4C |R XTRAX. L| 000011C0: 44 58 20 23 30 34 34 0D 20 20 20 20 20 20 4A 53 |DX #044. JS| 000011D0: 52 20 20 58 54 52 41 58 0D 20 20 20 20 20 20 4C |R XTRAX. L| 000011E0: 44 58 20 23 30 38 37 0D 20 20 20 20 20 20 4A 53 |DX #087. JS| 000011F0: 52 20 20 58 54 52 41 58 0D 4F 50 45 36 20 20 4C |R XTRAX.OPE6 L| 00001200: 44 59 20 23 30 30 30 20 20 20 20 3B 4C 45 4E 47 |DY #000 ;LENG| 00001210: 54 45 20 49 4E 0D 20 20 20 20 20 20 4C 44 41 20 |TE IN. LDA | 00001220: 28 32 35 33 29 2C 59 20 3B 44 45 20 53 54 41 50 |(253),Y ;DE STAP| 00001230: 45 4C 2E 0D 20 20 20 20 20 20 50 48 41 0D 20 20 |EL.. PHA. | 00001240: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 4C 44 | CLC. LD| 00001250: 41 20 20 32 35 33 20 20 20 20 3B 4C 53 20 41 44 |A 253 ;LS AD| 00001260: 52 45 53 20 4E 41 41 4D 2E 0D 20 20 20 20 20 20 |RES NAAM.. | 00001270: 41 44 43 20 23 30 30 31 0D 20 20 20 20 20 20 54 |ADC #001. T| 00001280: 41 58 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 |AX. LDA 25| 00001290: 34 20 20 20 20 3B 4D 53 20 41 44 52 45 53 20 4E |4 ;MS ADRES N| 000012A0: 41 41 4D 2E 0D 20 20 20 20 20 20 41 44 43 20 23 |AAM.. ADC #| 000012B0: 30 30 30 0D 20 20 20 20 20 20 54 41 59 20 20 20 |000. TAY | 000012C0: 20 20 20 20 20 20 3B 4C 45 4E 47 54 45 20 55 49 | ;LENGTE UI| 000012D0: 54 0D 20 20 20 20 20 20 50 4C 41 20 20 20 20 20 |T. PLA | 000012E0: 20 20 20 20 3B 44 45 20 53 54 41 50 45 4C 2E 0D | ;DE STAPEL..| 000012F0: 4F 50 45 37 20 20 4A 53 52 20 20 36 35 34 36 39 |OPE7 JSR 65469| 00001300: 20 20 3B 2A 20 53 45 54 4E 41 4D 20 2A 0D 20 20 | ;* SETNAM *. | 00001310: 20 20 20 20 4A 53 52 20 20 36 35 34 37 32 20 20 | JSR 65472 | 00001320: 3B 2A 20 4F 50 45 4E 20 20 20 2A 0D 20 20 20 20 |;* OPEN *. | 00001330: 20 20 4C 44 58 20 23 30 30 35 20 20 20 20 3B 42 | LDX #005 ;B| 00001340: 45 53 54 41 4E 44 53 4E 52 2E 0D 20 20 20 20 20 |ESTANDSNR.. | 00001350: 20 4A 53 52 20 20 36 35 34 38 31 20 20 3B 2A 20 | JSR 65481 ;* | 00001360: 43 48 4B 4F 55 54 20 2A 0D 20 20 20 20 20 20 52 |CHKOUT *. R| 00001370: 54 53 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 |TS. NOP. | 00001380: 20 20 20 4E 4F 50 0D 4F 55 54 50 20 20 4C 44 59 | NOP.OUTP LDY| 00001390: 20 23 30 30 30 20 20 20 20 3B 2A 2A 53 43 48 52 | #000 ;**SCHR| 000013A0: 49 4A 46 2E 2A 2A 0D 20 20 20 20 20 20 4C 44 41 |IJF.**. LDA| 000013B0: 20 28 32 35 33 29 2C 59 20 3B 52 45 47 45 4C 4C | (253),Y ;REGELL| 000013C0: 45 4E 47 54 45 0D 20 20 20 20 20 20 53 54 41 20 |ENGTE. STA | 000013D0: 20 30 30 32 20 20 20 20 3B 54 49 4A 44 45 4C 49 | 002 ;TIJDELI| 000013E0: 4A 4B 2E 0D 20 20 20 20 20 20 42 4E 45 20 20 4F |JK.. BNE O| 000013F0: 55 54 32 20 20 20 3B 3E 30 3A 20 20 20 2D 2D 3E |UT2 ;>0: -->| 00001400: 5B 4F 55 54 32 5D 0D 20 20 20 20 20 20 42 45 51 |[OUT2]. BEQ| 00001410: 20 20 4F 55 54 33 20 20 20 3B 3D 30 3A 20 20 20 | OUT3 ;=0: | 00001420: 2D 2D 3E 5B 4F 55 54 33 5D 0D 4F 55 54 31 20 20 |-->[OUT3].OUT1 | 00001430: 49 4E 59 20 20 20 20 20 20 20 20 20 3B 56 4F 4C |INY ;VOL| 00001440: 47 45 4E 44 45 20 42 59 54 45 2E 0D 20 20 20 20 |GENDE BYTE.. | 00001450: 20 20 4C 44 41 20 28 32 35 33 29 2C 59 20 3B 55 | LDA (253),Y ;U| 00001460: 49 54 20 45 4C 45 4D 45 4E 54 2E 0D 20 20 20 20 |IT ELEMENT.. | 00001470: 20 20 4A 53 52 20 20 36 35 34 39 30 20 20 3B 2A | JSR 65490 ;*| 00001480: 20 43 48 52 4F 55 54 20 2A 0D 4F 55 54 32 20 20 | CHROUT *.OUT2 | 00001490: 43 50 59 20 20 30 30 32 20 20 20 20 3B 4B 4C 41 |CPY 002 ;KLA| 000014A0: 41 52 3F 0D 20 20 20 20 20 20 42 43 43 20 20 4F |AR?. BCC O| 000014B0: 55 54 31 20 20 20 3B 4E 45 45 4E 3A 20 2D 2D 3E |UT1 ;NEEN: -->| 000014C0: 5B 4F 55 54 31 5D 0D 4F 55 54 33 20 20 52 54 53 |[OUT1].OUT3 RTS| 000014D0: 0D 20 20 20 20 20 20 4E 4F 50 0D 43 4C 4F 53 20 |. NOP.CLOS | 000014E0: 20 4C 44 41 20 23 30 30 35 20 20 20 20 3B 2A 2A | LDA #005 ;**| 000014F0: 53 4C 55 49 54 45 4E 2E 2A 2A 0D 20 20 20 20 20 |SLUITEN.**. | 00001500: 20 4A 53 52 20 20 36 35 34 37 35 20 20 3B 2A 20 | JSR 65475 ;* | 00001510: 43 4C 4F 53 45 20 20 2A 0D 20 20 20 20 20 20 4A |CLOSE *. J| 00001520: 53 52 20 20 36 35 35 31 31 20 20 3B 2A 20 43 4C |SR 65511 ;* CL| 00001530: 41 4C 4C 20 20 2A 0D 20 20 20 20 20 20 52 54 53 |ALL *. RTS| 00001540: 0D 20 20 20 20 20 20 4E 4F 50 0D 58 54 52 41 58 |. NOP.XTRAX| 00001550: 20 4C 44 59 20 23 30 30 30 20 20 20 20 3B 2A 2A | LDY #000 ;**| 00001560: 45 58 54 52 41 2D 58 2E 2A 2A 0D 20 20 20 20 20 |EXTRA-X.**. | 00001570: 20 43 4C 43 0D 20 20 20 20 20 20 4C 44 41 20 28 | CLC. LDA (| 00001580: 32 35 33 29 2C 59 20 3B 4C 45 4E 47 54 45 20 4D |253),Y ;LENGTE M| 00001590: 45 54 20 45 45 4E 0D 20 20 20 20 20 20 41 44 43 |ET EEN. ADC| 000015A0: 20 23 30 30 31 20 20 20 20 3B 4F 50 48 4F 47 45 | #001 ;OPHOGE| 000015B0: 4E 2E 0D 20 20 20 20 20 20 53 54 41 20 28 32 35 |N.. STA (25| 000015C0: 33 29 2C 59 20 3B 4C 45 4E 47 54 45 20 4D 45 54 |3),Y ;LENGTE MET| 000015D0: 20 45 45 4E 0D 20 20 20 20 20 20 54 41 59 20 20 | EEN. TAY | 000015E0: 20 20 20 20 20 20 20 3B 5A 45 54 20 49 4E 20 28 | ;ZET IN (| 000015F0: 59 29 2E 0D 20 20 20 20 20 20 54 58 41 20 20 20 |Y).. TXA | 00001600: 20 20 20 20 20 20 3B 45 58 54 52 41 20 54 45 4B | ;EXTRA TEK| 00001610: 45 4E 20 28 58 29 0D 20 20 20 20 20 20 53 54 41 |EN (X). STA| 00001620: 20 28 32 35 33 29 2C 59 20 3B 41 43 48 54 45 52 | (253),Y ;ACHTER| 00001630: 41 41 4E 2E 0D 20 20 20 20 20 20 52 54 53 0D 20 |AAN.. RTS. | 00001640: 20 20 20 20 20 4E 4F 50 0D 50 4F 45 54 52 20 4C | NOP.POETR L| 00001650: 44 58 20 23 30 31 32 0D 20 20 20 20 20 20 4A 53 |DX #012. JS| 00001660: 52 20 20 56 4C 32 41 44 20 20 3B 42 55 3D 3E 28 |R VL2AD ;BU=>(| 00001670: 32 35 34 2C 32 35 33 29 2E 0D 20 20 20 20 20 20 |254,253).. | 00001680: 4C 44 41 20 23 30 33 32 20 20 20 20 3B 53 50 41 |LDA #032 ;SPA| 00001690: 54 49 45 2E 0D 20 20 20 20 20 20 53 54 41 20 20 |TIE.. STA | 000016A0: 32 35 32 20 20 20 20 3B 41 41 4E 54 41 4C 20 4D |252 ;AANTAL M| 000016B0: 4F 45 54 20 4F 4F 4B 0D 20 20 20 20 20 20 4C 44 |OET OOK. LD| 000016C0: 41 20 23 30 32 30 20 20 20 20 3B 49 4E 20 28 42 |A #020 ;IN (B| 000016D0: 55 2B 30 29 20 47 45 5A 45 54 0D 20 20 20 20 20 |U+0) GEZET. | 000016E0: 20 53 54 41 20 20 32 35 31 20 20 20 20 3B 57 4F | STA 251 ;WO| 000016F0: 52 44 45 4E 2E 0D 20 20 20 20 20 20 4A 53 52 20 |RDEN.. JSR | 00001700: 20 45 4C 56 55 4C 20 20 3B 5A 45 54 20 49 4E 2E | ELVUL ;ZET IN.| 00001710: 0D 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 20 |. RTS. | 00001720: 20 4E 4F 50 0D 20 20 20 20 20 20 20 20 20 20 20 | NOP. | 00001730: 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 20 | ;. | 00001740: 20 20 20 20 20 20 20 20 20 20 20 3B 0D 20 20 20 | ;. | 00001750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;| 00001760: 27 4C 41 42 45 4C 4F 56 45 52 4C 4F 4F 50 0D 20 |'LABELOVERLOOP. | 00001770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001780: 20 3B 20 52 45 47 45 4C 2E 2E 2E 2E 27 0D 20 20 | ; REGEL....'. | 00001790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000017A0: 3B 0D 4C 41 42 4F 56 20 4C 44 58 20 23 30 30 30 |;.LABOV LDX #000| 000017B0: 0D 20 20 20 20 20 20 4A 53 52 20 20 56 4C 32 41 |. JSR VL2A| 000017C0: 41 20 20 3B 52 55 3D 3E 28 31 31 30 2C 31 30 39 |A ;RU=>(110,109| 000017D0: 29 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 56 4C |).. JSR VL| 000017E0: 41 44 20 20 20 3B 52 58 3D 3E 28 32 35 34 2C 32 |AD ;RX=>(254,2| 000017F0: 35 33 29 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |53).. JSR | 00001800: 52 45 47 42 49 20 20 3B 52 45 47 45 4C 4E 55 4D |REGBI ;REGELNUM| 00001810: 4D 45 52 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |MER.. JSR | 00001820: 56 55 4C 58 58 20 20 3B 5A 45 54 20 49 4E 20 58 |VULXX ;ZET IN X| 00001830: 58 58 58 58 2E 0D 20 20 20 20 20 20 4A 53 52 20 |XXXX.. JSR | 00001840: 20 41 44 56 54 58 20 20 3B 56 4F 4F 52 42 4C 2E | ADVTX ;VOORBL.| 00001850: 54 45 4B 53 54 2E 0D 20 20 20 20 20 20 4C 44 58 |TEKST.. LDX| 00001860: 20 23 30 31 37 20 20 20 20 3B 27 4C 41 42 45 4C | #017 ;'LABEL| 00001870: 4F 56 45 52 4C 2E 0D 20 20 20 20 20 20 4A 53 52 |OVERL.. JSR| 00001880: 20 20 53 43 4E 54 58 20 20 3B 20 52 45 47 45 4C | SCNTX ; REGEL| 00001890: 2E 2E 2E 2E 27 0D 20 20 20 20 20 20 52 54 53 0D |....'. RTS.| 000018A0: 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 | NOP. | 000018B0: 20 20 20 20 20 20 20 20 20 20 20 20 3B 0D 20 20 | ;. | 000018C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000018D0: 3B 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |;. | 000018E0: 20 20 20 20 3B 27 52 45 47 45 4C 4F 56 45 52 4C | ;'REGELOVERL| 000018F0: 4F 4F 50 0D 20 20 20 20 20 20 20 20 20 20 20 20 |OOP. | 00001900: 20 20 20 20 20 20 3B 20 41 44 52 45 53 2E 2E 2E | ; ADRES...| 00001910: 2E 27 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |.'. | 00001920: 20 20 20 20 20 3B 0D 52 45 47 4F 56 20 4C 44 41 | ;.REGOV LDA| 00001930: 20 20 30 30 37 30 30 20 20 3B 41 44 52 45 53 20 | 00700 ;ADRES | 00001940: 49 4E 20 54 45 4B 53 54 2E 0D 20 20 20 20 20 20 |IN TEKST.. | 00001950: 53 54 41 20 20 32 35 31 0D 20 20 20 20 20 20 4C |STA 251. L| 00001960: 44 41 20 20 30 30 37 30 31 0D 20 20 20 20 20 20 |DA 00701. | 00001970: 53 54 41 20 20 32 35 32 0D 20 20 20 20 20 20 4A |STA 252. J| 00001980: 53 52 20 20 56 55 4C 58 58 20 20 3B 5A 45 54 20 |SR VULXX ;ZET | 00001990: 49 4E 20 58 58 58 58 58 2E 0D 20 20 20 20 20 20 |IN XXXXX.. | 000019A0: 4A 53 52 20 20 41 44 56 54 58 20 20 3B 56 4F 4F |JSR ADVTX ;VOO| 000019B0: 52 42 4C 2E 54 45 4B 53 54 2E 0D 20 20 20 20 20 |RBL.TEKST.. | 000019C0: 20 4C 44 58 20 23 30 31 38 20 20 20 20 3B 27 52 | LDX #018 ;'R| 000019D0: 45 47 45 4C 4F 56 45 52 4C 2E 0D 20 20 20 20 20 |EGELOVERL.. | 000019E0: 20 4A 53 52 20 20 53 43 4E 54 58 20 20 3B 20 41 | JSR SCNTX ; A| 000019F0: 44 52 45 53 2E 2E 2E 2E 27 0D 20 20 20 20 20 20 |DRES....'. | 00001A00: 52 54 53 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 |RTS. NOP. | 00001A10: 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 20 20 | NOP. | 00001A20: 20 20 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 | ;. | 00001A30: 20 20 20 20 20 20 20 20 20 20 20 20 3B 56 55 4C | ;VUL| 00001A40: 20 4C 41 42 45 4C 54 41 42 45 4C 2E 0D 20 20 20 | LABELTABEL.. | 00001A50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 54 | ;T| 00001A60: 45 20 56 4F 52 45 4E 20 28 37 35 38 29 0D 20 20 |E VOREN (758). | 00001A70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;| 00001A80: 41 46 56 52 41 47 45 4E 2E 31 3D 56 4F 4C 2E 0D |AFVRAGEN.1=VOL..| 00001A90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001AA0: 20 3B 54 45 20 56 4F 52 45 4E 20 28 37 35 38 29 | ;TE VOREN (758)| 00001AB0: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00001AC0: 20 20 3B 4F 50 20 30 20 45 4E 20 4C 58 3D 4C 55 | ;OP 0 EN LX=LU| 00001AD0: 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00001AE0: 20 20 20 3B 0D 4C 41 42 56 4C 20 4C 44 58 20 23 | ;.LABVL LDX #| 00001AF0: 30 30 32 20 20 20 3B 28 32 35 30 2C 32 34 39 29 |002 ;(250,249)| 00001B00: 3D 4C 58 2E 0D 20 20 20 20 20 20 4C 44 59 20 23 |=LX.. LDY #| 00001B10: 30 30 32 0D 20 20 20 20 20 20 4A 53 52 20 20 56 |002. JSR V| 00001B20: 4C 50 42 49 0D 20 20 20 20 20 20 4C 44 58 20 23 |LPBI. LDX #| 00001B30: 30 30 34 20 20 20 20 3B 28 32 35 32 2C 32 35 31 |004 ;(252,251| 00001B40: 29 3D 4C 58 2B 32 2E 0D 20 20 20 20 20 20 4A 53 |)=LX+2.. JS| 00001B50: 52 20 20 56 4C 32 41 41 20 20 3B 28 31 31 30 2C |R VL2AA ;(110,| 00001B60: 31 30 39 29 3D 5A 55 2E 0D 20 20 20 20 20 20 4A |109)=ZU.. J| 00001B70: 53 52 20 20 56 47 4C 41 42 20 20 3B 4C 58 2B 32 |SR VGLAB ;LX+2| 00001B80: 3C 5A 55 3F 0D 20 20 20 20 20 20 42 43 43 20 20 |<ZU?. BCC | 00001B90: 4C 41 42 56 31 0D 20 20 20 20 20 20 49 4E 43 20 |LABV1. INC | 00001BA0: 20 30 30 37 35 38 20 20 3B 4E 45 45 4E 3A 20 56 | 00758 ;NEEN: V| 00001BB0: 42 20 4F 50 2E 0D 20 20 20 20 20 20 52 54 53 0D |B OP.. RTS.| 00001BC0: 4C 41 42 56 31 20 4C 44 59 20 23 30 30 30 20 20 |LABV1 LDY #000 | 00001BD0: 20 20 3B 58 4C 2C 58 48 20 4E 49 45 55 57 21 21 | ;XL,XH NIEUW!!| 00001BE0: 0D 20 20 20 20 20 20 4C 44 41 20 20 30 33 38 20 |. LDA 038 | 00001BF0: 20 20 20 3B 28 30 33 38 29 3D 58 4C 2E 0D 20 20 | ;(038)=XL.. | 00001C00: 20 20 20 20 53 54 41 20 28 32 34 39 29 2C 59 0D | STA (249),Y.| 00001C10: 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 | INY. | 00001C20: 4C 44 41 20 20 30 33 39 20 20 20 20 3B 28 30 33 |LDA 039 ;(03| 00001C30: 39 29 3D 58 48 2E 0D 20 20 20 20 20 20 53 54 41 |9)=XH.. STA| 00001C40: 20 28 32 34 39 29 2C 59 0D 20 20 20 20 20 20 4C | (249),Y. L| 00001C50: 44 58 20 23 30 30 32 20 20 20 20 3B 28 32 35 32 |DX #002 ;(252| 00001C60: 2C 32 35 31 29 20 49 4E 0D 20 20 20 20 20 20 4A |,251) IN. J| 00001C70: 53 52 20 20 42 49 56 4C 20 20 20 3B 28 32 35 30 |SR BIVL ;(250| 00001C80: 2C 32 34 39 29 3D 4C 58 2E 0D 20 20 20 20 20 20 |,249)=LX.. | 00001C90: 52 54 53 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 |RTS. NOP. | 00001CA0: 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 20 20 | NOP. | 00001CB0: 20 20 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 | ;. | 00001CC0: 20 20 20 20 20 20 20 20 20 20 20 20 3B 56 55 4C | ;VUL| 00001CD0: 20 52 45 47 45 4C 47 45 42 49 45 44 2E 0D 20 20 | REGELGEBIED.. | 00001CE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;| 00001CF0: 54 45 20 56 4F 52 45 4E 20 28 37 35 37 29 0D 20 |TE VOREN (757). | 00001D00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001D10: 3B 41 46 56 52 41 47 45 4E 2E 31 3D 56 4F 4C 2E |;AFVRAGEN.1=VOL.| 00001D20: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00001D30: 20 20 3B 54 45 20 56 4F 52 45 4E 20 28 37 35 37 | ;TE VOREN (757| 00001D40: 29 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |). | 00001D50: 20 20 20 3B 4F 50 20 4E 55 4C 20 45 4E 20 52 58 | ;OP NUL EN RX| 00001D60: 3D 52 55 2E 0D 20 20 20 20 20 20 20 20 20 20 20 |=RU.. | 00001D70: 20 20 20 20 20 20 3B 0D 52 45 47 56 4C 20 4C 44 | ;.REGVL LD| 00001D80: 58 20 23 30 30 30 20 20 20 3B 28 32 34 38 2C 32 |X #000 ;(248,2| 00001D90: 34 37 29 3D 52 58 2E 0D 20 20 20 20 20 20 4C 44 |47)=RX.. LD| 00001DA0: 59 20 23 30 30 36 0D 20 20 20 20 20 20 4A 53 52 |Y #006. JSR| 00001DB0: 20 20 56 4C 50 42 49 0D 20 20 20 20 20 20 4C 44 | VLPBI. LD| 00001DC0: 58 20 23 30 30 32 20 20 20 3B 28 32 35 32 2C 32 |X #002 ;(252,2| 00001DD0: 35 31 29 3D 52 58 2B 36 2E 0D 20 20 20 20 20 20 |51)=RX+6.. | 00001DE0: 4A 53 52 20 20 56 4C 32 41 41 20 3B 28 31 31 30 |JSR VL2AA ;(110| 00001DF0: 2C 31 30 39 29 3D 4C 55 2E 0D 20 20 20 20 20 20 |,109)=LU.. | 00001E00: 4A 53 52 20 20 56 47 4C 41 42 20 3B 52 58 2B 36 |JSR VGLAB ;RX+6| 00001E10: 3C 4C 55 3F 0D 20 20 20 20 20 20 42 43 43 20 20 |<LU?. BCC | 00001E20: 52 45 47 56 31 0D 20 20 20 20 20 20 49 4E 43 20 |REGV1. INC | 00001E30: 20 30 30 37 35 37 20 20 3B 4E 45 45 4E 3A 20 56 | 00757 ;NEEN: V| 00001E40: 41 20 4F 50 2E 0D 20 20 20 20 20 20 52 54 53 0D |A OP.. RTS.| 00001E50: 52 45 47 56 31 20 4C 44 59 20 23 30 30 35 20 20 |REGV1 LDY #005 | 00001E60: 20 20 20 20 3B 28 37 30 30 29 3D 41 4C 2E 0D 52 | ;(700)=AL..R| 00001E70: 45 47 56 32 20 4C 44 41 20 20 30 30 37 30 30 2C |EGV2 LDA 00700,| 00001E80: 59 20 20 3B 28 37 30 31 29 3D 41 48 2E 0D 20 20 |Y ;(701)=AH.. | 00001E90: 20 20 20 20 53 54 41 20 28 32 34 37 29 2C 59 20 | STA (247),Y | 00001EA0: 20 20 3B 28 37 30 32 29 3D 53 31 2E 0D 20 20 20 | ;(702)=S1.. | 00001EB0: 20 20 20 44 45 59 20 20 20 20 20 20 20 20 20 20 | DEY | 00001EC0: 20 3B 28 37 30 33 29 3D 53 32 2E 0D 20 20 20 20 | ;(703)=S2.. | 00001ED0: 20 20 42 50 4C 20 20 52 45 47 56 32 20 20 20 20 | BPL REGV2 | 00001EE0: 3B 28 37 30 34 29 3D 4F 4C 2E 0D 20 20 20 20 20 |;(704)=OL.. | 00001EF0: 20 4C 44 58 20 23 30 30 30 20 20 20 20 20 20 3B | LDX #000 ;| 00001F00: 28 37 30 35 29 3D 4F 48 2E 0D 20 20 20 20 20 20 |(705)=OH.. | 00001F10: 4A 53 52 20 20 42 49 56 4C 20 20 20 20 20 3B 28 |JSR BIVL ;(| 00001F20: 32 35 32 2C 32 35 31 29 20 49 4E 0D 20 20 20 20 |252,251) IN. | 00001F30: 20 20 52 54 53 20 20 20 20 20 20 20 20 20 20 20 | RTS | 00001F40: 3B 28 32 34 38 2C 32 34 37 29 3D 52 58 2E 0D 20 |;(248,247)=RX.. | 00001F50: 20 20 20 20 20 4E 4F 50 0D 4C 41 42 5A 4B 20 4C | NOP.LABZK L| 00001F60: 44 41 20 20 32 35 33 20 20 20 20 3B 5A 4F 45 4B |DA 253 ;ZOEK| 00001F70: 20 4C 41 42 45 4C 20 49 4E 0D 20 20 20 20 20 20 | LABEL IN. | 00001F80: 53 54 41 20 20 30 39 38 20 20 20 20 3B 54 41 42 |STA 098 ;TAB| 00001F90: 45 4C 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 |EL.. | 00001FA0: 20 20 20 20 20 20 3B 4C 55 3D 41 28 31 29 2E 0D | ;LU=A(1)..| 00001FB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001FC0: 20 20 3B 4C 58 3D 41 28 4E 2B 31 29 2E 0D 20 20 | ;LX=A(N+1).. | 00001FD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001FE0: 3B 4C 59 3D 28 32 35 32 2C 32 35 31 29 3A 0D 20 |;LY=(252,251):. | 00001FF0: 20 20 20 20 20 4C 44 41 20 20 32 35 34 20 20 20 | LDA 254 | 00002000: 20 3B 49 54 45 4D 4E 55 4D 4D 45 52 2E 0D 20 20 | ;ITEMNUMMER.. | 00002010: 20 20 20 20 53 54 41 20 20 30 39 39 20 20 20 20 | STA 099 | 00002020: 3B 28 30 33 39 2C 30 33 38 29 20 49 54 45 4D 2E |;(039,038) ITEM.| 00002030: 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 32 20 |. LDX #002 | 00002040: 20 20 20 3B 28 32 35 34 2C 32 35 33 29 20 52 45 | ;(254,253) RE| 00002050: 44 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 56 4C |D.. JSR VL| 00002060: 32 41 41 20 20 3B 28 31 31 30 2C 31 30 39 29 3D |2AA ;(110,109)=| 00002070: 4C 55 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 30 |LU.. LDX #0| 00002080: 30 32 20 20 20 20 3B 28 32 35 30 2C 32 34 39 29 |02 ;(250,249)| 00002090: 3D 4C 58 0D 20 20 20 20 20 20 4A 53 52 20 20 56 |=LX. JSR V| 000020A0: 4C 42 49 20 20 20 3B 49 4E 20 28 32 35 32 2C 32 |LBI ;IN (252,2| 000020B0: 35 31 29 2E 0D 4C 41 42 5A 31 20 53 45 43 20 20 |51)..LABZ1 SEC | 000020C0: 20 20 20 20 20 20 20 3B 54 52 45 4B 20 32 20 41 | ;TREK 2 A| 000020D0: 46 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 |F.. LDA 25| 000020E0: 31 0D 20 20 20 20 20 20 53 42 43 20 23 30 30 32 |1. SBC #002| 000020F0: 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 31 0D |. STA 251.| 00002100: 20 20 20 20 20 20 4C 44 41 20 20 32 35 32 0D 20 | LDA 252. | 00002110: 20 20 20 20 20 53 42 43 20 23 30 30 30 0D 20 20 | SBC #000. | 00002120: 20 20 20 20 53 54 41 20 20 32 35 32 0D 20 20 20 | STA 252. | 00002130: 20 20 20 4A 53 52 20 20 56 47 4C 41 42 20 20 20 | JSR VGLAB | 00002140: 20 3B 56 45 52 47 45 4C 49 4A 4B 2E 0D 20 20 20 | ;VERGELIJK.. | 00002150: 20 20 20 42 43 43 20 20 4C 41 42 5A 33 20 20 20 | BCC LABZ3 | 00002160: 20 3B 4C 45 45 47 2E 0D 20 20 20 20 20 20 4C 44 | ;LEEG.. LD| 00002170: 59 20 23 30 30 31 0D 4C 41 42 5A 32 20 54 59 41 |Y #001.LABZ2 TYA| 00002180: 0D 20 20 20 20 20 20 54 41 58 0D 20 20 20 20 20 |. TAX. | 00002190: 20 4C 44 41 20 28 32 35 31 29 2C 59 0D 20 20 20 | LDA (251),Y. | 000021A0: 20 20 20 43 4D 50 20 20 30 33 38 2C 58 20 20 20 | CMP 038,X | 000021B0: 20 3B 5A 4F 45 4B 49 54 45 4D 0D 20 20 20 20 20 | ;ZOEKITEM. | 000021C0: 20 42 4E 45 20 20 4C 41 42 5A 31 20 20 20 20 3B | BNE LABZ1 ;| 000021D0: 28 30 33 39 2C 30 33 38 29 2E 0D 20 20 20 20 20 |(039,038).. | 000021E0: 20 44 45 59 20 20 20 20 20 20 20 20 20 20 20 3B | DEY ;| 000021F0: 20 58 48 2C 58 4C 2E 0D 20 20 20 20 20 20 42 50 | XH,XL.. BP| 00002200: 4C 20 20 4C 41 42 5A 32 0D 20 20 20 20 20 20 43 |L LABZ2. C| 00002210: 4C 43 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 |LC. LDA 25| 00002220: 31 0D 20 20 20 20 20 20 41 44 43 20 23 30 30 32 |1. ADC #002| 00002230: 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 33 0D |. STA 253.| 00002240: 20 20 20 20 20 20 4C 44 41 20 20 32 35 32 0D 20 | LDA 252. | 00002250: 20 20 20 20 20 41 44 43 20 23 30 30 30 0D 20 20 | ADC #000. | 00002260: 20 20 20 20 53 54 41 20 20 32 35 34 0D 20 20 20 | STA 254. | 00002270: 20 20 20 4A 53 52 20 20 4C 41 42 42 49 20 20 3B | JSR LABBI ;| 00002280: 4C 41 42 45 4C 4E 55 4D 4D 45 52 2E 0D 20 20 20 |LABELNUMMER.. | 00002290: 20 20 20 4C 44 58 20 23 30 30 30 20 20 20 20 3B | LDX #000 ;| 000022A0: 47 45 56 4F 4E 44 45 4E 2E 0D 20 20 20 20 20 20 |GEVONDEN.. | 000022B0: 42 45 51 20 20 4C 41 42 5A 34 0D 4C 41 42 5A 33 |BEQ LABZ4.LABZ3| 000022C0: 20 4C 44 58 20 23 30 30 31 20 20 20 20 3B 4E 49 | LDX #001 ;NI| 000022D0: 45 54 20 47 45 56 4F 4E 44 45 4E 2E 0D 4C 41 42 |ET GEVONDEN..LAB| 000022E0: 5A 34 20 4C 44 41 20 20 30 39 38 20 20 20 20 3B |Z4 LDA 098 ;| 000022F0: 48 45 52 53 54 45 4C 0D 20 20 20 20 20 20 53 54 |HERSTEL. ST| 00002300: 41 20 20 32 35 33 20 20 20 20 3B 28 32 35 34 2C |A 253 ;(254,| 00002310: 32 35 33 29 2E 0D 20 20 20 20 20 20 4C 44 41 20 |253).. LDA | 00002320: 20 30 39 39 0D 20 20 20 20 20 20 53 54 41 20 20 | 099. STA | 00002330: 32 35 34 0D 20 20 20 20 20 20 52 54 53 0D 20 20 |254. RTS. | 00002340: 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F | NOP. NO| 00002350: 50 0D 42 49 56 4C 31 20 4C 44 41 20 20 32 35 31 |P.BIVL1 LDA 251| 00002360: 20 20 20 20 20 3B 28 32 35 32 2C 32 35 31 29 20 | ;(252,251) | 00002370: 4E 41 41 52 0D 20 20 20 20 20 20 53 54 41 20 20 |NAAR. STA | 00002380: 30 30 37 31 30 2C 58 20 3B 28 37 31 31 2B 58 2C |00710,X ;(711+X,| 00002390: 37 31 30 2B 58 29 2E 0D 20 20 20 20 20 20 4C 44 |710+X).. LD| 000023A0: 41 20 20 32 35 32 0D 20 20 20 20 20 20 53 54 41 |A 252. STA| 000023B0: 20 20 30 30 37 31 31 2C 58 0D 20 20 20 20 20 20 | 00711,X. | 000023C0: 52 54 53 0D 41 58 52 20 20 20 4A 53 52 20 20 56 |RTS.AXR JSR V| 000023D0: 4C 52 55 20 20 20 20 3B 52 45 47 45 4C 4E 55 4D |LRU ;REGELNUM| 000023E0: 4D 45 52 0D 20 20 20 20 20 20 4C 44 58 20 23 30 |MER. LDX #0| 000023F0: 30 30 20 20 20 20 20 3B 53 43 48 45 52 4D 20 52 |00 ;SCHERM R| 00002400: 45 43 48 54 53 0D 20 20 20 20 20 20 4A 53 52 20 |ECHTS. JSR | 00002410: 20 56 4C 41 44 20 20 20 20 3B 42 4F 56 45 4E 41 | VLAD ;BOVENA| 00002420: 41 4E 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 52 |AN.. JSR R| 00002430: 45 47 42 49 0D 20 20 20 20 20 20 4A 53 52 20 20 |EGBI. JSR | 00002440: 41 58 52 42 56 0D 20 20 20 20 20 20 52 54 53 0D |AXRBV. RTS.| 00002450: 20 20 20 20 20 20 4E 4F 50 0D 56 4C 50 42 49 20 | NOP.VLPBI | 00002460: 43 4C 43 0D 20 20 20 20 20 20 54 59 41 0D 20 20 |CLC. TYA. | 00002470: 20 20 20 20 41 44 43 20 20 32 34 37 2C 58 0D 20 | ADC 247,X. | 00002480: 20 20 20 20 20 53 54 41 20 20 32 35 31 0D 20 20 | STA 251. | 00002490: 20 20 20 20 4C 44 59 20 23 30 30 30 0D 20 20 20 | LDY #000. | 000024A0: 20 20 20 54 59 41 0D 20 20 20 20 20 20 41 44 43 | TYA. ADC| 000024B0: 20 20 32 34 38 2C 58 0D 20 20 20 20 20 20 53 54 | 248,X. ST| 000024C0: 41 20 20 32 35 32 0D 20 20 20 20 20 20 52 54 53 |A 252. RTS| 000024D0: 0D 56 4C 42 49 20 20 4C 44 41 20 20 32 34 37 2C |.VLBI LDA 247,| 000024E0: 58 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 31 |X. STA 251| 000024F0: 0D 20 20 20 20 20 20 4C 44 41 20 20 32 34 38 2C |. LDA 248,| 00002500: 58 0D 20 20 20 20 20 20 53 54 41 20 20 32 35 32 |X. STA 252| 00002510: 0D 20 20 20 20 20 20 52 54 53 0D 42 49 56 4C 20 |. RTS.BIVL | 00002520: 20 4C 44 41 20 20 32 35 31 0D 20 20 20 20 20 20 | LDA 251. | 00002530: 53 54 41 20 20 32 34 37 2C 58 0D 20 20 20 20 20 |STA 247,X. | 00002540: 20 4C 44 41 20 20 32 35 32 0D 20 20 20 20 20 20 | LDA 252. | 00002550: 53 54 41 20 20 32 34 38 2C 58 0D 20 20 20 20 20 |STA 248,X. | 00002560: 20 52 54 53 0D 20 20 20 20 20 20 2E 4C 49 42 20 | RTS. .LIB | 00002570: 20 44 49 4C 4E 30 31 0D 20 20 20 20 20 20 2E 45 | DILN01. .E| 00002580: 4E 44 0D |ND. |
*=34624. ;.
;DISSEMBLER. ;
SUBROUTINES.. ; DEEL 2..
;. ;CONVER
SIES.. ;DECONVERSIES..
;.BIDC1 STY 002 ;EENBYTE
BIN-DEC.. LDA 251 ;IN:(251) BINAI
R.. STA 038 ;UIT:AF ADRES.
LDA #000 ;AU=(254,253).. STA 0
39 ;AU+0:100.. LDY #002 ;...A
U+2:1.. LDA #048 ;ASCII-CODE..BI
D01 STA (253),Y ;VUL MET 000.. DEY.
BPL BID01. LDY #000. BE
Q BID03.BID02 SEC ;TREK 100 AF.
LDA 038 ;VAN (39,38).. SB
C #100. STA 038. LDA 039.
SBC #000. STA 039. CLC
;TEL 1 OP. LDA (253),Y ;BIJ (A
U+M).. ADC #001. STA (253),Y.B
ID03 LDA 039 ;VERGELIJKEN.. CMP
#000 ;(39,38). BCC BID04 ;MET
100.. BNE BID02 ;>100.. LDA
038. CMP #100. BCS BID02.BI
D04 LDA 039 ;REST NUL?. BNE BI
D05. LDA 038. BEQ BID06 ;
JA:NAAR H.P..BID05 CLC ;NEEN:.
.BYTE $26,038 ;(39,38)*10.. .
BYTE $26,039. LDA 039. STA 0
41. LDA 038. CLC. .BYTE
$2A. .BYTE $26,041. .BYTE $2A.
.BYTE $26,041. CLC. ADC
038. STA 038. LDA 041.
ADC 039. STA 039. INY
;VOLGEND CIJFER.. CLC. BCC
BID03.BID06 LDY 002 ;HERSTEL (Y)..
RTS ;NAAR H.P.. NOP.
NOP.BIHX1 STY 039 ;EENBYTE BIN-HEX
.. LDY #000 ;IN:(251) BINAIR..
LDA 251 ;UIT:AF ADRES. .BYTE $4
A ;AU=(254,253).. .BYTE $4A ;SCHUIF
4 BITS. .BYTE $4A ;NAAR RECHTS..
.BYTE $4A ;M.S.DEEL.. ORA #048.
STA (253),Y. INY. LDA 2
51 ;L.S.DEEL.. AND #015. ORA
#048. STA (253),Y.BIH01 LDA (253),Y
;HEXADEC.TEKEN.. CMP #058. BC
C BIH02. ADC #006. STA (253),
Y.BIH02 DEY. BPL BIH01. LDY
039 ;HERSTEL (Y).. RTS. NOP
.BIDC LDA 00750 ;DEC.OP VLAG DB:.
BEQ DENK ;0=ENKELBYTE;. JSR B
IDC2 ;1=DUBBELBYTE.. RTS.DENK JSR
BIDC1. RTS.BIHX LDA 00750 ;HEX
.OP VLAG DB:. BEQ HENK ;0=ENKELB
YTE;. JSR BIHX2 ;1=DUBBELBYTE..
RTS.HENK JSR BIHX1. RTS.ELMLG
LDY #000 ;LENGTE VAN. LDA (253)
,Y ;ELEMENT BEPALEN. BNE ELML1 ;M
ET TERUGTELLEN. RTS ;VAN NA
SPATIES..ELML1 TAY ;(254,253) WI
JST.ELML2 LDA (253),Y ;LENGTEBYTE AAN..
CMP #032. BNE ELML3. DEY
. BNE ELML2.ELML3 TYA. LDY #0
00. STA (253),Y. RTS.BIXX LDA
00756 ;DECONVERSIE OP. BEQ BIX1
;DB- EN DC-VLAG.. JSR BIDC.
RTS.BIX1 LDY #000. LDA #036 ;
'$' VOOROP.. STA (253),Y. LDA
254 ;RED ADRES.. PHA. LDA
253. PHA. INC 253. BNE
BIX2. INC 254.BIX2 JSR BIHX.
PLA ;HERSTEL ADRES.. STA
253. PLA. STA 254. RTS
. NOP.LABEZ JSR BIDC2 ;LABEL ZET
TEN.. LDY #001 ;VOORLETTERS.LAB
E1 LDA 00766,Y ;UIT (766,767).. ST
A (253),Y ;IN: (252,251).. DEY
;UIT:(254,253). BPL LABE1
;BEGINADRES.. RTS.OOSPC JSR BIDC2
;TWEE VOORNUL-. LDY #001 ;LEN
VERVANGEN. LDA #032 ;DOOR SPAT
IES..OOSP1 STA (253),Y ;IN: (252,251)..
DEY ;UIT:(254,253).
BPL OOSP1 ;BEGINADRES.. RTS.
NOP.STAT LDA 144 ;STATUS OP.
STA 251 ;SCHERM.. LDA #000.
STA 252. JSR VULXX ;VUL XXXXX
.. JSR ADVTX ;TEXT VOORBLOK..
LDX #000 ;'TOESTAND XXX.'. JSR
SCNTX. LDX #024 ;OPEN REGEL..
JSR SCNTX. RTS. NOP.OPEN
LDA #005 ;**OPENEN. **. LDX 0
0751 ;BEST.5;TOESTEL.. BNE OPE1
;0: SCHERM.. LDX #003 ;APPARAAT
NR.. BNE OPE2 ; -->[OPE2].O
PE1 CPX #003. BNE OPE3 ;3: PRIN
TER.. LDX #004 ;APPARAATNR..OPE2
LDY #000 ;SEC.ADR.NUL.. JSR 6
5466 ;* SETLFS *. LDA #000 ;GEE
N NAAM.. BEQ OPE7 ; -->[OPE
7].OPE3 LDA #000 ;NAAMVLAG. STA
002 ;NV=0.. LDA 00751. C
MP #001 ;1: TAPE.. BEQ OPE4 ;
2: DISK.. LDX #008 ;DISK:APP.8..
LDY #003 ;SEC.ADR.=3.. INC
002 ;ZET NV=1.. CLC ;
-->[OPE5]. BCC OPE5 ;.OPE4
LDX #001 ;TAPE:APP.1.. LDY #001
;SEC.ADR.=1..OPE5 LDA #005 ;BEST
ANDSNR.. JSR 65466 ;* SETLFS *.
LDA 002 ;NV=0: -->[OPE6]. B
EQ OPE6 ;. LDX #044 ;NV=1:',S
,W' NA.. JSR XTRAX. LDX #083.
JSR XTRAX. LDX #044. JS
R XTRAX. LDX #087. JSR XTRAX
.OPE6 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..OPE7 JSR 65469 ;* SETNAM *.
JSR 65472 ;* OPEN *. LDX #0
05 ;BESTANDSNR.. JSR 65481 ;*
CHKOUT *. RTS. NOP. NOP.O
UTP LDY #000 ;**SCHRIJF.**. LDA
(253),Y ;REGELLENGTE. STA 002
;TIJDELIJK.. BNE OUT2 ;>0: -->
[OUT2]. BEQ OUT3 ;=0: -->[OUT3
].OUT1 INY ;VOLGENDE BYTE..
LDA (253),Y ;UIT ELEMENT.. JSR 6
5490 ;* CHROUT *.OUT2 CPY 002 ;KLA
AR?. BCC OUT1 ;NEEN: -->[OUT1].O
UT3 RTS. NOP.CLOS LDA #005 ;**
SLUITEN.**. JSR 65475 ;* CLOSE *
. JSR 65511 ;* CLALL *. RTS
. NOP.XTRAX LDY #000 ;**EXTRA-X.
**. CLC. LDA (253),Y ;LENGTE M
ET EEN. ADC #001 ;OPHOGEN..
STA (253),Y ;LENGTE MET EEN. TAY
;ZET IN (Y).. TXA ;E
XTRA TEKEN (X). STA (253),Y ;ACHTER
AAN.. RTS. NOP.POETR LDX #012.
JSR VL2AD ;BU=>(254,253)..
LDA #032 ;SPATIE.. STA 252 ;
AANTAL MOET OOK. LDA #020 ;IN (B
U+0) GEZET. STA 251 ;WORDEN..
JSR ELVUL ;ZET IN.. RTS.
NOP. ;.
;. ;'LABELOVERLOOP.
; REGEL....'.
;.LABOV LDX #000. JSR VL2A
A ;RU=>(110,109).. JSR VLAD ;RX
=>(254,253).. JSR REGBI ;REGELNUM
MER.. JSR VULXX ;ZET IN XXXXX..
JSR ADVTX ;VOORBL.TEKST.. LDX
#017 ;'LABELOVERL.. JSR SCNTX
; REGEL....'. RTS. NOP.
;. ;.
;'REGELOVERLOOP.
; ADRES....'. ;.R
EGOV LDA 00700 ;ADRES IN TEKST..
STA 251. LDA 00701. STA 252
. JSR VULXX ;ZET IN XXXXX..
JSR ADVTX ;VOORBL.TEKST.. LDX #01
8 ;'REGELOVERL.. JSR SCNTX ; A
DRES....'. RTS. NOP. NOP.
;. ;VUL
LABELTABEL.. ;TE VOREN
(758). ;AFVRAGEN.1=VOL..
;TE VOREN (758).
;OP 0 EN LX=LU..
;.LABVL LDX #002 ;(250,249)=LX..
LDY #002. JSR VLPBI. LDX #
004 ;(252,251)=LX+2.. JSR VL2AA
;(110,109)=ZU.. JSR VGLAB ;LX+2
<ZU?. BCC LABV1. INC 00758
;NEEN: VB OP.. RTS.LABV1 LDY #000
;XL,XH NIEUW!!. LDA 038 ;(038
)=XL.. STA (249),Y. INY.
LDA 039 ;(039)=XH.. STA (249),Y
. LDX #002 ;(252,251) IN. J
SR BIVL ;(250,249)=LX.. RTS.
NOP. NOP. ;.
;VUL REGELGEBIED..
;TE VOREN (757).
;AFVRAGEN.1=VOL.. ;TE VO
REN (757). ;OP NUL EN RX
=RU.. ;.REGVL LDX #000
;(248,247)=RX.. LDY #006. JSR
VLPBI. LDX #002 ;(252,251)=RX+6
.. JSR VL2AA ;(110,109)=LU..
JSR VGLAB ;RX+6<LU?. BCC REGV1.
INC 00757 ;NEEN: VA OP.. RTS.
REGV1 LDY #005 ;(700)=AL..REGV2 LDA
00700,Y ;(701)=AH.. STA (247),Y
;(702)=S1.. DEY ;(703)=
S2.. BPL REGV2 ;(704)=OL..
LDX #000 ;(705)=OH.. JSR BIV
L ;(252,251) IN. RTS
;(248,247)=RX.. NOP.LABZK LDA 253
;ZOEK LABEL IN. STA 098 ;TAB
EL.. ;LU=A(1)..
;LX=A(N+1)..
;LY=(252,251):. LDA 254 ;ITEMNU
MMER.. STA 099 ;(039,038) ITEM.
. LDX #002 ;(254,253) RED..
JSR VL2AA ;(110,109)=LU.. LDX #0
02 ;(250,249)=LX. JSR VLBI ;I
N (252,251)..LABZ1 SEC ;TREK 2 A
F.. LDA 251. SBC #002. S
TA 251. LDA 252. SBC #000.
STA 252. JSR VGLAB ;VERGEL
IJK.. BCC LABZ3 ;LEEG.. LD
Y #001.LABZ2 TYA. TAX. LDA (25
1),Y. CMP 038,X ;ZOEKITEM.
BNE LABZ1 ;(039,038).. DEY
; XH,XL.. BPL LABZ2. C
LC. LDA 251. ADC #002. S
TA 253. LDA 252. ADC #000.
STA 254. JSR LABBI ;LABELNUM
MER.. LDX #000 ;GEVONDEN..
BEQ LABZ4.LABZ3 LDX #001 ;NIET GEVON
DEN..LABZ4 LDA 098 ;HERSTEL. ST
A 253 ;(254,253).. LDA 099.
STA 254. RTS. NOP. NO
P.BIVL1 LDA 251 ;(252,251) NAAR.
STA 00710,X ;(711+X,710+X).. LD
A 252. STA 00711,X. RTS.AXR
JSR VLRU ;REGELNUMMER. LDX #0
00 ;SCHERM RECHTS. JSR VLAD
;BOVENAAN.. JSR REGBI. JSR
AXRBV. RTS. NOP.VLPBI CLC.
TYA. ADC 247,X. STA 251.
LDY #000. TYA. ADC 248,X.
STA 252. RTS.VLBI LDA 247,
X. STA 251. LDA 248,X.
STA 252. RTS.BIVL LDA 251.
STA 247,X. LDA 252. STA 248
,X. RTS. .LIB DILN01. .E
ND.
> CLICK IMAGE PREVIEW FOR FULL MODAL