_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

IOTEST/O

FILE INFORMATION

FILENAME(S): IOTEST/O

FILE TYPE(S): DEL

FILE SIZE: 2.8K

FIRST SEEN: 2025-11-30 21:27:07

APPEARS ON: 1 disk(s)

FILE HASH

bff79af77f7c8acb1e9bf7fa4eda49a67b958c805c17c8dee075a20209b64224

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
MEENEEM 1 IOTEST/O DEL DuncanTwain 10 16 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 3D 31 2E 0D 20 20 20 20  20 20 4A 53 52 20 20 36  |=1..      JSR  6|
00000010: 35 34 36 39 20 20 20 3B  2A 20 53 45 54 4E 41 4D  |5469   ;* SETNAM|
00000020: 20 2A 0D 20 20 20 20 20  20 4A 53 52 20 20 36 35  | *.      JSR  65|
00000030: 34 37 32 20 20 20 3B 2A  20 20 4F 50 45 4E 20 20  |472   ;*  OPEN  |
00000040: 2A 0D 20 20 20 20 20 20  4C 44 58 20 23 30 30 35  |*.      LDX #005|
00000050: 20 20 20 20 20 3B 46 49  4C 45 20 35 2E 0D 20 20  |     ;FILE 5..  |
00000060: 20 20 20 20 4A 53 52 20  20 36 35 34 37 38 20 20  |    JSR  65478  |
00000070: 20 3B 2A 20 43 48 4B 49  4E 20 20 2A 0D 20 20 20  | ;* CHKIN  *.   |
00000080: 20 20 20 52 54 53 20 20  20 20 20 20 20 20 20 20  |   RTS          |
00000090: 3B 4E 41 41 52 20 48 2E  50 2E 0D 20 20 20 20 20  |;NAAR H.P..     |
000000A0: 20 20 20 20 2A 3D 34 39  36 30 30 0D 20 20 20 20  |    *=49600.    |
000000B0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3B  |               ;|
000000C0: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
000000D0: 20 20 20 20 3B 4F 50 45  4E 45 4E 20 4F 50 0D 20  |    ;OPENEN OP. |
000000E0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000000F0: 20 20 3B 4C 45 5A 45 4E  20 56 41 4E 0D 20 20 20  |  ;LEZEN VAN.   |
00000100: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000110: 3B 53 45 51 2E 46 49 4C  45 2E 0D 20 20 20 20 20  |;SEQ.FILE..     |
00000120: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 3B 4E  |              ;N|
00000130: 41 41 4D 20 56 41 4E 41  46 0D 20 20 20 20 20 20  |AAM VANAF.      |
00000140: 20 20 20 20 20 20 20 20  20 20 20 20 20 3B 42 45  |             ;BE|
00000150: 47 49 4E 41 44 52 45 53  0D 20 20 20 20 20 20 20  |GINADRES.       |
00000160: 20 20 20 20 20 20 20 20  20 20 20 20 3B 28 32 35  |            ;(25|
00000170: 32 2C 32 35 31 29 3A 0D  20 20 20 20 20 20 20 20  |2,251):.        |
00000180: 20 20 20 20 20 20 20 20  20 20 20 3B 4C 45 4E 47  |           ;LENG|
00000190: 54 45 2E 0D 20 20 20 20  20 20 20 20 20 20 20 20  |TE..            |
000001A0: 20 20 20 20 20 20 20 3B  0D 20 20 20 20 20 20 4C  |       ;.      L|
000001B0: 44 41 20 23 30 30 35 20  20 20 20 20 3B 46 49 4C  |DA #005     ;FIL|
000001C0: 45 4E 55 4D 4D 45 52 20  35 2E 0D 20 20 20 20 20  |ENUMMER 5..     |
000001D0: 20 4C 44 58 20 23 30 30  38 20 20 20 20 20 3B 44  | LDX #008     ;D|
000001E0: 49 53 4B 20 3D 20 38 2E  0D 20 20 20 20 20 20 4C  |ISK = 8..      L|
000001F0: 44 59 20 23 30 30 33 20  20 20 20 20 3B 53 50 45  |DY #003     ;SPE|
00000200: 43 2E 3D 20 33 2E 0D 20  20 20 20 20 20 4A 53 52  |C.= 3..      JSR|
00000210: 20 20 36 35 34 36 36 20  20 20 3B 2A 20 53 45 54  |  65466   ;* SET|
00000220: 4C 46 53 20 2A 0D 20 20  20 20 20 20 4C 44 58 20  |LFS *.      LDX |
00000230: 23 30 34 34 20 20 20 20  20 3B 27 2C 53 2C 52 27  |#044     ;',S,R'|
00000240: 20 4E 41 20 44 45 0D 20  20 20 20 20 20 4A 53 52  | NA DE.      JSR|
00000250: 20 20 58 54 52 41 58 20  20 20 3B 46 49 4C 45 4E  |  XTRAX   ;FILEN|
00000260: 41 41 4D 2E 0D 20 20 20  20 20 20 4C 44 58 20 23  |AAM..      LDX #|
00000270: 30 38 33 0D 20 20 20 20  20 20 4A 53 52 20 20 58  |083.      JSR  X|
00000280: 54 52 41 58 0D 20 20 20  20 20 20 4C 44 58 20 23  |TRAX.      LDX #|
00000290: 30 34 34 0D 20 20 20 20  20 20 4A 53 52 20 20 58  |044.      JSR  X|
000002A0: 54 52 41 58 0D 20 20 20  20 20 20 4C 44 58 20 23  |TRAX.      LDX #|
000002B0: 30 38 32 0D 20 20 20 20  20 20 4A 53 52 20 20 58  |082.      JSR  X|
000002C0: 54 52 41 58 0D 20 20 20  20 20 20 4C 44 59 20 23  |TRAX.      LDY #|
000002D0: 30 30 30 20 20 20 20 20  3B 4C 45 4E 47 54 45 20  |000     ;LENGTE |
000002E0: 54 4F 54 41 41 4C 2E 0D  20 20 20 20 20 20 4C 44  |TOTAAL..      LD|
000002F0: 41 20 28 32 35 31 29 2C  59 20 20 3B 49 4E 20 44  |A (251),Y  ;IN D|
00000300: 45 20 53 54 41 50 45 4C  2E 0D 20 20 20 20 20 20  |E STAPEL..      |
00000310: 50 48 41 0D 20 20 20 20  20 20 43 4C 43 20 20 20  |PHA.      CLC   |
00000320: 20 20 20 20 20 20 20 3B  4C 53 20 41 44 52 45 53  |       ;LS ADRES|
00000330: 20 4E 41 41 4D 2E 0D 20  20 20 20 20 20 4C 44 41  | NAAM..      LDA|
00000340: 20 20 32 35 31 0D 20 20  20 20 20 20 41 44 43 20  |  251.      ADC |
00000350: 23 30 30 31 0D 20 20 20  20 20 20 54 41 58 0D 20  |#001.      TAX. |
00000360: 20 20 20 20 20 4C 44 41  20 20 32 35 32 20 20 20  |     LDA  252   |
00000370: 20 20 3B 4D 53 20 41 44  52 45 53 20 4E 41 41 4D  |  ;MS ADRES NAAM|
00000380: 2E 0D 20 20 20 20 20 20  41 44 43 20 23 30 30 30  |..      ADC #000|
00000390: 0D 20 20 20 20 20 20 54  41 59 20 20 20 20 20 20  |.      TAY      |
000003A0: 20 20 20 20 3B 4C 45 4E  47 54 45 20 55 49 54 0D  |    ;LENGTE UIT.|
000003B0: 20 20 20 20 20 20 50 4C  41 20 20 20 20 20 20 20  |      PLA       |
000003C0: 20 20 20 3B 44 45 20 53  54 41 50 45 4C 2E 0D 20  |   ;DE STAPEL.. |
000003D0: 20 20 20 20 20 4A 53 52  20 20 36 35 34 36 39 20  |     JSR  65469 |
000003E0: 20 20 3B 2A 20 53 45 54  4E 41 4D 20 2A 0D 20 20  |  ;* SETNAM *.  |
000003F0: 20 20 20 20 4A 53 52 20  20 36 35 34 37 32 20 20  |    JSR  65472  |
00000400: 20 3B 2A 20 20 4F 50 45  4E 20 20 2A 0D 20 20 20  | ;*  OPEN  *.   |
00000410: 20 20 20 4C 44 58 20 23  30 30 35 20 20 20 20 20  |   LDX #005     |
00000420: 3B 46 49 4C 45 20 35 2E  0D 20 20 20 20 20 20 4A  |;FILE 5..      J|
00000430: 53 52 20 20 36 35 34 37  38 20 20 20 3B 2A 20 43  |SR  65478   ;* C|
00000440: 48 4B 49 4E 20 20 2A 0D  20 20 20 20 20 20 52 54  |HKIN  *.      RT|
00000450: 53 20 20 20 20 20 20 20  20 20 20 3B 4E 41 41 52  |S          ;NAAR|
00000460: 20 48 2E 50 2E 0D 20 20  20 20 20 20 4E 4F 50 0D  | H.P..      NOP.|
00000470: 20 20 20 20 20 20 4E 4F  50 0D 20 20 20 20 20 20  |      NOP.      |
00000480: 20 20 20 2A 3D 34 39 37  30 30 0D 20 20 20 20 20  |   *=49700.     |
00000490: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 3B 0D  |              ;.|
000004A0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000004B0: 20 20 20 3B 4F 50 45 4E  45 4E 20 4F 50 0D 20 20  |   ;OPENEN OP.  |
000004C0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000004D0: 20 3B 53 43 48 52 49 4A  56 45 4E 20 56 41 4E 0D  | ;SCHRIJVEN VAN.|
000004E0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000004F0: 20 20 20 3B 53 45 51 2E  46 49 4C 45 2E 0D 20 20  |   ;SEQ.FILE..  |
00000500: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000510: 20 3B 4E 41 41 4D 20 56  41 4E 41 46 0D 20 20 20  | ;NAAM VANAF.   |
00000520: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000530: 3B 42 45 47 49 4E 41 44  52 45 53 0D 20 20 20 20  |;BEGINADRES.    |
00000540: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3B  |               ;|
00000550: 28 32 35 32 2C 32 35 31  29 3A 0D 20 20 20 20 20  |(252,251):.     |
00000560: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 3B 4C  |              ;L|
00000570: 45 4E 47 54 45 2E 0D 20  20 20 20 20 20 20 20 20  |ENGTE..         |
00000580: 20 20 20 20 20 20 20 20  20 20 3B 0D 20 20 20 20  |          ;.    |
00000590: 20 20 4C 44 41 20 23 30  30 35 20 20 20 20 20 3B  |  LDA #005     ;|
000005A0: 46 49 4C 45 4E 55 4D 4D  45 52 20 35 2E 0D 20 20  |FILENUMMER 5..  |
000005B0: 20 20 20 20 4C 44 58 20  23 30 30 38 20 20 20 20  |    LDX #008    |
000005C0: 20 3B 44 49 53 4B 20 3D  20 38 2E 0D 20 20 20 20  | ;DISK = 8..    |
000005D0: 20 20 4C 44 59 20 23 30  30 33 20 20 20 20 20 3B  |  LDY #003     ;|
000005E0: 53 50 45 43 2E 3D 20 33  2E 0D 20 20 20 20 20 20  |SPEC.= 3..      |
000005F0: 4A 53 52 20 20 36 35 34  36 36 20 20 20 3B 2A 20  |JSR  65466   ;* |
00000600: 53 45 54 4C 46 53 20 2A  0D 20 20 20 20 20 20 4C  |SETLFS *.      L|
00000610: 44 58 20 23 30 34 34 20  20 20 20 20 3B 27 2C 53  |DX #044     ;',S|
00000620: 2C 57 27 20 4E 41 20 44  45 0D 20 20 20 20 20 20  |,W' NA DE.      |
00000630: 4A 53 52 20 20 58 54 52  41 58 20 20 20 3B 46 49  |JSR  XTRAX   ;FI|
00000640: 4C 45 4E 41 41 4D 2E 0D  20 20 20 20 20 20 4C 44  |LENAAM..      LD|
00000650: 58 20 23 30 38 33 0D 20  20 20 20 20 20 4A 53 52  |X #083.      JSR|
00000660: 20 20 58 54 52 41 58 0D  20 20 20 20 20 20 4C 44  |  XTRAX.      LD|
00000670: 58 20 23 30 34 34 0D 20  20 20 20 20 20 4A 53 52  |X #044.      JSR|
00000680: 20 20 58 54 52 41 58 0D  20 20 20 20 20 20 4C 44  |  XTRAX.      LD|
00000690: 58 20 23 30 38 37 0D 20  20 20 20 20 20 4A 53 52  |X #087.      JSR|
000006A0: 20 20 58 54 52 41 58 0D  20 20 20 20 20 20 4C 44  |  XTRAX.      LD|
000006B0: 59 20 23 30 30 30 20 20  20 20 20 3B 4C 45 4E 47  |Y #000     ;LENG|
000006C0: 54 45 20 54 4F 54 41 41  4C 2E 0D 20 20 20 20 20  |TE TOTAAL..     |
000006D0: 20 4C 44 41 20 28 32 35  31 29 2C 59 20 20 3B 49  | LDA (251),Y  ;I|
000006E0: 4E 20 44 45 20 53 54 41  50 45 4C 2E 0D 20 20 20  |N DE STAPEL..   |
000006F0: 20 20 20 50 48 41 0D 20  20 20 20 20 20 43 4C 43  |   PHA.      CLC|
00000700: 20 20 20 20 20 20 20 20  20 20 3B 4C 53 20 41 44  |          ;LS AD|
00000710: 52 45 53 20 4E 41 41 4D  2E 0D 20 20 20 20 20 20  |RES NAAM..      |
00000720: 4C 44 41 20 20 32 35 31  0D 20 20 20 20 20 20 41  |LDA  251.      A|
00000730: 44 43 20 23 30 30 31 0D  20 20 20 20 20 20 54 41  |DC #001.      TA|
00000740: 58 0D 20 20 20 20 20 20  4C 44 41 20 20 32 35 32  |X.      LDA  252|
00000750: 20 20 20 20 20 3B 4D 53  20 41 44 52 45 53 20 4E  |     ;MS ADRES N|
00000760: 41 41 4D 2E 0D 20 20 20  20 20 20 41 44 43 20 23  |AAM..      ADC #|
00000770: 30 30 30 0D 20 20 20 20  20 20 54 41 59 20 20 20  |000.      TAY   |
00000780: 20 20 20 20 20 20 20 3B  4C 45 4E 47 54 45 20 55  |       ;LENGTE U|
00000790: 49 54 0D 20 20 20 20 20  20 50 4C 41 20 20 20 20  |IT.      PLA    |
000007A0: 20 20 20 20 20 20 3B 44  45 20 53 54 41 50 45 4C  |      ;DE STAPEL|
000007B0: 2E 0D 20 20 20 20 20 20  4A 53 52 20 20 36 35 34  |..      JSR  654|
000007C0: 36 39 20 20 20 3B 2A 20  53 45 54 4E 41 4D 20 2A  |69   ;* SETNAM *|
000007D0: 0D 20 20 20 20 20 20 4A  53 52 20 20 36 35 34 37  |.      JSR  6547|
000007E0: 32 20 20 20 3B 2A 20 20  4F 50 45 4E 20 20 2A 0D  |2   ;*  OPEN  *.|
000007F0: 20 20 20 20 20 20 4C 44  58 20 23 30 30 35 20 20  |      LDX #005  |
00000800: 20 20 20 3B 46 49 4C 45  20 35 2E 0D 20 20 20 20  |   ;FILE 5..    |
00000810: 20 20 4A 53 52 20 20 36  35 34 38 31 20 20 20 3B  |  JSR  65481   ;|
00000820: 2A 20 43 48 4B 4F 55 54  20 2A 0D 20 20 20 20 20  |* CHKOUT *.     |
00000830: 20 52 54 53 20 20 20 20  20 20 20 20 20 20 3B 4E  | RTS          ;N|
00000840: 41 41 52 20 48 2E 50 2E  0D 20 20 20 20 20 20 4E  |AAR H.P..      N|
00000850: 4F 50 0D 20 20 20 20 20  20 4E 4F 50 0D 20 20 20  |OP.      NOP.   |
00000860: 20 20 20 20 20 20 2A 3D  34 39 38 30 30 0D 20 20  |      *=49800.  |
00000870: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000880: 20 3B 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  | ;.             |
00000890: 20 20 20 20 20 20 3B 53  4C 55 49 54 45 4E 2E 0D  |      ;SLUITEN..|
000008A0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000008B0: 20 20 20 3B 0D 20 20 20  20 20 20 4C 44 41 20 23  |   ;.      LDA #|
000008C0: 30 30 35 20 20 20 20 20  3B 46 49 4C 45 20 35 2E  |005     ;FILE 5.|
000008D0: 0D 20 20 20 20 20 20 4A  53 52 20 20 36 35 34 37  |.      JSR  6547|
000008E0: 35 20 20 20 3B 2A 20 43  4C 4F 53 45 20 20 2A 0D  |5   ;* CLOSE  *.|
000008F0: 20 20 20 20 20 20 4A 53  52 20 20 36 35 35 31 31  |      JSR  65511|
00000900: 20 20 20 3B 2A 20 43 4C  41 4C 4C 20 20 2A 0D 20  |   ;* CLALL  *. |
00000910: 20 20 20 20 20 52 54 53  20 20 20 20 20 20 20 20  |     RTS        |
00000920: 20 20 3B 4E 41 41 52 20  48 2E 50 2E 0D 20 20 20  |  ;NAAR H.P..   |
00000930: 20 20 20 4E 4F 50 0D 20  20 20 20 20 20 4E 4F 50  |   NOP.      NOP|
00000940: 0D 20 20 20 20 20 20 4E  4F 50 0D 20 20 20 20 20  |.      NOP.     |
00000950: 20 20 20 20 2A 3D 34 39  39 30 30 0D 20 20 20 20  |    *=49900.    |
00000960: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3B  |               ;|
00000970: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00000980: 20 20 20 20 3B 56 4F 45  47 20 28 58 29 20 54 4F  |    ;VOEG (X) TO|
00000990: 45 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |E.              |
000009A0: 20 20 20 20 20 3B 41 43  48 54 45 52 20 41 41 4E  |     ;ACHTER AAN|
000009B0: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
000009C0: 20 20 20 20 3B 54 45 4B  53 54 45 4C 45 4D 45 4E  |    ;TEKSTELEMEN|
000009D0: 54 2E 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |T..             |
000009E0: 20 20 20 20 20 20 3B 28  32 35 32 2C 32 35 31 29  |      ;(252,251)|
000009F0: 20 49 53 0D 20 20 20 20  20 20 20 20 20 20 20 20  | IS.            |
00000A00: 20 20 20 20 20 20 20 3B  41 44 52 45 53 20 56 41  |       ;ADRES VA|
00000A10: 4E 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |N.              |
00000A20: 20 20 20 20 20 3B 4C 45  4E 47 54 45 2E 0D 20 20  |     ;LENGTE..  |
00000A30: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000A40: 20 3B 0D 58 54 52 41 58  20 4C 44 59 20 23 30 30  | ;.XTRAX LDY #00|
00000A50: 30 20 20 20 20 20 3B 4C  45 4E 47 54 45 2E 0D 20  |0     ;LENGTE.. |
00000A60: 20 20 20 20 20 4C 44 41  20 28 32 35 31 29 2C 59  |     LDA (251),Y|
00000A70: 0D 20 20 20 20 20 20 54  41 59 20 20 20 20 20 20  |.      TAY      |
00000A80: 20 20 20 20 3B 4E 45 45  4D 20 54 4F 45 20 54 45  |    ;NEEM TOE TE|
00000A90: 0D 20 20 20 20 20 20 54  58 41 20 20 20 20 20 20  |.      TXA      |
00000AA0: 20 20 20 20 3B 56 4F 45  47 45 4E 20 42 59 54 45  |    ;VOEGEN BYTE|
00000AB0: 2E 0D 20 20 20 20 20 20  49 4E 59 0D 20 20 20 20  |..      INY.    |
00000AC0: 20 20 53 54 41 20 28 32  35 31 29 2C 59 0D 20 20  |  STA (251),Y.  |
00000AD0: 20 20 20 20 54 59 41 0D  20 20 20 20 20 20 4C 44  |    TYA.      LD|
00000AE0: 59 20 23 30 30 30 0D 20  20 20 20 20 20 53 54 41  |Y #000.      STA|
00000AF0: 20 28 32 35 31 29 2C 59  0D 20 20 20 20 20 20 52  | (251),Y.      R|
00000B00: 54 53 0D 20 20 20 20 20  20 4E 4F 50 0D 20 20 20  |TS.      NOP.   |
00000B10: 20 20 20 2E 45 4E 44 0D                           |   .END.        |
=1..      JSR  65469   ;* SETNAM *.     
 JSR  65472   ;*  OPEN  *.      LDX #005
     ;FILE 5..      JSR  65478   ;* CHKI
N  *.      RTS          ;NAAR H.P..     
    *=49600.                   ;.       
            ;OPENEN OP.                 
  ;LEZEN VAN.                   ;SEQ.FIL
E..                   ;NAAM VANAF.      
             ;BEGINADRES.               
    ;(252,251):.                   ;LENG
TE..                   ;.      LDA #005 
    ;FILENUMMER 5..      LDX #008     ;D
ISK = 8..      LDY #003     ;SPEC.= 3.. 
     JSR  65466   ;* SETLFS *.      LDX 
#044     ;',S,R' NA DE.      JSR  XTRAX 
  ;FILENAAM..      LDX #083.      JSR  X
TRAX.      LDX #044.      JSR  XTRAX.   
   LDX #082.      JSR  XTRAX.      LDY #
000     ;LENGTE TOTAAL..      LDA (251),
Y  ;IN DE STAPEL..      PHA.      CLC   
       ;LS ADRES NAAM..      LDA  251.  
    ADC #001.      TAX.      LDA  252   
  ;MS ADRES NAAM..      ADC #000.      T
AY          ;LENGTE UIT.      PLA       
   ;DE STAPEL..      JSR  65469   ;* SET
NAM *.      JSR  65472   ;*  OPEN  *.   
   LDX #005     ;FILE 5..      JSR  6547
8   ;* CHKIN  *.      RTS          ;NAAR
 H.P..      NOP.      NOP.         *=497
00.                   ;.                
   ;OPENEN OP.                   ;SCHRIJ
VEN VAN.                   ;SEQ.FILE..  
                 ;NAAM VANAF.           
        ;BEGINADRES.                   ;
(252,251):.                   ;LENGTE.. 
                  ;.      LDA #005     ;
FILENUMMER 5..      LDX #008     ;DISK =
 8..      LDY #003     ;SPEC.= 3..      
JSR  65466   ;* SETLFS *.      LDX #044 
    ;',S,W' NA DE.      JSR  XTRAX   ;FI
LENAAM..      LDX #083.      JSR  XTRAX.
      LDX #044.      JSR  XTRAX.      LD
X #087.      JSR  XTRAX.      LDY #000  
   ;LENGTE TOTAAL..      LDA (251),Y  ;I
N DE STAPEL..      PHA.      CLC        
  ;LS ADRES NAAM..      LDA  251.      A
DC #001.      TAX.      LDA  252     ;MS
 ADRES NAAM..      ADC #000.      TAY   
       ;LENGTE UIT.      PLA          ;D
E STAPEL..      JSR  65469   ;* SETNAM *
.      JSR  65472   ;*  OPEN  *.      LD
X #005     ;FILE 5..      JSR  65481   ;
* CHKOUT *.      RTS          ;NAAR H.P.
.      NOP.      NOP.         *=49800.  
                 ;.                   ;S
LUITEN..                   ;.      LDA #
005     ;FILE 5..      JSR  65475   ;* C
LOSE  *.      JSR  65511   ;* CLALL  *. 
     RTS          ;NAAR H.P..      NOP. 
     NOP.      NOP.         *=49900.    
               ;.                   ;VOE
G (X) TOE.                   ;ACHTER AAN
.                   ;TEKSTELEMENT..     
              ;(252,251) IS.            
       ;ADRES VAN.                   ;LE
NGTE..                   ;.XTRAX LDY #00
0     ;LENGTE..      LDA (251),Y.      T
AY          ;NEEM TOE TE.      TXA      
    ;VOEGEN BYTE..      INY.      STA (2
51),Y.      TYA.      LDY #000.      STA
 (251),Y.      RTS.      NOP.      .END.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL