DOSCMD.HY

FILE INFORMATION

FILENAME(S): DOSCMD.HY

FILE TYPE(S): PRG

FILE SIZE: 2.6K

FIRST SEEN: 2025-11-30 01:13:14

APPEARS ON: 1 disk(s)

FILE HASH

6a2631daf2bec55c47f632f2adf69f2f6d81c92cf5eb303fd65677f771f3ebbc

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
15721 SEITE A	DOSCMD.HY	PRG	C64er	29	9	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 04 16 04 10 27 44 4F  53 43 4D 44 20 4A 53 52  |.....'DOSCMD JSR|
00000010: 57 52 49 54 45 53 00 29  04 15 27 2E 54 58 20 22  |WRITES.)..'.TX "|
00000020: 47 45 52 41 45 54 3A 38  22 00 44 04 1A 27 2E 42  |GERAET:8".D..'.B|
00000030: 59 20 31 35 37 2C 30 3B  20 43 55 52 53 4F 52 20  |Y 157,0; CURSOR |
00000040: 4C 45 46 54 00 55 04 1F  27 20 4A 53 52 49 4E 50  |LEFT.U..' JSRINP|
00000050: 55 54 44 45 5A 00 63 04  24 27 20 42 43 43 4E 55  |UTDEZ.c.$' BCCNU|
00000060: 4D 4F 4B 00 72 04 29 27  44 45 56 42 41 44 20 52  |MOK.r.)'DEVBAD R|
00000070: 54 53 00 82 04 2E 27 4E  55 4D 4F 4B 20 43 50 59  |TS....'NUMOK CPY|
00000080: 23 31 00 91 04 33 27 20  42 43 53 44 45 56 42 41  |#1...3' BCSDEVBA|
00000090: 44 00 9D 04 38 27 20 43  4D 50 23 33 32 00 AC 04  |D...8' CMP#32...|
000000A0: 3D 27 20 42 43 53 44 45  56 42 41 44 00 BB 04 42  |=' BCSDEVBAD...B|
000000B0: 27 20 53 54 41 44 45 56  49 43 45 00 C8 04 47 27  |' STADEVICE...G'|
000000C0: 20 4A 53 52 43 52 4C 46  00 D7 04 4C 27 20 4A 53  | JSRCRLF...L' JS|
000000D0: 52 57 52 49 54 45 53 00  F7 04 51 27 2E 54 58 20  |RWRITES...Q'.TX |
000000E0: 22 3C 52 45 54 55 52 4E  3E 20 3D 20 53 54 41 54  |"<RETURN> = STAT|
000000F0: 55 53 20 4D 53 47 22 00  02 05 56 27 2E 42 59 20  |US MSG"...V'.BY |
00000100: 43 52 00 1F 05 5B 27 2E  54 58 20 22 24 20 20 20  |CR...['.TX "$   |
00000110: 20 20 20 20 20 3D 20 43  41 54 41 4C 4F 47 22 00  |     = CATALOG".|
00000120: 2A 05 60 27 2E 42 59 20  43 52 00 49 05 65 27 2E  |*.`'.BY CR.I.e'.|
00000130: 54 58 20 22 21 20 20 20  20 20 20 20 20 3D 20 4C  |TX "!        = L|
00000140: 49 53 54 20 46 49 4C 45  22 00 54 05 6A 27 2E 42  |IST FILE".T.j'.B|
00000150: 59 20 43 52 00 6E 05 6F  27 2E 54 58 20 22 51 20  |Y CR.n.o'.TX "Q |
00000160: 20 20 20 20 20 20 20 3D  20 51 55 49 54 22 00 7B  |       = QUIT".{|
00000170: 05 74 27 2E 42 59 20 43  52 2C 30 00 8C 05 79 27  |.t'.BY CR,0...y'|
00000180: 4C 4F 4F 50 20 4C 44 41  23 22 3E 22 00 9B 05 7E  |LOOP LDA#">"...~|
00000190: 27 20 4A 53 52 42 41 53  4F 55 54 00 BF 05 83 27  |' JSRBASOUT....'|
000001A0: 57 41 49 54 4B 45 59 20  4A 53 52 42 41 53 49 4E  |WAITKEY JSRBASIN|
000001B0: 3B 20 50 52 4F 4D 50 54  5A 45 49 43 48 45 4E 00  |; PROMPTZEICHEN.|
000001C0: D8 05 88 27 20 43 4D 50  23 22 3E 22 3B 20 49 47  |...' CMP#">"; IG|
000001D0: 4E 4F 52 49 45 52 45 4E  00 E8 05 8D 27 20 42 45  |NORIEREN....' BE|
000001E0: 51 57 41 49 54 4B 45 59  00 F5 05 92 27 20 53 54  |QWAITKEY....' ST|
000001F0: 41 4C 49 4E 45 00 01 06  97 27 20 43 4D 50 23 43  |ALINE....' CMP#C|
00000200: 52 00 12 06 9C 27 20 42  4E 45 4E 4F 54 45 4D 50  |R....' BNENOTEMP|
00000210: 54 59 00 2E 06 A1 27 20  2E 2E 2E 4D 44 53 54 41  |TY....' ...MDSTA|
00000220: 54 28 44 45 56 49 43 45  2C 4C 49 4E 45 29 00 44  |T(DEVICE,LINE).D|
00000230: 06 A6 27 20 2E 2E 2E 4D  50 52 49 4E 54 53 28 4C  |..' ...MPRINTS(L|
00000240: 49 4E 45 29 00 51 06 AB  27 20 4A 53 52 43 52 4C  |INE).Q..' JSRCRL|
00000250: 46 00 5E 06 B0 27 20 4A  4D 50 4C 4F 4F 50 00 83  |F.^..' JMPLOOP..|
00000260: 06 B5 27 4E 4F 54 45 4D  50 54 59 20 2E 2E 2E 4D  |..'NOTEMPTY ...M|
00000270: 49 4E 50 55 54 53 28 28  4C 49 4E 45 2B 31 29 2C  |INPUTS((LINE+1),|
00000280: 33 31 29 00 8C 06 BA 27  20 49 4E 59 00 9B 06 BF  |31)....' INY....|
00000290: 27 20 53 54 59 43 4D 44  4C 45 4E 00 B0 06 C4 27  |' STYCMDLEN....'|
000002A0: 46 4F 55 4E 44 43 4D 44  20 4A 53 52 43 52 4C 46  |FOUNDCMD JSRCRLF|
000002B0: 00 BD 06 C9 27 20 4C 44  41 4C 49 4E 45 00 CA 06  |....' LDALINE...|
000002C0: CE 27 20 43 4D 50 23 22  51 22 00 DA 06 D3 27 20  |.' CMP#"Q"....' |
000002D0: 42 4E 45 4E 4F 54 51 55  49 54 00 E3 06 D8 27 20  |BNENOTQUIT....' |
000002E0: 52 54 53 00 F7 06 DD 27  4E 4F 54 51 55 49 54 20  |RTS....'NOTQUIT |
000002F0: 43 4D 50 23 22 21 22 00  06 07 E2 27 20 42 45 51  |CMP#"!"....' BEQ|
00000300: 44 4F 4C 49 53 54 00 16  07 E7 27 20 4A 4D 50 4E  |DOLIST....' JMPN|
00000310: 4F 54 4C 49 53 54 00 2B  07 EC 27 44 4F 4C 49 53  |OTLIST.+..'DOLIS|
00000320: 54 20 44 45 43 43 4D 44  4C 45 4E 00 55 07 F1 27  |T DECCMDLEN.U..'|
00000330: 20 2E 2E 2E 4D 4F 50 45  4E 28 31 2C 44 45 56 49  | ...MOPEN(1,DEVI|
00000340: 43 45 2C 32 2C 28 4C 49  4E 45 2B 31 29 2C 43 4D  |CE,2,(LINE+1),CM|
00000350: 44 4C 45 4E 29 00 71 07  F6 27 20 2E 2E 2E 4D 44  |DLEN).q..' ...MD|
00000360: 53 54 41 54 28 44 45 56  49 43 45 2C 4C 49 4E 45  |STAT(DEVICE,LINE|
00000370: 29 00 80 07 FB 27 20 42  45 51 46 49 4C 45 4F 4B  |)....' BEQFILEOK|
00000380: 00 96 07 00 28 20 2E 2E  2E 4D 50 52 49 4E 54 53  |....( ...MPRINTS|
00000390: 28 4C 49 4E 45 29 00 A3  07 05 28 20 4A 53 52 43  |(LINE)....( JSRC|
000003A0: 52 4C 46 00 B4 07 0A 28  20 4A 4D 50 45 58 49 54  |RLF....( JMPEXIT|
000003B0: 4C 49 53 54 00 D2 07 0F  28 46 49 4C 45 4F 4B 20  |LIST....(FILEOK |
000003C0: 2E 2E 2E 4D 4F 56 45 57  49 28 30 2C 4C 49 4E 55  |...MOVEWI(0,LINU|
000003D0: 4D 29 00 E4 07 14 28 4E  45 58 54 4C 49 4E 20 4C  |M)....(NEXTLIN L|
000003E0: 44 58 23 31 00 F2 07 19  28 20 4A 53 52 43 48 4B  |DX#1....( JSRCHK|
000003F0: 49 4E 00 0B 08 1E 28 20  2E 2E 2E 4D 49 4E 50 55  |IN....( ...MINPU|
00000400: 54 53 28 4C 49 4E 45 2C  38 30 29 00 1A 08 23 28  |TS(LINE,80)...#(|
00000410: 20 4A 53 52 52 45 41 44  53 54 00 23 08 28 28 20  | JSRREADST.#.(( |
00000420: 50 48 50 00 32 08 2D 28  20 4A 53 52 43 4C 52 43  |PHP.2.-( JSRCLRC|
00000430: 48 4E 00 46 08 32 28 20  2E 2E 2E 49 4E 43 57 28  |HN.F.2( ...INCW(|
00000440: 4C 49 4E 55 4D 29 00 5F  08 37 28 20 2E 2E 2E 4D  |LINUM)._.7( ...M|
00000450: 50 52 49 4E 54 44 45 5A  28 4C 49 4E 55 4D 29 00  |PRINTDEZ(LINUM).|
00000460: 6C 08 3C 28 20 4C 44 41  23 22 3A 22 00 7B 08 41  |l.<( LDA#":".{.A|
00000470: 28 20 4A 53 52 42 41 53  4F 55 54 00 91 08 46 28  |( JSRBASOUT...F(|
00000480: 20 2E 2E 2E 4D 50 52 49  4E 54 53 28 4C 49 4E 45  | ...MPRINTS(LINE|
00000490: 29 00 9E 08 4B 28 20 4A  53 52 43 52 4C 46 00 A7  |)...K( JSRCRLF..|
000004A0: 08 50 28 20 50 4C 50 00  B8 08 55 28 20 42 4E 45  |.P( PLP...U( BNE|
000004B0: 45 58 49 54 4C 49 53 54  00 C8 08 5A 28 20 4A 53  |EXITLIST...Z( JS|
000004C0: 52 54 45 53 54 4B 45 59  00 D8 08 5F 28 20 42 4E  |RTESTKEY..._( BN|
000004D0: 45 4E 45 58 54 4C 49 4E  00 F2 08 64 28 45 58 49  |ENEXTLIN...d(EXI|
000004E0: 54 4C 49 53 54 20 2E 2E  2E 4D 43 4C 4F 53 45 28  |TLIST ...MCLOSE(|
000004F0: 31 29 00 FF 08 69 28 20  4A 4D 50 4C 4F 4F 50 00  |1)...i( JMPLOOP.|
00000500: 13 09 6E 28 4E 4F 54 4C  49 53 54 20 43 4D 50 23  |..n(NOTLIST CMP#|
00000510: 22 24 22 00 22 09 73 28  20 42 4E 45 4E 4F 54 43  |"$".".s( BNENOTC|
00000520: 41 54 00 48 09 78 28 20  2E 2E 2E 4D 4F 50 45 4E  |AT.H.x( ...MOPEN|
00000530: 28 31 2C 44 45 56 49 43  45 2C 30 2C 4C 49 4E 45  |(1,DEVICE,0,LINE|
00000540: 2C 43 4D 44 4C 45 4E 29  00 53 09 7D 28 20 4C 44  |,CMDLEN).S.}( LD|
00000550: 58 23 31 00 61 09 82 28  20 4A 53 52 43 48 4B 49  |X#1.a..( JSRCHKI|
00000560: 4E 00 87 09 87 28 20 4A  53 52 42 41 53 49 4E 3B  |N....( JSRBASIN;|
00000570: 20 4C 41 44 45 41 44 52  45 53 53 45 20 55 45 42  | LADEADRESSE UEB|
00000580: 45 52 4C 45 53 45 4E 00  95 09 8C 28 20 4A 53 52  |ERLESEN....( JSR|
00000590: 42 41 53 49 4E 00 A4 09  91 28 20 4A 53 52 43 4C  |BASIN....( JSRCL|
000005A0: 52 43 48 4E 00 B6 09 96  28 43 41 54 4C 49 4E 45  |RCHN....(CATLINE|
000005B0: 20 4C 44 58 23 31 00 C4  09 9B 28 20 4A 53 52 43  | LDX#1....( JSRC|
000005C0: 48 4B 49 4E 00 D2 09 A0  28 20 4A 53 52 42 41 53  |HKIN....( JSRBAS|
000005D0: 49 4E 00 ED 09 A5 28 20  4A 53 52 42 41 53 49 4E  |IN....( JSRBASIN|
000005E0: 3B 20 4C 49 4E 4B 41 44  52 45 53 53 45 00 FC 09  |; LINKADRESSE...|
000005F0: AA 28 20 4A 53 52 52 45  41 44 53 54 00 0C 0A AF  |.( JSRREADST....|
00000600: 28 20 42 4E 45 43 41 54  45 58 49 54 00 1A 0A B4  |( BNECATEXIT....|
00000610: 28 20 4A 53 52 42 41 53  49 4E 00 23 0A B9 28 20  |( JSRBASIN.#..( |
00000620: 50 48 41 00 31 0A BE 28  20 4A 53 52 42 41 53 49  |PHA.1..( JSRBASI|
00000630: 4E 00 3A 0A C3 28 20 54  41 59 00 43 0A C8 28 20  |N.:..( TAY.C..( |
00000640: 50 4C 41 00 54 0A CD 28  20 4A 53 52 50 52 49 4E  |PLA.T..( JSRPRIN|
00000650: 54 44 45 5A 00 61 0A D2  28 20 4C 44 41 23 22 20  |TDEZ.a..( LDA#" |
00000660: 22 00 70 0A D7 28 20 4A  53 52 42 41 53 4F 55 54  |".p..( JSRBASOUT|
00000670: 00 84 0A DC 28 50 52 4E  41 4D 45 20 4A 53 52 42  |....(PRNAME JSRB|
00000680: 41 53 49 4E 00 8F 0A E1  28 20 43 4D 50 23 30 00  |ASIN....( CMP#0.|
00000690: A0 0A E6 28 20 42 45 51  45 58 49 54 4C 49 4E 45  |...( BEQEXITLINE|
000006A0: 00 AF 0A EB 28 20 4A 53  52 42 41 53 4F 55 54 00  |....( JSRBASOUT.|
000006B0: BE 0A F0 28 20 4A 4D 50  50 52 4E 41 4D 45 00 D3  |...( JMPPRNAME..|
000006C0: 0A F5 28 45 58 49 54 4C  49 4E 45 20 4A 53 52 43  |..(EXITLINE JSRC|
000006D0: 52 4C 46 00 E2 0A FA 28  20 4A 53 52 43 4C 52 43  |RLF....( JSRCLRC|
000006E0: 48 4E 00 F2 0A FF 28 20  4A 53 52 54 45 53 54 4B  |HN....( JSRTESTK|
000006F0: 45 59 00 02 0B 04 29 20  42 4E 45 43 41 54 4C 49  |EY....) BNECATLI|
00000700: 4E 45 00 18 0B 09 29 43  41 54 45 58 49 54 20 4A  |NE....)CATEXIT J|
00000710: 53 52 43 4C 52 43 48 4E  00 2A 0B 0E 29 20 2E 2E  |SRCLRCHN.*..) ..|
00000720: 2E 4D 43 4C 4F 53 45 28  31 29 00 37 0B 13 29 20  |.MCLOSE(1).7..) |
00000730: 4A 4D 50 4C 4F 4F 50 00  4C 0B 18 29 4E 4F 54 43  |JMPLOOP.L..)NOTC|
00000740: 41 54 20 4C 44 41 44 45  56 49 43 45 00 5B 0B 1D  |AT LDADEVICE.[..|
00000750: 29 20 4A 53 52 4C 49 53  54 45 4E 00 6D 0B 22 29  |) JSRLISTEN.m.")|
00000760: 20 4C 44 41 23 31 35 21  4F 21 24 36 30 00 7E 0B  | LDA#15!O!$60.~.|
00000770: 27 29 20 4A 53 52 4C 49  53 54 45 4E 53 41 00 89  |') JSRLISTENSA..|
00000780: 0B 2C 29 20 4C 44 59 23  30 00 9F 0B 31 29 53 45  |.,) LDY#0...1)SE|
00000790: 4E 44 43 4D 44 20 4C 44  41 4C 49 4E 45 2C 59 00  |NDCMD LDALINE,Y.|
000007A0: B0 0B 36 29 20 42 45 51  43 4D 44 52 45 41 44 59  |..6) BEQCMDREADY|
000007B0: 00 BF 0B 3B 29 20 4A 53  52 49 45 43 4F 55 54 00  |...;) JSRIECOUT.|
000007C0: C8 0B 40 29 20 49 4E 59  00 D8 0B 45 29 20 42 4E  |..@) INY...E) BN|
000007D0: 45 53 45 4E 44 43 4D 44  00 EC 0B 4A 29 43 4D 44  |ESENDCMD...J)CMD|
000007E0: 52 45 41 44 59 20 4C 44  41 23 43 52 00 FB 0B 4F  |READY LDA#CR...O|
000007F0: 29 20 4A 53 52 49 45 43  4F 55 54 00 0C 0C 54 29  |) JSRIECOUT...T)|
00000800: 20 4A 53 52 55 4E 4C 49  53 54 45 4E 00 19 0C 59  | JSRUNLISTEN...Y|
00000810: 29 20 4A 4D 50 4C 4F 4F  50 00 48 0C 5E 29 3B 20  |) JMPLOOP.H.^); |
00000820: 55 45 42 45 52 50 52 55  45 46 54 2C 20 4F 42 20  |UEBERPRUEFT, OB |
00000830: 53 54 4F 50 2D 54 41 53  54 45 20 47 45 44 52 55  |STOP-TASTE GEDRU|
00000840: 45 43 4B 54 20 55 4E 44  00 6F 0C 63 29 3B 20 57  |ECKT UND.o.c); W|
00000850: 41 52 54 45 54 2C 20 57  45 4E 4E 20 4C 45 45 52  |ARTET, WENN LEER|
00000860: 54 41 53 54 45 20 47 45  44 52 55 45 43 4B 54 00  |TASTE GEDRUECKT.|
00000870: 9B 0C 68 29 3B 20 45 52  47 45 42 4E 49 53 3A 20  |..h); ERGEBNIS: |
00000880: 22 45 51 22 2C 20 57 45  4E 4E 20 53 54 4F 50 2C  |"EQ", WENN STOP,|
00000890: 20 22 4E 45 22 20 53 4F  4E 53 54 00 AA 0C 6D 29  | "NE" SONST...m)|
000008A0: 2E 45 51 20 53 54 4F 50  3D 33 00 BC 0C 72 29 2E  |.EQ STOP=3...r).|
000008B0: 45 51 20 42 4C 41 4E 4B  3D 24 32 30 00 D1 0C 77  |EQ BLANK=$20...w|
000008C0: 29 54 45 53 54 4B 45 59  20 4A 53 52 47 45 54 49  |)TESTKEY JSRGETI|
000008D0: 4E 00 DF 0C 7C 29 20 43  4D 50 23 53 54 4F 50 00  |N...|) CMP#STOP.|
000008E0: ED 0C 81 29 20 42 45 51  54 45 53 54 58 00 FC 0C  |...) BEQTESTX...|
000008F0: 86 29 20 43 4D 50 23 42  4C 41 4E 4B 00 0A 0D 8B  |.) CMP#BLANK....|
00000900: 29 20 42 4E 45 54 45 53  54 58 00 20 0D 90 29 57  |) BNETESTX. ..)W|
00000910: 41 49 54 4E 45 58 54 20  4A 53 52 47 45 54 49 4E  |AITNEXT JSRGETIN|
00000920: 00 2E 0D 95 29 20 43 4D  50 23 53 54 4F 50 00 3C  |....) CMP#STOP.<|
00000930: 0D 9A 29 20 42 45 51 54  45 53 54 58 00 4B 0D 9F  |..) BEQTESTX.K..|
00000940: 29 20 43 4D 50 23 42 4C  41 4E 4B 00 5C 0D A4 29  |) CMP#BLANK.\..)|
00000950: 20 42 4E 45 57 41 49 54  4E 45 58 54 00 82 0D A9  | BNEWAITNEXT....|
00000960: 29 20 4C 44 41 23 31 3B  20 22 4E 45 22 2D 42 45  |) LDA#1; "NE"-BE|
00000970: 44 49 4E 47 55 4E 47 20  48 45 52 53 54 45 4C 4C  |DINGUNG HERSTELL|
00000980: 45 4E 00 90 0D AE 29 54  45 53 54 58 20 52 54 53  |EN....)TESTX RTS|
00000990: 00 A0 0D B3 29 44 45 56  49 43 45 20 2E 42 59 30  |....)DEVICE .BY0|
000009A0: 00 B0 0D B8 29 43 4D 44  4C 45 4E 20 2E 42 59 30  |....)CMDLEN .BY0|
000009B0: 00 BF 0D BD 29 4C 49 4E  55 4D 20 2E 57 4F 30 00  |....)LINUM .WO0.|
000009C0: E0 0D C2 29 3B 20 38 31  20 42 59 54 45 20 50 55  |...); 81 BYTE PU|
000009D0: 46 46 45 52 20 52 45 53  45 52 56 49 45 52 45 4E  |FFER RESERVIEREN|
000009E0: 00 FC 0D C7 29 4C 49 4E  45 20 2E 57 4F 30 2C 30  |....)LINE .WO0,0|
000009F0: 2C 30 2C 30 2C 30 2C 30  2C 30 2C 30 00 14 0E CC  |,0,0,0,0,0,0....|
00000A00: 29 2E 57 4F 20 30 2C 30  2C 30 2C 30 2C 30 2C 30  |).WO 0,0,0,0,0,0|
00000A10: 2C 30 2C 30 00 2C 0E D1  29 2E 57 4F 20 30 2C 30  |,0,0.,..).WO 0,0|
00000A20: 2C 30 2C 30 2C 30 2C 30  2C 30 2C 30 00 44 0E D6  |,0,0,0,0,0,0.D..|
00000A30: 29 2E 57 4F 20 30 2C 30  2C 30 2C 30 2C 30 2C 30  |).WO 0,0,0,0,0,0|
00000A40: 2C 30 2C 30 00 5C 0E DB  29 2E 57 4F 20 30 2C 30  |,0,0.\..).WO 0,0|
00000A50: 2C 30 2C 30 2C 30 2C 30  2C 30 2C 30 00 66 0E E0  |,0,0,0,0,0,0.f..|
00000A60: 29 2E 42 59 20 30 00 6E  0E E5 29 2E 45 4E 00 00  |).BY 0.n..).EN..|
00000A70: 00                                                |.               |

.....'DOSCMD JSRWRITES.)..'.TX "GERAET:8
".D..'.BY 157,0; CURSOR LEFT.U..' JSRINP
UTDEZ.C.$' BCCNUMOK.R.)'DEVBAD RTS....'N
UMOK CPY#1...3' BCSDEVBAD...8' CMP#32...
=' BCSDEVBAD...B' STADEVICE.H.G' JSRCRLF
.W.L' JSRWRITES...Q'.TX "<RETURN> = STAT
US MSG"...V'.BY CR...['.TX "$        = C
ATALOG".*.`'.BY CR.I.E'.TX "!        = L
IST FILE".T.J'.BY CR.N.O'.TX "Q        =
 QUIT".{.T'.BY CR,0...Y'LOOP LDA#">"...~
' JSRBASOUT....'WAITKEY JSRBASIN; PROMPT
ZEICHEN.X..' CMP#">"; IGNORIEREN....' BE
QWAITKEY....' STALINE....' CMP#CR....' B
NENOTEMPTY....' ...MDSTAT(DEVICE,LINE).D
..' ...MPRINTS(LINE).Q..' JSRCRLF.^..' J
MPLOOP....'NOTEMPTY ...MINPUTS((LINE+1),
31)....' INY....' STYCMDLEN...D'FOUNDCMD
 JSRCRLF...I' LDALINE.J.N' CMP#"Q".Z.S' 
BNENOTQUIT...X' RTS....'NOTQUIT CMP#"!".
...' BEQDOLIST....' JMPNOTLIST.+..'DOLIS
T DECCMDLEN.U..' ...MOPEN(1,DEVICE,2,(LI
NE+1),CMDLEN).Q..' ...MDSTAT(DEVICE,LINE
)....' BEQFILEOK....( ...MPRINTS(LINE)..
..( JSRCRLF....( JMPEXITLIST.R..(FILEOK 
...MOVEWI(0,LINUM)....(NEXTLIN LDX#1....
( JSRCHKIN....( ...MINPUTS(LINE,80)...#(
 JSRREADST.#.(( PHP.2.-( JSRCLRCHN.F.2( 
...INCW(LINUM)._.7( ...MPRINTDEZ(LINUM).
L.<( LDA#":".{.A( JSRBASOUT...F( ...MPRI
NTS(LINE)...K( JSRCRLF...P( PLP...U( BNE
EXITLIST.H.Z( JSRTESTKEY.X._( BNENEXTLIN
...D(EXITLIST ...MCLOSE(1)...I( JMPLOOP.
..N(NOTLIST CMP#"$".".S( BNENOTCAT.H.X( 
...MOPEN(1,DEVICE,0,LINE,CMDLEN).S.}( LD
X#1.A..( JSRCHKIN....( JSRBASIN; LADEADR
ESSE UEBERLESEN....( JSRBASIN....( JSRCL
RCHN....(CATLINE LDX#1.D..( JSRCHKIN.R. 
( JSRBASIN....( JSRBASIN; LINKADRESSE...
.( JSRREADST....( BNECATEXIT....( JSRBAS
IN.#..( PHA.1..( JSRBASIN.:.C( TAY.C.H( 
PLA.T.M( JSRPRINTDEZ.A.R( LDA#" ".P.W( J
SRBASOUT....(PRNAME JSRBASIN....( CMP#0.
 ..( BEQEXITLINE....( JSRBASOUT....( JMP
PRNAME.S..(EXITLINE JSRCRLF....( JSRCLRC
HN....( JSRTESTKEY....) BNECATLINE....)C
ATEXIT JSRCLRCHN.*..) ...MCLOSE(1).7..) 
JMPLOOP.L..)NOTCAT LDADEVICE.[..) JSRLIS
TEN.M.") LDA#15!O!$60.~.') JSRLISTENSA..
.,) LDY#0...1)SENDCMD LDALINE,Y...6) BEQ
CMDREADY...;) JSRIECOUT.H.@) INY.X.E) BN
ESENDCMD...J)CMDREADY LDA#CR...O) JSRIEC
OUT...T) JSRUNLISTEN...Y) JMPLOOP.H.^); 
UEBERPRUEFT, OB STOP-TASTE GEDRUECKT UND
.O.C); WARTET, WENN LEERTASTE GEDRUECKT.
..H); ERGEBNIS: "EQ", WENN STOP, "NE" SO
NST...M).EQ STOP=3...R).EQ BLANK=$20.Q.W
)TESTKEY JSRGETIN...|) CMP#STOP....) BEQ
TESTX....) CMP#BLANK....) BNETESTX. ..)W
AITNEXT JSRGETIN....) CMP#STOP.<..) BEQT
ESTX.K..) CMP#BLANK.\..) BNEWAITNEXT....
) LDA#1; "NE"-BEDINGUNG HERSTELLEN....)T
ESTX RTS. ..)DEVICE .BY0....)CMDLEN .BY0
....)LINUM .WO0...B); 81 BYTE PUFFER RES
ERVIEREN...G)LINE .WO0,0,0,0,0,0,0,0...L
).WO 0,0,0,0,0,0,0,0.,.Q).WO 0,0,0,0,0,0
,0,0.D.V).WO 0,0,0,0,0,0,0,0.\..).WO 0,0
,0,0,0,0,0,0.F..).BY 0.N..).EN...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL