IOTEST.ASM
FILE INFORMATION
FILENAME(S): IOTEST.ASM
FILE TYPE(S): SEQ
FILE SIZE: 4.7K
FIRST SEEN: 2025-11-30 21:27:07
APPEARS ON: 1 disk(s)
FILE HASH
f1b35a8b97d2da55261f798160f85f21aedb1c9d2d302f76b4abd0303084a592
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MEENEEM 1 | IOTEST.ASM | SEQ | DuncanTwain | 15 | 3 | 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 20 20 20 20 20 20 20 20 20 |. | 00000020: 20 20 20 20 3B 0D 20 20 20 20 20 20 20 20 20 20 | ;. | 00000030: 20 20 20 20 20 20 20 20 20 3B 53 50 4C 49 54 53 | ;SPLITS| 00000040: 20 58 20 49 4E 0D 20 20 20 20 20 20 20 20 20 20 | X IN. | 00000050: 20 20 20 20 20 20 20 20 20 3B 4C 53 20 45 4E 20 | ;LS EN | 00000060: 48 53 3B 0D 20 20 20 20 20 20 20 20 20 20 20 20 |HS;. | 00000070: 20 20 20 20 20 20 20 3B 55 53 52 28 58 29 2E 0D | ;USR(X)..| 00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000090: 20 20 20 3B 28 37 38 35 29 3D 30 31 36 2E 0D 20 | ;(785)=016.. | 000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000B0: 20 20 3B 28 37 38 36 29 3D 31 39 33 2E 0D 20 20 | ;(786)=193.. | 000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000D0: 20 3B 41 44 52 45 53 20 49 53 20 44 41 4E 0D 20 | ;ADRES IS DAN. | 000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000F0: 20 20 3B 20 3D 20 34 39 34 32 34 2E 0D 20 20 20 | ; = 49424.. | 00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000110: 3B 0D 55 53 52 58 20 20 4A 53 52 20 20 34 37 30 |;.USRX JSR 470| 00000120: 39 35 20 20 20 3B 50 41 4B 20 4F 50 2E 0D 20 20 |95 ;PAK OP.. | 00000130: 20 20 20 20 4C 44 41 20 20 30 32 30 20 20 20 20 | LDA 020 | 00000140: 20 3B 58 20 4C 53 20 49 4E 20 31 36 37 2E 0D 20 | ;X LS IN 167.. | 00000150: 20 20 20 20 20 53 54 41 20 20 31 36 37 20 20 20 | STA 167 | 00000160: 20 20 3B 58 20 48 53 20 49 4E 20 31 36 38 2E 0D | ;X HS IN 168..| 00000170: 20 20 20 20 20 20 4C 44 41 20 20 30 32 31 0D 20 | LDA 021. | 00000180: 20 20 20 20 20 53 54 41 20 20 31 36 38 0D 20 20 | STA 168. | 00000190: 20 20 20 20 52 54 53 0D 20 20 20 20 20 20 4E 4F | RTS. NO| 000001A0: 50 0D 44 49 41 50 20 20 52 4F 4C 20 20 30 30 32 |P.DIAP ROL 002| 000001B0: 20 20 20 20 20 3B 54 45 4B 45 4E 20 49 4E 20 30 | ;TEKEN IN 0| 000001C0: 30 32 0D 20 20 20 20 20 20 53 45 43 20 20 20 20 |02. SEC | 000001D0: 20 20 20 20 20 20 3B 49 4E 20 4E 4F 52 4D 41 41 | ;IN NORMAA| 000001E0: 4C 0D 20 20 20 20 20 20 43 50 58 20 23 30 30 30 |L. CPX #000| 000001F0: 20 20 20 20 20 3B 41 4C 53 20 28 58 29 3D 30 0D | ;ALS (X)=0.| 00000200: 20 20 20 20 20 20 42 4E 45 20 20 44 49 41 31 20 | BNE DIA1 | 00000210: 20 20 20 3B 45 4E 20 44 49 41 50 4F 53 2E 0D 20 | ;EN DIAPOS.. | 00000220: 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 | CLC | 00000230: 20 20 3B 41 4C 53 20 28 58 29 3D 31 2E 0D 44 49 | ;ALS (X)=1..DI| 00000240: 41 31 20 20 52 4F 52 20 20 30 30 32 0D 20 20 20 |A1 ROR 002. | 00000250: 20 20 20 52 54 53 0D 20 20 20 20 20 20 4E 4F 50 | RTS. NOP| 00000260: 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 |. NOP. | 00000270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 0D | ;.| 00000280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000290: 20 20 20 3B 54 52 41 4E 53 50 4F 52 54 0D 20 20 | ;TRANSPORT. | 000002A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002B0: 20 3B 56 2E 48 4F 4F 47 20 4E 2E 4C 41 41 47 2E | ;V.HOOG N.LAAG.| 000002C0: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 000002D0: 20 20 20 20 3B 0D 56 48 4E 4C 20 20 4C 44 59 20 | ;.VHNL LDY | 000002E0: 20 32 35 30 20 20 20 20 20 3B 42 45 47 49 4E 4D | 250 ;BEGINM| 000002F0: 4F 44 49 46 2E 3D 4D 2E 0D 20 20 20 20 20 20 43 |ODIF.=M.. C| 00000300: 4C 43 20 20 20 20 20 20 20 20 20 20 3B 20 45 49 |LC ; EI| 00000310: 4E 44 4D 4F 44 49 46 2E 3D 4E 2E 0D 20 20 20 20 |NDMODIF.=N.. | 00000320: 20 20 42 43 43 20 20 56 48 4E 32 20 20 20 20 3B | BCC VHN2 ;| 00000330: 4D 3D 28 32 34 39 29 20 45 4E 0D 56 48 4E 31 20 |M=(249) EN.VHN1 | 00000340: 20 4C 44 41 20 28 32 35 31 29 2C 59 20 20 3B 4E | LDA (251),Y ;N| 00000350: 3D 28 32 35 30 29 2E 0D 20 20 20 20 20 20 53 54 |=(250).. ST| 00000360: 41 20 28 32 35 33 29 2C 59 20 20 3B 20 48 41 41 |A (253),Y ; HAA| 00000370: 4C 20 32 35 32 2C 32 35 31 2E 0D 56 48 4E 32 20 |L 252,251..VHN2 | 00000380: 20 44 45 59 20 20 20 20 20 20 20 20 20 20 3B 42 | DEY ;B| 00000390: 52 45 4E 47 20 32 35 34 2C 32 35 33 2E 0D 20 20 |RENG 254,253.. | 000003A0: 20 20 20 20 43 50 59 20 20 32 34 39 0D 20 20 20 | CPY 249. | 000003B0: 20 20 20 42 50 4C 20 20 56 48 4E 31 0D 20 20 20 | BPL VHN1. | 000003C0: 20 20 20 52 54 53 0D 20 20 20 20 20 20 4E 4F 50 | RTS. NOP| 000003D0: 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 |. NOP. | 000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 0D | ;.| 000003F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000400: 20 20 20 3B 54 52 41 4E 53 50 4F 52 54 0D 20 20 | ;TRANSPORT. | 00000410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000420: 20 3B 56 2E 4C 41 41 47 20 4E 2E 48 4F 4F 47 2E | ;V.LAAG N.HOOG.| 00000430: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00000440: 20 20 20 20 3B 0D 56 4C 4E 48 20 20 4C 44 59 20 | ;.VLNH LDY | 00000450: 20 32 34 39 20 20 20 20 20 3B 4D 4F 44 49 46 2E | 249 ;MODIF.| 00000460: 2C 41 44 52 45 53 2D 0D 20 20 20 20 20 20 43 4C |,ADRES-. CL| 00000470: 43 20 20 20 20 20 20 20 20 20 20 3B 53 45 4E 3A |C ;SEN:| 00000480: 5A 49 45 20 42 4F 56 45 4E 2E 0D 20 20 20 20 20 |ZIE BOVEN.. | 00000490: 20 42 43 43 20 20 56 4C 4E 32 20 0D 56 4C 4E 31 | BCC VLN2 .VLN1| 000004A0: 20 20 4C 44 41 20 28 32 35 31 29 2C 59 0D 20 20 | LDA (251),Y. | 000004B0: 20 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 0D | STA (253),Y.| 000004C0: 20 20 20 20 20 20 49 4E 59 0D 56 4C 4E 32 20 20 | INY.VLN2 | 000004D0: 43 50 59 20 20 32 35 30 0D 20 20 20 20 20 20 42 |CPY 250. B| 000004E0: 4D 49 20 20 56 4C 4E 31 0D 20 20 20 20 20 20 52 |MI VLN1. R| 000004F0: 54 53 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 |TS. NOP. | 00000500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000510: 3B 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |;. | 00000520: 20 20 20 20 20 3B 56 55 4C 4C 45 4E 0D 20 20 20 | ;VULLEN. | 00000530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000540: 3B 56 2E 4C 41 41 47 20 4E 2E 48 4F 4F 47 2E 0D |;V.LAAG N.HOOG..| 00000550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000560: 20 20 20 3B 0D 56 55 4C 4C 20 20 4C 44 59 20 20 | ;.VULL LDY | 00000570: 32 34 39 20 20 20 20 20 3B 5A 49 45 20 42 4F 56 |249 ;ZIE BOV| 00000580: 45 4E 2E 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 |EN.. CLC. | 00000590: 20 20 20 20 42 43 43 20 20 56 55 4C 32 0D 56 55 | BCC VUL2.VU| 000005A0: 4C 31 20 20 4C 44 41 20 20 32 35 31 0D 20 20 20 |L1 LDA 251. | 000005B0: 20 20 20 53 54 41 20 28 32 35 33 29 2C 59 0D 20 | STA (253),Y. | 000005C0: 20 20 20 20 20 49 4E 59 0D 56 55 4C 32 20 20 43 | INY.VUL2 C| 000005D0: 50 59 20 20 32 35 30 0D 20 20 20 20 20 20 42 4D |PY 250. BM| 000005E0: 49 20 20 56 55 4C 31 0D 20 20 20 20 20 20 52 54 |I VUL1. RT| 000005F0: 53 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 |S. NOP. | 00000600: 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D | NOP. NOP.| 00000610: 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 | NOP. | 00000620: 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 |NOP. NOP. | 00000630: 20 20 20 20 20 20 20 2A 3D 34 39 35 30 30 0D 20 | *=49500. | 00000640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000650: 20 20 3B 0D 20 20 20 20 20 20 20 20 20 20 20 20 | ;. | 00000660: 20 20 20 20 20 20 20 3B 4F 50 45 4E 20 4F 50 20 | ;OPEN OP | 00000670: 48 45 54 0D 20 20 20 20 20 20 20 20 20 20 20 20 |HET. | 00000680: 20 20 20 20 20 20 20 3B 4C 45 5A 45 4E 20 56 41 | ;LEZEN VA| 00000690: 4E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |N. | 000006A0: 20 20 20 20 20 3B 44 49 52 45 43 54 4F 52 59 2E | ;DIRECTORY.| 000006B0: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 000006C0: 20 20 20 20 3B 0D 20 20 20 20 20 20 4C 44 41 20 | ;. LDA | 000006D0: 23 30 30 35 20 20 20 20 20 3B 46 49 4C 45 4E 55 |#005 ;FILENU| 000006E0: 4D 4D 45 52 20 35 2E 0D 20 20 20 20 20 20 4C 44 |MMER 5.. LD| 000006F0: 58 20 23 30 30 38 20 20 20 20 20 3B 44 49 53 4B |X #008 ;DISK| 00000700: 20 3D 20 38 2E 0D 20 20 20 20 20 20 4C 44 59 20 | = 8.. LDY | 00000710: 23 30 30 30 20 20 20 20 20 3B 53 50 45 43 2E 3D |#000 ;SPEC.=| 00000720: 20 30 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 36 | 0.. JSR 6| 00000730: 35 34 36 36 20 20 20 3B 2A 20 53 45 54 4C 46 53 |5466 ;* SETLFS| 00000740: 20 2A 0D 20 20 20 20 20 20 4C 44 41 20 23 30 33 | *. LDA #03| 00000750: 36 20 20 20 20 20 3B 27 24 27 2E 0D 20 20 20 20 |6 ;'$'.. | 00000760: 20 20 53 54 41 20 20 32 35 32 20 20 20 20 20 3B | STA 252 ;| 00000770: 49 4E 20 32 35 32 2E 0D 20 20 20 20 20 20 4C 44 |IN 252.. LD| 00000780: 58 20 23 32 35 32 20 20 20 20 20 3B 41 44 52 45 |X #252 ;ADRE| 00000790: 53 20 4C 2E 53 2E 0D 20 20 20 20 20 20 4C 44 59 |S L.S.. LDY| 000007A0: 20 23 30 30 30 20 20 20 20 20 3B 41 44 52 45 53 | #000 ;ADRES| 000007B0: 20 4D 2E 53 2E 0D 20 20 20 20 20 20 4C 44 41 20 | M.S.. LDA | 000007C0: 23 30 30 31 20 20 20 20 20 3B 4C 45 4E 47 54 45 |#001 ;LENGTE| 000007D0: 3D 31 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 36 |=1.. JSR 6| 000007E0: 35 34 36 39 20 20 20 3B 2A 20 53 45 54 4E 41 4D |5469 ;* SETNAM| 000007F0: 20 2A 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 | *. JSR 65| 00000800: 34 37 32 20 20 20 3B 2A 20 20 4F 50 45 4E 20 20 |472 ;* OPEN | 00000810: 2A 0D 20 20 20 20 20 20 4C 44 58 20 23 30 30 35 |*. LDX #005| 00000820: 20 20 20 20 20 3B 46 49 4C 45 20 35 2E 0D 20 20 | ;FILE 5.. | 00000830: 20 20 20 20 4A 53 52 20 20 36 35 34 37 38 20 20 | JSR 65478 | 00000840: 20 3B 2A 20 43 48 4B 49 4E 20 20 2A 0D 20 20 20 | ;* CHKIN *. | 00000850: 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 20 | RTS | 00000860: 3B 4E 41 41 52 20 48 2E 50 2E 0D 20 20 20 20 20 |;NAAR H.P.. | 00000870: 20 20 20 20 2A 3D 34 39 36 30 30 0D 20 20 20 20 | *=49600. | 00000880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;| 00000890: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 000008A0: 20 20 20 20 3B 4F 50 45 4E 45 4E 20 4F 50 0D 20 | ;OPENEN OP. | 000008B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000008C0: 20 20 3B 4C 45 5A 45 4E 20 56 41 4E 0D 20 20 20 | ;LEZEN VAN. | 000008D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000008E0: 3B 53 45 51 2E 46 49 4C 45 2E 0D 20 20 20 20 20 |;SEQ.FILE.. | 000008F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 4E | ;N| 00000900: 41 41 4D 20 56 41 4E 41 46 0D 20 20 20 20 20 20 |AAM VANAF. | 00000910: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 42 45 | ;BE| 00000920: 47 49 4E 41 44 52 45 53 0D 20 20 20 20 20 20 20 |GINADRES. | 00000930: 20 20 20 20 20 20 20 20 20 20 20 20 3B 28 32 35 | ;(25| 00000940: 32 2C 32 35 31 29 3A 0D 20 20 20 20 20 20 20 20 |2,251):. | 00000950: 20 20 20 20 20 20 20 20 20 20 20 3B 4C 45 4E 47 | ;LENG| 00000960: 54 45 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 |TE.. | 00000970: 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 4C | ;. L| 00000980: 44 41 20 23 30 30 35 20 20 20 20 20 3B 46 49 4C |DA #005 ;FIL| 00000990: 45 4E 55 4D 4D 45 52 20 35 2E 0D 20 20 20 20 20 |ENUMMER 5.. | 000009A0: 20 4C 44 58 20 23 30 30 38 20 20 20 20 20 3B 44 | LDX #008 ;D| 000009B0: 49 53 4B 20 3D 20 38 2E 0D 20 20 20 20 20 20 4C |ISK = 8.. L| 000009C0: 44 59 20 23 30 30 33 20 20 20 20 20 3B 53 50 45 |DY #003 ;SPE| 000009D0: 43 2E 3D 20 33 2E 0D 20 20 20 20 20 20 4A 53 52 |C.= 3.. JSR| 000009E0: 20 20 36 35 34 36 36 20 20 20 3B 2A 20 53 45 54 | 65466 ;* SET| 000009F0: 4C 46 53 20 2A 0D 20 20 20 20 20 20 4C 44 58 20 |LFS *. LDX | 00000A00: 23 30 34 34 20 20 20 20 20 3B 27 2C 53 2C 52 27 |#044 ;',S,R'| 00000A10: 20 4E 41 20 44 45 0D 20 20 20 20 20 20 4A 53 52 | NA DE. JSR| 00000A20: 20 20 58 54 52 41 58 20 20 20 3B 46 49 4C 45 4E | XTRAX ;FILEN| 00000A30: 41 41 4D 2E 0D 20 20 20 20 20 20 4C 44 58 20 23 |AAM.. LDX #| 00000A40: 30 38 33 0D 20 20 20 20 20 20 4A 53 52 20 20 58 |083. JSR X| 00000A50: 54 52 41 58 0D 20 20 20 20 20 20 4C 44 58 20 23 |TRAX. LDX #| 00000A60: 30 34 34 0D 20 20 20 20 20 20 4A 53 52 20 20 58 |044. JSR X| 00000A70: 54 52 41 58 0D 20 20 20 20 20 20 4C 44 58 20 23 |TRAX. LDX #| 00000A80: 30 38 32 0D 20 20 20 20 20 20 4A 53 52 20 20 58 |082. JSR X| 00000A90: 54 52 41 58 0D 20 20 20 20 20 20 4C 44 59 20 23 |TRAX. LDY #| 00000AA0: 30 30 30 20 20 20 20 20 3B 4C 45 4E 47 54 45 20 |000 ;LENGTE | 00000AB0: 54 4F 54 41 41 4C 2E 0D 20 20 20 20 20 20 4C 44 |TOTAAL.. LD| 00000AC0: 41 20 28 32 35 31 29 2C 59 20 20 3B 49 4E 20 44 |A (251),Y ;IN D| 00000AD0: 45 20 53 54 41 50 45 4C 2E 0D 20 20 20 20 20 20 |E STAPEL.. | 00000AE0: 50 48 41 0D 20 20 20 20 20 20 43 4C 43 20 20 20 |PHA. CLC | 00000AF0: 20 20 20 20 20 20 20 3B 4C 53 20 41 44 52 45 53 | ;LS ADRES| 00000B00: 20 4E 41 41 4D 2E 0D 20 20 20 20 20 20 4C 44 41 | NAAM.. LDA| 00000B10: 20 20 32 35 31 0D 20 20 20 20 20 20 41 44 43 20 | 251. ADC | 00000B20: 23 30 30 31 0D 20 20 20 20 20 20 54 41 58 0D 20 |#001. TAX. | 00000B30: 20 20 20 20 20 4C 44 41 20 20 32 35 32 20 20 20 | LDA 252 | 00000B40: 20 20 3B 4D 53 20 41 44 52 45 53 20 4E 41 41 4D | ;MS ADRES NAAM| 00000B50: 2E 0D 20 20 20 20 20 20 41 44 43 20 23 30 30 30 |.. ADC #000| 00000B60: 0D 20 20 20 20 20 20 54 41 59 20 20 20 20 20 20 |. TAY | 00000B70: 20 20 20 20 3B 4C 45 4E 47 54 45 20 55 49 54 0D | ;LENGTE UIT.| 00000B80: 20 20 20 20 20 20 50 4C 41 20 20 20 20 20 20 20 | PLA | 00000B90: 20 20 20 3B 44 45 20 53 54 41 50 45 4C 2E 0D 20 | ;DE STAPEL.. | 00000BA0: 20 20 20 20 20 4A 53 52 20 20 36 35 34 36 39 20 | JSR 65469 | 00000BB0: 20 20 3B 2A 20 53 45 54 4E 41 4D 20 2A 0D 20 20 | ;* SETNAM *. | 00000BC0: 20 20 20 20 4A 53 52 20 20 36 35 34 37 32 20 20 | JSR 65472 | 00000BD0: 20 3B 2A 20 20 4F 50 45 4E 20 20 2A 0D 20 20 20 | ;* OPEN *. | 00000BE0: 20 20 20 4C 44 58 20 23 30 30 35 20 20 20 20 20 | LDX #005 | 00000BF0: 3B 46 49 4C 45 20 35 2E 0D 20 20 20 20 20 20 4A |;FILE 5.. J| 00000C00: 53 52 20 20 36 35 34 37 38 20 20 20 3B 2A 20 43 |SR 65478 ;* C| 00000C10: 48 4B 49 4E 20 20 2A 0D 20 20 20 20 20 20 52 54 |HKIN *. RT| 00000C20: 53 20 20 20 20 20 20 20 20 20 20 3B 4E 41 41 52 |S ;NAAR| 00000C30: 20 48 2E 50 2E 0D 20 20 20 20 20 20 4E 4F 50 0D | H.P.. NOP.| 00000C40: 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 | NOP. | 00000C50: 20 20 20 2A 3D 34 39 37 30 30 0D 20 20 20 20 20 | *=49700. | 00000C60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 0D | ;.| 00000C70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000C80: 20 20 20 3B 4F 50 45 4E 45 4E 20 4F 50 0D 20 20 | ;OPENEN OP. | 00000C90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000CA0: 20 3B 53 43 48 52 49 4A 56 45 4E 20 56 41 4E 0D | ;SCHRIJVEN VAN.| 00000CB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000CC0: 20 20 20 3B 53 45 51 2E 46 49 4C 45 2E 0D 20 20 | ;SEQ.FILE.. | 00000CD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000CE0: 20 3B 4E 41 41 4D 20 56 41 4E 41 46 0D 20 20 20 | ;NAAM VANAF. | 00000CF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000D00: 3B 42 45 47 49 4E 41 44 52 45 53 0D 20 20 20 20 |;BEGINADRES. | 00000D10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;| 00000D20: 28 32 35 32 2C 32 35 31 29 3A 0D 20 20 20 20 20 |(252,251):. | 00000D30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 4C | ;L| 00000D40: 45 4E 47 54 45 2E 0D 20 20 20 20 20 20 20 20 20 |ENGTE.. | 00000D50: 20 20 20 20 20 20 20 20 20 20 3B 0D 20 20 20 20 | ;. | 00000D60: 20 20 4C 44 41 20 23 30 30 35 20 20 20 20 20 3B | LDA #005 ;| 00000D70: 46 49 4C 45 4E 55 4D 4D 45 52 20 35 2E 0D 20 20 |FILENUMMER 5.. | 00000D80: 20 20 20 20 4C 44 58 20 23 30 30 38 20 20 20 20 | LDX #008 | 00000D90: 20 3B 44 49 53 4B 20 3D 20 38 2E 0D 20 20 20 20 | ;DISK = 8.. | 00000DA0: 20 20 4C 44 59 20 23 30 30 33 20 20 20 20 20 3B | LDY #003 ;| 00000DB0: 53 50 45 43 2E 3D 20 33 2E 0D 20 20 20 20 20 20 |SPEC.= 3.. | 00000DC0: 4A 53 52 20 20 36 35 34 36 36 20 20 20 3B 2A 20 |JSR 65466 ;* | 00000DD0: 53 45 54 4C 46 53 20 2A 0D 20 20 20 20 20 20 4C |SETLFS *. L| 00000DE0: 44 58 20 23 30 34 34 20 20 20 20 20 3B 27 2C 53 |DX #044 ;',S| 00000DF0: 2C 57 27 20 4E 41 20 44 45 0D 20 20 20 20 20 20 |,W' NA DE. | 00000E00: 4A 53 52 20 20 58 54 52 41 58 20 20 20 3B 46 49 |JSR XTRAX ;FI| 00000E10: 4C 45 4E 41 41 4D 2E 0D 20 20 20 20 20 20 4C 44 |LENAAM.. LD| 00000E20: 58 20 23 30 38 33 0D 20 20 20 20 20 20 4A 53 52 |X #083. JSR| 00000E30: 20 20 58 54 52 41 58 0D 20 20 20 20 20 20 4C 44 | XTRAX. LD| 00000E40: 58 20 23 30 34 34 0D 20 20 20 20 20 20 4A 53 52 |X #044. JSR| 00000E50: 20 20 58 54 52 41 58 0D 20 20 20 20 20 20 4C 44 | XTRAX. LD| 00000E60: 58 20 23 30 38 37 0D 20 20 20 20 20 20 4A 53 52 |X #087. JSR| 00000E70: 20 20 58 54 52 41 58 0D 20 20 20 20 20 20 4C 44 | XTRAX. LD| 00000E80: 59 20 23 30 30 30 20 20 20 20 20 3B 4C 45 4E 47 |Y #000 ;LENG| 00000E90: 54 45 20 54 4F 54 41 41 4C 2E 0D 20 20 20 20 20 |TE TOTAAL.. | 00000EA0: 20 4C 44 41 20 28 32 35 31 29 2C 59 20 20 3B 49 | LDA (251),Y ;I| 00000EB0: 4E 20 44 45 20 53 54 41 50 45 4C 2E 0D 20 20 20 |N DE STAPEL.. | 00000EC0: 20 20 20 50 48 41 0D 20 20 20 20 20 20 43 4C 43 | PHA. CLC| 00000ED0: 20 20 20 20 20 20 20 20 20 20 3B 4C 53 20 41 44 | ;LS AD| 00000EE0: 52 45 53 20 4E 41 41 4D 2E 0D 20 20 20 20 20 20 |RES NAAM.. | 00000EF0: 4C 44 41 20 20 32 35 31 0D 20 20 20 20 20 20 41 |LDA 251. A| 00000F00: 44 43 20 23 30 30 31 0D 20 20 20 20 20 20 54 41 |DC #001. TA| 00000F10: 58 0D 20 20 20 20 20 20 4C 44 41 20 20 32 35 32 |X. LDA 252| 00000F20: 20 20 20 20 20 3B 4D 53 20 41 44 52 45 53 20 4E | ;MS ADRES N| 00000F30: 41 41 4D 2E 0D 20 20 20 20 20 20 41 44 43 20 23 |AAM.. ADC #| 00000F40: 30 30 30 0D 20 20 20 20 20 20 54 41 59 20 20 20 |000. TAY | 00000F50: 20 20 20 20 20 20 20 3B 4C 45 4E 47 54 45 20 55 | ;LENGTE U| 00000F60: 49 54 0D 20 20 20 20 20 20 50 4C 41 20 20 20 20 |IT. PLA | 00000F70: 20 20 20 20 20 20 3B 44 45 20 53 54 41 50 45 4C | ;DE STAPEL| 00000F80: 2E 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 |.. JSR 654| 00000F90: 36 39 20 20 20 3B 2A 20 53 45 54 4E 41 4D 20 2A |69 ;* SETNAM *| 00000FA0: 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 37 |. JSR 6547| 00000FB0: 32 20 20 20 3B 2A 20 20 4F 50 45 4E 20 20 2A 0D |2 ;* OPEN *.| 00000FC0: 20 20 20 20 20 20 4C 44 58 20 23 30 30 35 20 20 | LDX #005 | 00000FD0: 20 20 20 3B 46 49 4C 45 20 35 2E 0D 20 20 20 20 | ;FILE 5.. | 00000FE0: 20 20 4A 53 52 20 20 36 35 34 38 31 20 20 20 3B | JSR 65481 ;| 00000FF0: 2A 20 43 48 4B 4F 55 54 20 2A 0D 20 20 20 20 20 |* CHKOUT *. | 00001000: 20 52 54 53 20 20 20 20 20 20 20 20 20 20 3B 4E | RTS ;N| 00001010: 41 41 52 20 48 2E 50 2E 0D 20 20 20 20 20 20 4E |AAR H.P.. N| 00001020: 4F 50 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 |OP. NOP. | 00001030: 20 20 20 20 20 20 2A 3D 34 39 38 30 30 0D 20 20 | *=49800. | 00001040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001050: 20 3B 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 | ;. | 00001060: 20 20 20 20 20 20 3B 53 4C 55 49 54 45 4E 2E 0D | ;SLUITEN..| 00001070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001080: 20 20 20 3B 0D 20 20 20 20 20 20 4C 44 41 20 23 | ;. LDA #| 00001090: 30 30 35 20 20 20 20 20 3B 46 49 4C 45 20 35 2E |005 ;FILE 5.| 000010A0: 0D 20 20 20 20 20 20 4A 53 52 20 20 36 35 34 37 |. JSR 6547| 000010B0: 35 20 20 20 3B 2A 20 43 4C 4F 53 45 20 20 2A 0D |5 ;* CLOSE *.| 000010C0: 20 20 20 20 20 20 4A 53 52 20 20 36 35 35 31 31 | JSR 65511| 000010D0: 20 20 20 3B 2A 20 43 4C 41 4C 4C 20 20 2A 0D 20 | ;* CLALL *. | 000010E0: 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 | RTS | 000010F0: 20 20 3B 4E 41 41 52 20 48 2E 50 2E 0D 20 20 20 | ;NAAR H.P.. | 00001100: 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 4E 4F 50 | NOP. NOP| 00001110: 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 |. NOP. | 00001120: 20 20 20 20 2A 3D 34 39 39 30 30 0D 20 20 20 20 | *=49900. | 00001130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;| 00001140: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00001150: 20 20 20 20 3B 56 4F 45 47 20 28 58 29 20 54 4F | ;VOEG (X) TO| 00001160: 45 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |E. | 00001170: 20 20 20 20 20 3B 41 43 48 54 45 52 20 41 41 4E | ;ACHTER AAN| 00001180: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00001190: 20 20 20 20 3B 54 45 4B 53 54 45 4C 45 4D 45 4E | ;TEKSTELEMEN| 000011A0: 54 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |T.. | 000011B0: 20 20 20 20 20 20 3B 28 32 35 32 2C 32 35 31 29 | ;(252,251)| 000011C0: 20 49 53 0D 20 20 20 20 20 20 20 20 20 20 20 20 | IS. | 000011D0: 20 20 20 20 20 20 20 3B 41 44 52 45 53 20 56 41 | ;ADRES VA| 000011E0: 4E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |N. | 000011F0: 20 20 20 20 20 3B 4C 45 4E 47 54 45 2E 0D 20 20 | ;LENGTE.. | 00001200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001210: 20 3B 0D 58 54 52 41 58 20 4C 44 59 20 23 30 30 | ;.XTRAX LDY #00| 00001220: 30 20 20 20 20 20 3B 4C 45 4E 47 54 45 2E 0D 20 |0 ;LENGTE.. | 00001230: 20 20 20 20 20 4C 44 41 20 28 32 35 31 29 2C 59 | LDA (251),Y| 00001240: 0D 20 20 20 20 20 20 54 41 59 20 20 20 20 20 20 |. TAY | 00001250: 20 20 20 20 3B 4E 45 45 4D 20 54 4F 45 20 54 45 | ;NEEM TOE TE| 00001260: 0D 20 20 20 20 20 20 54 58 41 20 20 20 20 20 20 |. TXA | 00001270: 20 20 20 20 3B 56 4F 45 47 45 4E 20 42 59 54 45 | ;VOEGEN BYTE| 00001280: 2E 0D 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 |.. INY. | 00001290: 20 20 53 54 41 20 28 32 35 31 29 2C 59 0D 20 20 | STA (251),Y. | 000012A0: 20 20 20 20 54 59 41 0D 20 20 20 20 20 20 4C 44 | TYA. LD| 000012B0: 59 20 23 30 30 30 0D 20 20 20 20 20 20 53 54 41 |Y #000. STA| 000012C0: 20 28 32 35 31 29 2C 59 0D 20 20 20 20 20 20 52 | (251),Y. R| 000012D0: 54 53 0D 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 |TS. NOP. | 000012E0: 20 20 20 2E 45 4E 44 0D | .END. |
*=49424. ;.
;SPLITS X IN.
;LS EN HS;. ;
USR(X).. ;(785)=016..
;(786)=193..
;ADRES IS DAN.
; = 49424.. ;.USRX
JSR 47095 ;PAK OP.. LDA 020
;X LS IN 167.. STA 167 ;X HS
IN 168.. LDA 021. STA 168.
RTS. NOP.DIAP ROL 002 ;TE
KEN IN 002. SEC ;IN NORMAA
L. CPX #000 ;ALS (X)=0. BN
E DIA1 ;EN DIAPOS.. CLC
;ALS (X)=1..DIA1 ROR 002. RTS.
NOP. NOP. ;.
;TRANSPORT.
;V.HOOG N.LAAG..
;.VHNL LDY 250 ;BEGINMODIF.=M.
. CLC ; EINDMODIF.=N..
BCC VHN2 ;M=(249) EN.VHN1 LDA (25
1),Y ;N=(250).. STA (253),Y ; HAA
L 252,251..VHN2 DEY ;BRENG 254
,253.. CPY 249. BPL VHN1.
RTS. NOP. NOP.
;. ;TRANSPORT.
;V.LAAG N.HOOG..
;.VLNH LDY 249 ;MODIF.
,ADRES-. CLC ;SEN:ZIE BOVE
N.. BCC VLN2 .VLN1 LDA (251),Y.
STA (253),Y. INY.VLN2 CPY 250
. BMI VLN1. RTS. NOP.
;. ;VU
LLEN. ;V.LAAG N.HOOG..
;.VULL LDY 249
;ZIE BOVEN.. CLC. BCC VUL2.VU
L1 LDA 251. STA (253),Y. INY
.VUL2 CPY 250. BMI VUL1. RT
S. NOP. NOP. NOP. NO
P. NOP. NOP. *=49500.
;. ;
OPEN OP HET. ;LEZEN VA
N. ;DIRECTORY..
;. LDA #005 ;FILENU
MMER 5.. LDX #008 ;DISK = 8..
LDY #000 ;SPEC.= 0.. JSR 6
5466 ;* SETLFS *. LDA #036 ;'
$'.. STA 252 ;IN 252.. LD
X #252 ;ADRES L.S.. LDY #000
;ADRES M.S.. LDA #001 ;LENGTE
=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.
> CLICK IMAGE PREVIEW FOR FULL MODAL