home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: LBR Archive
(archive/lbr).
You can browse this item here: save0-86.lbr
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| LBR Archive (archive/lbr)
| magic
| Supported |
| 1%
| dexvert
| Micro Focus COBOL library (other/microFocusCobolLibrary)
| ext
| Unsupported |
| 1%
| dexvert
| Micro Focus COBOL Library (other/microFocusCOBOLLibrary)
| ext
| Unsupported |
| 100%
| file
| LBR archive data
| default
| |
| 99%
| file
| data
| default
| |
| 87%
| TrID
| LU library
| default
| |
| 12%
| TrID
| C64 Hires bitmap
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 20 20 20 20 20 20 20 | 20 20 20 20 00 00 01 00 |. | ....|
|00000010| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000020| 00 53 41 56 45 30 2d 32 | 20 41 38 36 01 00 31 00 |.SAVE0-2| A86..1.|
|00000030| 00 00 ff ff 00 00 ff ff | 00 00 ff ff 00 00 ff ff |........|........|
|00000040| 00 53 41 56 45 30 2d 32 | 20 43 4d 44 32 00 0a 00 |.SAVE0-2| CMD2...|
|00000050| 00 00 ff ff 00 00 ff ff | 00 00 ff ff 00 00 ff ff |........|........|
|00000060| ff 20 20 20 20 20 20 20 | 20 20 20 20 00 00 ff ff |. | ....|
|00000070| 00 00 ff ff 00 00 ff ff | 00 00 ff ff 00 00 ff ff |........|........|
|00000080| 3b 09 50 52 4f 47 52 41 | 4d 3a 09 53 41 56 45 30 |;.PROGRA|M:.SAVE0|
|00000090| 2e 41 38 36 0d 0a 3b 09 | 56 45 52 53 49 4f 4e 3a |.A86..;.|VERSION:|
|000000a0| 09 31 2e 30 32 0d 0a 3b | 09 44 41 54 45 3a 09 09 |.1.02..;|.DATE:..|
|000000b0| 31 35 20 4f 63 74 6f 62 | 65 72 20 31 39 38 34 0d |15 Octob|er 1984.|
|000000c0| 0a 3b 09 41 55 54 48 4f | 52 3a 09 09 43 68 61 72 |.;.AUTHO|R:..Char|
|000000d0| 6c 69 65 20 47 6f 64 65 | 74 2d 43 65 72 61 6f 6c |lie Gode|t-Ceraol|
|000000e0| 6f 0d 0a 3b 09 09 09 32 | 36 31 30 20 47 6c 65 6e |o..;...2|610 Glen|
|000000f0| 77 6f 6f 64 20 52 6f 61 | 64 0d 0a 3b 09 09 09 42 |wood Roa|d..;...B|
|00000100| 72 6f 6f 6b 6c 79 6e 2c | 20 4e 59 20 31 31 32 31 |rooklyn,| NY 1121|
|00000110| 30 0d 0a 3b 0d 0a 3b 09 | 44 45 53 43 52 49 50 54 |0..;..;.|DESCRIPT|
|00000120| 49 4f 4e 3a 09 41 20 75 | 74 69 6c 69 74 79 20 74 |ION:.A u|tility t|
|00000130| 6f 20 70 72 6f 76 69 64 | 65 20 74 68 65 20 73 61 |o provid|e the sa|
|00000140| 6d 65 20 66 75 6e 63 74 | 69 6f 6e 20 61 73 20 74 |me funct|ion as t|
|00000150| 68 65 0d 0a 3b 09 09 09 | 53 41 56 45 20 30 20 63 |he..;...|SAVE 0 c|
|00000160| 6f 6d 6d 61 6e 64 20 6f | 66 20 43 50 2f 4d 32 2e |ommand o|f CP/M2.|
|00000170| 32 20 66 6f 72 20 43 50 | 2f 4d 38 36 2e 20 20 49 |2 for CP|/M86. I|
|00000180| 74 20 64 6f 65 73 6e 27 | 74 0d 0a 3b 09 09 09 73 |t doesn'|t..;...s|
|00000190| 61 76 65 20 61 6e 79 74 | 68 69 6e 67 2c 20 69 74 |ave anyt|hing, it|
|000001a0| 20 6a 75 73 74 20 63 72 | 65 61 74 65 73 20 61 20 | just cr|eates a |
|000001b0| 7a 65 72 6f 20 6c 65 6e | 67 74 68 20 66 69 6c 65 |zero len|gth file|
|000001c0| 0d 0a 3b 09 09 09 69 6e | 20 74 68 65 20 64 69 73 |..;...in| the dis|
|000001d0| 6b 20 64 69 72 65 63 74 | 6f 72 79 2e 20 20 49 6e |k direct|ory. In|
|000001e0| 74 65 6e 64 65 64 20 6d | 61 69 6e 6c 79 20 66 6f |tended m|ainly fo|
|000001f0| 72 20 75 73 65 0d 0a 3b | 09 09 09 77 69 74 68 20 |r use..;|...with |
|00000200| 4d 43 41 54 2d 38 36 20 | 74 6f 20 70 75 74 20 64 |MCAT-86 |to put d|
|00000210| 69 73 6b 2d 69 64 73 20 | 69 6e 20 74 68 65 20 64 |isk-ids |in the d|
|00000220| 69 72 65 63 74 6f 72 79 | 2e 0d 0a 3b 0d 0a 3b 09 |irectory|...;..;.|
|00000230| 55 53 45 3a 09 41 53 4d | 38 36 20 20 53 41 56 45 |USE:.ASM|86 SAVE|
|00000240| 30 20 24 50 5a 53 5a 0d | 0a 3b 09 09 47 45 4e 43 |0 $PZSZ.|.;..GENC|
|00000250| 4d 44 20 53 41 56 45 30 | 20 44 41 54 41 5b 4d 32 |MD SAVE0| DATA[M2|
|00000260| 30 30 5d 0d 0a 3b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |00]..;--|--------|
|00000270| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000280| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000290| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002a0| 2d 2d 0d 0a 52 65 6c 65 | 61 73 65 09 09 45 51 55 |--..Rele|ase..EQU|
|000002b0| 09 31 0d 0a 56 65 72 73 | 69 6f 6e 09 09 45 51 55 |.1..Vers|ion..EQU|
|000002c0| 09 30 32 0d 0a 46 41 4c | 53 45 09 09 45 51 55 09 |.02..FAL|SE..EQU.|
|000002d0| 30 0d 0a 54 52 55 45 09 | 09 45 51 55 09 4e 4f 54 |0..TRUE.|.EQU.NOT|
|000002e0| 20 46 41 4c 53 45 0d 0a | 3b 0d 0a 3b 09 63 70 6d | FALSE..|;..;.cpm|
|000002f0| 38 36 20 65 71 75 61 74 | 65 73 0d 0a 3b 0d 0a 43 |86 equat|es..;..C|
|00000300| 6f 6e 49 6e 09 09 45 51 | 55 09 31 0d 0a 43 6f 6e |onIn..EQ|U.1..Con|
|00000310| 4f 75 74 09 09 45 51 55 | 09 32 09 09 3b 20 77 72 |Out..EQU|.2..; wr|
|00000320| 69 74 65 20 63 6f 6e 73 | 6f 6c 65 20 63 68 61 72 |ite cons|ole char|
|00000330| 61 63 74 65 72 0d 0a 52 | 65 61 64 43 6f 6e 42 75 |acter..R|eadConBu|
|00000340| 66 09 45 51 55 09 31 30 | 09 09 3b 20 72 65 61 64 |f.EQU.10|..; read|
|00000350| 20 63 6f 6e 73 6f 6c 65 | 20 62 75 66 66 65 72 0d | console| buffer.|
|00000360| 0a 52 65 73 65 74 44 69 | 73 6b 09 45 51 55 09 31 |.ResetDi|sk.EQU.1|
|00000370| 33 0d 0a 44 65 6c 65 74 | 65 46 09 09 45 51 55 09 |3..Delet|eF..EQU.|
|00000380| 31 39 09 09 3b 20 65 72 | 61 73 65 20 66 69 6c 65 |19..; er|ase file|
|00000390| 0d 0a 4d 61 6b 65 46 09 | 09 45 51 55 09 32 32 09 |..MakeF.|.EQU.22.|
|000003a0| 09 3b 20 63 72 65 61 74 | 65 20 66 69 6c 65 0d 0a |.; creat|e file..|
|000003b0| 3b 0d 0a 3b 09 41 73 63 | 69 69 20 65 71 75 61 74 |;..;.Asc|ii equat|
|000003c0| 65 73 0d 0a 3b 0d 0a 54 | 41 42 09 09 45 51 55 09 |es..;..T|AB..EQU.|
|000003d0| 30 39 48 0d 0a 43 52 09 | 09 45 51 55 09 30 44 48 |09H..CR.|.EQU.0DH|
|000003e0| 0d 0a 4c 46 09 09 45 51 | 55 09 30 41 48 0d 0a 53 |..LF..EQ|U.0AH..S|
|000003f0| 70 61 63 65 09 09 45 51 | 55 09 27 20 27 0d 0a 41 |pace..EQ|U.' '..A|
|00000400| 73 63 69 69 5f 5a 65 72 | 6f 09 45 51 55 09 27 30 |scii_Zer|o.EQU.'0|
|00000410| 27 0d 0a 45 4f 53 09 09 | 45 51 55 09 30 48 0d 0a |'..EOS..|EQU.0H..|
|00000420| 3b 0d 0a 09 09 44 53 45 | 47 09 09 09 3b 20 69 6d |;....DSE|G...; im|
|00000430| 61 67 65 20 6f 66 20 43 | 50 2f 4d 38 36 27 73 20 |age of C|P/M86's |
|00000440| 62 61 73 65 70 61 67 65 | 0d 0a 3b 0d 0a 42 41 53 |basepage|..;..BAS|
|00000450| 45 50 41 47 45 09 45 51 | 55 09 24 0d 0a 09 09 52 |EPAGE.EQ|U.$....R|
|00000460| 42 09 35 43 48 0d 0a 46 | 43 42 09 09 45 51 55 09 |B.5CH..F|CB..EQU.|
|00000470| 24 09 09 3b 20 64 65 66 | 61 75 6c 74 20 66 63 62 |$..; def|ault fcb|
|00000480| 0d 0a 46 43 42 44 4e 09 | 09 52 42 09 31 0d 0a 46 |..FCBDN.|.RB.1..F|
|00000490| 43 42 46 4e 09 09 52 42 | 09 38 0d 0a 46 43 42 46 |CBFN..RB|.8..FCBF|
|000004a0| 54 09 09 52 42 09 31 0d | 0a 46 43 42 51 09 09 52 |T..RB.1.|.FCBQ..R|
|000004b0| 42 09 31 0d 0a 09 09 52 | 42 09 31 0d 0a 46 43 42 |B.1....R|B.1..FCB|
|000004c0| 45 58 09 09 52 42 09 31 | 0d 0a 46 43 42 53 31 09 |EX..RB.1|..FCBS1.|
|000004d0| 09 52 42 09 31 0d 0a 46 | 43 42 53 32 09 09 52 42 |.RB.1..F|CBS2..RB|
|000004e0| 09 31 0d 0a 46 43 42 52 | 43 09 09 52 42 09 31 0d |.1..FCBR|C..RB.1.|
|000004f0| 0a 46 43 42 32 09 09 45 | 51 55 09 24 09 09 3b 20 |.FCB2..E|QU.$..; |
|00000500| 73 65 63 6f 6e 64 20 66 | 63 62 0d 0a 46 43 42 32 |second f|cb..FCB2|
|00000510| 44 4e 09 09 52 42 09 31 | 0d 0a 46 43 42 32 46 4e |DN..RB.1|..FCB2FN|
|00000520| 09 09 52 42 09 38 0d 0a | 46 43 42 32 46 54 09 09 |..RB.8..|FCB2FT..|
|00000530| 52 42 09 33 0d 0a 09 09 | 52 42 09 34 0d 0a 46 43 |RB.3....|RB.4..FC|
|00000540| 42 43 52 09 09 52 42 09 | 31 0d 0a 46 43 42 52 4e |BCR..RB.|1..FCBRN|
|00000550| 4f 09 09 52 57 09 31 0d | 0a 46 43 42 52 32 09 09 |O..RW.1.|.FCBR2..|
|00000560| 52 42 09 31 0d 0a 42 55 | 46 46 09 09 52 42 09 38 |RB.1..BU|FF..RB.8|
|00000570| 30 48 09 09 3b 20 64 65 | 66 61 75 6c 74 20 62 75 |0H..; de|fault bu|
|00000580| 66 66 65 72 0d 0a 42 75 | 66 5f 45 6e 64 09 09 45 |ffer..Bu|f_End..E|
|00000590| 51 55 09 24 09 09 3b 20 | 6d 61 72 6b 20 65 6e 64 |QU.$..; |mark end|
|000005a0| 20 6f 66 20 62 75 66 66 | 65 72 0d 0a 3b 0d 0a 09 | of buff|er..;...|
|000005b0| 09 43 53 45 47 0d 0a 3b | 0d 0a 53 41 56 45 30 3a |.CSEG..;|..SAVE0:|
|000005c0| 0d 0a 09 09 4d 4f 56 09 | 44 58 2c 44 53 0d 0a 09 |....MOV.|DX,DS...|
|000005d0| 09 4d 4f 56 09 53 53 2c | 44 58 0d 0a 09 09 4d 4f |.MOV.SS,|DX....MO|
|000005e0| 56 09 53 50 2c 4f 66 66 | 73 65 74 20 4c 4f 43 41 |V.SP,Off|set LOCA|
|000005f0| 4c 5f 53 54 41 43 4b 0d | 0a 09 09 43 4c 44 09 09 |L_STACK.|...CLD..|
|00000600| 09 09 3b 20 64 69 72 65 | 63 74 69 6f 6e 20 66 6c |..; dire|ction fl|
|00000610| 61 67 20 3d 20 69 6e 63 | 72 65 6d 65 6e 74 0d 0a |ag = inc|rement..|
|00000620| 09 09 4d 4f 56 09 53 49 | 2c 4f 66 66 73 65 74 20 |..MOV.SI|,Offset |
|00000630| 53 69 67 6e 4f 6e 0d 0a | 09 09 43 41 4c 4c 09 4d |SignOn..|..CALL.M|
|00000640| 73 67 4f 75 74 0d 0a 3b | 0d 0a 3b 09 63 68 65 63 |sgOut..;|..;.chec|
|00000650| 6b 20 66 6f 72 20 61 20 | 63 6f 6d 6d 61 6e 64 2d |k for a |command-|
|00000660| 6c 69 6e 65 2c 20 70 72 | 6f 6d 70 74 20 61 6e 64 |line, pr|ompt and|
|00000670| 20 63 79 63 6c 65 20 69 | 66 20 6e 6f 6e 65 0d 0a | cycle i|f none..|
|00000680| 3b 0d 0a 09 09 43 4d 50 | 09 42 55 46 46 2c 30 0d |;....CMP|.BUFF,0.|
|00000690| 0a 09 09 4a 4e 45 09 67 | 6f 74 5f 6e 61 6d 65 0d |...JNE.g|ot_name.|
|000006a0| 0a 09 09 4d 4f 56 09 43 | 79 63 6c 65 5f 46 6c 61 |...MOV.C|ycle_Fla|
|000006b0| 67 2c 54 52 55 45 0d 0a | 3b 0d 0a 43 79 63 6c 65 |g,TRUE..|;..Cycle|
|000006c0| 3a 0d 0a 09 09 43 41 4c | 4c 09 43 72 4c 66 0d 0a |:....CAL|L.CrLf..|
|000006d0| 09 09 4d 4f 56 09 53 49 | 2c 4f 66 66 73 65 74 20 |..MOV.SI|,Offset |
|000006e0| 46 69 6c 65 4d 73 67 09 | 09 3b 20 64 69 73 70 6c |FileMsg.|.; displ|
|000006f0| 61 79 20 70 72 6f 6d 70 | 74 0d 0a 09 09 43 41 4c |ay promp|t....CAL|
|00000700| 4c 09 4d 73 67 4f 75 74 | 0d 0a 09 09 43 41 4c 4c |L.MsgOut|....CALL|
|00000710| 09 47 65 74 5f 4e 61 6d | 65 0d 0a 09 09 4a 43 09 |.Get_Nam|e....JC.|
|00000720| 52 65 61 6c 5f 45 78 69 | 74 09 09 09 3b 20 43 46 |Real_Exi|t...; CF|
|00000730| 20 3d 20 6e 6f 20 6e 61 | 6d 65 0d 0a 09 09 4d 4f | = no na|me....MO|
|00000740| 56 09 53 49 2c 4f 66 66 | 73 65 74 20 4c 69 6e 65 |V.SI,Off|set Line|
|00000750| 09 09 09 3b 20 70 61 72 | 73 65 20 74 68 65 20 6c |...; par|se the l|
|00000760| 69 6e 65 0d 0a 09 09 4d | 4f 56 09 44 49 2c 4f 66 |ine....M|OV.DI,Of|
|00000770| 66 73 65 74 20 46 43 42 | 09 09 09 3b 20 69 6e 74 |fset FCB|...; int|
|00000780| 6f 20 74 68 65 20 66 63 | 62 0d 0a 09 09 43 41 4c |o the fc|b....CAL|
|00000790| 4c 09 50 61 72 73 65 46 | 0d 0a 3b 0d 0a 67 6f 74 |L.ParseF|..;..got|
|000007a0| 5f 6e 61 6d 65 3a 0d 0a | 09 09 4d 4f 56 09 44 49 |_name:..|..MOV.DI|
|000007b0| 2c 4f 66 66 73 65 74 20 | 46 43 42 46 4e 09 09 09 |,Offset |FCBFN...|
|000007c0| 3b 20 6e 6f 20 77 69 6c | 64 63 61 72 64 73 20 61 |; no wil|dcards a|
|000007d0| 6c 6c 6f 77 65 64 0d 0a | 09 09 43 41 4c 4c 09 43 |llowed..|..CALL.C|
|000007e0| 68 65 63 6b 57 69 6c 64 | 0d 0a 09 09 4a 4e 43 09 |heckWild|....JNC.|
|000007f0| 6e 6f 5f 77 69 6c 64 0d | 0a 09 09 4d 4f 56 09 53 |no_wild.|...MOV.S|
|00000800| 49 2c 4f 66 66 73 65 74 | 20 4e 6f 57 69 6c 64 4d |I,Offset| NoWildM|
|00000810| 73 67 0d 0a 09 09 43 41 | 4c 4c 09 4d 73 67 4f 75 |sg....CA|LL.MsgOu|
|00000820| 74 0d 0a 09 09 4a 4d 50 | 53 09 43 79 63 6c 65 5f |t....JMP|S.Cycle_|
|00000830| 65 78 69 74 0d 0a 6e 6f | 5f 77 69 6c 64 3a 0d 0a |exit..no|_wild:..|
|00000840| 09 09 43 41 4c 4c 09 44 | 69 73 6b 5f 52 65 73 65 |..CALL.D|isk_Rese|
|00000850| 74 09 09 09 3b 20 61 6c | 6c 6f 77 73 20 63 68 61 |t...; al|lows cha|
|00000860| 6e 67 69 6e 67 20 64 69 | 73 6b 0d 0a 09 09 43 41 |nging di|sk....CA|
|00000870| 4c 4c 09 44 65 6c 65 74 | 65 5f 46 69 6c 65 09 09 |LL.Delet|e_File..|
|00000880| 09 3b 20 73 6f 20 77 65 | 20 64 6f 6e 27 74 20 67 |.; so we| don't g|
|00000890| 65 74 20 74 77 6f 0d 0a | 09 09 43 41 4c 4c 09 43 |et two..|..CALL.C|
|000008a0| 72 65 61 74 65 5f 46 69 | 6c 65 09 09 09 3b 20 64 |reate_Fi|le...; d|
|000008b0| 6f 20 69 74 0d 0a 09 09 | 43 4d 50 09 41 4c 2c 30 |o it....|CMP.AL,0|
|000008c0| 46 46 48 09 09 09 09 3b | 20 77 61 73 20 74 68 65 |FFH....;| was the|
|000008d0| 72 65 20 72 6f 6f 6d 3f | 0d 0a 09 09 4a 4e 45 09 |re room?|....JNE.|
|000008e0| 43 79 63 6c 65 5f 65 78 | 69 74 09 09 09 3b 20 79 |Cycle_ex|it...; y|
|000008f0| 65 73 2c 20 63 6f 6e 74 | 69 6e 75 65 0d 0a 09 09 |es, cont|inue....|
|00000900| 4d 4f 56 09 53 49 2c 4f | 66 66 73 65 74 20 4e 6f |MOV.SI,O|ffset No|
|00000910| 52 6f 6f 6d 4d 73 67 09 | 09 3b 20 6e 6f 70 65 2c |RoomMsg.|.; nope,|
|00000920| 20 74 65 6c 6c 20 27 65 | 6d 20 61 6e 64 0d 0a 09 | tell 'e|m and...|
|00000930| 09 43 41 4c 4c 09 4d 73 | 67 4f 75 74 09 09 09 09 |.CALL.Ms|gOut....|
|00000940| 3b 20 61 6e 64 20 6c 65 | 61 76 65 0d 0a 09 09 4a |; and le|ave....J|
|00000950| 4d 50 09 52 65 61 6c 5f | 45 78 69 74 0d 0a 43 79 |MP.Real_|Exit..Cy|
|00000960| 63 6c 65 5f 65 78 69 74 | 3a 0d 0a 09 09 43 4d 50 |cle_exit|:....CMP|
|00000970| 09 43 79 63 6c 65 5f 46 | 6c 61 67 2c 54 52 55 45 |.Cycle_F|lag,TRUE|
|00000980| 09 09 09 3b 20 69 66 20 | 66 61 6c 73 65 2c 20 77 |...; if |false, w|
|00000990| 65 20 65 78 69 74 0d 0a | 09 09 4a 45 09 43 79 63 |e exit..|..JE.Cyc|
|000009a0| 6c 65 09 09 09 09 3b 20 | 65 6c 73 65 20 64 6f 20 |le....; |else do |
|000009b0| 61 6e 6f 74 68 65 72 0d | 0a 3b 0d 0a 52 65 61 6c |another.|.;..Real|
|000009c0| 5f 45 78 69 74 3a 0d 0a | 09 09 4d 4f 56 09 43 4c |_Exit:..|..MOV.CL|
|000009d0| 2c 30 0d 0a 09 09 4d 4f | 56 09 44 4c 2c 30 0d 0a |,0....MO|V.DL,0..|
|000009e0| 09 09 43 41 4c 4c 09 42 | 44 4f 53 0d 0a 3b 0d 0a |..CALL.B|DOS..;..|
|000009f0| 3b 09 53 55 42 52 4f 55 | 54 49 4e 45 53 0d 0a 3b |;.SUBROU|TINES..;|
|00000a00| 0d 0a 3b 09 44 49 20 2d | 2d 3e 20 66 63 62 20 74 |..;.DI -|-> fcb t|
|00000a10| 6f 20 73 63 61 6e 20 66 | 6f 72 20 77 69 6c 64 63 |o scan f|or wildc|
|00000a20| 61 72 64 0d 0a 3b 09 52 | 65 74 75 72 6e 73 20 43 |ard..;.R|eturns C|
|00000a30| 46 20 53 65 74 20 69 66 | 20 77 69 6c 64 63 61 72 |F Set if| wildcar|
|00000a40| 64 2c 20 65 6c 73 65 20 | 43 46 20 63 6c 65 61 72 |d, else |CF clear|
|00000a50| 0d 0a 3b 0d 0a 43 68 65 | 63 6b 57 69 6c 64 3a 0d |..;..Che|ckWild:.|
|00000a60| 0a 09 09 4d 4f 56 09 41 | 4c 2c 27 3f 27 0d 0a 09 |...MOV.A|L,'?'...|
|00000a70| 09 4d 4f 56 09 43 58 2c | 31 31 0d 0a 09 09 52 45 |.MOV.CX,|11....RE|
|00000a80| 50 4e 45 09 53 43 41 53 | 42 0d 0a 09 09 4a 45 09 |PNE.SCAS|B....JE.|
|00000a90| 62 61 64 0d 0a 09 09 43 | 4c 43 0d 0a 09 09 52 45 |bad....C|LC....RE|
|00000aa0| 54 0d 0a 62 61 64 3a 0d | 0a 09 09 53 54 43 0d 0a |T..bad:.|...STC..|
|00000ab0| 09 09 52 45 54 0d 0a 3b | 0d 0a 44 69 73 6b 5f 52 |..RET..;|..Disk_R|
|00000ac0| 65 73 65 74 3a 0d 0a 09 | 09 4d 4f 56 09 43 4c 2c |eset:...|.MOV.CL,|
|00000ad0| 52 65 73 65 74 44 69 73 | 6b 0d 0a 09 09 43 41 4c |ResetDis|k....CAL|
|00000ae0| 4c 09 42 44 4f 53 0d 0a | 09 09 52 45 54 0d 0a 3b |L.BDOS..|..RET..;|
|00000af0| 0d 0a 44 65 6c 65 74 65 | 5f 46 69 6c 65 3a 0d 0a |..Delete|_File:..|
|00000b00| 09 09 4d 4f 56 09 44 58 | 2c 4f 66 66 73 65 74 20 |..MOV.DX|,Offset |
|00000b10| 46 43 42 0d 0a 09 09 4d | 4f 56 09 43 4c 2c 44 65 |FCB....M|OV.CL,De|
|00000b20| 6c 65 74 65 46 0d 0a 09 | 09 43 41 4c 4c 09 42 44 |leteF...|.CALL.BD|
|00000b30| 4f 53 0d 0a 09 09 52 45 | 54 0d 0a 3b 0d 0a 43 72 |OS....RE|T..;..Cr|
|00000b40| 65 61 74 65 5f 46 69 6c | 65 3a 0d 0a 09 09 4d 4f |eate_Fil|e:....MO|
|00000b50| 56 09 44 58 2c 4f 66 66 | 73 65 74 20 46 43 42 0d |V.DX,Off|set FCB.|
|00000b60| 0a 09 09 4d 4f 56 09 43 | 4c 2c 4d 61 6b 65 46 0d |...MOV.C|L,MakeF.|
|00000b70| 0a 09 09 43 41 4c 4c 09 | 42 44 4f 53 0d 0a 09 09 |...CALL.|BDOS....|
|00000b80| 52 45 54 0d 0a 3b 0d 0a | 47 65 74 5f 4e 61 6d 65 |RET..;..|Get_Name|
|00000b90| 3a 0d 0a 09 09 4d 4f 56 | 09 4d 61 78 4c 69 6e 65 |:....MOV|.MaxLine|
|00000ba0| 2c 32 30 09 09 09 3b 20 | 6d 61 78 20 69 6e 70 75 |,20...; |max inpu|
|00000bb0| 74 20 32 30 20 63 68 61 | 72 73 0d 0a 09 09 43 41 |t 20 cha|rs....CA|
|00000bc0| 4c 4c 09 43 6c 65 61 72 | 5f 4c 69 6e 65 09 09 09 |LL.Clear|_Line...|
|00000bd0| 3b 20 7a 65 72 6f 20 66 | 69 6c 6c 20 74 68 65 20 |; zero f|ill the |
|00000be0| 62 75 66 66 65 72 0d 0a | 09 09 4d 4f 56 09 44 58 |buffer..|..MOV.DX|
|00000bf0| 2c 4f 66 66 73 65 74 20 | 4c 69 6e 65 42 75 66 66 |,Offset |LineBuff|
|00000c00| 65 72 0d 0a 09 09 4d 4f | 56 09 43 4c 2c 52 65 61 |er....MO|V.CL,Rea|
|00000c10| 64 43 6f 6e 42 75 66 09 | 09 09 3b 20 67 65 74 20 |dConBuf.|..; get |
|00000c20| 61 20 72 65 70 6c 79 0d | 0a 09 09 43 41 4c 4c 09 |a reply.|...CALL.|
|00000c30| 42 44 4f 53 0d 0a 09 09 | 43 41 4c 4c 09 43 72 4c |BDOS....|CALL.CrL|
|00000c40| 66 0d 0a 09 09 43 4d 50 | 09 4c 69 6e 65 4c 65 6e |f....CMP|.LineLen|
|00000c50| 67 74 68 2c 30 09 09 09 | 3b 20 65 6d 70 74 79 70 |gth,0...|; emptyp|
|00000c60| 20 6c 69 6e 65 3f 0d 0a | 09 09 4a 45 09 6e 6f 5f | line?..|..JE.no_|
|00000c70| 6e 61 6d 65 0d 0a 09 09 | 43 4c 43 0d 0a 09 09 52 |name....|CLC....R|
|00000c80| 45 54 0d 0a 6e 6f 5f 6e | 61 6d 65 3a 0d 0a 09 09 |ET..no_n|ame:....|
|00000c90| 53 54 43 0d 0a 09 09 52 | 45 54 0d 0a 3b 0d 0a 3b |STC....R|ET..;..;|
|00000ca0| 09 45 6e 74 72 79 3a 09 | 53 49 20 2d 2d 3e 20 73 |.Entry:.|SI --> s|
|00000cb0| 74 72 69 6e 67 2c 20 44 | 49 20 2d 2d 3e 20 66 63 |tring, D|I --> fc|
|00000cc0| 62 0d 0a 3b 0d 0a 50 61 | 72 73 65 46 3a 0d 0a 09 |b..;..Pa|rseF:...|
|00000cd0| 09 4c 4f 44 53 42 09 09 | 09 09 3b 20 73 74 72 69 |.LODSB..|..; stri|
|00000ce0| 70 20 6c 65 61 64 69 6e | 67 20 73 70 61 63 65 73 |p leadin|g spaces|
|00000cf0| 0d 0a 09 09 43 4d 50 09 | 41 4c 2c 53 70 61 63 65 |....CMP.|AL,Space|
|00000d00| 0d 0a 09 09 4a 45 09 50 | 61 72 73 65 46 09 09 09 |....JE.P|arseF...|
|00000d10| 3b 20 61 6e 64 20 74 61 | 62 73 0d 0a 09 09 43 4d |; and ta|bs....CM|
|00000d20| 50 09 41 4c 2c 54 61 62 | 0d 0a 09 09 4a 45 09 50 |P.AL,Tab|....JE.P|
|00000d30| 61 72 73 65 46 0d 0a 09 | 09 44 45 43 09 53 49 09 |arseF...|.DEC.SI.|
|00000d40| 09 09 3b 20 61 64 6a 75 | 73 74 20 66 6f 72 20 6f |..; adju|st for o|
|00000d50| 6e 65 20 74 6f 6f 20 6d | 61 6e 79 0d 0a 09 09 4d |ne too m|any....M|
|00000d60| 4f 56 09 41 4c 2c 31 5b | 53 49 5d 09 09 3b 20 63 |OV.AL,1[|SI]..; c|
|00000d70| 68 65 63 6b 20 66 6f 72 | 20 63 6f 6c 6f 6e 0d 0a |heck for| colon..|
|00000d80| 09 09 43 4d 50 09 41 4c | 2c 27 3a 27 0d 0a 09 09 |..CMP.AL|,':'....|
|00000d90| 4a 4e 45 09 62 66 5f 6e | 64 09 09 09 3b 20 69 66 |JNE.bf_n|d...; if|
|00000da0| 20 6e 6f 6e 65 2c 20 73 | 75 70 70 6c 79 20 64 65 | none, s|upply de|
|00000db0| 66 61 75 6c 74 0d 0a 09 | 09 4c 4f 44 53 42 0d 0a |fault...|.LODSB..|
|00000dc0| 09 09 43 41 4c 4c 09 54 | 6f 5f 55 70 70 65 72 0d |..CALL.T|o_Upper.|
|00000dd0| 0a 09 09 41 4e 44 09 41 | 4c 2c 30 30 30 31 24 31 |...AND.A|L,0001$1|
|00000de0| 31 31 31 42 09 09 3b 20 | 6d 61 6b 65 20 61 20 6e |111B..; |make a n|
|00000df0| 75 6d 62 65 72 0d 0a 09 | 09 49 4e 43 09 53 49 09 |umber...|.INC.SI.|
|00000e00| 09 09 3b 20 70 6f 69 6e | 74 20 70 61 73 74 20 27 |..; poin|t past '|
|00000e10| 3a 27 0d 0a 09 09 4a 4d | 50 53 09 62 66 5f 73 64 |:'....JM|PS.bf_sd|
|00000e20| 0d 0a 62 66 5f 6e 64 3a | 0d 0a 09 09 58 4f 52 09 |..bf_nd:|....XOR.|
|00000e30| 41 4c 2c 41 4c 0d 0a 62 | 66 5f 73 64 3a 0d 0a 09 |AL,AL..b|f_sd:...|
|00000e40| 09 53 54 4f 53 42 09 09 | 09 09 3b 20 73 74 6f 72 |.STOSB..|..; stor|
|00000e50| 65 20 64 72 69 76 65 20 | 63 6f 64 65 0d 0a 09 09 |e drive |code....|
|00000e60| 4d 4f 56 09 43 58 2c 38 | 09 09 09 3b 20 6d 6f 76 |MOV.CX,8|...; mov|
|00000e70| 65 20 63 68 61 72 73 20 | 75 6e 74 69 6c 20 27 2e |e chars |until '.|
|00000e80| 27 20 6f 72 20 30 0d 0a | 09 09 43 41 4c 4c 09 62 |' or 0..|..CALL.b|
|00000e90| 66 5f 67 74 0d 0a 62 66 | 5f 6e 74 3a 0d 0a 09 09 |f_gt..bf|_nt:....|
|00000ea0| 4d 4f 56 09 43 58 2c 33 | 09 09 09 3b 20 6d 6f 76 |MOV.CX,3|...; mov|
|00000eb0| 2f 66 69 6c 6c 20 65 78 | 74 65 6e 73 69 6f 6e 0d |/fill ex|tension.|
|00000ec0| 0a 09 09 43 41 4c 4c 09 | 62 66 5f 67 74 0d 0a 09 |...CALL.|bf_gt...|
|00000ed0| 09 4d 4f 56 09 41 48 2c | 30 09 09 09 3b 20 7a 65 |.MOV.AH,|0...; ze|
|00000ee0| 72 6f 20 66 69 6c 6c 20 | 72 65 73 74 20 6f 66 20 |ro fill |rest of |
|00000ef0| 66 63 62 0d 0a 09 09 4d | 4f 56 09 43 58 2c 32 34 |fcb....M|OV.CX,24|
|00000f00| 0d 0a 09 09 43 41 4c 4c | 09 62 66 5f 66 74 0d 0a |....CALL|.bf_ft..|
|00000f10| 09 09 52 45 54 0d 0a 3b | 0d 0a 62 66 5f 67 74 3a |..RET..;|..bf_gt:|
|00000f20| 0d 0a 09 09 4c 4f 44 53 | 42 0d 0a 09 09 43 41 4c |....LODS|B....CAL|
|00000f30| 4c 09 54 6f 5f 55 70 70 | 65 72 0d 0a 09 09 4f 52 |L.To_Upp|er....OR|
|00000f40| 09 41 4c 2c 41 4c 0d 0a | 09 09 4a 45 09 62 66 5f |.AL,AL..|..JE.bf_|
|00000f50| 73 66 74 0d 0a 09 09 43 | 4d 50 09 41 4c 2c 27 2a |sft....C|MP.AL,'*|
|00000f60| 27 0d 0a 09 09 4a 45 09 | 62 66 5f 71 66 74 0d 0a |'....JE.|bf_qft..|
|00000f70| 09 09 43 4d 50 09 41 4c | 2c 27 2e 27 0d 0a 09 09 |..CMP.AL|,'.'....|
|00000f80| 4a 45 09 62 66 5f 73 66 | 74 0d 0a 09 09 53 54 4f |JE.bf_sf|t....STO|
|00000f90| 53 42 0d 0a 09 09 4c 4f | 4f 50 09 62 66 5f 67 74 |SB....LO|OP.bf_gt|
|00000fa0| 0d 0a 62 66 5f 73 6b 69 | 70 3a 0d 0a 09 09 4c 4f |..bf_ski|p:....LO|
|00000fb0| 44 53 42 0d 0a 09 09 43 | 41 4c 4c 09 54 6f 5f 55 |DSB....C|ALL.To_U|
|00000fc0| 70 70 65 72 0d 0a 09 09 | 4f 52 09 41 4c 2c 41 4c |pper....|OR.AL,AL|
|00000fd0| 0d 0a 09 09 4a 5a 09 67 | 74 5f 72 65 74 0d 0a 09 |....JZ.g|t_ret...|
|00000fe0| 09 43 4d 50 09 41 4c 2c | 27 2e 27 0d 0a 09 09 4a |.CMP.AL,|'.'....J|
|00000ff0| 45 09 67 74 5f 72 65 74 | 0d 0a 09 09 4a 4d 50 53 |E.gt_ret|....JMPS|
|00001000| 09 62 66 5f 73 6b 69 70 | 0d 0a 67 74 5f 72 65 74 |.bf_skip|..gt_ret|
|00001010| 3a 0d 0a 09 09 52 45 54 | 0d 0a 3b 0d 0a 62 66 5f |:....RET|..;..bf_|
|00001020| 71 66 74 3a 0d 0a 09 09 | 4d 4f 56 09 41 48 2c 27 |qft:....|MOV.AH,'|
|00001030| 3f 27 0d 0a 09 09 43 41 | 4c 4c 09 62 66 5f 66 74 |?'....CA|LL.bf_ft|
|00001040| 0d 0a 09 09 4a 4d 50 53 | 09 62 66 5f 73 6b 69 70 |....JMPS|.bf_skip|
|00001050| 0d 0a 62 66 5f 66 74 3a | 0d 0a 09 09 50 55 53 48 |..bf_ft:|....PUSH|
|00001060| 09 41 58 0d 0a 09 09 4d | 4f 56 09 41 4c 2c 41 48 |.AX....M|OV.AL,AH|
|00001070| 0d 0a 09 09 52 45 50 09 | 53 54 4f 53 42 0d 0a 09 |....REP.|STOSB...|
|00001080| 09 50 4f 50 09 41 58 0d | 0a 09 09 52 45 54 0d 0a |.POP.AX.|...RET..|
|00001090| 62 66 5f 73 66 74 3a 0d | 0a 09 09 4d 4f 56 09 41 |bf_sft:.|...MOV.A|
|000010a0| 48 2c 27 20 27 0d 0a 09 | 09 4a 4d 50 53 09 62 66 |H,' '...|.JMPS.bf|
|000010b0| 5f 66 74 0d 0a 3b 0d 0a | 54 6f 5f 55 70 70 65 72 |_ft..;..|To_Upper|
|000010c0| 3a 0d 0a 09 09 43 4d 50 | 09 41 4c 2c 27 61 27 0d |:....CMP|.AL,'a'.|
|000010d0| 0a 09 09 4a 42 09 74 75 | 5f 65 78 69 74 0d 0a 09 |...JB.tu|_exit...|
|000010e0| 09 43 4d 50 09 41 4c 2c | 27 7a 27 0d 0a 09 09 4a |.CMP.AL,|'z'....J|
|000010f0| 41 09 74 75 5f 65 78 69 | 74 0d 0a 09 09 53 55 42 |A.tu_exi|t....SUB|
|00001100| 09 41 4c 2c 27 61 27 2d | 27 41 27 0d 0a 74 75 5f |.AL,'a'-|'A'..tu_|
|00001110| 65 78 69 74 3a 0d 0a 09 | 09 52 45 54 0d 0a 3b 0d |exit:...|.RET..;.|
|00001120| 0a 3b 09 7a 65 72 6f 20 | 66 69 6c 6c 73 20 74 68 |.;.zero |fills th|
|00001130| 65 20 6c 69 6e 65 20 62 | 75 66 66 65 72 2c 20 73 |e line b|uffer, s|
|00001140| 61 76 65 73 20 61 6c 6c | 0d 0a 3b 0d 0a 43 6c 65 |aves all|..;..Cle|
|00001150| 61 72 5f 4c 69 6e 65 3a | 0d 0a 09 09 50 55 53 48 |ar_Line:|....PUSH|
|00001160| 09 41 58 0d 0a 09 09 50 | 55 53 48 09 43 58 0d 0a |.AX....P|USH.CX..|
|00001170| 09 09 50 55 53 48 09 44 | 49 0d 0a 09 09 4d 4f 56 |..PUSH.D|I....MOV|
|00001180| 09 44 49 2c 4f 66 66 73 | 65 74 20 4c 69 6e 65 0d |.DI,Offs|et Line.|
|00001190| 0a 09 09 4d 4f 56 09 43 | 58 2c 4c 45 4e 47 54 48 |...MOV.C|X,LENGTH|
|000011a0| 20 4c 69 6e 65 0d 0a 09 | 09 4d 4f 56 09 41 4c 2c | Line...|.MOV.AL,|
|000011b0| 30 0d 0a 09 09 52 45 50 | 09 53 54 4f 53 42 0d 0a |0....REP|.STOSB..|
|000011c0| 09 09 50 4f 50 09 44 49 | 0d 0a 09 09 50 4f 50 09 |..POP.DI|....POP.|
|000011d0| 43 58 0d 0a 09 09 50 4f | 50 09 41 58 0d 0a 09 09 |CX....PO|P.AX....|
|000011e0| 52 45 54 0d 0a 3b 0d 0a | 3b 09 50 72 69 6e 74 20 |RET..;..|;.Print |
|000011f0| 6e 75 6c 6c 2d 74 65 72 | 6d 69 6e 61 74 65 64 20 |null-ter|minated |
|00001200| 73 74 72 69 6e 67 20 70 | 6f 69 6e 74 65 64 20 74 |string p|ointed t|
|00001210| 6f 20 62 79 20 53 49 2c | 20 73 61 76 65 73 20 61 |o by SI,| saves a|
|00001220| 6c 6c 0d 0a 3b 0d 0a 4d | 73 67 4f 75 74 3a 0d 0a |ll..;..M|sgOut:..|
|00001230| 09 09 50 55 53 48 09 41 | 58 0d 0a 09 09 50 55 53 |..PUSH.A|X....PUS|
|00001240| 48 09 53 49 0d 0a 6d 73 | 67 6c 6f 6f 70 3a 0d 0a |H.SI..ms|gloop:..|
|00001250| 09 09 4c 4f 44 53 42 09 | 09 09 09 3b 20 67 65 74 |..LODSB.|...; get|
|00001260| 20 61 20 63 68 61 72 61 | 63 74 65 72 0d 0a 09 09 | a chara|cter....|
|00001270| 4f 52 09 41 4c 2c 41 4c | 09 09 09 3b 20 6d 61 63 |OR.AL,AL|...; mac|
|00001280| 68 69 6e 65 20 7a 65 72 | 6f 3f 0d 0a 09 09 4a 5a |hine zer|o?....JZ|
|00001290| 09 6d 73 67 65 78 69 74 | 09 09 09 3b 20 79 65 73 |.msgexit|...; yes|
|000012a0| 2c 20 65 78 69 74 0d 0a | 09 09 43 41 4c 4c 09 43 |, exit..|..CALL.C|
|000012b0| 68 61 72 5f 4f 75 74 09 | 09 3b 20 70 72 69 6e 74 |har_Out.|.; print|
|000012c0| 20 69 74 0d 0a 09 09 4a | 4d 50 53 09 6d 73 67 6c | it....J|MPS.msgl|
|000012d0| 6f 6f 70 09 09 09 3b 20 | 67 65 74 20 61 6e 6f 74 |oop...; |get anot|
|000012e0| 68 65 72 0d 0a 6d 73 67 | 65 78 69 74 3a 0d 0a 09 |her..msg|exit:...|
|000012f0| 09 50 4f 50 09 53 49 0d | 0a 09 09 50 4f 50 09 41 |.POP.SI.|...POP.A|
|00001300| 58 0d 0a 09 09 52 45 54 | 0d 0a 3b 0d 0a 43 72 4c |X....RET|..;..CrL|
|00001310| 66 3a 0d 0a 09 09 50 55 | 53 48 09 41 58 0d 0a 09 |f:....PU|SH.AX...|
|00001320| 09 4d 4f 56 09 41 4c 2c | 43 52 0d 0a 09 09 43 41 |.MOV.AL,|CR....CA|
|00001330| 4c 4c 09 43 68 61 72 5f | 4f 75 74 0d 0a 09 09 4d |LL.Char_|Out....M|
|00001340| 4f 56 09 41 4c 2c 4c 46 | 0d 0a 09 09 43 41 4c 4c |OV.AL,LF|....CALL|
|00001350| 09 43 68 61 72 5f 4f 75 | 74 0d 0a 09 09 50 4f 50 |.Char_Ou|t....POP|
|00001360| 09 41 58 0d 0a 09 09 52 | 45 54 0d 0a 3b 0d 0a 3b |.AX....R|ET..;..;|
|00001370| 09 53 65 6e 64 20 63 68 | 61 72 61 63 74 65 72 20 |.Send ch|aracter |
|00001380| 69 6e 20 41 4c 20 74 6f | 20 63 6f 6e 73 6f 6c 65 |in AL to| console|
|00001390| 0d 0a 3b 0d 0a 43 68 61 | 72 5f 4f 75 74 3a 0d 0a |..;..Cha|r_Out:..|
|000013a0| 09 09 50 55 53 48 09 42 | 58 0d 0a 09 09 50 55 53 |..PUSH.B|X....PUS|
|000013b0| 48 09 44 58 0d 0a 09 09 | 50 55 53 48 09 43 58 0d |H.DX....|PUSH.CX.|
|000013c0| 0a 09 09 4d 4f 56 09 43 | 4c 2c 43 6f 6e 4f 75 74 |...MOV.C|L,ConOut|
|000013d0| 0d 0a 09 09 4d 4f 56 09 | 44 4c 2c 41 4c 0d 0a 09 |....MOV.|DL,AL...|
|000013e0| 09 43 41 4c 4c 09 42 44 | 4f 53 0d 0a 09 09 50 4f |.CALL.BD|OS....PO|
|000013f0| 50 09 43 58 0d 0a 09 09 | 50 4f 50 09 44 58 0d 0a |P.CX....|POP.DX..|
|00001400| 09 09 50 4f 50 09 42 58 | 0d 0a 09 09 52 45 54 0d |..POP.BX|....RET.|
|00001410| 0a 3b 0d 0a 42 44 4f 53 | 3a 0d 0a 09 09 50 55 53 |.;..BDOS|:....PUS|
|00001420| 48 09 45 53 0d 0a 09 09 | 49 4e 54 09 32 32 34 0d |H.ES....|INT.224.|
|00001430| 0a 09 09 50 4f 50 09 45 | 53 0d 0a 09 09 52 45 54 |...POP.E|S....RET|
|00001440| 0d 0a 3b 0d 0a 09 09 44 | 53 45 47 09 24 0d 0a 3b |..;....D|SEG.$..;|
|00001450| 0d 0a 3b 09 69 6e 69 74 | 69 61 6c 69 7a 65 64 20 |..;.init|ialized |
|00001460| 64 61 74 61 0d 0a 3b 0d | 0a 09 09 44 42 09 27 28 |data..;.|...DB.'(|
|00001470| 63 29 20 31 39 38 34 20 | 43 68 61 72 6c 69 65 20 |c) 1984 |Charlie |
|00001480| 47 6f 64 65 74 2d 43 65 | 72 61 6f 6c 6f 27 0d 0a |Godet-Ce|raolo'..|
|00001490| 53 69 67 6e 4f 6e 09 09 | 44 42 09 27 53 41 56 45 |SignOn..|DB.'SAVE|
|000014a0| 30 20 76 27 0d 0a 09 09 | 44 42 09 52 65 6c 65 61 |0 v'....|DB.Relea|
|000014b0| 73 65 20 2b 20 41 73 63 | 69 69 5f 5a 65 72 6f 2c |se + Asc|ii_Zero,|
|000014c0| 27 2e 27 0d 0a 09 09 44 | 42 09 28 56 65 72 73 69 |'.'....D|B.(Versi|
|000014d0| 6f 6e 2f 31 30 29 20 2b | 20 41 73 63 69 69 5f 5a |on/10) +| Ascii_Z|
|000014e0| 65 72 6f 0d 0a 09 09 44 | 42 09 28 56 65 72 73 69 |ero....D|B.(Versi|
|000014f0| 6f 6e 20 4d 4f 44 20 31 | 30 29 20 2b 20 41 73 63 |on MOD 1|0) + Asc|
|00001500| 69 69 5f 5a 65 72 6f 0d | 0a 09 09 44 42 09 43 52 |ii_Zero.|...DB.CR|
|00001510| 2c 4c 46 0d 0a 55 73 65 | 4d 73 67 09 09 44 42 09 |,LF..Use|Msg..DB.|
|00001520| 43 52 2c 4c 46 0d 0a 09 | 09 44 42 09 54 41 42 2c |CR,LF...|.DB.TAB,|
|00001530| 27 55 53 41 47 45 3a 20 | 53 41 56 45 30 20 5b 46 |'USAGE: |SAVE0 [F|
|00001540| 69 6c 65 4e 61 6d 65 5d | 27 2c 43 52 2c 4c 46 0d |ileName]|',CR,LF.|
|00001550| 0a 09 09 44 42 09 54 41 | 42 2c 27 43 72 65 61 74 |...DB.TA|B,'Creat|
|00001560| 65 73 20 61 6e 20 28 65 | 6d 70 74 79 29 20 6e 61 |es an (e|mpty) na|
|00001570| 6d 65 64 20 65 6e 74 72 | 79 20 69 6e 20 74 68 65 |med entr|y in the|
|00001580| 20 64 69 72 65 63 74 6f | 72 79 2e 27 0d 0a 09 09 | directo|ry.'....|
|00001590| 44 42 09 43 52 2c 4c 46 | 0d 0a 09 09 44 42 09 54 |DB.CR,LF|....DB.T|
|000015a0| 41 42 2c 27 49 66 20 6e | 6f 20 66 69 6c 65 6e 61 |AB,'If n|o filena|
|000015b0| 6d 65 20 69 73 20 67 69 | 76 65 6e 20 6f 6e 20 74 |me is gi|ven on t|
|000015c0| 68 65 20 63 6f 6d 6d 61 | 6e 64 20 6c 69 6e 65 27 |he comma|nd line'|
|000015d0| 0d 0a 09 09 44 42 09 43 | 52 2c 4c 46 0d 0a 09 09 |....DB.C|R,LF....|
|000015e0| 44 42 09 54 41 42 2c 27 | 74 68 65 20 70 72 6f 67 |DB.TAB,'|the prog|
|000015f0| 72 61 6d 20 77 69 6c 6c | 20 70 72 6f 6d 70 74 20 |ram will| prompt |
|00001600| 66 6f 72 20 6f 6e 65 2e | 27 2c 43 52 2c 4c 46 0d |for one.|',CR,LF.|
|00001610| 0a 09 09 44 42 09 54 41 | 42 2c 27 45 6e 74 65 72 |...DB.TA|B,'Enter|
|00001620| 69 6e 67 20 6f 6e 6c 79 | 20 61 20 3c 52 45 54 55 |ing only| a <RETU|
|00001630| 52 4e 3e 20 74 6f 20 74 | 68 65 20 70 72 6f 6d 70 |RN> to t|he promp|
|00001640| 74 27 0d 0a 09 09 44 42 | 09 27 20 77 69 6c 6c 20 |t'....DB|.' will |
|00001650| 65 78 69 74 20 74 68 65 | 20 70 72 6f 67 72 61 6d |exit the| program|
|00001660| 2e 27 2c 43 52 2c 4c 46 | 0d 0a 09 09 44 42 09 54 |.',CR,LF|....DB.T|
|00001670| 41 42 2c 27 46 69 6c 65 | 6e 61 6d 65 20 4d 55 53 |AB,'File|name MUS|
|00001680| 54 20 62 65 20 75 6e 61 | 6d 62 69 67 75 6f 75 73 |T be una|mbiguous|
|00001690| 2e 27 2c 43 52 2c 4c 46 | 0d 0a 09 09 44 42 09 54 |.',CR,LF|....DB.T|
|000016a0| 41 42 2c 27 54 68 65 20 | 64 69 73 6b 20 73 79 73 |AB,'The |disk sys|
|000016b0| 74 65 6d 20 69 73 20 72 | 65 73 65 74 20 62 65 66 |tem is r|eset bef|
|000016c0| 6f 72 65 20 61 74 74 65 | 6d 70 74 69 6e 67 27 0d |ore atte|mpting'.|
|000016d0| 0a 09 09 44 42 09 27 20 | 74 6f 20 63 72 65 61 74 |...DB.' |to creat|
|000016e0| 65 20 74 68 65 20 65 6e | 74 72 79 2e 27 0d 0a 09 |e the en|try.'...|
|000016f0| 09 44 42 09 43 52 2c 4c | 46 2c 45 4f 53 0d 0a 4e |.DB.CR,L|F,EOS..N|
|00001700| 6f 57 69 6c 64 4d 73 67 | 09 44 42 09 43 52 2c 4c |oWildMsg|.DB.CR,L|
|00001710| 46 2c 54 41 42 2c 27 57 | 69 6c 64 63 61 72 64 73 |F,TAB,'W|ildcards|
|00001720| 20 61 72 65 20 4e 4f 54 | 20 61 6c 6c 6f 77 65 64 | are NOT| allowed|
|00001730| 2e 27 0d 0a 09 09 44 42 | 09 43 52 2c 4c 46 2c 45 |.'....DB|.CR,LF,E|
|00001740| 4f 53 0d 0a 46 69 6c 65 | 4d 73 67 09 09 44 42 09 |OS..File|Msg..DB.|
|00001750| 27 53 61 76 65 30 3a 20 | 27 2c 45 4f 53 0d 0a 4e |'Save0: |',EOS..N|
|00001760| 6f 52 6f 6f 6d 4d 73 67 | 09 44 42 09 43 52 2c 4c |oRoomMsg|.DB.CR,L|
|00001770| 46 2c 27 44 69 72 65 63 | 74 6f 72 79 20 46 75 6c |F,'Direc|tory Ful|
|00001780| 6c 27 2c 43 52 2c 4c 46 | 2c 45 4f 53 0d 0a 43 79 |l',CR,LF|,EOS..Cy|
|00001790| 63 6c 65 5f 46 6c 61 67 | 09 44 42 09 46 41 4c 53 |cle_Flag|.DB.FALS|
|000017a0| 45 0d 0a 3b 0d 0a 3b 09 | 75 6e 69 6e 69 74 69 61 |E..;..;.|uninitia|
|000017b0| 6c 69 7a 65 64 20 64 61 | 74 61 0d 0a 3b 0d 0a 09 |lized da|ta..;...|
|000017c0| 49 46 20 28 4f 66 66 73 | 65 74 20 24 20 2d 20 4f |IF (Offs|et $ - O|
|000017d0| 66 66 73 65 74 20 42 41 | 53 45 50 41 47 45 29 20 |ffset BA|SEPAGE) |
|000017e0| 4d 4f 44 20 32 20 4e 45 | 20 30 0d 0a 09 09 52 42 |MOD 2 NE| 0....RB|
|000017f0| 09 31 09 09 09 3b 20 6d | 61 6b 65 20 73 75 72 65 |.1...; m|ake sure|
|00001800| 20 61 6c 6c 20 69 73 20 | 65 76 65 6e 0d 0a 09 45 | all is |even...E|
|00001810| 4e 44 49 46 0d 0a 09 09 | 52 42 09 31 30 30 09 09 |NDIF....|RB.100..|
|00001820| 09 3b 20 31 30 30 20 62 | 79 74 65 73 20 66 6f 72 |.; 100 b|ytes for|
|00001830| 20 73 74 61 63 6b 0d 0a | 4c 4f 43 41 4c 5f 53 54 | stack..|LOCAL_ST|
|00001840| 41 43 4b 09 45 51 55 09 | 24 0d 0a 4c 69 6e 65 42 |ACK.EQU.|$..LineB|
|00001850| 75 66 66 65 72 09 45 51 | 55 09 24 0d 0a 4d 61 78 |uffer.EQ|U.$..Max|
|00001860| 4c 69 6e 65 09 09 52 42 | 09 31 0d 0a 4c 69 6e 65 |Line..RB|.1..Line|
|00001870| 4c 65 6e 67 74 68 09 52 | 42 09 31 0d 0a 4c 69 6e |Length.R|B.1..Lin|
|00001880| 65 09 09 52 42 09 32 30 | 0d 0a 3b 0d 0a 09 09 45 |e..RB.20|..;....E|
|00001890| 4e 44 0d 0a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |ND......|........|
|000018a0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000018b0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000018c0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000018d0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000018e0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000018f0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001900| 01 16 00 00 00 16 00 00 | 00 02 2b 00 00 00 33 00 |........|..+...3.|
|00001910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001980| 8c da 8e d2 bc 0e 03 fc | be 1e 01 e8 1c 01 80 3e |........|.......>|
|00001990| 80 00 00 75 1c c6 06 a9 | 02 ff e8 1c 01 be 8e 02 |...u....|........|
|000019a0| e8 07 01 e8 64 00 72 36 | be 10 03 bf 5c 00 e8 77 |....d.r6|....\..w|
|000019b0| 00 bf 5d 00 e8 2e 00 73 | 08 be 6e 02 e8 eb 00 eb |..]....s|..n.....|
|000019c0| 16 e8 2e 00 e8 31 00 e8 | 37 00 3c ff 75 09 be 96 |.....1..|7.<.u...|
|000019d0| 02 e8 d6 00 e9 07 00 80 | 3e a9 02 ff 74 bc b1 00 |........|>...t...|
|000019e0| b2 00 e8 ef 00 b0 3f b9 | 0b 00 f2 ae 74 02 f8 c3 |......?.|....t...|
|000019f0| f9 c3 b1 0d e8 dd 00 c3 | ba 5c 00 b1 13 e8 d4 00 |........|.\......|
|00001a00| c3 ba 5c 00 b1 16 e8 cb | 00 c3 c6 06 0e 03 14 e8 |..\.....|........|
|00001a10| 87 00 ba 0e 03 b1 0a e8 | ba 00 e8 9c 00 80 3e 0f |........|......>.|
|00001a20| 03 00 74 02 f8 c3 f9 c3 | ac 3c 20 74 fb 3c 09 74 |..t.....|.< t.<.t|
|00001a30| f7 4e 8a 44 01 3c 3a 75 | 09 ac e8 51 00 24 1f 46 |.N.D.<:u|...Q.$.F|
|00001a40| eb 02 32 c0 aa b9 08 00 | e8 0f 00 b9 03 00 e8 09 |..2.....|........|
|00001a50| 00 b4 00 b9 18 00 e8 2a | 00 c3 ac e8 30 00 0a c0 |.......*|....0...|
|00001a60| 74 28 3c 2a 74 16 3c 2e | 74 20 aa e2 ed ac e8 1d |t(<*t.<.|t ......|
|00001a70| 00 0a c0 74 06 3c 2e 74 | 02 eb f2 c3 b4 3f e8 02 |...t.<.t|.....?..|
|00001a80| 00 eb ea 50 8a c4 f3 aa | 58 c3 b4 20 eb f5 3c 61 |...P....|X.. ..<a|
|00001a90| 72 06 3c 7a 77 02 2c 20 | c3 50 51 57 bf 10 03 b9 |r.<zw., |.PQW....|
|00001aa0| 14 00 b0 00 f3 aa 5f 59 | 58 c3 50 56 ac 0a c0 74 |......_Y|X.PV...t|
|00001ab0| 05 e8 12 00 eb f6 5e 58 | c3 50 b0 0d e8 07 00 b0 |......^X|.P......|
|00001ac0| 0a e8 02 00 58 c3 53 52 | 51 b1 02 8a d0 e8 04 00 |....X.SR|Q.......|
|00001ad0| 59 5a 5b c3 06 cd e0 07 | c3 00 00 00 00 00 00 00 |YZ[.....|........|
|00001ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001be0| 28 63 29 20 31 39 38 34 | 20 43 68 61 72 6c 69 65 |(c) 1984| Charlie|
|00001bf0| 20 47 6f 64 65 74 2d 43 | 65 72 61 6f 6c 6f 53 41 | Godet-C|eraoloSA|
|00001c00| 56 45 30 20 76 31 2e 30 | 32 0d 0a 0d 0a 09 55 53 |VE0 v1.0|2.....US|
|00001c10| 41 47 45 3a 20 53 41 56 | 45 30 20 5b 46 69 6c 65 |AGE: SAV|E0 [File|
|00001c20| 4e 61 6d 65 5d 0d 0a 09 | 43 72 65 61 74 65 73 20 |Name]...|Creates |
|00001c30| 61 6e 20 28 65 6d 70 74 | 79 29 20 6e 61 6d 65 64 |an (empt|y) named|
|00001c40| 20 65 6e 74 72 79 20 69 | 6e 20 74 68 65 20 64 69 | entry i|n the di|
|00001c50| 72 65 63 74 6f 72 79 2e | 0d 0a 09 49 66 20 6e 6f |rectory.|...If no|
|00001c60| 20 66 69 6c 65 6e 61 6d | 65 20 69 73 20 67 69 76 | filenam|e is giv|
|00001c70| 65 6e 20 6f 6e 20 74 68 | 65 20 63 6f 6d 6d 61 6e |en on th|e comman|
|00001c80| 64 20 6c 69 6e 65 0d 0a | 09 74 68 65 20 70 72 6f |d line..|.the pro|
|00001c90| 67 72 61 6d 20 77 69 6c | 6c 20 70 72 6f 6d 70 74 |gram wil|l prompt|
|00001ca0| 20 66 6f 72 20 6f 6e 65 | 2e 0d 0a 09 45 6e 74 65 | for one|....Ente|
|00001cb0| 72 69 6e 67 20 6f 6e 6c | 79 20 61 20 3c 52 45 54 |ring onl|y a <RET|
|00001cc0| 55 52 4e 3e 20 74 6f 20 | 74 68 65 20 70 72 6f 6d |URN> to |the prom|
|00001cd0| 70 74 20 77 69 6c 6c 20 | 65 78 69 74 20 74 68 65 |pt will |exit the|
|00001ce0| 20 70 72 6f 67 72 61 6d | 2e 0d 0a 09 46 69 6c 65 | program|....File|
|00001cf0| 6e 61 6d 65 20 4d 55 53 | 54 20 62 65 20 75 6e 61 |name MUS|T be una|
|00001d00| 6d 62 69 67 75 6f 75 73 | 2e 0d 0a 09 54 68 65 20 |mbiguous|....The |
|00001d10| 64 69 73 6b 20 73 79 73 | 74 65 6d 20 69 73 20 72 |disk sys|tem is r|
|00001d20| 65 73 65 74 20 62 65 66 | 6f 72 65 20 61 74 74 65 |eset bef|ore atte|
|00001d30| 6d 70 74 69 6e 67 20 74 | 6f 20 63 72 65 61 74 65 |mpting t|o create|
|00001d40| 20 74 68 65 20 65 6e 74 | 72 79 2e 0d 0a 00 0d 0a | the ent|ry......|
|00001d50| 09 57 69 6c 64 63 61 72 | 64 73 20 61 72 65 20 4e |.Wildcar|ds are N|
|00001d60| 4f 54 20 61 6c 6c 6f 77 | 65 64 2e 0d 0a 00 53 61 |OT allow|ed....Sa|
|00001d70| 76 65 30 3a 20 00 0d 0a | 44 69 72 65 63 74 6f 72 |ve0: ...|Director|
|00001d80| 79 20 46 75 6c 6c 0d 0a | 00 00 00 00 00 00 00 00 |y Full..|........|
|00001d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001da0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001db0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+
