KOP
FILE INFORMATION
FILENAME(S): KOP
FILE TYPE(S): DEL
FILE SIZE: 3K
FIRST SEEN: 2025-11-30 21:27:07
APPEARS ON: 1 disk(s)
FILE HASH
dfe52e03dd4d62ad405cdaab09f8c4f81ce538f76d289d31f4726ae0388cbe4f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MEENEEM 1 | KOP | DEL | DuncanTwain | 10 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 2A 3D 34 39 34 32 34 | *=49424| 00000010: 0D 20 20 20 20 20 20 4A 53 52 20 20 34 37 30 39 |. JSR 4709| 00000020: 35 0D 20 20 20 20 20 20 4C 44 41 20 20 30 32 30 |5. LDA 020| 00000030: 0D 20 20 20 20 20 20 53 54 41 20 20 31 36 37 0D |. STA 167.| 00000040: 20 20 20 20 20 20 4C 44 41 20 20 30 32 31 0D 20 | LDA 021. | 00000050: 20 20 20 20 20 53 54 41 20 20 31 36 38 0D 20 20 | STA 168. | 00000060: 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 52 4F | RTS. RO| 00000070: 4C 20 20 30 30 32 0D 20 20 20 20 20 20 53 45 43 |L 002. SEC| 00000080: 0D 20 20 20 20 20 20 43 50 58 20 23 30 30 30 0D |. CPX #000.| 00000090: 20 20 20 20 20 20 42 4E 45 20 20 4C 52 30 30 31 | BNE LR001| 000000A0: 0D 20 20 20 20 20 20 43 4C 43 0D 4C 52 30 30 31 |. CLC.LR001| 000000B0: 20 52 4F 52 20 20 30 30 32 0D 20 20 20 20 20 20 | ROR 002. | 000000C0: 52 54 53 0D 20 20 20 20 20 20 2E 42 59 54 45 20 |RTS. .BYTE | 000000D0: 32 35 35 0D 20 20 20 20 20 20 4C 44 59 20 20 32 |255. LDY 2| 000000E0: 35 30 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 20 |50. CLC. | 000000F0: 20 20 20 42 43 43 20 20 4C 52 30 30 33 0D 3D 31 | BCC LR003.=1| 00000100: 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 |.. JSR 654| 00000110: 36 39 20 20 20 3B 2A 20 53 45 54 4E 41 4D 20 2A |69 ;* SETNAM *| 00000120: 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 37 |. JSR 6547| 00000130: 32 20 20 20 3B 2A 20 20 4F 50 45 4E 20 20 2A 0D |2 ;* OPEN *.| 00000140: 20 20 20 20 20 20 4C 44 58 20 23 30 30 35 20 20 | LDX #005 | 00000150: 20 20 20 3B 46 49 4C 45 20 35 2E 0D 20 20 20 20 | ;FILE 5.. | 00000160: 20 20 4A 53 52 20 20 36 35 34 37 38 20 20 20 3B | JSR 65478 ;| 00000170: 2A 20 43 48 4B 49 4E 20 20 2A 0D 20 20 20 20 20 |* CHKIN *. | 00000180: 20 52 54 53 20 20 20 20 20 20 20 20 20 20 3B 4E | RTS ;N| 00000190: 41 41 52 20 48 2E 50 2E 0D 20 20 20 20 20 20 20 |AAR H.P.. | 000001A0: 20 20 2A 3D 34 39 36 30 30 0D 20 20 20 20 20 20 | *=49600. | 000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 0D 20 | ;. | 000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001D0: 20 20 3B 4F 50 45 4E 45 4E 20 4F 50 0D 20 20 20 | ;OPENEN OP. | 000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001F0: 3B 4C 45 5A 45 4E 20 56 41 4E 0D 20 20 20 20 20 |;LEZEN VAN. | 00000200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 53 | ;S| 00000210: 45 51 2E 46 49 4C 45 2E 0D 20 20 20 20 20 20 20 |EQ.FILE.. | 00000220: 20 20 20 20 20 20 20 20 20 20 20 20 3B 4E 41 41 | ;NAA| 00000230: 4D 20 56 41 4E 41 46 0D 20 20 20 20 20 20 20 20 |M VANAF. | 00000240: 20 20 20 20 20 20 20 20 20 20 20 3B 42 45 47 49 | ;BEGI| 00000250: 4E 41 44 52 45 53 0D 20 20 20 20 20 20 20 20 20 |NADRES. | 00000260: 20 20 20 20 20 20 20 20 20 20 3B 28 32 35 32 2C | ;(252,| 00000270: 32 35 31 29 3A 0D 20 20 20 20 20 20 20 20 20 20 |251):. | 00000280: 20 20 20 20 20 20 20 20 20 3B 4C 45 4E 47 54 45 | ;LENGTE| 00000290: 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 000002A0: 20 20 20 20 20 3B 0D 20 20 20 20 20 20 4C 44 41 | ;. LDA| 000002B0: 20 23 30 30 35 20 20 20 20 20 3B 46 49 4C 45 4E | #005 ;FILEN| 000002C0: 55 4D 4D 45 52 20 35 2E 0D 20 20 20 20 20 20 4C |UMMER 5.. L| 000002D0: 44 58 20 23 30 30 38 20 20 20 20 20 3B 44 49 53 |DX #008 ;DIS| 000002E0: 4B 20 3D 20 38 2E 0D 20 20 20 20 20 20 4C 44 59 |K = 8.. LDY| 000002F0: 20 23 30 30 33 20 20 20 20 20 3B 53 50 45 43 2E | #003 ;SPEC.| 00000300: 3D 20 33 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 |= 3.. JSR | 00000310: 36 35 34 36 36 20 20 20 3B 2A 20 53 45 54 4C 46 |65466 ;* SETLF| 00000320: 53 20 2A 0D 20 20 20 20 20 20 4C 44 58 20 23 30 |S *. LDX #0| 00000330: 34 34 20 20 20 20 20 3B 27 2C 53 2C 52 27 20 4E |44 ;',S,R' N| 00000340: 41 20 44 45 0D 20 20 20 20 20 20 4A 53 52 20 20 |A DE. JSR | 00000350: 58 54 52 41 58 20 20 20 3B 46 49 4C 45 4E 41 41 |XTRAX ;FILENAA| 00000360: 4D 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 30 38 |M.. LDX #08| 00000370: 33 0D 20 20 20 20 20 20 4A 53 52 20 20 58 54 52 |3. JSR XTR| 00000380: 41 58 0D 20 20 20 20 20 20 4C 44 58 20 23 30 34 |AX. LDX #04| 00000390: 34 0D 20 20 20 20 20 20 4A 53 52 20 20 58 54 52 |4. JSR XTR| 000003A0: 41 58 0D 20 20 20 20 20 20 4C 44 58 20 23 30 38 |AX. LDX #08| 000003B0: 32 0D 20 20 20 20 20 20 4A 53 52 20 20 58 54 52 |2. JSR XTR| 000003C0: 41 58 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 |AX. LDY #00| 000003D0: 30 20 20 20 20 20 3B 4C 45 4E 47 54 45 20 54 4F |0 ;LENGTE TO| 000003E0: 54 41 41 4C 2E 0D 20 20 20 20 20 20 4C 44 41 20 |TAAL.. LDA | 000003F0: 28 32 35 31 29 2C 59 20 20 3B 49 4E 20 44 45 20 |(251),Y ;IN DE | 00000400: 53 54 41 50 45 4C 2E 0D 20 20 20 20 20 20 50 48 |STAPEL.. PH| 00000410: 41 0D 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 |A. CLC | 00000420: 20 20 20 20 20 3B 4C 53 20 41 44 52 45 53 20 4E | ;LS ADRES N| 00000430: 41 41 4D 2E 0D 20 20 20 20 20 20 4C 44 41 20 20 |AAM.. LDA | 00000440: 32 35 31 0D 20 20 20 20 20 20 41 44 43 20 23 30 |251. ADC #0| 00000450: 30 31 0D 20 20 20 20 20 20 54 41 58 0D 20 20 20 |01. TAX. | 00000460: 20 20 20 4C 44 41 20 20 32 35 32 20 20 20 20 20 | LDA 252 | 00000470: 3B 4D 53 20 41 44 52 45 53 20 4E 41 41 4D 2E 0D |;MS ADRES NAAM..| 00000480: 20 20 20 20 20 20 41 44 43 20 23 30 30 30 0D 20 | ADC #000. | 00000490: 20 20 20 20 20 54 41 59 20 20 20 20 20 20 20 20 | TAY | 000004A0: 20 20 3B 4C 45 4E 47 54 45 20 55 49 54 0D 20 20 | ;LENGTE UIT. | 000004B0: 20 20 20 20 50 4C 41 20 20 20 20 20 20 20 20 20 | PLA | 000004C0: 20 3B 44 45 20 53 54 41 50 45 4C 2E 0D 20 20 20 | ;DE STAPEL.. | 000004D0: 20 20 20 4A 53 52 20 20 36 35 34 36 39 20 20 20 | JSR 65469 | 000004E0: 3B 2A 20 53 45 54 4E 41 4D 20 2A 0D 20 20 20 20 |;* SETNAM *. | 000004F0: 20 20 4A 53 52 20 20 36 35 34 37 32 20 20 20 3B | JSR 65472 ;| 00000500: 2A 20 20 4F 50 45 4E 20 20 2A 0D 20 20 20 20 20 |* OPEN *. | 00000510: 20 4C 44 58 20 23 30 30 35 20 20 20 20 20 3B 46 | LDX #005 ;F| 00000520: 49 4C 45 20 35 2E 0D 20 20 20 20 20 20 4A 53 52 |ILE 5.. JSR| 00000530: 20 20 36 35 34 37 38 20 20 20 3B 2A 20 43 48 4B | 65478 ;* CHK| 00000540: 49 4E 20 20 2A 0D 20 20 20 20 20 20 52 54 53 20 |IN *. RTS | 00000550: 20 20 20 20 20 20 20 20 20 3B 4E 41 41 52 20 48 | ;NAAR H| 00000560: 2E 50 2E 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 |.P.. NOP. | 00000570: 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 20 20 | NOP. | 00000580: 20 2A 3D 34 39 37 30 30 0D 20 20 20 20 20 20 20 | *=49700. | 00000590: 20 20 20 20 20 20 20 20 20 20 20 20 3B 0D 20 20 | ;. | 000005A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000005B0: 20 3B 4F 50 45 4E 45 4E 20 4F 50 0D 20 20 20 20 | ;OPENEN OP. | 000005C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;| 000005D0: 53 43 48 52 49 4A 56 45 4E 20 56 41 4E 0D 20 20 |SCHRIJVEN VAN. | 000005E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000005F0: 20 3B 53 45 51 2E 46 49 4C 45 2E 0D 20 20 20 20 | ;SEQ.FILE.. | 00000600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;| 00000610: 4E 41 41 4D 20 56 41 4E 41 46 0D 20 20 20 20 20 |NAAM VANAF. | 00000620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 42 | ;B| 00000630: 45 47 49 4E 41 44 52 45 53 0D 20 20 20 20 20 20 |EGINADRES. | 00000640: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 28 32 | ;(2| 00000650: 35 32 2C 32 35 31 29 3A 0D 20 20 20 20 20 20 20 |52,251):. | 00000660: 20 20 20 20 20 20 20 20 20 20 20 20 3B 4C 45 4E | ;LEN| 00000670: 47 54 45 2E 0D 20 20 20 20 20 20 20 20 20 20 20 |GTE.. | 00000680: 20 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 | ;. | 00000690: 4C 44 41 20 23 30 30 35 20 20 20 20 20 3B 46 49 |LDA #005 ;FI| 000006A0: 4C 45 4E 55 4D 4D 45 52 20 35 2E 0D 20 20 20 20 |LENUMMER 5.. | 000006B0: 20 20 4C 44 58 20 23 30 30 38 20 20 20 20 20 3B | LDX #008 ;| 000006C0: 44 49 53 4B 20 3D 20 38 2E 0D 20 20 20 20 20 20 |DISK = 8.. | 000006D0: 4C 44 59 20 23 30 30 33 20 20 20 20 20 3B 53 50 |LDY #003 ;SP| 000006E0: 45 43 2E 3D 20 33 2E 0D 20 20 20 20 20 20 4A 53 |EC.= 3.. JS| 000006F0: 52 20 20 36 35 34 36 36 20 20 20 3B 2A 20 53 45 |R 65466 ;* SE| 00000700: 54 4C 46 53 20 2A 0D 20 20 20 20 20 20 4C 44 58 |TLFS *. LDX| 00000710: 20 23 30 34 34 20 20 20 20 20 3B 27 2C 53 2C 57 | #044 ;',S,W| 00000720: 27 20 4E 41 20 44 45 0D 20 20 20 20 20 20 4A 53 |' NA DE. JS| 00000730: 52 20 20 58 54 52 41 58 20 20 20 3B 46 49 4C 45 |R XTRAX ;FILE| 00000740: 4E 41 41 4D 2E 0D 20 20 20 20 20 20 4C 44 58 20 |NAAM.. LDX | 00000750: 23 30 38 33 0D 20 20 20 20 20 20 4A 53 52 20 20 |#083. JSR | 00000760: 58 54 52 41 58 0D 20 20 20 20 20 20 4C 44 58 20 |XTRAX. LDX | 00000770: 23 30 34 34 0D 20 20 20 20 20 20 4A 53 52 20 20 |#044. JSR | 00000780: 58 54 52 41 58 0D 20 20 20 20 20 20 4C 44 58 20 |XTRAX. LDX | 00000790: 23 30 38 37 0D 20 20 20 20 20 20 4A 53 52 20 20 |#087. JSR | 000007A0: 58 54 52 41 58 0D 20 20 20 20 20 20 4C 44 59 20 |XTRAX. LDY | 000007B0: 23 30 30 30 20 20 20 20 20 3B 4C 45 4E 47 54 45 |#000 ;LENGTE| 000007C0: 20 54 4F 54 41 41 4C 2E 0D 20 20 20 20 20 20 4C | TOTAAL.. L| 000007D0: 44 41 20 28 32 35 31 29 2C 59 20 20 3B 49 4E 20 |DA (251),Y ;IN | 000007E0: 44 45 20 53 54 41 50 45 4C 2E 0D 20 20 20 20 20 |DE STAPEL.. | 000007F0: 20 50 48 41 0D 20 20 20 20 20 20 43 4C 43 20 20 | PHA. CLC | 00000800: 20 20 20 20 20 20 20 20 3B 4C 53 20 41 44 52 45 | ;LS ADRE| 00000810: 53 20 4E 41 41 4D 2E 0D 20 20 20 20 20 20 4C 44 |S NAAM.. LD| 00000820: 41 20 20 32 35 31 0D 20 20 20 20 20 20 41 44 43 |A 251. ADC| 00000830: 20 23 30 30 31 0D 20 20 20 20 20 20 54 41 58 0D | #001. TAX.| 00000840: 20 20 20 20 20 20 4C 44 41 20 20 32 35 32 20 20 | LDA 252 | 00000850: 20 20 20 3B 4D 53 20 41 44 52 45 53 20 4E 41 41 | ;MS ADRES NAA| 00000860: 4D 2E 0D 20 20 20 20 20 20 41 44 43 20 23 30 30 |M.. ADC #00| 00000870: 30 0D 20 20 20 20 20 20 54 41 59 20 20 20 20 20 |0. TAY | 00000880: 20 20 20 20 20 3B 4C 45 4E 47 54 45 20 55 49 54 | ;LENGTE UIT| 00000890: 0D 20 20 20 20 20 20 50 4C 41 20 20 20 20 20 20 |. PLA | 000008A0: 20 20 20 20 3B 44 45 20 53 54 41 50 45 4C 2E 0D | ;DE STAPEL..| 000008B0: 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 36 39 | JSR 65469| 000008C0: 20 20 20 3B 2A 20 53 45 54 4E 41 4D 20 2A 0D 20 | ;* SETNAM *. | 000008D0: 20 20 20 20 20 4A 53 52 20 20 36 35 34 37 32 20 | JSR 65472 | 000008E0: 20 20 3B 2A 20 20 4F 50 45 4E 20 20 2A 0D 20 20 | ;* OPEN *. | 000008F0: 20 20 20 20 4C 44 58 20 23 30 30 35 20 20 20 20 | LDX #005 | 00000900: 20 3B 46 49 4C 45 20 35 2E 0D 20 20 20 20 20 20 | ;FILE 5.. | 00000910: 4A 53 52 20 20 36 35 34 38 31 20 20 20 3B 2A 20 |JSR 65481 ;* | 00000920: 43 48 4B 4F 55 54 20 2A 0D 20 20 20 20 20 20 52 |CHKOUT *. R| 00000930: 54 53 20 20 20 20 20 20 20 20 20 20 3B 4E 41 41 |TS ;NAA| 00000940: 52 20 48 2E 50 2E 0D 20 20 20 20 20 20 4E 4F 50 |R H.P.. NOP| 00000950: 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 |. NOP. | 00000960: 20 20 20 20 2A 3D 34 39 38 30 30 0D 20 20 20 20 | *=49800. | 00000970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;| 00000980: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00000990: 20 20 20 20 3B 53 4C 55 49 54 45 4E 2E 0D 20 20 | ;SLUITEN.. | 000009A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000009B0: 20 3B 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 | ;. LDA #00| 000009C0: 35 20 20 20 20 20 3B 46 49 4C 45 20 35 2E 0D 20 |5 ;FILE 5.. | 000009D0: 20 20 20 20 20 4A 53 52 20 20 36 35 34 37 35 20 | JSR 65475 | 000009E0: 20 20 3B 2A 20 43 4C 4F 53 45 20 20 2A 0D 20 20 | ;* CLOSE *. | 000009F0: 20 20 20 20 4A 53 52 20 20 36 35 35 31 31 20 20 | JSR 65511 | 00000A00: 20 3B 2A 20 43 4C 41 4C 4C 20 20 2A 0D 20 20 20 | ;* CLALL *. | 00000A10: 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 20 | RTS | 00000A20: 3B 4E 41 41 52 20 48 2E 50 2E 0D 20 20 20 20 20 |;NAAR H.P.. | 00000A30: 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 | NOP. NOP. | 00000A40: 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 20 | NOP. | 00000A50: 20 20 2A 3D 34 39 39 30 30 0D 20 20 20 20 20 20 | *=49900. | 00000A60: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 0D 20 | ;. | 00000A70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000A80: 20 20 3B 56 4F 45 47 20 28 58 29 20 54 4F 45 0D | ;VOEG (X) TOE.| 00000A90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000AA0: 20 20 20 3B 41 43 48 54 45 52 20 41 41 4E 0D 20 | ;ACHTER AAN. | 00000AB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000AC0: 20 20 3B 54 45 4B 53 54 45 4C 45 4D 45 4E 54 2E | ;TEKSTELEMENT.| 00000AD0: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00000AE0: 20 20 20 20 3B 28 32 35 32 2C 32 35 31 29 20 49 | ;(252,251) I| 00000AF0: 53 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |S. | 00000B00: 20 20 20 20 20 3B 41 44 52 45 53 20 56 41 4E 0D | ;ADRES VAN.| 00000B10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000B20: 20 20 20 3B 4C 45 4E 47 54 45 2E 0D 20 20 20 20 | ;LENGTE.. | 00000B30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;| 00000B40: 0D 58 54 52 41 58 20 4C 44 59 20 23 30 30 30 20 |.XTRAX LDY #000 | 00000B50: 20 20 20 20 3B 4C 45 4E 47 54 45 2E 0D 20 20 20 | ;LENGTE.. | 00000B60: 20 20 20 4C 44 41 20 28 32 35 31 29 2C 59 0D 20 | LDA (251),Y. | 00000B70: 20 20 20 20 20 54 41 59 20 20 20 20 20 20 20 20 | TAY | 00000B80: 20 20 3B 4E 45 45 4D 20 54 4F 45 20 54 45 0D 20 | ;NEEM TOE TE. | 00000B90: 20 20 20 20 20 54 58 41 20 20 20 20 20 20 20 20 | TXA | 00000BA0: 20 20 3B 56 4F 45 47 45 4E 20 42 59 54 45 2E 0D | ;VOEGEN BYTE..| 00000BB0: 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 | INY. | 00000BC0: 53 54 41 20 28 32 35 31 29 2C 59 0D 20 20 20 20 |STA (251),Y. | 00000BD0: 20 20 54 59 41 0D 20 20 20 20 20 20 4C 44 59 20 | TYA. LDY | 00000BE0: 23 30 30 30 0D 20 20 20 20 20 20 53 54 41 20 28 |#000. STA (| 00000BF0: 32 35 31 29 2C 59 0D 20 20 20 20 20 20 52 54 53 |251),Y. RTS| 00000C00: 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 |. NOP. | 00000C10: 20 2E 45 4E 44 0D | .END. |
*=49424. JSR 47095.
LDA 020. STA 167. LDA 021.
STA 168. RTS. ROL 002.
SEC. CPX #000. BNE LR001
. CLC.LR001 ROR 002. RTS.
.BYTE 255. LDY 250. CLC.
BCC LR003.=1.. JSR 65469 ;*
SETNAM *. JSR 65472 ;* OPEN *.
LDX #005 ;FILE 5.. JSR 6
5478 ;* CHKIN *. RTS ;N
AAR H.P.. *=49600.
;. ;OPENEN OP.
;LEZEN VAN.
;SEQ.FILE.. ;NAA
M VANAF. ;BEGINADRES.
;(252,251):.
;LENGTE.. ;.
LDA #005 ;FILENUMMER 5.. L
DX #008 ;DISK = 8.. LDY #003
;SPEC.= 3.. JSR 65466 ;* SETLF
S *. LDX #044 ;',S,R' NA DE.
JSR XTRAX ;FILENAAM.. LDX #08
3. JSR XTRAX. LDX #044.
JSR XTRAX. LDX #082. JSR XTR
AX. LDY #000 ;LENGTE TOTAAL..
LDA (251),Y ;IN DE STAPEL.. PH
A. CLC ;LS ADRES NAAM..
LDA 251. ADC #001. TAX.
LDA 252 ;MS ADRES NAAM.. AD
C #000. TAY ;LENGTE UIT.
PLA ;DE STAPEL.. JSR
65469 ;* SETNAM *. JSR 65472 ;
* OPEN *. LDX #005 ;FILE 5..
JSR 65478 ;* CHKIN *. RTS
;NAAR H.P.. NOP. NOP.
*=49700. ;.
;OPENEN OP.
;SCHRIJVEN VAN.
;SEQ.FILE.. ;NAAM VAN
AF. ;BEGINADRES.
;(252,251):.
;LENGTE.. ;.
LDA #005 ;FILENUMMER 5.. LDX #0
08 ;DISK = 8.. LDY #003 ;SP
EC.= 3.. JSR 65466 ;* SETLFS *.
LDX #044 ;',S,W' NA DE. JS
R XTRAX ;FILENAAM.. LDX #083.
JSR XTRAX. LDX #044. JSR
XTRAX. LDX #087. JSR XTRAX.
LDY #000 ;LENGTE TOTAAL.. L
DA (251),Y ;IN DE STAPEL.. PHA.
CLC ;LS ADRES NAAM.. LD
A 251. ADC #001. TAX. LD
A 252 ;MS ADRES NAAM.. ADC #00
0. TAY ;LENGTE UIT. P
LA ;DE STAPEL.. JSR 65469
;* SETNAM *. JSR 65472 ;* OP
EN *. LDX #005 ;FILE 5..
JSR 65481 ;* CHKOUT *. RTS
;NAAR H.P.. NOP. NOP.
*=49800. ;.
;SLUITEN..
;. LDA #005 ;FILE 5.. JSR
65475 ;* CLOSE *. JSR 65511
;* CLALL *. RTS ;NAAR H.
P.. NOP. NOP. NOP.
*=49900. ;.
;VOEG (X) TOE.
;ACHTER AAN. ;TEKST
ELEMENT.. ;(252,251) I
S. ;ADRES VAN.
;LENGTE.. ;
.XTRAX LDY #000 ;LENGTE.. LDA (
251),Y. TAY ;NEEM TOE TE.
TXA ;VOEGEN BYTE.. IN
Y. STA (251),Y. TYA. LDY
#000. STA (251),Y. RTS. N
OP. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL