/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug006.ark / SORT.ASM

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 53 4f 52 54 20 50 52 | 4f 47 52 41 4d 20 46 4f |;SORT PR|OGRAM FO|
|00000010| 52 20 43 50 2f 4d 20 52 | 41 4e 44 4f 4d 20 46 49 |R CP/M R|ANDOM FI|
|00000020| 4c 45 53 0d 0a 3b 55 53 | 45 53 20 46 00 58 45 44 |LES..;US|ES F.XED|
|00000030| 20 46 49 45 4c 44 20 4c | 45 4e 47 54 48 20 4f 46 | FIELD L|ENGTH OF|
|00000040| 20 35 0d 0a 3b 57 52 49 | 54 45 53 20 43 50 2f 4d | 5..;WRI|TES CP/M|
|00000050| 20 46 49 4c 45 20 4f 46 | 20 52 45 43 4f 52 44 20 | FILE OF| RECORD |
|00000060| 4e 55 4d 42 45 52 53 2c | 20 57 48 49 43 48 0d 0a |NUMBERS,| WHICH..|
|00000070| 3b 43 41 4e 20 42 45 20 | 52 45 41 44 20 42 59 20 |;CAN BE |READ BY |
|00000080| 43 50 2f 4d 20 41 53 20 | 41 20 53 45 51 55 45 4e |CP/M AS |A SEQUEN|
|00000090| 54 49 41 4c 20 46 49 4c | 45 0d 0a 3b 4f 52 20 46 |TIAL FIL|E..;OR F|
|000000a0| 52 4f 4d 20 42 41 53 49 | 43 20 41 53 20 41 20 52 |ROM BASI|C AS A R|
|000000b0| 41 4e 44 4f 4d 20 46 49 | 4c 45 20 57 49 54 48 20 |ANDOM FI|LE WITH |
|000000c0| 52 45 43 4f 52 44 0d 0a | 3b 4c 45 4e 47 54 48 20 |RECORD..|;LENGTH |
|000000d0| 4f 46 20 35 0d 0a 3b 0d | 0a 3b 43 4f 4d 4d 41 4e |OF 5..;.|.;COMMAN|
|000000e0| 44 20 46 4f 52 4d 41 54 | 3a 20 53 4f 52 54 20 49 |D FORMAT|: SORT I|
|000000f0| 4e 50 55 54 2e 4e 41 4d | 45 20 4f 55 54 50 55 54 |NPUT.NAM|E OUTPUT|
|00000100| 2e 4e 41 4d 45 20 4e 0d | 0a 3b 0d 0a 3b 49 4e 50 |.NAME N.|.;..;INP|
|00000110| 55 54 2e 4e 41 4d 45 20 | 49 53 20 54 48 45 20 4e |UT.NAME |IS THE N|
|00000120| 41 4d 45 20 4f 46 20 41 | 20 52 41 4e 44 4f 4d 20 |AME OF A| RANDOM |
|00000130| 42 41 53 49 43 20 45 0d | 0a 3b 46 49 4c 45 3b 20 |BASIC E.|.;FILE; |
|00000140| 4f 55 54 50 55 54 2e 4e | 41 4d 45 20 49 53 20 54 |OUTPUT.N|AME IS T|
|00000150| 48 45 20 4e 41 4d 45 20 | 4f 46 20 54 48 45 20 49 |HE NAME |OF THE I|
|00000160| 4e 44 45 58 20 46 49 4c | 45 0d 0a 3b 54 4f 20 42 |NDEX FIL|E..;TO B|
|00000170| 45 20 57 52 49 54 54 45 | 4e 2e 20 20 4e 20 49 53 |E WRITTE|N.  N IS|
|00000180| 20 54 48 45 20 46 49 45 | 4c 44 20 4e 55 4d 42 45 | THE FIE|LD NUMBE|
|00000190| 52 20 54 4f 20 42 45 0d | 0a 3b 53 4f 52 54 45 44 |R TO BE.|.;SORTED|
|000001a0| 20 55 50 4f 4e 0d 0a 3b | 38 2f 31 34 2f 37 37 0d | UPON..;|8/14/77.|
|000001b0| 0a 09 44 45 42 55 47 09 | 45 51 55 09 30 0d 0a 09 |..DEBUG.|EQU.0...|
|000001c0| 4f 52 47 09 31 30 30 48 | 0d 0a 09 49 46 09 44 45 |ORG.100H|...IF.DE|
|000001d0| 42 55 47 0d 0a 09 4c 58 | 49 09 53 50 2c 34 30 30 |BUG...LX|I.SP,400|
|000001e0| 30 48 09 3b 46 4f 52 20 | 44 44 54 0d 0a 09 4c 58 |0H.;FOR |DDT...LX|
|000001f0| 49 09 48 2c 30 0d 0a 09 | 53 48 4c 44 09 34 30 30 |I.H,0...|SHLD.400|
|00000200| 30 48 0d 0a 09 45 4e 44 | 49 46 0d 0a 09 43 41 4c |0H...END|IF...CAL|
|00000210| 4c 09 53 54 41 52 54 0d | 0a 09 44 42 09 27 53 4f |L.START.|..DB.'SO|
|00000220| 52 54 20 56 45 52 53 49 | 4f 4e 20 31 2e 32 27 2c |RT VERSI|ON 1.2',|
|00000230| 31 33 2c 31 30 2c 27 24 | 27 0d 0a 53 54 41 52 54 |13,10,'$|'..START|
|00000240| 09 50 4f 50 09 44 09 3b | 47 45 54 20 49 44 20 4d |.POP.D.;|GET ID M|
|00000250| 45 53 53 41 47 45 0d 0a | 09 43 41 4c 4c 09 4d 53 |ESSAGE..|.CALL.MS|
|00000260| 47 50 52 54 0d 0a 3b 49 | 4e 49 54 20 4c 4f 43 41 |GPRT..;I|NIT LOCA|
|00000270| 4c 20 53 54 41 43 4b 0d | 0a 09 4c 58 49 09 48 2c |L STACK.|..LXI.H,|
|00000280| 30 0d 0a 09 44 41 44 09 | 53 50 0d 0a 09 53 48 4c |0...DAD.|SP...SHL|
|00000290| 44 09 53 54 41 43 4b 0d | 0a 09 4c 58 49 09 53 50 |D.STACK.|..LXI.SP|
|000002a0| 2c 53 54 41 43 4b 0d 0a | 3b 54 48 49 53 20 50 52 |,STACK..|;THIS PR|
|000002b0| 4f 47 52 41 4d 20 49 53 | 20 50 52 4f 47 52 41 4d |OGRAM IS| PROGRAM|
|000002c0| 4d 45 44 20 28 50 45 52 | 48 41 50 53 20 4e 4f 54 |MED (PER|HAPS NOT|
|000002d0| 20 57 45 4c 4c 29 0d 0a | 3b 55 53 49 4e 47 20 54 | WELL)..|;USING T|
|000002e0| 4f 50 20 44 4f 57 4e 20 | 53 54 52 55 43 54 55 52 |OP DOWN |STRUCTUR|
|000002f0| 45 44 20 50 52 4f 47 52 | 41 4d 4d 49 4e 47 20 54 |ED PROGR|AMMING T|
|00000300| 45 43 48 4e 49 51 55 45 | 53 0d 0a 09 43 41 4c 4c |ECHNIQUE|S...CALL|
|00000310| 09 49 4e 49 54 0d 0a 09 | 43 41 4c 4c 09 52 45 41 |.INIT...|CALL.REA|
|00000320| 44 24 54 41 42 4c 45 0d | 0a 09 49 46 20 44 45 42 |D$TABLE.|..IF DEB|
|00000330| 55 47 20 21 20 52 53 54 | 20 37 20 21 20 45 4e 44 |UG ! RST| 7 ! END|
|00000340| 49 46 0d 0a 09 43 41 4c | 4c 09 53 4f 52 54 24 54 |IF...CAL|L.SORT$T|
|00000350| 41 42 4c 45 0d 0a 09 49 | 46 20 44 45 42 55 47 20 |ABLE...I|F DEBUG |
|00000360| 21 20 52 53 54 20 37 20 | 21 20 45 4e 44 49 46 0d |! RST 7 |! ENDIF.|
|00000370| 0a 09 43 41 4c 4c 09 57 | 52 49 54 45 24 53 4f 52 |..CALL.W|RITE$SOR|
|00000380| 54 45 44 24 46 49 4c 45 | 0d 0a 09 49 46 20 44 45 |TED$FILE|...IF DE|
|00000390| 42 55 47 20 21 20 52 53 | 54 20 37 20 21 20 45 4e |BUG ! RS|T 7 ! EN|
|000003a0| 44 49 46 0d 0a 09 43 41 | 4c 4c 09 45 52 58 49 54 |DIF...CA|LL.ERXIT|
|000003b0| 0d 0a 09 44 42 09 27 2b | 2b 45 4e 44 20 4f 46 20 |...DB.'+|+END OF |
|000003c0| 53 4f 52 54 24 27 0d 0a | 3b 0d 0a 3b 49 4e 49 54 |SORT$'..|;..;INIT|
|000003d0| 20 52 4f 55 54 49 4e 45 | 0d 0a 49 4e 49 54 09 43 | ROUTINE|..INIT.C|
|000003e0| 41 4c 4c 09 47 45 54 24 | 46 4c 44 4e 4f 0d 0a 09 |ALL.GET$|FLDNO...|
|000003f0| 43 41 4c 4c 09 53 41 56 | 45 24 46 43 42 0d 0a 09 |CALL.SAV|E$FCB...|
|00000400| 43 41 4c 4c 09 4f 50 45 | 4e 24 49 4e 50 55 54 0d |CALL.OPE|N$INPUT.|
|00000410| 0a 09 52 45 54 0d 0a 0d | 0a 47 45 54 24 46 4c 44 |..RET...|.GET$FLD|
|00000420| 4e 4f 3a 0d 0a 09 4c 44 | 41 09 38 30 48 09 3b 47 |NO:...LD|A.80H.;G|
|00000430| 45 54 20 50 41 52 4d 20 | 4c 45 4e 47 54 48 0d 0a |ET PARM |LENGTH..|
|00000440| 09 4f 52 49 09 38 30 48 | 09 3b 50 4f 49 4e 54 20 |.ORI.80H|.;POINT |
|00000450| 54 4f 20 4c 41 53 54 20 | 42 59 54 45 0d 0a 09 4d |TO LAST |BYTE...M|
|00000460| 4f 56 09 4c 2c 41 0d 0a | 09 4d 56 49 09 48 2c 30 |OV.L,A..|.MVI.H,0|
|00000470| 0d 0a 09 4d 4f 56 09 41 | 2c 4d 09 3b 47 45 54 20 |...MOV.A|,M.;GET |
|00000480| 46 49 45 4c 44 20 4e 55 | 4d 42 45 52 0d 0a 09 41 |FIELD NU|MBER...A|
|00000490| 4e 49 09 30 46 48 09 3b | 4d 41 4b 45 20 42 49 4e |NI.0FH.;|MAKE BIN|
|000004a0| 41 52 59 0d 0a 09 53 54 | 41 09 46 4c 44 4e 4f 0d |ARY...ST|A.FLDNO.|
|000004b0| 0a 09 52 45 54 0d 0a 0d | 0a 3b 4d 4f 56 45 20 54 |..RET...|.;MOVE T|
|000004c0| 48 45 20 4f 55 54 50 55 | 54 20 46 43 42 20 4e 41 |HE OUTPU|T FCB NA|
|000004d0| 4d 45 0d 0a 53 41 56 45 | 24 46 43 42 3a 0d 0a 09 |ME..SAVE|$FCB:...|
|000004e0| 4c 58 49 09 48 2c 46 43 | 42 2b 31 36 0d 0a 09 4c |LXI.H,FC|B+16...L|
|000004f0| 58 49 09 44 2c 46 43 42 | 32 0d 0a 09 4d 56 49 09 |XI.D,FCB|2...MVI.|
|00000500| 42 2c 31 32 0d 0a 4d 4f | 56 45 09 4d 4f 56 09 41 |B,12..MO|VE.MOV.A|
|00000510| 2c 4d 0d 0a 09 53 54 41 | 58 09 44 0d 0a 09 49 4e |,M...STA|X.D...IN|
|00000520| 58 09 48 0d 0a 09 49 4e | 58 09 44 0d 0a 09 44 43 |X.H...IN|X.D...DC|
|00000530| 52 09 42 0d 0a 09 4a 4e | 5a 09 4d 4f 56 45 0d 0a |R.B...JN|Z.MOVE..|
|00000540| 09 52 45 54 0d 0a 0d 0a | 3b 4f 50 45 4e 20 49 4e |.RET....|;OPEN IN|
|00000550| 50 55 54 20 46 49 4c 45 | 0d 0a 4f 50 45 4e 24 49 |PUT FILE|..OPEN$I|
|00000560| 4e 50 55 54 3a 0d 0a 09 | 4c 58 49 09 44 2c 46 43 |NPUT:...|LXI.D,FC|
|00000570| 42 0d 0a 09 4d 56 49 09 | 43 2c 4f 50 45 4e 0d 0a |B...MVI.|C,OPEN..|
|00000580| 09 43 41 4c 4c 09 42 44 | 4f 53 0d 0a 09 49 4e 52 |.CALL.BD|OS...INR|
|00000590| 09 41 09 3b 4f 50 45 4e | 20 4f 4b 3f 0d 0a 09 52 |.A.;OPEN| OK?...R|
|000005a0| 4e 5a 0d 0a 09 43 41 4c | 4c 09 45 52 58 49 54 0d |NZ...CAL|L.ERXIT.|
|000005b0| 0a 09 44 42 09 27 2b 2b | 43 41 4e 27 27 54 20 4f |..DB.'++|CAN''T O|
|000005c0| 50 45 4e 20 49 4e 50 55 | 54 20 46 49 4c 45 24 27 |PEN INPU|T FILE$'|
|000005d0| 0d 0a 0d 0a 4f 50 45 4e | 24 4f 55 54 50 55 54 3a |....OPEN|$OUTPUT:|
|000005e0| 0d 0a 09 4c 58 49 09 44 | 2c 46 43 42 32 0d 0a 09 |...LXI.D|,FCB2...|
|000005f0| 4d 56 49 09 43 2c 44 45 | 4c 54 0d 0a 09 43 41 4c |MVI.C,DE|LT...CAL|
|00000600| 4c 09 42 44 4f 53 0d 0a | 09 4c 58 49 09 44 2c 46 |L.BDOS..|.LXI.D,F|
|00000610| 43 42 32 0d 0a 09 4d 56 | 49 09 43 2c 4d 41 4b 45 |CB2...MV|I.C,MAKE|
|00000620| 0d 0a 09 43 41 4c 4c 09 | 42 44 4f 53 0d 0a 09 49 |...CALL.|BDOS...I|
|00000630| 4e 52 09 41 0d 0a 09 52 | 4e 5a 0d 0a 09 43 41 4c |NR.A...R|NZ...CAL|
|00000640| 4c 09 45 52 58 49 54 0d | 0a 09 44 42 09 27 2b 2b |L.ERXIT.|..DB.'++|
|00000650| 43 41 4e 27 27 54 20 4f | 50 45 4e 20 4f 55 54 50 |CAN''T O|PEN OUTP|
|00000660| 55 54 20 46 49 4c 45 24 | 27 0d 0a 0d 0a 45 52 58 |UT FILE$|'....ERX|
|00000670| 49 54 09 50 4f 50 09 44 | 09 3b 47 45 54 20 4d 45 |IT.POP.D|.;GET ME|
|00000680| 53 53 41 47 45 0d 0a 09 | 43 41 4c 4c 09 4d 53 47 |SSAGE...|CALL.MSG|
|00000690| 50 52 54 0d 0a 0d 0a 45 | 58 49 54 3a 0d 0a 09 49 |PRT....E|XIT:...I|
|000006a0| 46 20 44 45 42 55 47 20 | 21 20 52 53 54 20 37 20 |F DEBUG |! RST 7 |
|000006b0| 21 20 45 4e 44 49 46 0d | 0a 09 4c 48 4c 44 09 53 |! ENDIF.|..LHLD.S|
|000006c0| 54 41 43 4b 0d 0a 09 53 | 50 48 4c 0d 0a 09 52 45 |TACK...S|PHL...RE|
|000006d0| 54 0d 0a 0d 0a 52 45 41 | 44 24 54 41 42 4c 45 3a |T....REA|D$TABLE:|
|000006e0| 0d 0a 09 50 4f 50 09 48 | 09 3b 52 45 54 20 41 44 |...POP.H|.;RET AD|
|000006f0| 44 52 0d 0a 09 53 48 4c | 44 09 45 4f 46 52 45 54 |DR...SHL|D.EOFRET|
|00000700| 2b 31 20 3b 53 41 56 45 | 20 49 4e 20 4a 4d 50 20 |+1 ;SAVE| IN JMP |
|00000710| 52 45 54 0d 0a 52 54 4c | 4f 4f 50 09 43 41 4c 4c |RET..RTL|OOP.CALL|
|00000720| 09 53 4b 49 50 24 54 4f | 24 46 49 45 4c 44 0d 0a |.SKIP$TO|$FIELD..|
|00000730| 09 43 41 4c 4c 09 4d 4f | 56 45 24 46 49 45 4c 44 |.CALL.MO|VE$FIELD|
|00000740| 0d 0a 09 43 41 4c 4c 09 | 49 4e 43 52 24 4e 4f 4e |...CALL.|INCR$NON|
|00000750| 24 4d 54 0d 0a 09 43 41 | 4c 4c 09 53 54 4f 52 45 |$MT...CA|LL.STORE|
|00000760| 24 52 45 43 4e 4f 0d 0a | 09 4a 4d 50 09 52 54 4c |$RECNO..|.JMP.RTL|
|00000770| 4f 4f 50 0d 0a 0d 0a 3b | 43 4f 4d 45 20 48 45 52 |OOP....;|COME HER|
|00000780| 45 20 41 54 20 45 4e 44 | 20 4f 46 20 46 49 4c 45 |E AT END| OF FILE|
|00000790| 2c 20 45 58 49 54 49 4e | 47 20 52 54 4c 4f 4f 50 |, EXITIN|G RTLOOP|
|000007a0| 0d 0a 45 4f 46 09 4c 48 | 4c 44 09 4e 4f 4e 24 4d |..EOF.LH|LD.NON$M|
|000007b0| 54 09 3b 47 45 54 20 41 | 43 54 55 41 4c 20 52 45 |T.;GET A|CTUAL RE|
|000007c0| 43 20 43 4f 55 4e 54 0d | 0a 09 53 48 4c 44 09 48 |C COUNT.|..SHLD.H|
|000007d0| 4f 57 24 4d 41 4e 59 24 | 54 4f 24 57 52 49 54 45 |OW$MANY$|TO$WRITE|
|000007e0| 0d 0a 45 4f 46 52 45 54 | 09 4a 4d 50 09 24 2d 24 |..EOFRET|.JMP.$-$|
|000007f0| 09 3b 41 44 44 52 20 4d | 4f 44 49 46 49 45 44 0d |.;ADDR M|ODIFIED.|
|00000800| 0a 0d 0a 3b 53 4b 49 50 | 20 54 4f 20 43 2f 52 20 |...;SKIP| TO C/R |
|00000810| 49 4e 20 52 45 43 4f 52 | 44 0d 0a 53 4b 49 50 24 |IN RECOR|D..SKIP$|
|00000820| 54 4f 24 43 52 3a 0d 0a | 09 43 41 4c 4c 09 52 44 |TO$CR:..|.CALL.RD|
|00000830| 43 48 52 0d 0a 09 43 50 | 49 09 30 41 48 09 3b 4c |CHR...CP|I.0AH.;L|
|00000840| 2f 46 20 41 46 54 45 52 | 20 43 2f 52 3f 0d 0a 09 |/F AFTER| C/R?...|
|00000850| 4a 4e 5a 09 53 4b 49 50 | 24 54 4f 24 43 52 0d 0a |JNZ.SKIP|$TO$CR..|
|00000860| 09 52 45 54 0d 0a 0d 0a | 45 4d 50 54 59 24 52 45 |.RET....|EMPTY$RE|
|00000870| 43 3a 0d 0a 09 43 41 4c | 4c 20 53 4b 49 50 24 54 |C:...CAL|L SKIP$T|
|00000880| 4f 24 43 52 0d 0a 53 4b | 49 50 24 54 4f 24 46 49 |O$CR..SK|IP$TO$FI|
|00000890| 45 4c 44 3a 0d 0a 09 43 | 41 4c 4c 09 49 4e 43 52 |ELD:...C|ALL.INCR|
|000008a0| 24 52 45 43 4e 4f 0d 0a | 09 43 41 4c 4c 09 52 44 |$RECNO..|.CALL.RD|
|000008b0| 43 48 52 09 3b 47 45 54 | 20 46 49 52 53 54 20 43 |CHR.;GET| FIRST C|
|000008c0| 48 41 52 20 49 4e 20 52 | 45 43 0d 0a 09 43 50 49 |HAR IN R|EC...CPI|
|000008d0| 09 27 30 27 09 3b 45 4d | 50 54 59 20 52 45 43 4f |.'0'.;EM|PTY RECO|
|000008e0| 52 44 3f 0d 0a 09 4a 5a | 09 45 4d 50 54 59 24 52 |RD?...JZ|.EMPTY$R|
|000008f0| 45 43 0d 0a 09 43 41 4c | 4c 09 52 44 43 48 52 09 |EC...CAL|L.RDCHR.|
|00000900| 3b 27 2c 27 20 41 46 54 | 45 52 20 46 4c 41 47 0d |;',' AFT|ER FLAG.|
|00000910| 0a 09 4c 44 41 09 46 4c | 44 4e 4f 0d 0a 09 4d 4f |..LDA.FL|DNO...MO|
|00000920| 56 09 42 2c 41 0d 0a 53 | 4b 49 50 4c 50 09 44 43 |V.B,A..S|KIPLP.DC|
|00000930| 52 09 42 0d 0a 09 52 5a | 09 09 3b 41 54 20 46 49 |R.B...RZ|..;AT FI|
|00000940| 45 4c 44 20 4e 4f 57 0d | 0a 53 4b 49 50 43 48 09 |ELD NOW.|.SKIPCH.|
|00000950| 43 41 4c 4c 09 52 44 43 | 48 52 0d 0a 09 43 50 49 |CALL.RDC|HR...CPI|
|00000960| 09 27 2c 27 0d 0a 09 4a | 4e 5a 09 53 4b 49 50 43 |.','...J|NZ.SKIPC|
|00000970| 48 0d 0a 09 4a 4d 50 09 | 53 4b 49 50 4c 50 0d 0a |H...JMP.|SKIPLP..|
|00000980| 0d 0a 4d 4f 56 45 24 46 | 49 45 4c 44 3a 0d 0a 09 |..MOVE$F|IELD:...|
|00000990| 4c 48 4c 44 09 54 41 42 | 4c 45 24 50 4f 49 4e 54 |LHLD.TAB|LE$POINT|
|000009a0| 45 52 0d 0a 09 4d 56 49 | 09 42 2c 35 09 3b 41 4c |ER...MVI|.B,5.;AL|
|000009b0| 4c 20 53 4f 52 54 20 46 | 49 45 4c 44 53 20 35 20 |L SORT F|IELDS 5 |
|000009c0| 4c 4f 4e 47 0d 0a 09 43 | 41 4c 4c 09 52 44 43 48 |LONG...C|ALL.RDCH|
|000009d0| 52 09 3b 52 45 41 44 20 | 46 49 52 53 54 20 43 48 |R.;READ |FIRST CH|
|000009e0| 41 52 20 28 4d 41 59 20 | 42 45 20 22 29 0d 0a 09 |AR (MAY |BE ")...|
|000009f0| 43 50 49 09 27 22 27 0d | 0a 09 4a 4e 5a 09 4d 46 |CPI.'"'.|..JNZ.MF|
|00000a00| 4e 51 09 3b 53 4b 49 50 | 20 49 46 20 4e 4f 54 20 |NQ.;SKIP| IF NOT |
|00000a10| 27 22 27 0d 0a 4d 4f 56 | 46 4c 50 09 43 41 4c 4c |'"'..MOV|FLP.CALL|
|00000a20| 09 52 44 43 48 52 0d 0a | 4d 46 4e 51 09 43 50 49 |.RDCHR..|MFNQ.CPI|
|00000a30| 09 27 2c 27 0d 0a 09 4a | 5a 09 45 4e 44 4d 56 0d |.','...J|Z.ENDMV.|
|00000a40| 0a 09 43 50 49 09 27 22 | 27 0d 0a 09 4a 5a 09 45 |..CPI.'"|'...JZ.E|
|00000a50| 4e 44 4d 56 0d 0a 09 4d | 4f 56 09 4d 2c 41 09 3b |NDMV...M|OV.M,A.;|
|00000a60| 53 54 4f 52 45 20 43 48 | 41 52 0d 0a 09 43 41 4c |STORE CH|AR...CAL|
|00000a70| 4c 09 54 59 50 45 0d 0a | 09 49 4e 58 09 48 0d 0a |L.TYPE..|.INX.H..|
|00000a80| 09 44 43 52 09 42 0d 0a | 09 4a 4e 5a 09 4d 4f 56 |.DCR.B..|.JNZ.MOV|
|00000a90| 46 4c 50 0d 0a 09 4a 4d | 50 09 45 4e 44 50 41 44 |FLP...JM|P.ENDPAD|
|00000aa0| 0d 0a 3b 50 41 44 20 54 | 4f 20 35 20 4c 4f 4e 47 |..;PAD T|O 5 LONG|
|00000ab0| 20 57 49 54 48 20 42 4c | 41 4e 4b 53 0d 0a 50 41 | WITH BL|ANKS..PA|
|00000ac0| 44 42 4c 09 4d 56 49 09 | 41 2c 27 20 27 0d 0a 09 |DBL.MVI.|A,' '...|
|00000ad0| 4d 4f 56 09 4d 2c 41 0d | 0a 09 43 41 4c 4c 09 54 |MOV.M,A.|..CALL.T|
|00000ae0| 59 50 45 0d 0a 09 44 43 | 52 09 42 0d 0a 09 49 4e |YPE...DC|R.B...IN|
|00000af0| 58 09 48 0d 0a 45 4e 44 | 4d 56 09 49 4e 52 09 42 |X.H..END|MV.INR.B|
|00000b00| 0d 0a 09 44 43 52 09 42 | 0d 0a 09 4a 4e 5a 09 50 |...DCR.B|...JNZ.P|
|00000b10| 41 44 42 4c 0d 0a 45 4e | 44 50 41 44 09 53 48 4c |ADBL..EN|DPAD.SHL|
|00000b20| 44 09 54 41 42 4c 45 24 | 50 4f 49 4e 54 45 52 0d |D.TABLE$|POINTER.|
|00000b30| 0a 09 4d 56 49 09 41 2c | 27 20 27 0d 0a 09 43 41 |..MVI.A,|' '...CA|
|00000b40| 4c 4c 09 54 59 50 45 0d | 0a 09 4c 44 41 09 57 49 |LL.TYPE.|..LDA.WI|
|00000b50| 44 54 48 0d 0a 09 44 43 | 52 09 41 0d 0a 09 53 54 |DTH...DC|R.A...ST|
|00000b60| 41 09 57 49 44 54 48 0d | 0a 09 43 5a 09 43 52 4c |A.WIDTH.|..CZ.CRL|
|00000b70| 46 0d 0a 09 4a 4d 50 09 | 53 4b 49 50 24 54 4f 24 |F...JMP.|SKIP$TO$|
|00000b80| 43 52 20 3b 53 4b 49 50 | 20 54 4f 20 45 4e 44 20 |CR ;SKIP| TO END |
|00000b90| 4f 46 20 52 45 43 4f 52 | 44 0d 0a 0d 0a 49 4e 43 |OF RECOR|D....INC|
|00000ba0| 52 24 52 45 43 4e 4f 3a | 0d 0a 3b 49 4e 43 52 45 |R$RECNO:|..;INCRE|
|00000bb0| 4d 45 4e 54 20 44 45 43 | 49 4d 41 4c 20 52 45 43 |MENT DEC|IMAL REC|
|00000bc0| 4f 52 44 20 4e 55 4d 42 | 45 52 0d 0a 09 4c 48 4c |ORD NUMB|ER...LHL|
|00000bd0| 44 09 52 45 43 4e 4f 0d | 0a 09 4f 52 41 09 41 09 |D.RECNO.|..ORA.A.|
|00000be0| 3b 43 4c 52 20 43 41 52 | 52 59 0d 0a 09 4d 4f 56 |;CLR CAR|RY...MOV|
|00000bf0| 09 41 2c 4c 09 3b 47 45 | 54 20 4c 4f 0d 0a 09 49 |.A,L.;GE|T LO...I|
|00000c00| 4e 52 09 41 0d 0a 09 44 | 41 41 0d 0a 09 4d 4f 56 |NR.A...D|AA...MOV|
|00000c10| 09 4c 2c 41 0d 0a 09 4d | 4f 56 09 41 2c 48 0d 0a |.L,A...M|OV.A,H..|
|00000c20| 09 41 43 49 09 30 0d 0a | 09 44 41 41 0d 0a 09 4d |.ACI.0..|.DAA...M|
|00000c30| 4f 56 09 48 2c 41 0d 0a | 09 53 48 4c 44 09 52 45 |OV.H,A..|.SHLD.RE|
|00000c40| 43 4e 4f 0d 0a 09 52 45 | 54 0d 0a 0d 0a 49 4e 43 |CNO...RE|T....INC|
|00000c50| 52 24 4e 4f 4e 24 4d 54 | 3a 0d 0a 09 4c 48 4c 44 |R$NON$MT|:...LHLD|
|00000c60| 09 4e 4f 4e 24 4d 54 0d | 0a 09 49 4e 58 09 48 0d |.NON$MT.|..INX.H.|
|00000c70| 0a 09 53 48 4c 44 09 4e | 4f 4e 24 4d 54 0d 0a 09 |..SHLD.N|ON$MT...|
|00000c80| 52 45 54 0d 0a 0d 0a 53 | 54 4f 52 45 24 52 45 43 |RET....S|TORE$REC|
|00000c90| 4e 4f 3a 0d 0a 09 4c 48 | 4c 44 09 52 45 43 4e 4f |NO:...LH|LD.RECNO|
|00000ca0| 0d 0a 09 58 43 48 47 0d | 0a 09 4c 48 4c 44 09 54 |...XCHG.|..LHLD.T|
|00000cb0| 41 42 4c 45 24 50 4f 49 | 4e 54 45 52 0d 0a 09 4d |ABLE$POI|NTER...M|
|00000cc0| 4f 56 09 4d 2c 44 0d 0a | 09 49 4e 58 09 48 0d 0a |OV.M,D..|.INX.H..|
|00000cd0| 09 4d 4f 56 09 4d 2c 45 | 0d 0a 09 49 4e 58 09 48 |.MOV.M,E|...INX.H|
|00000ce0| 0d 0a 09 53 48 4c 44 09 | 54 41 42 4c 45 24 50 4f |...SHLD.|TABLE$PO|
|00000cf0| 49 4e 54 45 52 0d 0a 09 | 52 45 54 0d 0a 0d 0a 53 |INTER...|RET....S|
|00000d00| 4f 52 54 24 54 41 42 4c | 45 3a 0d 0a 09 58 52 41 |ORT$TABL|E:...XRA|
|00000d10| 09 41 09 3b 47 45 54 20 | 41 20 5a 45 52 4f 0d 0a |.A.;GET |A ZERO..|
|00000d20| 09 53 54 41 09 43 48 41 | 4e 47 45 09 3b 53 48 4f |.STA.CHA|NGE.;SHO|
|00000d30| 57 20 4e 4f 20 53 57 41 | 50 0d 0a 09 4c 48 4c 44 |W NO SWA|P...LHLD|
|00000d40| 09 4e 4f 4e 24 4d 54 0d | 0a 09 44 43 58 09 48 0d |.NON$MT.|..DCX.H.|
|00000d50| 0a 09 53 48 4c 44 09 4e | 4f 4e 24 4d 54 0d 0a 09 |..SHLD.N|ON$MT...|
|00000d60| 53 48 4c 44 09 54 45 4d | 50 09 3b 54 45 4d 50 20 |SHLD.TEM|P.;TEMP |
|00000d70| 3d 20 48 4f 57 20 4d 41 | 4e 59 20 54 4f 20 43 4f |= HOW MA|NY TO CO|
|00000d80| 4d 50 41 52 45 0d 0a 09 | 4c 58 49 09 48 2c 54 41 |MPARE...|LXI.H,TA|
|00000d90| 42 4c 45 0d 0a 09 53 48 | 4c 44 09 43 55 52 52 0d |BLE...SH|LD.CURR.|
|00000da0| 0a 53 4f 52 54 4c 50 09 | 43 41 4c 4c 09 43 4f 4d |.SORTLP.|CALL.COM|
|00000db0| 50 52 0d 0a 09 43 4e 43 | 09 53 57 41 50 0d 0a 09 |PR...CNC|.SWAP...|
|00000dc0| 43 41 4c 4c 09 4e 45 58 | 54 24 45 4e 54 52 59 0d |CALL.NEX|T$ENTRY.|
|00000dd0| 0a 09 4a 4e 5a 09 53 4f | 52 54 4c 50 0d 0a 09 4c |..JNZ.SO|RTLP...L|
|00000de0| 44 41 09 43 48 41 4e 47 | 45 0d 0a 09 4f 52 41 09 |DA.CHANG|E...ORA.|
|00000df0| 41 09 3b 41 4e 59 20 53 | 57 41 50 53 3f 0d 0a 09 |A.;ANY S|WAPS?...|
|00000e00| 4a 4e 5a 09 53 4f 52 54 | 24 54 41 42 4c 45 0d 0a |JNZ.SORT|$TABLE..|
|00000e10| 09 52 45 54 0d 0a 0d 0a | 43 4f 4d 50 52 09 4c 48 |.RET....|COMPR.LH|
|00000e20| 4c 44 09 43 55 52 52 0d | 0a 09 58 43 48 47 0d 0a |LD.CURR.|..XCHG..|
|00000e30| 09 4c 58 49 09 48 2c 37 | 0d 0a 09 44 41 44 09 44 |.LXI.H,7|...DAD.D|
|00000e40| 09 3b 44 45 3d 43 55 52 | 52 45 4e 54 2c 20 48 4c |.;DE=CUR|RENT, HL|
|00000e50| 20 3d 20 4e 45 58 54 0d | 0a 09 50 55 53 48 09 44 | = NEXT.|..PUSH.D|
|00000e60| 0d 0a 09 50 55 53 48 09 | 48 09 3b 53 41 56 45 20 |...PUSH.|H.;SAVE |
|00000e70| 46 4f 52 20 53 57 41 50 | 0d 0a 43 4f 4d 50 4c 50 |FOR SWAP|..COMPLP|
|00000e80| 09 4c 44 41 58 09 44 0d | 0a 09 43 4d 50 09 4d 0d |.LDAX.D.|..CMP.M.|
|00000e90| 0a 09 4a 4e 5a 09 44 49 | 46 46 0d 0a 09 49 4e 58 |..JNZ.DI|FF...INX|
|00000ea0| 09 48 0d 0a 09 49 4e 58 | 09 44 0d 0a 09 44 43 52 |.H...INX|.D...DCR|
|00000eb0| 09 42 0d 0a 09 4a 4e 5a | 09 43 4f 4d 50 4c 50 0d |.B...JNZ|.COMPLP.|
|00000ec0| 0a 44 49 46 46 09 50 4f | 50 09 48 0d 0a 09 50 4f |.DIFF.PO|P.H...PO|
|00000ed0| 50 09 44 0d 0a 09 52 45 | 54 0d 0a 0d 0a 53 57 41 |P.D...RE|T....SWA|
|00000ee0| 50 09 52 5a 09 09 3b 52 | 45 54 55 52 4e 20 49 46 |P.RZ..;R|ETURN IF|
|00000ef0| 20 3d 20 45 4e 54 52 49 | 45 53 0d 0a 09 4d 56 49 | = ENTRI|ES...MVI|
|00000f00| 09 42 2c 37 0d 0a 53 57 | 41 50 4c 09 4d 4f 56 09 |.B,7..SW|APL.MOV.|
|00000f10| 43 2c 4d 0d 0a 09 4c 44 | 41 58 09 44 0d 0a 09 4d |C,M...LD|AX.D...M|
|00000f20| 4f 56 09 4d 2c 41 0d 0a | 09 4d 4f 56 09 41 2c 43 |OV.M,A..|.MOV.A,C|
|00000f30| 0d 0a 09 53 54 41 58 09 | 44 0d 0a 09 49 4e 58 09 |...STAX.|D...INX.|
|00000f40| 48 0d 0a 09 49 4e 58 09 | 44 0d 0a 09 44 43 52 09 |H...INX.|D...DCR.|
|00000f50| 42 0d 0a 09 4a 4e 5a 09 | 53 57 41 50 4c 0d 0a 09 |B...JNZ.|SWAPL...|
|00000f60| 4d 56 49 09 41 2c 31 09 | 3b 53 48 4f 57 2e 2e 0d |MVI.A,1.|;SHOW...|
|00000f70| 0a 09 53 54 41 09 43 48 | 41 4e 47 45 09 3b 2e 2e |..STA.CH|ANGE.;..|
|00000f80| 53 57 41 50 0d 0a 09 52 | 45 54 0d 0a 0d 0a 4e 45 |SWAP...R|ET....NE|
|00000f90| 58 54 24 45 4e 54 52 59 | 3a 0d 0a 09 4c 48 4c 44 |XT$ENTRY|:...LHLD|
|00000fa0| 09 43 55 52 52 09 3b 47 | 45 54 20 43 55 52 52 45 |.CURR.;G|ET CURRE|
|00000fb0| 4e 54 20 45 4e 54 52 59 | 0d 0a 09 4c 58 49 09 44 |NT ENTRY|...LXI.D|
|00000fc0| 2c 37 09 3b 44 49 53 50 | 4c 20 54 4f 20 4e 45 58 |,7.;DISP|L TO NEX|
|00000fd0| 54 0d 0a 09 44 41 44 09 | 44 0d 0a 09 53 48 4c 44 |T...DAD.|D...SHLD|
|00000fe0| 09 43 55 52 52 0d 0a 09 | 4c 48 4c 44 09 54 45 4d |.CURR...|LHLD.TEM|
|00000ff0| 50 0d 0a 09 44 43 58 09 | 48 0d 0a 09 53 48 4c 44 |P...DCX.|H...SHLD|
|00001000| 09 54 45 4d 50 0d 0a 09 | 4d 4f 56 09 41 2c 48 0d |.TEMP...|MOV.A,H.|
|00001010| 0a 09 4f 52 41 09 4c 09 | 3b 5a 45 52 4f 20 53 45 |..ORA.L.|;ZERO SE|
|00001020| 54 20 49 46 20 44 4f 4e | 45 0d 0a 09 52 45 54 0d |T IF DON|E...RET.|
|00001030| 0a 0d 0a 57 52 49 54 45 | 24 53 4f 52 54 45 44 24 |...WRITE|$SORTED$|
|00001040| 46 49 4c 45 3a 0d 0a 09 | 43 41 4c 4c 09 4f 50 45 |FILE:...|CALL.OPE|
|00001050| 4e 24 4f 55 54 50 55 54 | 0d 0a 09 4c 48 4c 44 09 |N$OUTPUT|...LHLD.|
|00001060| 48 4f 57 24 4d 41 4e 59 | 24 54 4f 24 57 52 49 54 |HOW$MANY|$TO$WRIT|
|00001070| 45 0d 0a 09 53 48 4c 44 | 09 54 45 4d 50 0d 0a 09 |E...SHLD|.TEMP...|
|00001080| 4c 58 49 09 48 2c 54 41 | 42 4c 45 2b 35 20 3b 46 |LXI.H,TA|BLE+5 ;F|
|00001090| 49 52 53 54 20 52 45 43 | 20 23 0d 0a 09 53 48 4c |IRST REC| #...SHL|
|000010a0| 44 09 43 55 52 52 0d 0a | 57 53 4c 4f 4f 50 09 4c |D.CURR..|WSLOOP.L|
|000010b0| 48 4c 44 09 43 55 52 52 | 0d 0a 09 4d 4f 56 09 41 |HLD.CURR|...MOV.A|
|000010c0| 2c 4d 09 3b 47 45 54 20 | 48 49 20 52 45 43 20 4e |,M.;GET |HI REC N|
|000010d0| 4f 0d 0a 09 43 41 4c 4c | 09 57 52 49 54 45 24 4e |O...CALL|.WRITE$N|
|000010e0| 49 42 42 4c 20 3b 49 47 | 4e 4f 52 45 20 48 49 20 |IBBL ;IG|NORE HI |
|000010f0| 44 49 47 49 54 0d 0a 09 | 49 4e 58 09 48 0d 0a 09 |DIGIT...|INX.H...|
|00001100| 4d 4f 56 09 41 2c 4d 09 | 3b 47 45 54 20 4c 4f 20 |MOV.A,M.|;GET LO |
|00001110| 32 20 44 49 47 49 54 53 | 0d 0a 09 43 41 4c 4c 09 |2 DIGITS|...CALL.|
|00001120| 57 52 49 54 45 24 48 45 | 58 0d 0a 09 43 41 4c 4c |WRITE$HE|X...CALL|
|00001130| 09 57 52 49 54 45 24 43 | 52 4c 46 0d 0a 09 43 41 |.WRITE$C|RLF...CA|
|00001140| 4c 4c 09 4e 45 58 54 24 | 45 4e 54 52 59 0d 0a 09 |LL.NEXT$|ENTRY...|
|00001150| 4a 4e 5a 09 57 53 4c 4f | 4f 50 0d 0a 09 43 41 4c |JNZ.WSLO|OP...CAL|
|00001160| 4c 09 43 4c 4f 53 45 24 | 4f 55 54 50 55 54 0d 0a |L.CLOSE$|OUTPUT..|
|00001170| 09 52 45 54 0d 0a 0d 0a | 43 52 4c 46 09 4d 56 49 |.RET....|CRLF.MVI|
|00001180| 09 41 2c 31 33 0d 0a 09 | 43 41 4c 4c 09 54 59 50 |.A,13...|CALL.TYP|
|00001190| 45 0d 0a 09 4d 56 49 09 | 41 2c 31 30 0d 0a 09 53 |E...MVI.|A,10...S|
|000011a0| 54 41 09 57 49 44 54 48 | 0d 0a 0d 0a 54 59 50 45 |TA.WIDTH|....TYPE|
|000011b0| 09 50 55 53 48 09 50 53 | 57 0d 0a 09 50 55 53 48 |.PUSH.PS|W...PUSH|
|000011c0| 09 42 0d 0a 09 50 55 53 | 48 09 44 0d 0a 09 50 55 |.B...PUS|H.D...PU|
|000011d0| 53 48 09 48 0d 0a 09 4d | 4f 56 09 45 2c 41 0d 0a |SH.H...M|OV.E,A..|
|000011e0| 09 4d 56 49 09 43 2c 57 | 52 43 4f 4e 0d 0a 09 43 |.MVI.C,W|RCON...C|
|000011f0| 41 4c 4c 09 42 44 4f 53 | 0d 0a 09 50 4f 50 09 48 |ALL.BDOS|...POP.H|
|00001200| 0d 0a 09 50 4f 50 09 44 | 0d 0a 09 50 4f 50 09 42 |...POP.D|...POP.B|
|00001210| 0d 0a 09 50 4f 50 09 50 | 53 57 0d 0a 09 52 45 54 |...POP.P|SW...RET|
|00001220| 0d 0a 0d 0a 4d 53 47 50 | 52 54 09 4d 56 49 09 43 |....MSGP|RT.MVI.C|
|00001230| 2c 50 52 49 4e 54 0d 0a | 09 4a 4d 50 09 42 44 4f |,PRINT..|.JMP.BDO|
|00001240| 53 0d 0a 0d 0a 3b 52 45 | 41 44 20 43 48 41 52 20 |S....;RE|AD CHAR |
|00001250| 46 52 4f 4d 20 49 4e 50 | 55 54 20 46 49 4c 45 0d |FROM INP|UT FILE.|
|00001260| 0a 52 44 43 48 52 09 50 | 55 53 48 09 48 0d 0a 09 |.RDCHR.P|USH.H...|
|00001270| 4c 48 4c 44 09 49 4e 50 | 54 52 0d 0a 09 4d 4f 56 |LHLD.INP|TR...MOV|
|00001280| 09 41 2c 48 09 3b 54 49 | 4d 45 20 54 4f 20 52 45 |.A,H.;TI|ME TO RE|
|00001290| 41 44 3f 0d 0a 09 44 43 | 52 09 41 0d 0a 09 4a 4e |AD?...DC|R.A...JN|
|000012a0| 5a 09 4e 4f 52 45 41 44 | 0d 0a 3b 52 45 41 44 20 |Z.NOREAD|..;READ |
|000012b0| 49 4e 50 55 54 20 52 45 | 43 4f 52 44 0d 0a 09 50 |INPUT RE|CORD...P|
|000012c0| 55 53 48 09 44 0d 0a 09 | 50 55 53 48 09 42 0d 0a |USH.D...|PUSH.B..|
|000012d0| 09 4c 58 49 09 44 2c 46 | 43 42 0d 0a 09 4d 56 49 |.LXI.D,F|CB...MVI|
|000012e0| 09 43 2c 52 45 41 44 0d | 0a 09 43 41 4c 4c 09 42 |.C,READ.|..CALL.B|
|000012f0| 44 4f 53 0d 0a 09 4f 52 | 41 09 41 0d 0a 09 4a 5a |DOS...OR|A.A...JZ|
|00001300| 09 52 44 4f 4b 0d 0a 09 | 44 43 52 09 41 0d 0a 09 |.RDOK...|DCR.A...|
|00001310| 4a 5a 09 45 4f 46 0d 0a | 09 43 41 4c 4c 09 45 52 |JZ.EOF..|.CALL.ER|
|00001320| 58 49 54 0d 0a 09 44 42 | 09 27 2b 2b 49 4e 50 55 |XIT...DB|.'++INPU|
|00001330| 54 20 46 49 4c 45 20 52 | 45 41 44 20 45 52 52 4f |T FILE R|EAD ERRO|
|00001340| 52 24 27 0d 0a 52 44 4f | 4b 09 4c 58 49 09 48 2c |R$'..RDO|K.LXI.H,|
|00001350| 38 30 48 0d 0a 09 50 4f | 50 09 42 0d 0a 09 50 4f |80H...PO|P.B...PO|
|00001360| 50 09 44 0d 0a 4e 4f 52 | 45 41 44 09 4d 4f 56 09 |P.D..NOR|EAD.MOV.|
|00001370| 41 2c 4d 09 3b 47 45 54 | 20 43 48 41 52 0d 0a 09 |A,M.;GET| CHAR...|
|00001380| 49 4e 58 09 48 0d 0a 09 | 53 48 4c 44 09 49 4e 50 |INX.H...|SHLD.INP|
|00001390| 54 52 0d 0a 09 50 4f 50 | 09 48 0d 0a 09 52 45 54 |TR...POP|.H...RET|
|000013a0| 0d 0a 0d 0a 3b 57 52 49 | 54 45 20 43 52 4c 46 20 |....;WRI|TE CRLF |
|000013b0| 49 4e 54 4f 20 4f 55 54 | 50 55 54 20 46 49 4c 45 |INTO OUT|PUT FILE|
|000013c0| 0d 0a 57 52 49 54 45 24 | 43 52 4c 46 3a 0d 0a 09 |..WRITE$|CRLF:...|
|000013d0| 4d 56 49 09 41 2c 31 33 | 0d 0a 09 43 41 4c 4c 09 |MVI.A,13|...CALL.|
|000013e0| 57 52 49 54 45 24 43 48 | 41 52 0d 0a 09 4d 56 49 |WRITE$CH|AR...MVI|
|000013f0| 09 41 2c 31 30 0d 0a 3b | 46 41 4c 4c 20 49 4e 54 |.A,10..;|FALL INT|
|00001400| 4f 20 57 52 49 54 45 24 | 43 48 41 52 0d 0a 0d 0a |O WRITE$|CHAR....|
|00001410| 3b 57 52 49 54 45 20 4f | 55 54 50 55 54 20 46 49 |;WRITE O|UTPUT FI|
|00001420| 4c 45 20 43 48 41 52 0d | 0a 57 52 49 54 45 24 43 |LE CHAR.|.WRITE$C|
|00001430| 48 41 52 3a 0d 0a 09 50 | 55 53 48 09 48 0d 0a 09 |HAR:...P|USH.H...|
|00001440| 4c 48 4c 44 09 4f 55 54 | 50 54 52 0d 0a 09 4d 4f |LHLD.OUT|PTR...MO|
|00001450| 56 09 4d 2c 41 0d 0a 09 | 49 4e 52 09 4c 09 3b 46 |V.M,A...|INR.L.;F|
|00001460| 55 4c 4c 3f 0d 0a 09 53 | 48 4c 44 09 4f 55 54 50 |ULL?...S|HLD.OUTP|
|00001470| 54 52 0d 0a 09 50 4f 50 | 09 48 0d 0a 09 52 4e 5a |TR...POP|.H...RNZ|
|00001480| 09 09 3b 2e 2e 4e 4f 0d | 0a 57 52 49 54 45 24 52 |..;..NO.|.WRITE$R|
|00001490| 45 43 4f 52 44 3a 0d 0a | 09 50 55 53 48 09 42 0d |ECORD:..|.PUSH.B.|
|000014a0| 0a 09 50 55 53 48 09 44 | 0d 0a 09 50 55 53 48 09 |..PUSH.D|...PUSH.|
|000014b0| 48 0d 0a 09 4c 58 49 09 | 44 2c 46 43 42 32 0d 0a |H...LXI.|D,FCB2..|
|000014c0| 09 4d 56 49 09 43 2c 57 | 52 49 54 45 0d 0a 09 43 |.MVI.C,W|RITE...C|
|000014d0| 41 4c 4c 09 42 44 4f 53 | 0d 0a 09 4f 52 41 09 41 |ALL.BDOS|...ORA.A|
|000014e0| 0d 0a 09 4a 5a 09 57 52 | 4f 4b 0d 0a 09 43 41 4c |...JZ.WR|OK...CAL|
|000014f0| 4c 09 45 52 58 49 54 0d | 0a 09 44 42 09 27 2b 2b |L.ERXIT.|..DB.'++|
|00001500| 57 52 49 54 45 20 45 52 | 52 4f 52 24 27 0d 0a 57 |WRITE ER|ROR$'..W|
|00001510| 52 4f 4b 09 4c 58 49 09 | 48 2c 38 30 48 0d 0a 09 |ROK.LXI.|H,80H...|
|00001520| 53 48 4c 44 09 4f 55 54 | 50 54 52 0d 0a 09 50 4f |SHLD.OUT|PTR...PO|
|00001530| 50 09 48 0d 0a 09 50 4f | 50 09 44 0d 0a 09 50 4f |P.H...PO|P.D...PO|
|00001540| 50 09 42 0d 0a 09 52 45 | 54 0d 0a 0d 0a 57 52 49 |P.B...RE|T....WRI|
|00001550| 54 45 24 48 45 58 3a 0d | 0a 09 50 55 53 48 09 50 |TE$HEX:.|..PUSH.P|
|00001560| 53 57 09 3b 53 41 56 45 | 20 43 48 41 52 0d 0a 09 |SW.;SAVE| CHAR...|
|00001570| 52 41 52 21 52 41 52 21 | 52 41 52 21 52 41 52 0d |RAR!RAR!|RAR!RAR.|
|00001580| 0a 09 43 41 4c 4c 09 57 | 52 49 54 45 24 4e 49 42 |..CALL.W|RITE$NIB|
|00001590| 42 4c 20 3b 57 52 49 54 | 45 20 4c 45 46 54 20 44 |BL ;WRIT|E LEFT D|
|000015a0| 49 47 49 54 0d 0a 09 50 | 4f 50 09 50 53 57 0d 0a |IGIT...P|OP.PSW..|
|000015b0| 0d 0a 57 52 49 54 45 24 | 4e 49 42 42 4c 3a 0d 0a |..WRITE$|NIBBL:..|
|000015c0| 09 41 4e 49 09 30 46 48 | 0d 0a 09 43 50 49 09 31 |.ANI.0FH|...CPI.1|
|000015d0| 30 0d 0a 09 4a 43 09 49 | 53 4e 55 4d 0d 0a 09 41 |0...JC.I|SNUM...A|
|000015e0| 44 49 09 37 0d 0a 49 53 | 4e 55 4d 09 41 44 49 09 |DI.7..IS|NUM.ADI.|
|000015f0| 27 30 27 0d 0a 09 4a 4d | 50 09 57 52 49 54 45 24 |'0'...JM|P.WRITE$|
|00001600| 43 48 41 52 0d 0a 0d 0a | 43 4c 4f 53 45 24 4f 55 |CHAR....|CLOSE$OU|
|00001610| 54 50 55 54 3a 0d 0a 09 | 4d 56 49 09 41 2c 27 5a |TPUT:...|MVI.A,'Z|
|00001620| 27 2d 34 30 48 20 3b 45 | 4f 46 20 43 48 41 52 0d |'-40H ;E|OF CHAR.|
|00001630| 0a 09 43 41 4c 4c 09 57 | 52 49 54 45 24 43 48 41 |..CALL.W|RITE$CHA|
|00001640| 52 0d 0a 09 43 41 4c 4c | 09 57 52 49 54 45 24 52 |R...CALL|.WRITE$R|
|00001650| 45 43 4f 52 44 0d 0a 09 | 4c 58 49 09 44 2c 46 43 |ECORD...|LXI.D,FC|
|00001660| 42 32 0d 0a 09 4d 56 49 | 09 43 2c 43 4c 4f 53 45 |B2...MVI|.C,CLOSE|
|00001670| 0d 0a 09 43 41 4c 4c 09 | 42 44 4f 53 0d 0a 09 49 |...CALL.|BDOS...I|
|00001680| 4e 52 09 41 0d 0a 09 52 | 4e 5a 0d 0a 09 43 41 4c |NR.A...R|NZ...CAL|
|00001690| 4c 09 45 52 58 49 54 0d | 0a 09 44 42 09 27 2b 2b |L.ERXIT.|..DB.'++|
|000016a0| 4f 55 54 50 55 54 20 46 | 49 4c 45 20 43 4c 4f 53 |OUTPUT F|ILE CLOS|
|000016b0| 45 20 45 52 52 4f 52 24 | 27 0d 0a 0d 0a 54 41 42 |E ERROR$|'....TAB|
|000016c0| 4c 45 24 50 4f 49 4e 54 | 45 52 20 44 57 20 54 41 |LE$POINT|ER DW TA|
|000016d0| 42 4c 45 0d 0a 4e 4f 4e | 24 4d 54 09 44 57 09 30 |BLE..NON|$MT.DW.0|
|000016e0| 09 3b 43 4f 55 4e 54 20 | 4f 46 20 4e 4f 4e 2d 45 |.;COUNT |OF NON-E|
|000016f0| 4d 50 54 59 20 52 45 43 | 27 53 20 52 45 41 44 0d |MPTY REC|'S READ.|
|00001700| 0a 48 4f 57 24 4d 41 4e | 59 24 54 4f 24 57 52 49 |.HOW$MAN|Y$TO$WRI|
|00001710| 54 45 20 44 57 09 30 0d | 0a 52 45 43 4e 4f 09 44 |TE DW.0.|.RECNO.D|
|00001720| 57 09 30 09 3b 44 45 43 | 49 4d 41 4c 20 52 45 43 |W.0.;DEC|IMAL REC|
|00001730| 4f 52 44 20 23 20 52 45 | 41 44 0d 0a 54 45 4d 50 |ORD # RE|AD..TEMP|
|00001740| 09 44 53 09 32 0d 0a 57 | 49 44 54 48 09 44 42 09 |.DS.2..W|IDTH.DB.|
|00001750| 31 30 09 3b 50 52 49 4e | 54 20 45 4e 54 52 49 45 |10.;PRIN|T ENTRIE|
|00001760| 53 2f 4c 49 4e 45 0d 0a | 43 55 52 52 09 44 53 09 |S/LINE..|CURR.DS.|
|00001770| 32 0d 0a 43 48 41 4e 47 | 45 09 44 53 09 31 0d 0a |2..CHANG|E.DS.1..|
|00001780| 46 43 42 32 09 44 42 09 | 30 2c 27 58 58 58 58 58 |FCB2.DB.|0,'XXXXX|
|00001790| 58 58 58 59 59 59 27 2c | 30 0d 0a 09 44 53 09 31 |XXXYYY',|0...DS.1|
|000017a0| 39 0d 0a 09 44 42 09 30 | 0d 0a 46 4c 44 4e 4f 09 |9...DB.0|..FLDNO.|
|000017b0| 44 53 09 31 09 3b 46 49 | 45 4c 44 20 23 20 54 4f |DS.1.;FI|ELD # TO|
|000017c0| 20 53 4f 52 54 0d 0a 09 | 44 53 09 34 30 09 3b 53 | SORT...|DS.40.;S|
|000017d0| 54 41 43 4b 0d 0a 53 54 | 41 43 4b 09 44 53 09 32 |TACK..ST|ACK.DS.2|
|000017e0| 09 3b 43 50 4d 27 53 20 | 53 54 41 43 4b 0d 0a 49 |.;CPM'S |STACK..I|
|000017f0| 4e 50 54 52 09 44 57 09 | 31 30 30 48 09 3b 49 4e |NPTR.DW.|100H.;IN|
|00001800| 50 55 54 20 46 49 4c 45 | 20 43 48 41 52 20 50 4f |PUT FILE| CHAR PO|
|00001810| 49 4e 54 45 52 0d 0a 4f | 55 54 50 54 52 09 44 57 |INTER..O|UTPTR.DW|
|00001820| 09 38 30 48 09 3b 4f 55 | 54 50 55 54 20 46 49 4c |.80H.;OU|TPUT FIL|
|00001830| 45 20 43 48 41 52 20 50 | 4f 49 4e 54 45 52 0d 0a |E CHAR P|OINTER..|
|00001840| 54 41 42 4c 45 09 45 51 | 55 09 24 09 3b 53 4f 52 |TABLE.EQ|U.$.;SOR|
|00001850| 54 20 54 41 42 4c 45 0d | 0a 3b 0d 0a 3b 20 42 44 |T TABLE.|.;..; BD|
|00001860| 4f 53 20 45 51 55 41 54 | 45 53 20 28 56 45 52 53 |OS EQUAT|ES (VERS|
|00001870| 49 4f 4e 20 33 29 0d 0a | 3b 0d 0a 52 44 43 4f 4e |ION 3)..|;..RDCON|
|00001880| 09 45 51 55 09 31 0d 0a | 57 52 43 4f 4e 09 45 51 |.EQU.1..|WRCON.EQ|
|00001890| 55 09 32 0d 0a 50 52 49 | 4e 54 09 45 51 55 09 39 |U.2..PRI|NT.EQU.9|
|000018a0| 0d 0a 4f 50 45 4e 09 45 | 51 55 09 31 35 09 3b 30 |..OPEN.E|QU.15.;0|
|000018b0| 46 46 48 3d 4e 4f 54 20 | 46 4f 55 4e 44 0d 0a 43 |FFH=NOT |FOUND..C|
|000018c0| 4c 4f 53 45 09 45 51 55 | 09 31 36 09 3b 20 20 20 |LOSE.EQU|.16.;   |
|000018d0| 22 09 22 0d 0a 53 52 43 | 48 46 09 45 51 55 09 31 |"."..SRC|HF.EQU.1|
|000018e0| 37 09 3b 20 20 20 22 09 | 22 0d 0a 53 52 43 48 4e |7.;   ".|"..SRCHN|
|000018f0| 09 45 51 55 09 31 38 09 | 3b 20 20 20 22 09 22 0d |.EQU.18.|;   ".".|
|00001900| 0a 44 45 4c 54 09 45 51 | 55 09 31 39 09 3b 4e 4f |.DELT.EQ|U.19.;NO|
|00001910| 20 52 45 54 20 43 4f 44 | 45 0d 0a 52 45 41 44 09 | RET COD|E..READ.|
|00001920| 45 51 55 09 32 30 09 3b | 30 3d 4f 4b 2c 20 31 3d |EQU.20.;|0=OK, 1=|
|00001930| 45 4f 46 0d 0a 57 52 49 | 54 45 09 45 51 55 09 32 |EOF..WRI|TE.EQU.2|
|00001940| 31 09 3b 30 3d 4f 4b 2c | 20 31 3d 45 52 52 2c 20 |1.;0=OK,| 1=ERR, |
|00001950| 32 3d 3f 2c 20 30 46 46 | 48 3d 4e 4f 20 44 49 52 |2=?, 0FF|H=NO DIR|
|00001960| 20 53 50 43 0d 0a 4d 41 | 4b 45 09 45 51 55 09 32 | SPC..MA|KE.EQU.2|
|00001970| 32 09 3b 30 46 46 48 3d | 42 41 44 0d 0a 52 45 4e |2.;0FFH=|BAD..REN|
|00001980| 09 45 51 55 09 32 33 09 | 3b 30 46 46 48 3d 42 41 |.EQU.23.|;0FFH=BA|
|00001990| 44 0d 0a 53 54 44 4d 41 | 09 45 51 55 09 32 36 0d |D..STDMA|.EQU.26.|
|000019a0| 0a 42 44 4f 53 09 45 51 | 55 09 35 0d 0a 46 43 42 |.BDOS.EQ|U.5..FCB|
|000019b0| 09 45 51 55 09 35 43 48 | 20 0d 0a                |.EQU.5CH| ..     |
+--------+-------------------------+-------------------------+--------+--------+