FK.USEDIR.SRC
FILE INFORMATION
FILENAME(S): FK.USEDIR.SRC
FILE TYPE(S): SEQ
FILE SIZE: 12.5K
FIRST SEEN: 2025-10-20 00:33:22
APPEARS ON: 1 disk(s)
FILE HASH
d5dbf7fb9e3de31e1a6f5b1822ca817facaaa4da563348673d6232708ade5030
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MAGIC DISK 02 93 | FK.USEDIR.SRC | SEQ | DuncanTwain, Martin Ahman, Treasure Chest - Klaus Der Suhler | 3 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 20 |**************. | 00000020: 20 20 20 20 20 20 20 20 2A 3D 20 24 30 38 30 31 | *= $0801| 00000030: 0D 53 54 41 54 55 53 20 20 20 3D 20 24 39 30 0D |.STATUS = $90.| 00000040: 53 45 54 50 41 52 20 20 20 3D 20 24 46 46 42 41 |SETPAR = $FFBA| 00000050: 0D 53 45 54 4E 41 4D 20 20 20 3D 20 24 46 46 42 |.SETNAM = $FFB| 00000060: 44 0D 4F 50 45 4E 20 20 20 20 20 3D 20 24 46 46 |D.OPEN = $FF| 00000070: 43 30 0D 43 4C 4F 53 45 20 20 20 20 3D 20 24 46 |C0.CLOSE = $F| 00000080: 46 43 33 0D 43 48 4B 49 4E 20 20 20 20 3D 20 24 |FC3.CHKIN = $| 00000090: 46 46 43 36 0D 43 4C 52 43 48 20 20 20 20 3D 20 |FFC6.CLRCH = | 000000A0: 24 46 46 43 43 0D 42 41 53 49 4E 20 20 20 20 3D |$FFCC.BASIN =| 000000B0: 20 24 46 46 43 46 0D 42 53 4F 55 54 20 20 20 20 | $FFCF.BSOUT | 000000C0: 3D 20 24 46 46 44 32 0D 4C 4F 41 44 20 20 20 20 |= $FFD2.LOAD | 000000D0: 20 3D 20 24 46 46 44 35 0D 53 41 56 45 20 20 20 | = $FFD5.SAVE | 000000E0: 20 20 3D 20 24 46 46 44 38 0D 43 4B 4F 55 54 20 | = $FFD8.CKOUT | 000000F0: 20 20 20 3D 20 24 46 46 43 39 0D 49 4E 54 4F 55 | = $FFC9.INTOU| 00000100: 54 20 20 20 3D 20 24 42 44 43 44 0D 49 4E 4B 45 |T = $BDCD.INKE| 00000110: 59 20 20 20 20 3D 20 24 46 46 45 34 0D 4C 49 53 |Y = $FFE4.LIS| 00000120: 54 45 4E 20 20 20 3D 20 24 46 46 42 31 0D 55 4E |TEN = $FFB1.UN| 00000130: 4C 49 53 54 20 20 20 3D 20 24 46 46 41 45 0D 54 |LIST = $FFAE.T| 00000140: 41 4C 4B 20 20 20 20 20 3D 20 24 46 46 42 34 0D |ALK = $FFB4.| 00000150: 55 4E 54 41 4C 4B 20 20 20 3D 20 24 46 46 41 42 |UNTALK = $FFAB| 00000160: 0D 49 45 43 49 4E 20 20 20 20 3D 20 24 46 46 41 |.IECIN = $FFA| 00000170: 35 0D 49 45 43 4F 55 54 20 20 20 3D 20 24 46 46 |5.IECOUT = $FF| 00000180: 41 38 0D 53 45 43 54 4C 4B 20 20 20 3D 20 24 46 |A8.SECTLK = $F| 00000190: 46 39 36 0D 53 45 43 4C 53 54 20 20 20 3D 20 24 |F96.SECLST = $| 000001A0: 46 46 39 33 0D 0D 46 49 4C 45 4D 45 4D 20 20 3D |FF93..FILEMEM =| 000001B0: 20 24 30 46 30 30 0D 4E 55 4D 42 55 46 46 20 20 | $0F00.NUMBUFF | 000001C0: 3D 20 24 30 33 33 32 0D 4E 45 45 44 20 20 20 20 |= $0332.NEED | 000001D0: 20 3D 20 24 30 33 33 37 0D 44 53 4B 46 52 45 45 | = $0337.DSKFREE| 000001E0: 20 20 3D 20 24 30 33 33 38 0D 41 4C 4C 46 52 45 | = $0338.ALLFRE| 000001F0: 45 20 20 3D 20 24 30 33 33 41 0D 44 49 52 46 52 |E = $033A.DIRFR| 00000200: 45 45 20 20 3D 20 24 30 33 33 43 0D 44 49 52 53 |EE = $033C.DIRS| 00000210: 54 52 54 20 20 3D 20 24 30 33 33 44 0D 46 54 52 |TRT = $033D.FTR| 00000220: 41 43 4B 20 20 20 3D 20 24 30 33 33 45 0D 46 53 |ACK = $033E.FS| 00000230: 45 43 54 4F 52 20 20 3D 20 24 30 33 33 46 0D 44 |ECTOR = $033F.D| 00000240: 53 49 4E 44 45 58 20 20 3D 20 24 30 33 34 30 0D |SINDEX = $0340.| 00000250: 43 4F 4D 42 55 46 46 20 20 3D 20 24 30 33 34 31 |COMBUFF = $0341| 00000260: 0D 0D 4D 45 4D 30 20 20 20 20 20 3D 20 24 30 32 |..MEM0 = $02| 00000270: 0D 4D 45 4D 31 20 20 20 20 20 3D 20 24 30 33 0D |.MEM1 = $03.| 00000280: 4D 45 4D 32 20 20 20 20 20 3D 20 24 30 34 0D 4D |MEM2 = $04.M| 00000290: 45 4D 33 20 20 20 20 20 3D 20 24 30 35 0D 4D 45 |EM3 = $05.ME| 000002A0: 4D 34 20 20 20 20 20 3D 20 24 30 36 0D 3B 2A 2A |M4 = $06.;**| 000002B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000002C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 3B 20 |*************.; | 000002D0: 20 20 20 20 20 20 20 20 4A 4D 50 20 4D 41 49 4E | JMP MAIN| 000002E0: 0D 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.;**************| 000002F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000300: 2A 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 |*. .BYTE| 00000310: 20 24 30 42 2C 24 30 38 2C 24 30 41 2C 24 30 30 | $0B,$08,$0A,$00| 00000320: 2C 24 39 45 0D 20 20 20 20 20 20 20 20 20 2E 54 |,$9E. .T| 00000330: 45 58 54 20 22 32 30 36 31 22 0D 20 20 20 20 20 |EXT "2061". | 00000340: 20 20 20 20 2E 42 59 54 45 20 30 2C 30 2C 30 0D | .BYTE 0,0,0.| 00000350: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************| 00000360: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000370: 0D 4D 41 49 4E 20 20 20 20 20 4C 44 41 20 23 31 |.MAIN LDA #1| 00000380: 31 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 35 |1. STA 5| 00000390: 33 32 38 30 0D 20 20 20 20 20 20 20 20 20 53 54 |3280. ST| 000003A0: 41 20 35 33 32 38 31 0D 0D 20 20 20 20 20 20 20 |A 53281.. | 000003B0: 20 20 4C 44 41 20 23 3C 28 54 45 58 54 31 29 0D | LDA #<(TEXT1).| 000003C0: 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 3E 28 | LDY #>(| 000003D0: 54 45 58 54 31 29 0D 20 20 20 20 20 20 20 20 20 |TEXT1). | 000003E0: 4A 53 52 20 53 54 52 4F 55 54 0D 20 20 20 20 20 |JSR STROUT. | 000003F0: 20 20 20 20 4A 53 52 20 47 45 54 49 4E 0D 20 20 | JSR GETIN. | 00000400: 20 20 20 20 20 20 20 43 50 59 20 23 31 0D 20 20 | CPY #1. | 00000410: 20 20 20 20 20 20 20 42 4E 45 20 4D 33 0D 20 20 | BNE M3. | 00000420: 20 20 20 20 20 20 20 4C 44 41 20 23 22 58 22 0D | LDA #"X".| 00000430: 20 20 20 20 20 20 20 20 20 43 4D 50 20 4E 41 4D | CMP NAM| 00000440: 45 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 4D |E. BNE M| 00000450: 33 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 36 |3. JMP 6| 00000460: 34 37 33 38 0D 0D 4D 33 20 20 20 20 20 20 20 4A |4738..M3 J| 00000470: 53 52 20 52 46 49 4C 45 0D 20 20 20 20 20 20 20 |SR RFILE. | 00000480: 20 20 4A 53 52 20 47 45 54 4E 45 45 44 0D 0D 20 | JSR GETNEED.. | 00000490: 20 20 20 20 20 20 20 20 4C 44 41 20 23 3C 28 54 | LDA #<(T| 000004A0: 45 58 54 32 29 0D 20 20 20 20 20 20 20 20 20 4C |EXT2). L| 000004B0: 44 59 20 23 3E 28 54 45 58 54 32 29 0D 20 20 20 |DY #>(TEXT2). | 000004C0: 20 20 20 20 20 20 4A 53 52 20 53 54 52 4F 55 54 | JSR STROUT| 000004D0: 0D 4D 4C 4F 4F 50 31 20 20 20 4A 53 52 20 49 4E |.MLOOP1 JSR IN| 000004E0: 4B 45 59 0D 20 20 20 20 20 20 20 20 20 42 45 51 |KEY. BEQ| 000004F0: 20 4D 4C 4F 4F 50 31 0D 0D 20 20 20 20 20 20 20 | MLOOP1.. | 00000500: 20 20 4C 44 41 20 23 3C 28 54 45 58 54 33 29 0D | LDA #<(TEXT3).| 00000510: 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 3E 28 | LDY #>(| 00000520: 54 45 58 54 33 29 0D 20 20 20 20 20 20 20 20 20 |TEXT3). | 00000530: 4A 53 52 20 53 54 52 4F 55 54 0D 0D 20 20 20 20 |JSR STROUT.. | 00000540: 20 20 20 20 20 4A 53 52 20 57 44 55 4D 4D 59 0D | JSR WDUMMY.| 00000550: 20 20 20 20 20 20 20 20 20 4A 53 52 20 4F 50 45 | JSR OPE| 00000560: 4E 49 4F 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |NIO. JSR| 00000570: 20 47 45 54 44 53 4B 46 0D 20 20 20 20 20 20 20 | GETDSKF. | 00000580: 20 20 4A 53 52 20 47 45 54 44 49 52 46 0D 20 20 | JSR GETDIRF. | 00000590: 20 20 20 20 20 20 20 4A 53 52 20 43 4C 4F 53 45 | JSR CLOSE| 000005A0: 49 4F 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |IO. JSR | 000005B0: 53 54 41 54 4F 55 54 0D 0D 20 20 20 20 20 20 20 |STATOUT.. | 000005C0: 20 20 4C 44 41 20 44 49 52 46 52 45 45 0D 20 20 | LDA DIRFREE. | 000005D0: 20 20 20 20 20 20 20 42 4E 45 20 4D 31 0D 20 20 | BNE M1. | 000005E0: 20 20 20 20 20 20 20 4C 44 41 20 23 3C 28 45 52 | LDA #<(ER| 000005F0: 52 54 58 54 31 29 0D 20 20 20 20 20 20 20 20 20 |RTXT1). | 00000600: 4C 44 59 20 23 3E 28 45 52 52 54 58 54 31 29 0D |LDY #>(ERRTXT1).| 00000610: 20 20 20 20 20 20 20 20 20 4A 4D 50 20 45 52 52 | JMP ERR| 00000620: 4F 55 54 0D 0D 4D 31 20 20 20 20 20 20 20 43 4D |OUT..M1 CM| 00000630: 50 20 4E 45 45 44 0D 20 20 20 20 20 20 20 20 20 |P NEED. | 00000640: 42 43 43 20 4D 32 0D 20 20 20 20 20 20 20 20 20 |BCC M2. | 00000650: 4C 44 41 20 23 3C 28 45 52 52 54 58 54 32 29 0D |LDA #<(ERRTXT2).| 00000660: 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 3E 28 | LDY #>(| 00000670: 45 52 52 54 58 54 32 29 0D 20 20 20 20 20 20 20 |ERRTXT2). | 00000680: 20 20 4A 4D 50 20 45 52 52 4F 55 54 0D 0D 4D 32 | JMP ERROUT..M2| 00000690: 20 20 20 20 20 20 20 4C 44 59 20 41 4C 4C 46 52 | LDY ALLFR| 000006A0: 45 45 2B 31 0D 20 20 20 20 20 20 20 20 20 42 4E |EE+1. BN| 000006B0: 45 20 4F 4B 0D 20 20 20 20 20 20 20 20 20 4C 44 |E OK. LD| 000006C0: 41 20 41 4C 4C 46 52 45 45 2B 30 0D 20 20 20 20 |A ALLFREE+0. | 000006D0: 20 20 20 20 20 43 4D 50 20 4E 45 45 44 0D 20 20 | CMP NEED. | 000006E0: 20 20 20 20 20 20 20 42 43 53 20 4F 4B 0D 20 20 | BCS OK. | 000006F0: 20 20 20 20 20 20 20 4C 44 41 20 23 3C 28 45 52 | LDA #<(ER| 00000700: 52 54 58 54 33 29 0D 20 20 20 20 20 20 20 20 20 |RTXT3). | 00000710: 4C 44 59 20 23 3E 28 45 52 52 54 58 54 33 29 0D |LDY #>(ERRTXT3).| 00000720: 20 20 20 20 20 20 20 20 20 4A 4D 50 20 45 52 52 | JMP ERR| 00000730: 4F 55 54 0D 0D 4F 4B 20 20 20 20 20 20 20 4C 44 |OUT..OK LD| 00000740: 41 20 23 31 39 0D 20 20 20 20 20 20 20 20 20 53 |A #19. S| 00000750: 45 43 0D 20 20 20 20 20 20 20 20 20 53 42 43 20 |EC. SBC | 00000760: 44 49 52 46 52 45 45 0D 20 20 20 20 20 20 20 20 |DIRFREE. | 00000770: 20 54 41 59 0D 20 20 20 20 20 20 20 20 20 4C 44 | TAY. LD| 00000780: 41 20 42 4C 4B 54 41 42 2C 59 0D 20 20 20 20 20 |A BLKTAB,Y. | 00000790: 20 20 20 20 53 54 41 20 44 49 52 53 54 52 54 0D | STA DIRSTRT.| 000007A0: 20 20 20 20 20 20 20 20 20 53 54 59 20 44 53 49 | STY DSI| 000007B0: 4E 44 45 58 0D 0D 20 20 20 20 20 20 20 20 20 4C |NDEX.. L| 000007C0: 44 58 20 44 49 52 46 52 45 45 0D 20 20 20 20 20 |DX DIRFREE. | 000007D0: 20 20 20 20 54 58 41 0D 20 20 20 20 20 20 20 20 | TXA. | 000007E0: 20 44 45 58 0D 20 20 20 20 20 20 20 20 20 41 53 | DEX. AS| 000007F0: 4C 20 41 0D 20 20 20 20 20 20 20 20 20 45 4F 52 |L A. EOR| 00000800: 20 23 24 46 46 0D 20 20 20 20 20 20 20 20 20 43 | #$FF. C| 00000810: 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 |LC. ADC | 00000820: 23 31 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 |#1. ADC | 00000830: 23 3C 28 46 49 4C 45 4D 45 4D 29 0D 20 20 20 20 |#<(FILEMEM). | 00000840: 20 20 20 20 20 42 43 43 20 4D 35 0D 20 20 20 20 | BCC M5. | 00000850: 20 20 20 20 20 49 4E 58 0D 4D 35 20 20 20 20 20 | INX.M5 | 00000860: 20 20 53 54 41 20 24 46 44 0D 20 20 20 20 20 20 | STA $FD. | 00000870: 20 20 20 54 58 41 0D 20 20 20 20 20 20 20 20 20 | TXA. | 00000880: 43 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 43 |CLC. ADC| 00000890: 20 23 3E 28 46 49 4C 45 4D 45 4D 29 0D 20 20 20 | #>(FILEMEM). | 000008A0: 20 20 20 20 20 20 53 54 41 20 24 46 45 0D 20 20 | STA $FE. | 000008B0: 20 20 20 20 20 20 20 4A 53 52 20 57 46 49 4C 45 | JSR WFILE| 000008C0: 0D 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 4F |.. JSR O| 000008D0: 50 45 4E 49 4F 0D 20 20 20 20 20 20 20 20 20 4A |PENIO. J| 000008E0: 53 52 20 43 48 47 45 4E 54 0D 20 20 20 20 20 20 |SR CHGENT. | 000008F0: 20 20 20 4A 53 52 20 57 42 4C 4F 43 4B 53 0D 20 | JSR WBLOCKS. | 00000900: 20 20 20 20 20 20 20 20 4A 53 52 20 43 4C 4F 53 | JSR CLOS| 00000910: 45 49 4F 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 |EIO.. LD| 00000920: 41 20 23 3C 28 54 45 58 54 34 29 0D 20 20 20 20 |A #<(TEXT4). | 00000930: 20 20 20 20 20 4C 44 59 20 23 3E 28 54 45 58 54 | LDY #>(TEXT| 00000940: 34 29 0D 0D 45 52 52 4F 55 54 20 20 20 4A 53 52 |4)..ERROUT JSR| 00000950: 20 53 54 52 4F 55 54 0D 45 4F 31 20 20 20 20 20 | STROUT.EO1 | 00000960: 20 4A 53 52 20 49 4E 4B 45 59 0D 20 20 20 20 20 | JSR INKEY. | 00000970: 20 20 20 20 42 45 51 20 45 4F 31 0D 20 20 20 20 | BEQ EO1. | 00000980: 20 20 20 20 20 4A 4D 50 20 4D 41 49 4E 0D 3B 2A | JMP MAIN.;*| 00000990: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000009A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 53 |**************.S| 000009B0: 54 41 54 4F 55 54 20 20 4C 44 41 20 23 3C 28 53 |TATOUT LDA #<(S| 000009C0: 54 45 58 54 31 29 0D 20 20 20 20 20 20 20 20 20 |TEXT1). | 000009D0: 4C 44 59 20 23 3E 28 53 54 45 58 54 31 29 0D 20 |LDY #>(STEXT1). | 000009E0: 20 20 20 20 20 20 20 20 4A 53 52 20 53 54 52 4F | JSR STRO| 000009F0: 55 54 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |UT. LDA | 00000A00: 23 30 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 |#0. LDX | 00000A10: 4E 45 45 44 0D 20 20 20 20 20 20 20 20 20 4A 53 |NEED. JS| 00000A20: 52 20 49 4E 54 4F 55 54 0D 0D 20 20 20 20 20 20 |R INTOUT.. | 00000A30: 20 20 20 4C 44 41 20 23 3C 28 53 54 45 58 54 32 | LDA #<(STEXT2| 00000A40: 29 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 |). LDY #| 00000A50: 3E 28 53 54 45 58 54 32 29 0D 20 20 20 20 20 20 |>(STEXT2). | 00000A60: 20 20 20 4A 53 52 20 53 54 52 4F 55 54 0D 20 20 | JSR STROUT. | 00000A70: 20 20 20 20 20 20 20 4C 44 41 20 23 30 0D 20 20 | LDA #0. | 00000A80: 20 20 20 20 20 20 20 4C 44 58 20 44 49 52 46 52 | LDX DIRFR| 00000A90: 45 45 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |EE. JSR | 00000AA0: 49 4E 54 4F 55 54 0D 0D 20 20 20 20 20 20 20 20 |INTOUT.. | 00000AB0: 20 4C 44 41 20 23 3C 28 53 54 45 58 54 33 29 0D | LDA #<(STEXT3).| 00000AC0: 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 3E 28 | LDY #>(| 00000AD0: 53 54 45 58 54 33 29 0D 20 20 20 20 20 20 20 20 |STEXT3). | 00000AE0: 20 4A 53 52 20 53 54 52 4F 55 54 0D 20 20 20 20 | JSR STROUT. | 00000AF0: 20 20 20 20 20 4C 44 41 20 44 53 4B 46 52 45 45 | LDA DSKFREE| 00000B00: 2B 31 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 |+1. LDX | 00000B10: 44 53 4B 46 52 45 45 2B 30 0D 20 20 20 20 20 20 |DSKFREE+0. | 00000B20: 20 20 20 4A 4D 50 20 49 4E 54 4F 55 54 0D 3B 2A | JMP INTOUT.;*| 00000B30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000B40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 47 |**************.G| 00000B50: 45 54 4E 45 45 44 20 20 4C 44 58 20 23 30 0D 20 |ETNEED LDX #0. | 00000B60: 20 20 20 20 20 20 20 20 53 54 58 20 4E 45 45 44 | STX NEED| 00000B70: 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 |.. LDA $| 00000B80: 46 39 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 |F9. LDX | 00000B90: 24 46 41 0D 20 20 20 20 20 20 20 20 20 53 45 43 |$FA. SEC| 00000BA0: 0D 20 20 20 20 20 20 20 20 20 53 42 43 20 23 3C |. SBC #<| 00000BB0: 28 46 49 4C 45 4D 45 4D 29 0D 20 20 20 20 20 20 |(FILEMEM). | 00000BC0: 20 20 20 42 43 53 20 52 46 31 0D 20 20 20 20 20 | BCS RF1. | 00000BD0: 20 20 20 20 44 45 58 0D 52 46 31 20 20 20 20 20 | DEX.RF1 | 00000BE0: 20 53 54 41 20 4D 45 4D 31 0D 20 20 20 20 20 20 | STA MEM1. | 00000BF0: 20 20 20 54 58 41 0D 20 20 20 20 20 20 20 20 20 | TXA. | 00000C00: 53 45 43 0D 20 20 20 20 20 20 20 20 20 53 42 43 |SEC. SBC| 00000C10: 20 23 3E 28 46 49 4C 45 4D 45 4D 29 0D 20 20 20 | #>(FILEMEM). | 00000C20: 20 20 20 20 20 20 53 54 41 20 4D 45 4D 32 0D 0D | STA MEM2..| 00000C30: 20 20 20 20 20 20 20 20 20 52 4F 4C 20 41 0D 20 | ROL A. | 00000C40: 20 20 20 20 20 20 20 20 42 43 43 20 43 4E 31 0D | BCC CN1.| 00000C50: 20 20 20 20 20 20 20 20 20 49 4E 43 20 4E 45 45 | INC NEE| 00000C60: 44 0D 43 4E 31 20 20 20 20 20 20 43 4C 43 0D 20 |D.CN1 CLC. | 00000C70: 20 20 20 20 20 20 20 20 41 44 43 20 4D 45 4D 31 | ADC MEM1| 00000C80: 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 43 4E |. BEQ CN| 00000C90: 32 0D 20 20 20 20 20 20 20 20 20 42 43 43 20 43 |2. BCC C| 00000CA0: 4E 32 0D 20 20 20 20 20 20 20 20 20 49 4E 43 20 |N2. INC | 00000CB0: 4E 45 45 44 0D 43 4E 32 20 20 20 20 20 20 49 4E |NEED.CN2 IN| 00000CC0: 43 20 4E 45 45 44 0D 0D 20 20 20 20 20 20 20 20 |C NEED.. | 00000CD0: 20 4C 44 41 20 4D 45 4D 32 0D 20 20 20 20 20 20 | LDA MEM2. | 00000CE0: 20 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 20 | CLC. | 00000CF0: 41 44 43 20 4E 45 45 44 0D 43 4E 33 20 20 20 20 |ADC NEED.CN3 | 00000D00: 20 20 53 54 41 20 4E 45 45 44 0D 20 20 20 20 20 | STA NEED. | 00000D10: 20 20 20 20 52 54 53 0D 3B 2A 2A 2A 2A 2A 2A 2A | RTS.;*******| 00000D20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000D30: 2A 2A 2A 2A 2A 2A 2A 2A 0D 47 45 54 44 53 4B 46 |********.GETDSKF| 00000D40: 20 20 4C 44 41 20 23 3C 28 43 4F 4D 35 29 0D 20 | LDA #<(COM5). | 00000D50: 20 20 20 20 20 20 20 20 4C 44 59 20 23 3E 28 43 | LDY #>(C| 00000D60: 4F 4D 35 29 0D 20 20 20 20 20 20 20 20 20 4A 53 |OM5). JS| 00000D70: 52 20 53 54 52 49 45 43 0D 0D 20 20 20 20 20 20 |R STRIEC.. | 00000D80: 20 20 20 4C 44 41 20 23 38 0D 20 20 20 20 20 20 | LDA #8. | 00000D90: 20 20 20 4A 53 52 20 54 41 4C 4B 0D 20 20 20 20 | JSR TALK. | 00000DA0: 20 20 20 20 20 4C 44 41 20 23 24 36 46 0D 20 20 | LDA #$6F. | 00000DB0: 20 20 20 20 20 20 20 4A 53 52 20 53 45 43 54 4C | JSR SECTL| 00000DC0: 4B 0D 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |K.. JSR | 00000DD0: 49 45 43 49 4E 0D 20 20 20 20 20 20 20 20 20 53 |IECIN. S| 00000DE0: 54 41 20 44 53 4B 46 52 45 45 2B 30 0D 20 20 20 |TA DSKFREE+0. | 00000DF0: 20 20 20 20 20 20 4A 53 52 20 49 45 43 49 4E 0D | JSR IECIN.| 00000E00: 20 20 20 20 20 20 20 20 20 4A 53 52 20 49 45 43 | JSR IEC| 00000E10: 49 4E 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |IN. STA | 00000E20: 44 53 4B 46 52 45 45 2B 31 0D 0D 20 20 20 20 20 |DSKFREE+1.. | 00000E30: 20 20 20 20 4C 44 41 20 23 38 0D 20 20 20 20 20 | LDA #8. | 00000E40: 20 20 20 20 4A 4D 50 20 55 4E 54 41 4C 4B 0D 3B | JMP UNTALK.;| 00000E50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000E60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D |***************.| 00000E70: 47 45 54 44 49 52 46 20 20 4C 44 41 20 23 3C 28 |GETDIRF LDA #<(| 00000E80: 43 4F 4D 36 29 0D 20 20 20 20 20 20 20 20 20 4C |COM6). L| 00000E90: 44 59 20 23 3E 28 43 4F 4D 36 29 0D 20 20 20 20 |DY #>(COM6). | 00000EA0: 20 20 20 20 20 4A 53 52 20 53 54 52 49 45 43 0D | JSR STRIEC.| 00000EB0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 3C |. LDA #<| 00000EC0: 28 43 4F 4D 37 29 0D 20 20 20 20 20 20 20 20 20 |(COM7). | 00000ED0: 4C 44 59 20 23 3E 28 43 4F 4D 37 29 0D 20 20 20 |LDY #>(COM7). | 00000EE0: 20 20 20 20 20 20 4A 53 52 20 53 54 52 49 45 43 | JSR STRIEC| 00000EF0: 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |.. LDA #| 00000F00: 38 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 54 |8. JSR T| 00000F10: 41 4C 4B 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |ALK. LDA| 00000F20: 20 23 24 36 32 0D 20 20 20 20 20 20 20 20 20 4A | #$62. J| 00000F30: 53 52 20 53 45 43 54 4C 4B 0D 0D 20 20 20 20 20 |SR SECTLK.. | 00000F40: 20 20 20 20 4A 53 52 20 49 45 43 49 4E 0D 20 20 | JSR IECIN. | 00000F50: 20 20 20 20 20 20 20 53 54 41 20 44 49 52 46 52 | STA DIRFR| 00000F60: 45 45 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 58 |EE.. LDX| 00000F70: 20 44 53 4B 46 52 45 45 2B 31 0D 20 20 20 20 20 | DSKFREE+1. | 00000F80: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 | CLC. | 00000F90: 20 41 44 43 20 44 53 4B 46 52 45 45 2B 30 0D 20 | ADC DSKFREE+0. | 00000FA0: 20 20 20 20 20 20 20 20 42 43 43 20 47 46 31 0D | BCC GF1.| 00000FB0: 20 20 20 20 20 20 20 20 20 49 4E 58 0D 47 46 31 | INX.GF1| 00000FC0: 20 20 20 20 20 20 53 54 41 20 41 4C 4C 46 52 45 | STA ALLFRE| 00000FD0: 45 2B 30 0D 20 20 20 20 20 20 20 20 20 53 54 58 |E+0. STX| 00000FE0: 20 41 4C 4C 46 52 45 45 2B 31 0D 0D 20 20 20 20 | ALLFREE+1.. | 00000FF0: 20 20 20 20 20 4C 44 41 20 23 38 0D 20 20 20 20 | LDA #8. | 00001000: 20 20 20 20 20 4A 4D 50 20 55 4E 54 41 4C 4B 0D | JMP UNTALK.| 00001010: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************| 00001020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001030: 0D 49 32 41 20 20 20 20 20 20 4C 44 59 20 23 28 |.I2A LDY #(| 00001040: 34 38 2D 31 29 0D 49 41 4C 4F 4F 50 31 20 20 49 |48-1).IALOOP1 I| 00001050: 4E 59 0D 20 20 20 20 20 20 20 20 20 53 45 43 0D |NY. SEC.| 00001060: 20 20 20 20 20 20 20 20 20 53 42 43 20 23 31 30 | SBC #10| 00001070: 30 0D 20 20 20 20 20 20 20 20 20 42 43 53 20 49 |0. BCS I| 00001080: 41 4C 4F 4F 50 31 0D 20 20 20 20 20 20 20 20 20 |ALOOP1. | 00001090: 41 44 43 20 23 31 30 30 0D 20 20 20 20 20 20 20 |ADC #100. | 000010A0: 20 20 53 54 59 20 4E 55 4D 42 55 46 46 2B 31 0D | STY NUMBUFF+1.| 000010B0: 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 28 |. LDY #(| 000010C0: 34 38 2D 31 29 0D 49 41 4C 4F 4F 50 32 20 20 49 |48-1).IALOOP2 I| 000010D0: 4E 59 0D 20 20 20 20 20 20 20 20 20 53 45 43 0D |NY. SEC.| 000010E0: 20 20 20 20 20 20 20 20 20 53 42 43 20 23 31 30 | SBC #10| 000010F0: 0D 20 20 20 20 20 20 20 20 20 42 43 53 20 49 41 |. BCS IA| 00001100: 4C 4F 4F 50 32 0D 20 20 20 20 20 20 20 20 20 41 |LOOP2. A| 00001110: 44 43 20 23 31 30 0D 20 20 20 20 20 20 20 20 20 |DC #10. | 00001120: 53 54 59 20 4E 55 4D 42 55 46 46 2B 32 0D 0D 20 |STY NUMBUFF+2.. | 00001130: 20 20 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 | CLC. | 00001140: 20 20 20 20 20 41 44 43 20 23 34 38 0D 20 20 20 | ADC #48. | 00001150: 20 20 20 20 20 20 53 54 41 20 4E 55 4D 42 55 46 | STA NUMBUF| 00001160: 46 2B 33 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 |F+3.. LD| 00001170: 41 20 23 33 32 0D 20 20 20 20 20 20 20 20 20 53 |A #32. S| 00001180: 54 41 20 4E 55 4D 42 55 46 46 2B 30 0D 20 20 20 |TA NUMBUFF+0. | 00001190: 20 20 20 20 20 20 4C 44 41 20 23 30 0D 20 20 20 | LDA #0. | 000011A0: 20 20 20 20 20 20 53 54 41 20 4E 55 4D 42 55 46 | STA NUMBUF| 000011B0: 46 2B 34 0D 20 20 20 20 20 20 20 20 20 52 54 53 |F+4. RTS| 000011C0: 0D 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.;**************| 000011D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000011E0: 2A 0D 52 46 49 4C 45 20 20 20 20 4C 44 58 20 23 |*.RFILE LDX #| 000011F0: 3C 28 46 49 4C 45 4D 45 4D 29 0D 20 20 20 20 20 |<(FILEMEM). | 00001200: 20 20 20 20 4C 44 59 20 23 3E 28 46 49 4C 45 4D | LDY #>(FILEM| 00001210: 45 4D 29 0D 20 20 20 20 20 20 20 20 20 53 54 58 |EM). STX| 00001220: 20 24 46 39 0D 20 20 20 20 20 20 20 20 20 53 54 | $F9. ST| 00001230: 59 20 24 46 41 0D 0D 20 20 20 20 20 20 20 20 20 |Y $FA.. | 00001240: 4C 44 41 20 4D 45 4D 30 0D 20 20 20 20 20 20 20 |LDA MEM0. | 00001250: 20 20 4C 44 58 20 23 3C 28 4E 41 4D 45 29 0D 20 | LDX #<(NAME). | 00001260: 20 20 20 20 20 20 20 20 4C 44 59 20 23 3E 28 4E | LDY #>(N| 00001270: 41 4D 45 29 0D 20 20 20 20 20 20 20 20 20 4A 53 |AME). JS| 00001280: 52 20 53 45 54 4E 41 4D 0D 20 20 20 20 20 20 20 |R SETNAM. | 00001290: 20 20 4C 44 41 20 23 31 0D 20 20 20 20 20 20 20 | LDA #1. | 000012A0: 20 20 4C 44 58 20 23 38 0D 20 20 20 20 20 20 20 | LDX #8. | 000012B0: 20 20 4C 44 59 20 23 30 0D 20 20 20 20 20 20 20 | LDY #0. | 000012C0: 20 20 4A 53 52 20 53 45 54 50 41 52 0D 20 20 20 | JSR SETPAR. | 000012D0: 20 20 20 20 20 20 4A 53 52 20 4F 50 45 4E 0D 20 | JSR OPEN. | 000012E0: 20 20 20 20 20 20 20 20 4C 44 58 20 23 31 0D 20 | LDX #1. | 000012F0: 20 20 20 20 20 20 20 20 4A 53 52 20 43 48 4B 49 | JSR CHKI| 00001300: 4E 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 |N.. LDY | 00001310: 23 30 0D 4C 4F 4F 50 31 20 20 20 20 4A 53 52 20 |#0.LOOP1 JSR | 00001320: 42 41 53 49 4E 0D 20 20 20 20 20 20 20 20 20 53 |BASIN. S| 00001330: 54 41 20 28 24 46 39 29 2C 59 0D 0D 20 20 20 20 |TA ($F9),Y.. | 00001340: 20 20 20 20 20 49 4E 43 20 24 46 39 0D 20 20 20 | INC $F9. | 00001350: 20 20 20 20 20 20 42 4E 45 20 4C 31 0D 20 20 20 | BNE L1. | 00001360: 20 20 20 20 20 20 49 4E 43 20 24 46 41 0D 0D 4C | INC $FA..L| 00001370: 31 20 20 20 20 20 20 20 4C 44 41 20 24 39 30 0D |1 LDA $90.| 00001380: 20 20 20 20 20 20 20 20 20 42 45 51 20 4C 4F 4F | BEQ LOO| 00001390: 50 31 0D 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |P1.. JSR| 000013A0: 20 43 4C 52 43 48 0D 20 20 20 20 20 20 20 20 20 | CLRCH. | 000013B0: 4C 44 41 20 23 31 0D 20 20 20 20 20 20 20 20 20 |LDA #1. | 000013C0: 4A 4D 50 20 43 4C 4F 53 45 0D 3B 2A 2A 2A 2A 2A |JMP CLOSE.;*****| 000013D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000013E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 57 46 49 4C 45 |**********.WFILE| 000013F0: 20 20 20 20 4C 44 41 20 23 3C 28 54 45 58 54 35 | LDA #<(TEXT5| 00001400: 29 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 |). LDY #| 00001410: 3E 28 54 45 58 54 35 29 0D 20 20 20 20 20 20 20 |>(TEXT5). | 00001420: 20 20 4A 53 52 20 53 54 52 4F 55 54 0D 0D 20 20 | JSR STROUT.. | 00001430: 20 20 20 20 20 20 20 4C 44 41 20 4D 45 4D 30 0D | LDA MEM0.| 00001440: 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 3C 28 | LDX #<(| 00001450: 4E 41 4D 45 29 0D 20 20 20 20 20 20 20 20 20 4C |NAME). L| 00001460: 44 59 20 23 3E 28 4E 41 4D 45 29 0D 20 20 20 20 |DY #>(NAME). | 00001470: 20 20 20 20 20 4A 53 52 20 53 45 54 4E 41 4D 0D | JSR SETNAM.| 00001480: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 31 0D | LDA #1.| 00001490: 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 38 0D | LDX #8.| 000014A0: 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 31 0D | LDY #1.| 000014B0: 20 20 20 20 20 20 20 20 20 4A 53 52 20 53 45 54 | JSR SET| 000014C0: 50 41 52 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |PAR. JSR| 000014D0: 20 4F 50 45 4E 0D 20 20 20 20 20 20 20 20 20 4C | OPEN. L| 000014E0: 44 58 20 23 31 0D 20 20 20 20 20 20 20 20 20 4A |DX #1. J| 000014F0: 53 52 20 43 4B 4F 55 54 0D 0D 20 20 20 20 20 20 |SR CKOUT.. | 00001500: 20 20 20 4C 44 59 20 23 30 0D 57 46 4C 4F 4F 50 | LDY #0.WFLOOP| 00001510: 31 20 20 4C 44 41 20 28 24 46 44 29 2C 59 0D 20 |1 LDA ($FD),Y. | 00001520: 20 20 20 20 20 20 20 20 4A 53 52 20 42 53 4F 55 | JSR BSOU| 00001530: 54 0D 0D 58 33 20 20 20 20 20 20 20 4A 53 52 20 |T..X3 JSR | 00001540: 49 4E 4B 45 59 0D 20 20 20 20 20 20 20 20 20 42 |INKEY. B| 00001550: 4E 45 20 58 33 0D 0D 20 20 20 20 20 20 20 20 20 |NE X3.. | 00001560: 49 4E 43 20 24 46 44 0D 20 20 20 20 20 20 20 20 |INC $FD. | 00001570: 20 42 4E 45 20 57 46 31 0D 20 20 20 20 20 20 20 | BNE WF1. | 00001580: 20 20 49 4E 43 20 24 46 45 0D 0D 57 46 31 20 20 | INC $FE..WF1 | 00001590: 20 20 20 20 4C 44 41 20 24 46 45 0D 20 20 20 20 | LDA $FE. | 000015A0: 20 20 20 20 20 43 4D 50 20 24 46 41 0D 20 20 20 | CMP $FA. | 000015B0: 20 20 20 20 20 20 42 4E 45 20 57 46 4C 4F 4F 50 | BNE WFLOOP| 000015C0: 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 |1. LDA $| 000015D0: 46 44 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 |FD. CMP | 000015E0: 24 46 39 0D 20 20 20 20 20 20 20 20 20 42 4E 45 |$F9. BNE| 000015F0: 20 57 46 4C 4F 4F 50 31 0D 0D 20 20 20 20 20 20 | WFLOOP1.. | 00001600: 20 20 20 4A 53 52 20 43 4C 52 43 48 0D 20 20 20 | JSR CLRCH. | 00001610: 20 20 20 20 20 20 4C 44 41 20 23 31 0D 20 20 20 | LDA #1. | 00001620: 20 20 20 20 20 20 4A 4D 50 20 43 4C 4F 53 45 0D | JMP CLOSE.| 00001630: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************| 00001640: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001650: 0D 57 44 55 4D 4D 59 20 20 20 4C 44 41 20 4D 45 |.WDUMMY LDA ME| 00001660: 4D 30 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 |M0. LDX | 00001670: 23 3C 28 4E 41 4D 45 29 0D 20 20 20 20 20 20 20 |#<(NAME). | 00001680: 20 20 4C 44 59 20 23 3E 28 4E 41 4D 45 29 0D 20 | LDY #>(NAME). | 00001690: 20 20 20 20 20 20 20 20 4A 53 52 20 53 45 54 4E | JSR SETN| 000016A0: 41 4D 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |AM. LDA | 000016B0: 23 31 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 |#1. LDX | 000016C0: 23 38 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 |#8. LDY | 000016D0: 23 31 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |#1. JSR | 000016E0: 53 45 54 50 41 52 0D 20 20 20 20 20 20 20 20 20 |SETPAR. | 000016F0: 4A 53 52 20 4F 50 45 4E 0D 20 20 20 20 20 20 20 |JSR OPEN. | 00001700: 20 20 4C 44 58 20 23 31 0D 20 20 20 20 20 20 20 | LDX #1. | 00001710: 20 20 4A 53 52 20 43 4B 4F 55 54 0D 20 20 20 20 | JSR CKOUT. | 00001720: 20 20 20 20 20 4A 53 52 20 42 53 4F 55 54 0D 20 | JSR BSOUT. | 00001730: 20 20 20 20 20 20 20 20 4A 53 52 20 43 4C 52 43 | JSR CLRC| 00001740: 48 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |H. LDA #| 00001750: 31 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 43 |1. JSR C| 00001760: 4C 4F 53 45 0D 0D 20 20 20 20 20 20 20 20 20 4A |LOSE.. J| 00001770: 53 52 20 4F 50 45 4E 43 4F 4D 0D 20 20 20 20 20 |SR OPENCOM. | 00001780: 20 20 20 20 4C 44 41 20 23 3C 28 4E 41 4D 45 2D | LDA #<(NAME-| 00001790: 32 29 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 |2). LDY | 000017A0: 23 3E 28 4E 41 4D 45 2D 32 29 0D 20 20 20 20 20 |#>(NAME-2). | 000017B0: 20 20 20 20 4A 53 52 20 53 54 52 49 45 43 0D 20 | JSR STRIEC. | 000017C0: 20 20 20 20 20 20 20 20 4C 44 41 20 23 31 0D 20 | LDA #1. | 000017D0: 20 20 20 20 20 20 20 20 4A 4D 50 20 43 4C 4F 53 | JMP CLOS| 000017E0: 45 0D 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |E.;*************| 000017F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001800: 2A 2A 0D 47 45 54 49 4E 20 20 20 20 4C 44 59 20 |**.GETIN LDY | 00001810: 23 30 0D 47 49 4C 4F 4F 50 31 20 20 4A 53 52 20 |#0.GILOOP1 JSR | 00001820: 42 41 53 49 4E 0D 20 20 20 20 20 20 20 20 20 43 |BASIN. C| 00001830: 4D 50 20 23 31 33 0D 20 20 20 20 20 20 20 20 20 |MP #13. | 00001840: 42 45 51 20 47 49 45 4E 44 0D 20 20 20 20 20 20 |BEQ GIEND. | 00001850: 20 20 20 53 54 41 20 4E 41 4D 45 2C 59 0D 20 20 | STA NAME,Y. | 00001860: 20 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 | INY. | 00001870: 20 20 20 20 43 50 59 20 23 31 36 0D 20 20 20 20 | CPY #16. | 00001880: 20 20 20 20 20 42 4E 45 20 47 49 4C 4F 4F 50 31 | BNE GILOOP1| 00001890: 0D 47 49 45 4E 44 20 20 20 20 53 54 59 20 4D 45 |.GIEND STY ME| 000018A0: 4D 30 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |M0. LDA | 000018B0: 23 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |#0. STA | 000018C0: 4E 41 4D 45 2C 59 0D 20 20 20 20 20 20 20 20 20 |NAME,Y. | 000018D0: 52 54 53 0D 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |RTS.;***********| 000018E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000018F0: 2A 2A 2A 2A 0D 53 54 52 4F 55 54 20 20 20 53 54 |****.STROUT ST| 00001900: 41 20 24 46 42 0D 20 20 20 20 20 20 20 20 20 53 |A $FB. S| 00001910: 54 59 20 24 46 43 0D 20 20 20 20 20 20 20 20 20 |TY $FC. | 00001920: 4C 44 59 20 23 30 0D 53 4F 4C 4F 4F 50 31 20 20 |LDY #0.SOLOOP1 | 00001930: 4C 44 41 20 28 24 46 42 29 2C 59 0D 20 20 20 20 |LDA ($FB),Y. | 00001940: 20 20 20 20 20 42 4E 45 20 53 4F 31 0D 20 20 20 | BNE SO1. | 00001950: 20 20 20 20 20 20 52 54 53 0D 0D 53 4F 31 20 20 | RTS..SO1 | 00001960: 20 20 20 20 4A 53 52 20 42 53 4F 55 54 0D 20 20 | JSR BSOUT. | 00001970: 20 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 | INY. | 00001980: 20 20 20 20 42 4E 45 20 53 4F 4C 4F 4F 50 31 0D | BNE SOLOOP1.| 00001990: 20 20 20 20 20 20 20 20 20 49 4E 43 20 24 46 43 | INC $FC| 000019A0: 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 53 4F |. JMP SO| 000019B0: 4C 4F 4F 50 31 0D 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |LOOP1.;*********| 000019C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000019D0: 2A 2A 2A 2A 2A 2A 0D 53 54 52 49 45 43 20 20 20 |******.STRIEC | 000019E0: 53 54 41 20 24 46 42 0D 20 20 20 20 20 20 20 20 |STA $FB. | 000019F0: 20 53 54 59 20 24 46 43 0D 0D 20 20 20 20 20 20 | STY $FC.. | 00001A00: 20 20 20 4C 44 41 20 23 38 0D 20 20 20 20 20 20 | LDA #8. | 00001A10: 20 20 20 4A 53 52 20 4C 49 53 54 45 4E 0D 20 20 | JSR LISTEN. | 00001A20: 20 20 20 20 20 20 20 4C 44 41 20 23 24 36 46 0D | LDA #$6F.| 00001A30: 20 20 20 20 20 20 20 20 20 4A 53 52 20 53 45 43 | JSR SEC| 00001A40: 4C 53 54 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 |LST.. LD| 00001A50: 59 20 23 30 0D 53 49 4C 4F 4F 50 31 20 20 4C 44 |Y #0.SILOOP1 LD| 00001A60: 41 20 28 24 46 42 29 2C 59 0D 20 20 20 20 20 20 |A ($FB),Y. | 00001A70: 20 20 20 42 4E 45 20 53 49 31 0D 20 20 20 20 20 | BNE SI1. | 00001A80: 20 20 20 20 4C 44 41 20 23 38 0D 20 20 20 20 20 | LDA #8. | 00001A90: 20 20 20 20 4A 4D 50 20 55 4E 4C 49 53 54 0D 0D | JMP UNLIST..| 00001AA0: 53 49 31 20 20 20 20 20 20 4A 53 52 20 49 45 43 |SI1 JSR IEC| 00001AB0: 4F 55 54 0D 20 20 20 20 20 20 20 20 20 49 4E 59 |OUT. INY| 00001AC0: 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 53 49 |. BNE SI| 00001AD0: 4C 4F 4F 50 31 0D 20 20 20 20 20 20 20 20 20 49 |LOOP1. I| 00001AE0: 4E 43 20 24 46 43 0D 20 20 20 20 20 20 20 20 20 |NC $FC. | 00001AF0: 4A 4D 50 20 53 49 4C 4F 4F 50 31 0D 3B 2A 2A 2A |JMP SILOOP1.;***| 00001B00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001B10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 4F 50 45 |************.OPE| 00001B20: 4E 43 4F 4D 20 20 4C 44 41 20 23 31 0D 20 20 20 |NCOM LDA #1. | 00001B30: 20 20 20 20 20 20 4C 44 58 20 23 3C 28 43 4F 4D | LDX #<(COM| 00001B40: 4E 41 4D 29 0D 20 20 20 20 20 20 20 20 20 4C 44 |NAM). LD| 00001B50: 59 20 23 3E 28 43 4F 4D 4E 41 4D 29 0D 20 20 20 |Y #>(COMNAM). | 00001B60: 20 20 20 20 20 20 4A 53 52 20 53 45 54 4E 41 4D | JSR SETNAM| 00001B70: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 31 |. LDA #1| 00001B80: 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 38 |. LDX #8| 00001B90: 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 24 |. LDY #$| 00001BA0: 36 46 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |6F. JSR | 00001BB0: 53 45 54 50 41 52 0D 20 20 20 20 20 20 20 20 20 |SETPAR. | 00001BC0: 4A 4D 50 20 4F 50 45 4E 0D 3B 2A 2A 2A 2A 2A 2A |JMP OPEN.;******| 00001BD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001BE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 4F 50 45 4E 49 4F |*********.OPENIO| 00001BF0: 20 20 20 4A 53 52 20 4F 50 45 4E 43 4F 4D 0D 20 | JSR OPENCOM. | 00001C00: 20 20 20 20 20 20 20 20 4C 44 41 20 23 31 0D 20 | LDA #1. | 00001C10: 20 20 20 20 20 20 20 20 4C 44 58 20 23 3C 28 42 | LDX #<(B| 00001C20: 55 46 4E 41 4D 29 0D 20 20 20 20 20 20 20 20 20 |UFNAM). | 00001C30: 4C 44 59 20 23 3E 28 42 55 46 4E 41 4D 29 0D 20 |LDY #>(BUFNAM). | 00001C40: 20 20 20 20 20 20 20 20 4A 53 52 20 53 45 54 4E | JSR SETN| 00001C50: 41 4D 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |AM. LDA | 00001C60: 23 32 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 |#2. LDX | 00001C70: 23 38 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 |#8. LDY | 00001C80: 23 24 36 32 0D 20 20 20 20 20 20 20 20 20 4A 53 |#$62. JS| 00001C90: 52 20 53 45 54 50 41 52 0D 20 20 20 20 20 20 20 |R SETPAR. | 00001CA0: 20 20 4A 4D 50 20 4F 50 45 4E 0D 3B 2A 2A 2A 2A | JMP OPEN.;****| 00001CB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001CC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 43 4C 4F 53 |***********.CLOS| 00001CD0: 45 49 4F 20 20 4C 44 41 20 23 32 0D 20 20 20 20 |EIO LDA #2. | 00001CE0: 20 20 20 20 20 4A 53 52 20 43 4C 4F 53 45 0D 20 | JSR CLOSE. | 00001CF0: 20 20 20 20 20 20 20 20 4C 44 41 20 23 31 0D 20 | LDA #1. | 00001D00: 20 20 20 20 20 20 20 20 4A 4D 50 20 43 4C 4F 53 | JMP CLOS| 00001D10: 45 0D 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |E.;*************| 00001D20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001D30: 2A 2A 0D 43 48 47 45 4E 54 20 20 20 4C 44 41 20 |**.CHGENT LDA | 00001D40: 23 3C 28 54 45 58 54 36 29 0D 20 20 20 20 20 20 |#<(TEXT6). | 00001D50: 20 20 20 4C 44 59 20 23 3E 28 54 45 58 54 36 29 | LDY #>(TEXT6)| 00001D60: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 53 54 |. JSR ST| 00001D70: 52 4F 55 54 0D 0D 20 20 20 20 20 20 20 20 20 4C |ROUT.. L| 00001D80: 44 41 20 23 31 0D 20 20 20 20 20 20 20 20 20 53 |DA #1. S| 00001D90: 54 41 20 4D 45 4D 31 0D 0D 43 45 4C 4F 4F 50 31 |TA MEM1..CELOOP1| 00001DA0: 20 20 4C 44 41 20 23 38 0D 20 20 20 20 20 20 20 | LDA #8. | 00001DB0: 20 20 4A 53 52 20 55 4E 54 41 4C 4B 0D 20 20 20 | JSR UNTALK. | 00001DC0: 20 20 20 20 20 20 4C 44 59 20 4D 45 4D 31 0D 20 | LDY MEM1. | 00001DD0: 20 20 20 20 20 20 20 20 4C 44 41 20 42 4C 4B 54 | LDA BLKT| 00001DE0: 41 42 2C 59 0D 20 20 20 20 20 20 20 20 20 53 54 |AB,Y. ST| 00001DF0: 41 20 4D 45 4D 33 0D 20 20 20 20 20 20 20 20 20 |A MEM3. | 00001E00: 4C 44 58 20 23 3C 28 43 4F 4D 31 29 0D 20 20 20 |LDX #<(COM1). | 00001E10: 20 20 20 20 20 20 4C 44 59 20 23 3E 28 43 4F 4D | LDY #>(COM| 00001E20: 31 29 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |1). JSR | 00001E30: 53 45 4E 44 43 4F 4D 0D 20 20 20 20 20 20 20 20 |SENDCOM. | 00001E40: 20 49 4E 43 20 4D 45 4D 31 0D 20 20 20 20 20 20 | INC MEM1. | 00001E50: 20 20 20 4C 44 41 20 23 30 0D 20 20 20 20 20 20 | LDA #0. | 00001E60: 20 20 20 53 54 41 20 4D 45 4D 32 0D 0D 43 45 4C | STA MEM2..CEL| 00001E70: 4F 4F 50 32 20 20 4C 44 59 20 4D 45 4D 32 0D 20 |OOP2 LDY MEM2. | 00001E80: 20 20 20 20 20 20 20 20 43 50 59 20 23 38 0D 20 | CPY #8. | 00001E90: 20 20 20 20 20 20 20 20 42 45 51 20 43 45 4C 4F | BEQ CELO| 00001EA0: 4F 50 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |OP1. LDA| 00001EB0: 20 45 4E 54 54 41 42 2C 59 0D 20 20 20 20 20 20 | ENTTAB,Y. | 00001EC0: 20 20 20 53 54 41 20 4D 45 4D 34 0D 20 20 20 20 | STA MEM4. | 00001ED0: 20 20 20 20 20 4C 44 58 20 23 3C 28 43 4F 4D 32 | LDX #<(COM2| 00001EE0: 29 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 |). LDY #| 00001EF0: 3E 28 43 4F 4D 32 29 0D 20 20 20 20 20 20 20 20 |>(COM2). | 00001F00: 20 4A 53 52 20 53 45 4E 44 43 4F 4D 0D 20 20 20 | JSR SENDCOM. | 00001F10: 20 20 20 20 20 20 49 4E 43 20 4D 45 4D 32 0D 0D | INC MEM2..| 00001F20: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 38 0D | LDA #8.| 00001F30: 20 20 20 20 20 20 20 20 20 4A 53 52 20 54 41 4C | JSR TAL| 00001F40: 4B 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |K. LDA #| 00001F50: 24 36 32 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |$62. JSR| 00001F60: 20 53 45 43 54 4C 4B 0D 0D 20 20 20 20 20 20 20 | SECTLK.. | 00001F70: 20 20 4A 53 52 20 49 45 43 49 4E 0D 20 20 20 20 | JSR IECIN. | 00001F80: 20 20 20 20 20 43 4D 50 20 23 24 38 32 0D 20 20 | CMP #$82. | 00001F90: 20 20 20 20 20 20 20 42 4E 45 20 43 45 4C 4F 4F | BNE CELOO| 00001FA0: 50 32 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |P2. JSR | 00001FB0: 49 45 43 49 4E 0D 20 20 20 20 20 20 20 20 20 53 |IECIN. S| 00001FC0: 54 41 20 46 54 52 41 43 4B 0D 20 20 20 20 20 20 |TA FTRACK. | 00001FD0: 20 20 20 4A 53 52 20 49 45 43 49 4E 0D 20 20 20 | JSR IECIN. | 00001FE0: 20 20 20 20 20 20 53 54 41 20 46 53 45 43 54 4F | STA FSECTO| 00001FF0: 52 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 |R.. LDY | 00002000: 23 24 46 46 0D 43 45 4C 4F 4F 50 33 20 20 49 4E |#$FF.CELOOP3 IN| 00002010: 59 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 49 |Y. JSR I| 00002020: 45 43 49 4E 0D 20 20 20 20 20 20 20 20 20 43 4D |ECIN. CM| 00002030: 50 20 4E 41 4D 45 2C 59 0D 20 20 20 20 20 20 20 |P NAME,Y. | 00002040: 20 20 42 45 51 20 43 45 4C 4F 4F 50 33 0D 0D 20 | BEQ CELOOP3.. | 00002050: 20 20 20 20 20 20 20 20 43 50 59 20 23 31 36 0D | CPY #16.| 00002060: 20 20 20 20 20 20 20 20 20 42 45 51 20 43 45 31 | BEQ CE1| 00002070: 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 31 |. CMP #1| 00002080: 36 30 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 |60. BNE | 00002090: 43 45 4C 4F 4F 50 32 0D 20 20 20 20 20 20 20 20 |CELOOP2. | 000020A0: 20 4C 44 41 20 4E 41 4D 45 2C 59 0D 20 20 20 20 | LDA NAME,Y. | 000020B0: 20 20 20 20 20 42 4E 45 20 43 45 4C 4F 4F 50 32 | BNE CELOOP2| 000020C0: 0D 0D 43 45 31 20 20 20 20 20 20 4C 44 41 20 23 |..CE1 LDA #| 000020D0: 38 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 55 |8. JSR U| 000020E0: 4E 54 41 4C 4B 0D 0D 20 20 20 20 20 20 20 20 20 |NTALK.. | 000020F0: 4C 44 41 20 4D 45 4D 34 0D 20 20 20 20 20 20 20 |LDA MEM4. | 00002100: 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 20 41 | CLC. A| 00002110: 44 43 20 23 31 0D 20 20 20 20 20 20 20 20 20 4C |DC #1. L| 00002120: 44 58 20 23 3C 28 43 4F 4D 32 29 0D 20 20 20 20 |DX #<(COM2). | 00002130: 20 20 20 20 20 4C 44 59 20 23 3E 28 43 4F 4D 32 | LDY #>(COM2| 00002140: 29 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 53 |). JSR S| 00002150: 45 4E 44 43 4F 4D 0D 0D 20 20 20 20 20 20 20 20 |ENDCOM.. | 00002160: 20 4C 44 41 20 23 38 0D 20 20 20 20 20 20 20 20 | LDA #8. | 00002170: 20 4A 53 52 20 4C 49 53 54 45 4E 0D 20 20 20 20 | JSR LISTEN. | 00002180: 20 20 20 20 20 4C 44 41 20 23 24 36 32 0D 20 20 | LDA #$62. | 00002190: 20 20 20 20 20 20 20 4A 53 52 20 53 45 43 4C 53 | JSR SECLS| 000021A0: 54 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |T.. LDA | 000021B0: 23 31 38 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |#18. JSR| 000021C0: 20 49 45 43 4F 55 54 0D 20 20 20 20 20 20 20 20 | IECOUT. | 000021D0: 20 4C 44 41 20 44 49 52 53 54 52 54 0D 20 20 20 | LDA DIRSTRT. | 000021E0: 20 20 20 20 20 20 4A 53 52 20 49 45 43 4F 55 54 | JSR IECOUT| 000021F0: 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |.. LDA #| 00002200: 38 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 55 |8. JSR U| 00002210: 4E 4C 49 53 54 0D 0D 20 20 20 20 20 20 20 20 20 |NLIST.. | 00002220: 4C 44 41 20 4D 45 4D 33 0D 20 20 20 20 20 20 20 |LDA MEM3. | 00002230: 20 20 4C 44 58 20 23 3C 28 43 4F 4D 33 29 0D 20 | LDX #<(COM3). | 00002240: 20 20 20 20 20 20 20 20 4C 44 59 20 23 3E 28 43 | LDY #>(C| 00002250: 4F 4D 33 29 0D 20 20 20 20 20 20 20 20 20 4A 4D |OM3). JM| 00002260: 50 20 53 45 4E 44 43 4F 4D 0D 3B 2A 2A 2A 2A 2A |P SENDCOM.;*****| 00002270: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002280: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 57 42 4C 4F 43 |**********.WBLOC| 00002290: 4B 53 20 20 4C 44 41 20 23 3C 28 54 45 58 54 37 |KS LDA #<(TEXT7| 000022A0: 29 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 |). LDY #| 000022B0: 3E 28 54 45 58 54 37 29 0D 20 20 20 20 20 20 20 |>(TEXT7). | 000022C0: 20 20 4A 53 52 20 53 54 52 4F 55 54 0D 0D 20 20 | JSR STROUT.. | 000022D0: 20 20 20 20 20 20 20 4C 44 58 20 23 3C 28 46 49 | LDX #<(FI| 000022E0: 4C 45 4D 45 4D 29 0D 20 20 20 20 20 20 20 20 20 |LEMEM). | 000022F0: 4C 44 59 20 23 3E 28 46 49 4C 45 4D 45 4D 29 0D |LDY #>(FILEMEM).| 00002300: 20 20 20 20 20 20 20 20 20 53 54 58 20 24 46 44 | STX $FD| 00002310: 0D 20 20 20 20 20 20 20 20 20 53 54 59 20 24 46 |. STY $F| 00002320: 45 0D 0D 57 42 4C 4F 4F 50 31 20 20 4C 44 41 20 |E..WBLOOP1 LDA | 00002330: 23 3C 28 43 4F 4D 34 29 0D 20 20 20 20 20 20 20 |#<(COM4). | 00002340: 20 20 4C 44 59 20 23 3E 28 43 4F 4D 34 29 0D 20 | LDY #>(COM4). | 00002350: 20 20 20 20 20 20 20 20 4A 53 52 20 53 54 52 49 | JSR STRI| 00002360: 45 43 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |EC.. LDA| 00002370: 20 23 38 0D 20 20 20 20 20 20 20 20 20 4A 53 52 | #8. JSR| 00002380: 20 4C 49 53 54 45 4E 0D 20 20 20 20 20 20 20 20 | LISTEN. | 00002390: 20 4C 44 41 20 23 24 36 32 0D 20 20 20 20 20 20 | LDA #$62. | 000023A0: 20 20 20 4A 53 52 20 53 45 43 4C 53 54 0D 0D 20 | JSR SECLST.. | 000023B0: 20 20 20 20 20 20 20 20 4C 44 59 20 44 53 49 4E | LDY DSIN| 000023C0: 44 45 58 0D 57 42 34 20 20 20 20 20 20 49 4E 59 |DEX.WB4 INY| 000023D0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 42 4C |. LDA BL| 000023E0: 4B 54 41 42 2C 59 0D 20 20 20 20 20 20 20 20 20 |KTAB,Y. | 000023F0: 42 50 4C 20 57 42 31 0D 20 20 20 20 20 20 20 20 |BPL WB1. | 00002400: 20 4C 44 41 20 46 54 52 41 43 4B 0D 20 20 20 20 | LDA FTRACK. | 00002410: 20 20 20 20 20 4A 53 52 20 49 45 43 4F 55 54 0D | JSR IECOUT.| 00002420: 20 20 20 20 20 20 20 20 20 4C 44 41 20 46 53 45 | LDA FSE| 00002430: 43 54 4F 52 0D 20 20 20 20 20 20 20 20 20 4A 53 |CTOR. JS| 00002440: 52 20 49 45 43 4F 55 54 0D 20 20 20 20 20 20 20 |R IECOUT. | 00002450: 20 20 4A 4D 50 20 57 42 32 0D 0D 57 42 31 20 20 | JMP WB2..WB1 | 00002460: 20 20 20 20 50 48 41 0D 20 20 20 20 20 20 20 20 | PHA. | 00002470: 20 4C 44 41 20 23 31 38 0D 20 20 20 20 20 20 20 | LDA #18. | 00002480: 20 20 4A 53 52 20 49 45 43 4F 55 54 0D 20 20 20 | JSR IECOUT. | 00002490: 20 20 20 20 20 20 50 4C 41 0D 20 20 20 20 20 20 | PLA. | 000024A0: 20 20 20 4A 53 52 20 49 45 43 4F 55 54 0D 0D 57 | JSR IECOUT..W| 000024B0: 42 32 20 20 20 20 20 20 4C 44 59 20 23 30 0D 57 |B2 LDY #0.W| 000024C0: 42 4C 4F 4F 50 32 20 20 4C 44 41 20 28 24 46 44 |BLOOP2 LDA ($FD| 000024D0: 29 2C 59 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |),Y. JSR| 000024E0: 20 49 45 43 4F 55 54 0D 20 20 20 20 20 20 20 20 | IECOUT. | 000024F0: 20 49 4E 59 0D 20 20 20 20 20 20 20 20 20 43 50 | INY. CP| 00002500: 59 20 23 24 46 45 0D 20 20 20 20 20 20 20 20 20 |Y #$FE. | 00002510: 42 4E 45 20 57 42 4C 4F 4F 50 32 0D 0D 20 20 20 |BNE WBLOOP2.. | 00002520: 20 20 20 20 20 20 4C 44 41 20 23 38 0D 20 20 20 | LDA #8. | 00002530: 20 20 20 20 20 20 4A 53 52 20 55 4E 4C 49 53 54 | JSR UNLIST| 00002540: 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 |.. LDA $| 00002550: 46 44 0D 20 20 20 20 20 20 20 20 20 43 4C 43 0D |FD. CLC.| 00002560: 20 20 20 20 20 20 20 20 20 41 44 43 20 23 24 46 | ADC #$F| 00002570: 45 0D 20 20 20 20 20 20 20 20 20 42 43 43 20 57 |E. BCC W| 00002580: 42 33 0D 20 20 20 20 20 20 20 20 20 49 4E 43 20 |B3. INC | 00002590: 24 46 45 0D 57 42 33 20 20 20 20 20 20 53 54 41 |$FE.WB3 STA| 000025A0: 20 24 46 44 0D 0D 20 20 20 20 20 20 20 20 20 4C | $FD.. L| 000025B0: 44 59 20 44 53 49 4E 44 45 58 0D 20 20 20 20 20 |DY DSINDEX. | 000025C0: 20 20 20 20 4C 44 41 20 42 4C 4B 54 41 42 2C 59 | LDA BLKTAB,Y| 000025D0: 0D 20 20 20 20 20 20 20 20 20 50 48 41 0D 20 20 |. PHA. | 000025E0: 20 20 20 20 20 20 20 4C 44 58 20 23 3C 28 43 4F | LDX #<(CO| 000025F0: 4D 33 29 0D 20 20 20 20 20 20 20 20 20 4C 44 59 |M3). LDY| 00002600: 20 23 3E 28 43 4F 4D 33 29 0D 20 20 20 20 20 20 | #>(COM3). | 00002610: 20 20 20 4A 53 52 20 53 45 4E 44 43 4F 4D 0D 20 | JSR SENDCOM. | 00002620: 20 20 20 20 20 20 20 20 50 4C 41 0D 20 20 20 20 | PLA. | 00002630: 20 20 20 20 20 4C 44 58 20 23 3C 28 43 4F 4D 38 | LDX #<(COM8| 00002640: 29 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 |). LDY #| 00002650: 3E 28 43 4F 4D 38 29 0D 20 20 20 20 20 20 20 20 |>(COM8). | 00002660: 20 4A 53 52 20 53 45 4E 44 43 4F 4D 0D 20 20 20 | JSR SENDCOM. | 00002670: 20 20 20 20 20 20 49 4E 43 20 44 53 49 4E 44 45 | INC DSINDE| 00002680: 58 0D 20 20 20 20 20 20 20 20 20 44 45 43 20 44 |X. DEC D| 00002690: 49 52 46 52 45 45 0D 20 20 20 20 20 20 20 20 20 |IRFREE. | 000026A0: 42 4E 45 20 57 42 4C 4F 4F 50 31 0D 20 20 20 20 |BNE WBLOOP1. | 000026B0: 20 20 20 20 20 52 54 53 0D 3B 2A 2A 2A 2A 2A 2A | RTS.;******| 000026C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000026D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 53 45 4E 44 43 4F |*********.SENDCO| 000026E0: 4D 20 20 50 48 41 0D 20 20 20 20 20 20 20 20 20 |M PHA. | 000026F0: 53 54 58 20 53 43 4C 4F 4F 50 31 2B 31 0D 20 20 |STX SCLOOP1+1. | 00002700: 20 20 20 20 20 20 20 53 54 59 20 53 43 4C 4F 4F | STY SCLOO| 00002710: 50 31 2B 32 0D 0D 20 20 20 20 20 20 20 20 20 4C |P1+2.. L| 00002720: 44 59 20 23 30 0D 53 43 4C 4F 4F 50 31 20 20 4C |DY #0.SCLOOP1 L| 00002730: 44 41 20 24 43 30 30 30 2C 59 0D 20 20 20 20 20 |DA $C000,Y. | 00002740: 20 20 20 20 42 45 51 20 53 43 31 0D 20 20 20 20 | BEQ SC1. | 00002750: 20 20 20 20 20 53 54 41 20 43 4F 4D 42 55 46 46 | STA COMBUFF| 00002760: 2C 59 0D 20 20 20 20 20 20 20 20 20 49 4E 59 0D |,Y. INY.| 00002770: 20 20 20 20 20 20 20 20 20 4A 4D 50 20 53 43 4C | JMP SCL| 00002780: 4F 4F 50 31 0D 0D 53 43 31 20 20 20 20 20 20 53 |OOP1..SC1 S| 00002790: 54 59 20 4D 45 4D 30 0D 20 20 20 20 20 20 20 20 |TY MEM0. | 000027A0: 20 50 4C 41 0D 20 20 20 20 20 20 20 20 20 4A 53 | PLA. JS| 000027B0: 52 20 49 32 41 0D 20 20 20 20 20 20 20 20 20 4C |R I2A. L| 000027C0: 44 59 20 4D 45 4D 30 0D 0D 20 20 20 20 20 20 20 |DY MEM0.. | 000027D0: 20 20 4C 44 58 20 23 30 0D 53 43 4C 4F 4F 50 32 | LDX #0.SCLOOP2| 000027E0: 20 20 4C 44 41 20 4E 55 4D 42 55 46 46 2C 58 0D | LDA NUMBUFF,X.| 000027F0: 20 20 20 20 20 20 20 20 20 42 45 51 20 53 43 32 | BEQ SC2| 00002800: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 43 4F |. STA CO| 00002810: 4D 42 55 46 46 2C 59 0D 20 20 20 20 20 20 20 20 |MBUFF,Y. | 00002820: 20 49 4E 58 0D 20 20 20 20 20 20 20 20 20 49 4E | INX. IN| 00002830: 59 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 53 |Y. JMP S| 00002840: 43 4C 4F 4F 50 32 0D 0D 53 43 32 20 20 20 20 20 |CLOOP2..SC2 | 00002850: 20 4C 44 41 20 23 31 33 0D 20 20 20 20 20 20 20 | LDA #13. | 00002860: 20 20 53 54 41 20 43 4F 4D 42 55 46 46 2C 59 0D | STA COMBUFF,Y.| 00002870: 20 20 20 20 20 20 20 20 20 49 4E 59 0D 20 20 20 | INY. | 00002880: 20 20 20 20 20 20 4C 44 41 20 23 30 0D 20 20 20 | LDA #0. | 00002890: 20 20 20 20 20 20 53 54 41 20 43 4F 4D 42 55 46 | STA COMBUF| 000028A0: 46 2C 59 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 |F,Y.. LD| 000028B0: 41 20 23 3C 28 43 4F 4D 42 55 46 46 29 0D 20 20 |A #<(COMBUFF). | 000028C0: 20 20 20 20 20 20 20 4C 44 59 20 23 3E 28 43 4F | LDY #>(CO| 000028D0: 4D 42 55 46 46 29 0D 20 20 20 20 20 20 20 20 20 |MBUFF). | 000028E0: 4A 4D 50 20 53 54 52 49 45 43 0D 3B 2A 2A 2A 2A |JMP STRIEC.;****| 000028F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002900: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 43 4F 4D 31 |***********.COM1| 00002910: 20 20 20 20 20 2E 54 45 58 54 20 22 55 31 20 32 | .TEXT "U1 2| 00002920: 20 30 20 31 38 22 0D 20 20 20 20 20 20 20 20 20 | 0 18". | 00002930: 2E 42 59 54 45 20 30 0D 43 4F 4D 32 20 20 20 20 |.BYTE 0.COM2 | 00002940: 20 2E 54 45 58 54 20 22 42 2D 50 20 32 22 0D 20 | .TEXT "B-P 2". | 00002950: 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 30 0D | .BYTE 0.| 00002960: 43 4F 4D 33 20 20 20 20 20 2E 54 45 58 54 20 22 |COM3 .TEXT "| 00002970: 55 32 20 32 20 30 20 31 38 22 0D 20 20 20 20 20 |U2 2 0 18". | 00002980: 20 20 20 20 2E 42 59 54 45 20 30 0D 43 4F 4D 34 | .BYTE 0.COM4| 00002990: 20 20 20 20 20 2E 54 45 58 54 20 22 42 2D 50 20 | .TEXT "B-P | 000029A0: 32 20 30 22 0D 20 20 20 20 20 20 20 20 20 2E 42 |2 0". .B| 000029B0: 59 54 45 20 31 33 2C 30 0D 43 4F 4D 35 20 20 20 |YTE 13,0.COM5 | 000029C0: 20 20 2E 54 45 58 54 20 22 4D 2D 52 22 0D 20 20 | .TEXT "M-R". | 000029D0: 20 20 20 20 20 20 20 2E 42 59 54 45 20 32 35 30 | .BYTE 250| 000029E0: 2C 32 2C 33 2C 31 33 2C 30 0D 43 4F 4D 36 20 20 |,2,3,13,0.COM6 | 000029F0: 20 20 20 2E 54 45 58 54 20 22 55 31 20 32 20 30 | .TEXT "U1 2 0| 00002A00: 20 31 38 20 30 22 0D 20 20 20 20 20 20 20 20 20 | 18 0". | 00002A10: 2E 42 59 54 45 20 31 33 2C 30 0D 43 4F 4D 37 20 |.BYTE 13,0.COM7 | 00002A20: 20 20 20 20 2E 54 45 58 54 20 22 42 2D 50 20 32 | .TEXT "B-P 2| 00002A30: 20 37 32 22 0D 20 20 20 20 20 20 20 20 20 2E 42 | 72". .B| 00002A40: 59 54 45 20 31 33 2C 30 0D 43 4F 4D 38 20 20 20 |YTE 13,0.COM8 | 00002A50: 20 20 2E 54 45 58 54 20 22 42 2D 41 20 30 20 31 | .TEXT "B-A 0 1| 00002A60: 38 22 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 |8". .BYT| 00002A70: 45 20 31 33 2C 30 0D 0D 43 4F 4D 4E 41 4D 20 20 |E 13,0..COMNAM | 00002A80: 20 2E 54 45 58 54 20 22 49 22 0D 42 55 46 4E 41 | .TEXT "I".BUFNA| 00002A90: 4D 20 20 20 2E 54 45 58 54 20 22 23 22 0D 3B 2A |M .TEXT "#".;*| 00002AA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002AB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 42 |**************.B| 00002AC0: 4C 4B 54 41 42 20 20 20 2E 42 59 54 45 20 30 2C |LKTAB .BYTE 0,| 00002AD0: 31 2C 34 2C 37 2C 31 30 2C 31 33 2C 31 36 0D 20 |1,4,7,10,13,16. | 00002AE0: 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 32 2C | .BYTE 2,| 00002AF0: 35 2C 38 2C 31 31 2C 31 34 2C 31 37 0D 20 20 20 |5,8,11,14,17. | 00002B00: 20 20 20 20 20 20 2E 42 59 54 45 20 33 2C 36 2C | .BYTE 3,6,| 00002B10: 39 2C 31 32 2C 31 35 2C 31 38 2C 24 46 46 0D 0D |9,12,15,18,$FF..| 00002B20: 45 4E 54 54 41 42 20 20 20 2E 42 59 54 45 20 32 |ENTTAB .BYTE 2| 00002B30: 2C 33 34 2C 36 36 2C 39 38 2C 31 33 30 2C 31 36 |,34,66,98,130,16| 00002B40: 32 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 |2. .BYTE| 00002B50: 20 31 39 34 2C 32 32 36 2C 30 0D 0D 20 20 20 20 | 194,226,0.. | 00002B60: 20 20 20 20 20 2E 54 45 58 54 20 22 53 3A 22 0D | .TEXT "S:".| 00002B70: 4E 41 4D 45 20 20 20 20 20 2E 42 59 54 45 20 30 |NAME .BYTE 0| 00002B80: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 0D 20 |,0,0,0,0,0,0,0. | 00002B90: 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 30 2C | .BYTE 0,| 00002BA0: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 0D |0,0,0,0,0,0,0,0.| 00002BB0: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************| 00002BC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002BD0: 0D 54 45 58 54 31 20 20 20 20 2E 54 45 58 54 20 |.TEXT1 .TEXT | 00002BE0: 22 93 0E 08 12 9B 22 0D 20 20 20 20 20 20 20 20 |".....". | 00002BF0: 20 2E 54 45 58 54 20 22 20 20 20 20 20 20 20 20 | .TEXT " | 00002C00: 20 20 20 20 20 D5 53 45 C4 49 52 20 D6 31 22 0D | .SE.IR .1".| 00002C10: 20 20 20 20 20 20 20 20 20 2E 54 45 58 54 20 22 | .TEXT "| 00002C20: 2E 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.0 | 00002C30: 20 20 22 0D 20 20 20 20 20 20 20 20 20 2E 54 45 | ". .TE| 00002C40: 58 54 20 22 20 20 20 57 52 49 54 54 45 4E 20 41 |XT " WRITTEN A| 00002C50: 4E 4E 4F 20 31 39 39 32 20 42 22 0D 20 20 20 20 |NNO 1992 B". | 00002C60: 20 20 20 20 20 2E 54 45 58 54 20 22 59 20 D5 4C | .TEXT "Y .L| 00002C70: 49 20 C2 41 53 54 45 52 53 20 20 20 20 20 22 0D |I .ASTERS ".| 00002C80: 20 20 20 20 20 20 20 20 20 2E 54 45 58 54 20 22 | .TEXT "| 00002C90: 28 D0 52 4F 47 52 41 4D 4D 42 45 49 53 50 49 45 |(.ROGRAMMBEISPIE| 00002CA0: 4C 20 5A 55 4D 20 22 0D 20 20 20 20 20 20 20 20 |L ZUM ". | 00002CB0: 20 2E 54 45 58 54 20 22 C6 4C 4F 50 50 59 2D CB | .TEXT ".LOPPY-.| 00002CC0: 55 52 53 20 D4 45 49 4C 38 29 22 0D 20 20 20 20 |URS .EIL8)". | 00002CD0: 20 20 20 20 20 2E 42 59 54 45 20 31 33 0D 20 20 | .BYTE 13. | 00002CE0: 20 20 20 20 20 20 20 2E 54 45 58 54 20 22 C4 49 | .TEXT ".I| 00002CF0: 45 53 45 53 20 D0 52 4F 47 52 41 4D 4D 20 53 50 |ESES .ROGRAMM SP| 00002D00: 45 49 43 48 22 0D 20 20 20 20 20 20 20 20 20 2E |EICH". .| 00002D10: 54 45 58 54 20 22 45 52 54 20 45 49 4E 20 C6 49 |TEXT "ERT EIN .I| 00002D20: 4C 45 20 41 55 46 22 0D 20 20 20 20 20 20 20 20 |LE AUF". | 00002D30: 20 2E 42 59 54 45 20 31 33 0D 20 20 20 20 20 20 | .BYTE 13. | 00002D40: 20 20 20 2E 54 45 58 54 20 22 C4 49 53 4B 45 54 | .TEXT ".ISKET| 00002D50: 54 45 2C 20 4A 45 44 4F 43 48 20 55 4E 54 45 52 |TE, JEDOCH UNTER| 00002D60: 22 0D 20 20 20 20 20 20 20 20 20 2E 54 45 58 54 |". .TEXT| 00002D70: 20 22 20 CD 49 54 42 45 4E 55 54 5A 55 4E 47 20 | " .ITBENUTZUNG | 00002D80: 44 45 52 22 0D 20 20 20 20 20 20 20 20 20 2E 42 |DER". .B| 00002D90: 59 54 45 20 31 33 0D 20 20 20 20 20 20 20 20 20 |YTE 13. | 00002DA0: 2E 54 45 58 54 20 22 53 4F 4E 53 54 20 55 4E 5A |.TEXT "SONST UNZ| 00002DB0: 55 47 41 45 4E 47 4C 49 43 48 45 4E 20 22 0D 20 |UGAENGLICHEN ". | 00002DC0: 20 20 20 20 20 20 20 20 2E 54 45 58 54 20 22 C4 | .TEXT ".| 00002DD0: 49 52 45 43 54 4F 52 59 42 4C 4F 43 4B 53 21 22 |IRECTORYBLOCKS!"| 00002DE0: 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 |. .BYTE | 00002DF0: 31 33 2C 31 33 0D 20 20 20 20 20 20 20 20 20 2E |13,13. .| 00002E00: 54 45 58 54 20 22 C6 49 4C 45 4E 41 4D 45 3A 20 |TEXT ".ILENAME: | 00002E10: 99 22 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 |.". .BYT| 00002E20: 45 20 30 0D 0D 54 45 58 54 32 20 20 20 20 2E 42 |E 0..TEXT2 .B| 00002E30: 59 54 45 20 31 33 2C 31 33 0D 20 20 20 20 20 20 |YTE 13,13. | 00002E40: 20 20 20 2E 54 45 58 54 20 22 9E 12 C2 49 54 54 | .TEXT "...ITT| 00002E50: 45 20 DA 49 45 4C 44 49 53 4B 45 54 54 45 20 45 |E .IELDISKETTE E| 00002E60: 22 0D 20 20 20 20 20 20 20 20 20 2E 54 45 58 54 |". .TEXT| 00002E70: 20 22 49 4E 4C 45 47 45 4E 21 22 0D 20 20 20 20 | "INLEGEN!". | 00002E80: 20 20 20 20 20 2E 42 59 54 45 20 31 33 2C 31 33 | .BYTE 13,13| 00002E90: 2C 30 0D 54 45 58 54 33 20 20 20 20 2E 54 45 58 |,0.TEXT3 .TEX| 00002EA0: 54 20 22 9B D5 4E 54 45 52 53 55 43 48 45 20 DA |T "..NTERSUCHE .| 00002EB0: 49 45 4C 44 49 53 4B 45 54 54 22 0D 20 20 20 20 |IELDISKETT". | 00002EC0: 20 20 20 20 20 2E 54 45 58 54 20 22 45 2E 2E 2E | .TEXT "E...| 00002ED0: 22 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 |". .BYTE| 00002EE0: 20 31 33 2C 31 33 2C 30 0D 0D 54 45 58 54 34 20 | 13,13,0..TEXT4 | 00002EF0: 20 20 20 2E 54 45 58 54 20 22 99 C6 49 4C 45 20 | .TEXT "..ILE | 00002F00: 49 4E 53 54 41 4C 4C 49 45 52 54 21 21 22 0D 20 |INSTALLIERT!!". | 00002F10: 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 30 0D | .BYTE 0.| 00002F20: 0D 54 45 58 54 35 20 20 20 20 2E 42 59 54 45 20 |.TEXT5 .BYTE | 00002F30: 31 33 2C 31 33 0D 20 20 20 20 20 20 20 20 20 2E |13,13. .| 00002F40: 54 45 58 54 20 22 9B C6 49 4C 45 20 57 49 52 44 |TEXT "..ILE WIRD| 00002F50: 20 41 4E 47 45 4C 45 47 54 2E 2E 2E 22 0D 20 20 | ANGELEGT...". | 00002F60: 20 20 20 20 20 20 20 2E 42 59 54 45 20 31 33 2C | .BYTE 13,| 00002F70: 30 0D 54 45 58 54 36 20 20 20 20 2E 54 45 58 54 |0.TEXT6 .TEXT| 00002F80: 20 22 D3 55 43 48 45 20 55 4E 44 20 41 45 4E 44 | ".UCHE UND AEND| 00002F90: 45 52 45 20 C5 49 4E 54 22 0D 20 20 20 20 20 20 |ERE .INT". | 00002FA0: 20 20 20 2E 54 45 58 54 20 22 52 41 47 2E 2E 2E | .TEXT "RAG...| 00002FB0: 22 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 |". .BYTE| 00002FC0: 20 31 33 2C 30 0D 54 45 58 54 37 20 20 20 20 2E | 13,0.TEXT7 .| 00002FD0: 54 45 58 54 20 22 D3 43 48 52 45 49 42 45 20 55 |TEXT ".CHREIBE U| 00002FE0: 4E 44 20 42 45 4C 45 47 45 20 C4 49 22 0D 20 20 |ND BELEGE .I". | 00002FF0: 20 20 20 20 20 20 20 2E 54 45 58 54 20 22 52 42 | .TEXT "RB| 00003000: 4C 4F 43 4B 53 2E 2E 2E 22 0D 20 20 20 20 20 20 |LOCKS...". | 00003010: 20 20 20 2E 42 59 54 45 20 31 33 2C 31 33 2C 30 | .BYTE 13,13,0| 00003020: 0D 0D 53 54 45 58 54 31 20 20 20 2E 54 45 58 54 |..STEXT1 .TEXT| 00003030: 20 22 99 C2 45 4E 4F 45 54 49 47 54 45 20 C2 4C | "..ENOETIGTE .L| 00003040: 4F 43 4B 53 3A 20 22 0D 20 20 20 20 20 20 20 20 |OCKS: ". | 00003050: 20 2E 42 59 54 45 20 30 0D 53 54 45 58 54 32 20 | .BYTE 0.STEXT2 | 00003060: 20 20 2E 42 59 54 45 20 31 33 0D 20 20 20 20 20 | .BYTE 13. | 00003070: 20 20 20 20 2E 54 45 58 54 20 22 20 C6 52 45 49 | .TEXT " .REI| 00003080: 45 20 C4 49 52 2D C2 4C 4F 43 4B 53 3A 20 22 0D |E .IR-.LOCKS: ".| 00003090: 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 30 | .BYTE 0| 000030A0: 0D 53 54 45 58 54 33 20 20 20 2E 42 59 54 45 20 |.STEXT3 .BYTE | 000030B0: 31 33 0D 20 20 20 20 20 20 20 20 20 2E 54 45 58 |13. .TEX| 000030C0: 54 20 22 C6 52 45 49 45 20 C4 49 53 4B 2D C2 4C |T ".REIE .ISK-.L| 000030D0: 4F 43 4B 53 3A 20 22 0D 20 20 20 20 20 20 20 20 |OCKS: ". | 000030E0: 20 2E 42 59 54 45 20 30 0D 0D 45 52 52 54 58 54 | .BYTE 0..ERRTXT| 000030F0: 31 20 20 2E 42 59 54 45 20 31 33 2C 31 33 0D 20 |1 .BYTE 13,13. | 00003100: 20 20 20 20 20 20 20 20 2E 54 45 58 54 20 22 96 | .TEXT ".| 00003110: CB 45 49 4E 20 C4 49 52 2D C2 4C 4F 43 4B 20 4D |.EIN .IR-.LOCK M| 00003120: 45 48 52 20 46 52 22 0D 20 20 20 20 20 20 20 20 |EHR FR". | 00003130: 20 2E 54 45 58 54 20 22 45 49 21 22 0D 20 20 20 | .TEXT "EI!". | 00003140: 20 20 20 20 20 20 2E 42 59 54 45 20 30 0D 45 52 | .BYTE 0.ER| 00003150: 52 54 58 54 32 20 20 2E 42 59 54 45 20 31 33 2C |RTXT2 .BYTE 13,| 00003160: 31 33 0D 20 20 20 20 20 20 20 20 20 2E 54 45 58 |13. .TEX| 00003170: 54 20 22 96 C6 49 4C 45 20 49 53 54 20 5A 55 20 |T "..ILE IST ZU | 00003180: 4B 55 52 5A 21 22 0D 20 20 20 20 20 20 20 20 20 |KURZ!". | 00003190: 2E 42 59 54 45 20 30 0D 45 52 52 54 58 54 33 20 |.BYTE 0.ERRTXT3 | 000031A0: 20 2E 42 59 54 45 20 31 33 2C 31 33 0D 20 20 20 | .BYTE 13,13. | 000031B0: 20 20 20 20 20 20 2E 54 45 58 54 20 22 96 C6 49 | .TEXT "..I| 000031C0: 4C 45 20 49 53 54 20 5A 55 20 4C 41 4E 47 21 22 |LE IST ZU LANG!"| 000031D0: 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 |. .BYTE | 000031E0: 30 0D 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |0.;*************| 000031F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00003200: 2A 2A 0D 0D |**.. |
;*****************************.
*= $0801.STATUS = $90.SETPAR = $FFBA
.SETNAM = $FFBD.OPEN = $FFC0.CLOSE
= $FFC3.CHKIN = $FFC6.CLRCH =
$FFCC.BASIN = $FFCF.BSOUT = $FFD2.
LOAD = $FFD5.SAVE = $FFD8.CKOUT
= $FFC9.INTOUT = $BDCD.INKEY = $
FFE4.LISTEN = $FFB1.UNLIST = $FFAE.T
ALK = $FFB4.UNTALK = $FFAB.IECIN
= $FFA5.IECOUT = $FFA8.SECTLK = $F
F96.SECLST = $FF93..FILEMEM = $0F00.N
UMBUFF = $0332.NEED = $0337.DSKFREE
= $0338.ALLFREE = $033A.DIRFREE = $0
33C.DIRSTRT = $033D.FTRACK = $033E.FS
ECTOR = $033F.DSINDEX = $0340.COMBUFF
= $0341..MEM0 = $02.MEM1 = $03.
MEM2 = $04.MEM3 = $05.MEM4 =
$06.;*******************************.;
JMP MAIN.;**********************
*********. .BYTE $0B,$08,$0A,$00
,$9E. .TEXT "2061". .BYT
E 0,0,0.;*******************************
.MAIN LDA #11. STA 53280.
STA 53281.. LDA #<(TEXT1).
LDY #>(TEXT1). JSR STRO
UT. JSR GETIN. CPY #1.
BNE M3. LDA #"X".
CMP NAME. BNE M3. JMP 6
4738..M3 JSR RFILE. JSR GE
TNEED.. LDA #<(TEXT2). L
DY #>(TEXT2). JSR STROUT.MLOOP1
JSR INKEY. BEQ MLOOP1..
LDA #<(TEXT3). LDY #>(TEXT3).
JSR STROUT.. JSR WDUMMY.
JSR OPENIO. JSR GETDSKF
. JSR GETDIRF. JSR CLOSE
IO. JSR STATOUT.. LDA DI
RFREE. BNE M1. LDA #<(ER
RTXT1). LDY #>(ERRTXT1).
JMP ERROUT..M1 CMP NEED.
BCC M2. LDA #<(ERRTXT2).
LDY #>(ERRTXT2). JMP ERROUT..M2
LDY ALLFREE+1. BNE OK.
LDA ALLFREE+0. CMP NEED.
BCS OK. LDA #<(ERRTXT3).
LDY #>(ERRTXT3). JMP ERR
OUT..OK LDA #19. SEC.
SBC DIRFREE. TAY. LD
A BLKTAB,Y. STA DIRSTRT.
STY DSINDEX.. LDX DIRFREE.
TXA. DEX. ASL A.
EOR #$FF. CLC. ADC
#1. ADC #<(FILEMEM). BCC
M5. INX.M5 STA $FD.
TXA. CLC. ADC #>(FILE
MEM). STA $FE. JSR WFILE
.. JSR OPENIO. JSR CHGEN
T. JSR WBLOCKS. JSR CLOS
EIO.. LDA #<(TEXT4). LDY
#>(TEXT4)..ERROUT JSR STROUT.EO1
JSR INKEY. BEQ EO1. JMP
MAIN.;*******************************.S
TATOUT LDA #<(STEXT1). LDY #>(S
TEXT1). JSR STROUT. LDA
#0. LDX NEED. JSR INTOUT
.. LDA #<(STEXT2). LDY #
>(STEXT2). JSR STROUT. L
DA #0. LDX DIRFREE. JSR
INTOUT.. LDA #<(STEXT3).
LDY #>(STEXT3). JSR STROUT.
LDA DSKFREE+1. LDX DSKFREE+
0. JMP INTOUT.;*****************
**************.GETNEED LDX #0.
STX NEED.. LDA $F9. LDX
$FA. SEC. SBC #<(FILEMEM
). BCS RF1. DEX.RF1
STA MEM1. TXA. SEC.
SBC #>(FILEMEM). STA MEM2..
ROL A. BCC CN1.
INC NEED.CN1 CLC. ADC MEM1
. BEQ CN2. BCC CN2.
INC NEED.CN2 INC NEED..
LDA MEM2. CLC. ADC NEED
.CN3 STA NEED. RTS.;*******
************************.GETDSKF LDA #<
(COM5). LDY #>(COM5). JS
R STRIEC.. LDA #8. JSR T
ALK. LDA #$6F. JSR SECTL
K.. JSR IECIN. STA DSKFR
EE+0. JSR IECIN. JSR IEC
IN. STA DSKFREE+1.. LDA
#8. JMP UNTALK.;****************
***************.GETDIRF LDA #<(COM6).
LDY #>(COM6). JSR STRIEC.
. LDA #<(COM7). LDY #>(C
OM7). JSR STRIEC.. LDA #
8. JSR TALK. LDA #$62.
JSR SECTLK.. JSR IECIN.
STA DIRFREE.. LDX DSKFREE
+1. CLC. ADC DSKFREE+0.
BCC GF1. INX.GF1 ST
A ALLFREE+0. STX ALLFREE+1..
LDA #8. JMP UNTALK.;*******
************************.I2A LDY #(
48-1).IALOOP1 INY. SEC.
SBC #100. BCS IALOOP1.
ADC #100. STY NUMBUFF+1..
LDY #(48-1).IALOOP2 INY. SEC.
SBC #10. BCS IALOOP2.
ADC #10. STY NUMBUFF+2..
CLC. ADC #48. ST
A NUMBUFF+3.. LDA #32. S
TA NUMBUFF+0. LDA #0. ST
A NUMBUFF+4. RTS.;**************
*****************.RFILE LDX #<(FILEME
M). LDY #>(FILEMEM). STX
$F9. STY $FA.. LDA MEM0
. LDX #<(NAME). LDY #>(N
AME). JSR SETNAM. LDA #1
. LDX #8. LDY #0.
JSR SETPAR. JSR OPEN.
LDX #1. JSR CHKIN.. LDY
#0.LOOP1 JSR BASIN. STA ($F9)
,Y.. INC $F9. BNE L1.
INC $FA..L1 LDA $90.
BEQ LOOP1.. JSR CLRCH.
LDA #1. JMP CLOSE.;*************
******************.WFILE LDA #<(TEXT5
). LDY #>(TEXT5). JSR ST
ROUT.. LDA MEM0. LDX #<(
NAME). LDY #>(NAME). JSR
SETNAM. LDA #1. LDX #8.
LDY #1. JSR SETPAR.
JSR OPEN. LDX #1. J
SR CKOUT.. LDY #0.WFLOOP1 LDA (
$FD),Y. JSR BSOUT..X3 JSR
INKEY. BNE X3.. INC $FD.
BNE WF1. INC $FE..WF1
LDA $FE. CMP $FA. BN
E WFLOOP1. LDA $FD. CMP
$F9. BNE WFLOOP1.. JSR C
LRCH. LDA #1. JMP CLOSE.
;*******************************.WDUMMY
LDA MEM0. LDX #<(NAME).
LDY #>(NAME). JSR SETNAM.
LDA #1. LDX #8. LDY
#1. JSR SETPAR. JSR OPEN
. LDX #1. JSR CKOUT.
JSR BSOUT. JSR CLRCH.
LDA #1. JSR CLOSE.. J
SR OPENCOM. LDA #<(NAME-2).
LDY #>(NAME-2). JSR STRIEC.
LDA #1. JMP CLOSE.;*****
**************************.GETIN LDY
#0.GILOOP1 JSR BASIN. CMP #13.
BEQ GIEND. STA NAME,Y.
INY. CPY #16. BNE
GILOOP1.GIEND STY MEM0. LDA
#0. STA NAME,Y. RTS.;***
****************************.STROUT ST
A $FB. STY $FC. LDY #0.S
OLOOP1 LDA ($FB),Y. BNE SO1.
RTS..SO1 JSR BSOUT. I
NY. BNE SOLOOP1. INC $FC
. JMP SOLOOP1.;*****************
**************.STRIEC STA $FB.
STY $FC.. LDA #8. JSR L
ISTEN. LDA #$6F. JSR SEC
LST.. LDY #0.SILOOP1 LDA ($FB),
Y. BNE SI1. LDA #8.
JMP UNLIST..SI1 JSR IECOUT.
INY. BNE SILOOP1. I
NC $FC. JMP SILOOP1.;***********
********************.OPENCOM LDA #1.
LDX #<(COMNAM). LDY #>(COM
NAM). JSR SETNAM. LDA #1
. LDX #8. LDY #$6F.
JSR SETPAR. JMP OPEN.;******
*************************.OPENIO JSR O
PENCOM. LDA #1. LDX #<(B
UFNAM). LDY #>(BUFNAM).
JSR SETNAM. LDA #2. LDX
#8. LDY #$62. JSR SETPAR
. JMP OPEN.;********************
***********.CLOSEIO LDA #2. JSR
CLOSE. LDA #1. JMP CLOS
E.;*******************************.CHGEN
T LDA #<(TEXT6). LDY #>(TEXT6)
. JSR STROUT.. LDA #1.
STA MEM1..CELOOP1 LDA #8.
JSR UNTALK. LDY MEM1.
LDA BLKTAB,Y. STA MEM3.
LDX #<(COM1). LDY #>(COM1).
JSR SENDCOM. INC MEM1.
LDA #0. STA MEM2..CELOOP2 LD
Y MEM2. CPY #8. BEQ CELO
OP1. LDA ENTTAB,Y. STA M
EM4. LDX #<(COM2). LDY #
>(COM2). JSR SENDCOM. IN
C MEM2.. LDA #8. JSR TAL
K. LDA #$62. JSR SECTLK.
. JSR IECIN. CMP #$82.
BNE CELOOP2. JSR IECIN.
STA FTRACK. JSR IECIN.
STA FSECTOR.. LDY #$FF.CEL
OOP3 INY. JSR IECIN. CM
P NAME,Y. BEQ CELOOP3..
CPY #16. BEQ CE1. CMP #1
60. BNE CELOOP2. LDA NAM
E,Y. BNE CELOOP2..CE1 LDA #
8. JSR UNTALK.. LDA MEM4
. CLC. ADC #1. L
DX #<(COM2). LDY #>(COM2).
JSR SENDCOM.. LDA #8.
JSR LISTEN. LDA #$62. J
SR SECLST.. LDA #18. JSR
IECOUT. LDA DIRSTRT. JS
R IECOUT.. LDA #8. JSR U
NLIST.. LDA MEM3. LDX #<
(COM3). LDY #>(COM3). JM
P SENDCOM.;*****************************
**.WBLOCKS LDA #<(TEXT7). LDY #
>(TEXT7). JSR STROUT.. L
DX #<(FILEMEM). LDY #>(FILEMEM).
STX $FD. STY $FE..WBLOO
P1 LDA #<(COM4). LDY #>(COM4).
JSR STRIEC.. LDA #8.
JSR LISTEN. LDA #$62.
JSR SECLST.. LDY DSINDEX.WB4
INY. LDA BLKTAB,Y.
BPL WB1. LDA FTRACK. JSR
IECOUT. LDA FSECTOR. JS
R IECOUT. JMP WB2..WB1 PHA.
LDA #18. JSR IECOUT.
PLA. JSR IECOUT..WB2
LDY #0.WBLOOP2 LDA ($FD),Y. JSR
IECOUT. INY. CPY #$FE.
BNE WBLOOP2.. LDA #8.
JSR UNLIST.. LDA $FD.
CLC. ADC #$FE. BCC W
B3. INC $FE.WB3 STA $FD..
LDY DSINDEX. LDA BLKTAB,Y
. PHA. LDX #<(COM3).
LDY #>(COM3). JSR SENDCOM.
PLA. LDX #<(COM8).
LDY #>(COM8). JSR SENDCOM.
INC DSINDEX. DEC DIRFREE.
BNE WBLOOP1. RTS.;******
*************************.SENDCOM PHA.
STX SCLOOP1+1. STY SCLOO
P1+2.. LDY #0.SCLOOP1 LDA $C000
,Y. BEQ SC1. STA COMBUFF
,Y. INY. JMP SCLOOP1..SC
1 STY MEM0. PLA. JS
R I2A. LDY MEM0.. LDX #0
.SCLOOP2 LDA NUMBUFF,X. BEQ SC2
. STA COMBUFF,Y. INX.
INY. JMP SCLOOP2..SC2
LDA #13. STA COMBUFF,Y.
INY. LDA #0. STA COMBUF
F,Y.. LDA #<(COMBUFF). L
DY #>(COMBUFF). JMP STRIEC.;****
***************************.COM1 .TE
XT "U1 2 0 18". .BYTE 0.COM2
.TEXT "B-P 2". .BYTE 0.COM3
.TEXT "U2 2 0 18". .BYTE 0.COM4
.TEXT "B-P 2 0". .BYTE 13,0
.COM5 .TEXT "M-R". .BYTE 250
,2,3,13,0.COM6 .TEXT "U1 2 0 18 0".
.BYTE 13,0.COM7 .TEXT "B-P 2
72". .BYTE 13,0.COM8 .TEXT
"B-A 0 18". .BYTE 13,0..COMNAM
.TEXT "I".BUFNAM .TEXT "#".;*********
**********************.BLKTAB .BYTE 0,
1,4,7,10,13,16. .BYTE 2,5,8,11,1
4,17. .BYTE 3,6,9,12,15,18,$FF..
ENTTAB .BYTE 2,34,66,98,130,162.
.BYTE 194,226,0.. .TEXT "S:".
NAME .BYTE 0,0,0,0,0,0,0,0.
.BYTE 0,0,0,0,0,0,0,0,0.;***************
****************.TEXT1 .TEXT ".....".
.TEXT " USEDIR V1".
.TEXT ".0 ".
.TEXT " WRITTEN ANNO 1992 B".
.TEXT "Y ULI BASTERS ".
.TEXT "(PROGRAMMBEISPIEL ZUM ".
.TEXT "FLOPPY-KURS TEIL8)". .BY
TE 13. .TEXT "DIESES PROGRAMM SP
EICH". .TEXT "ERT EIN FILE AUF".
.BYTE 13. .TEXT "DISKET
TE, JEDOCH UNTER". .TEXT " MITBE
NUTZUNG DER". .BYTE 13.
.TEXT "SONST UNZUGAENGLICHEN ".
.TEXT "DIRECTORYBLOCKS!". .BYTE
13,13. .TEXT "FILENAME: .".
.BYTE 0..TEXT2 .BYTE 13,13.
.TEXT "..BITTE ZIELDISKETTE E".
.TEXT "INLEGEN!". .BYTE 13,13
,0.TEXT3 .TEXT ".UNTERSUCHE ZIELDISKE
TT". .TEXT "E...". .BYTE
13,13,0..TEXT4 .TEXT ".FILE INSTALLI
ERT!!". .BYTE 0..TEXT5 .BYTE
13,13. .TEXT ".FILE WIRD ANGELEG
T...". .BYTE 13,0.TEXT6 .TEXT
"SUCHE UND AENDERE EINT". .TEXT
"RAG...". .BYTE 13,0.TEXT7 .
TEXT "SCHREIBE UND BELEGE DI". .
TEXT "RBLOCKS...". .BYTE 13,13,0
..STEXT1 .TEXT ".BENOETIGTE BLOCKS: ".
.BYTE 0.STEXT2 .BYTE 13.
.TEXT " FREIE DIR-BLOCKS: ".
.BYTE 0.STEXT3 .BYTE 13. .TEX
T "FREIE DISK-BLOCKS: ". .BYTE 0
..ERRTXT1 .BYTE 13,13. .TEXT ".
KEIN DIR-BLOCK MEHR FR". .TEXT "
EI!". .BYTE 0.ERRTXT2 .BYTE 13,
13. .TEXT ".FILE IST ZU KURZ!".
.BYTE 0.ERRTXT3 .BYTE 13,13.
.TEXT ".FILE IST ZU LANG!".
.BYTE 0.;*****************************
**..
> CLICK IMAGE PREVIEW FOR FULL MODAL