/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol054 / zcpr.asm

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000400| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000700| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000800| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000810| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000880| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000900| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000980| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a00| 20 44 52 20 76 65 72 73 | 69 6f 6e 29 0d 0a 3b 20 | DR vers|ion)..; |
|00000a10| 20 20 20 20 20 20 20 20 | 20 20 54 68 69 73 20 65 |        |  This e|
|00000a20| 71 75 61 74 65 20 61 6c | 6c 6f 77 73 20 65 61 73 |quate al|lows eas|
|00000a30| 79 20 6d 6f 64 69 66 69 | 63 61 74 69 6f 6e 20 62 |y modifi|cation b|
|00000a40| 79 20 6e 6f 6e 2d 73 74 | 61 6e 64 61 72 64 20 43 |y non-st|andard C|
|00000a50| 50 2f 4d 20 28 65 67 2c | 48 38 39 29 0d 0a 3b 0d |P/M (eg,|H89)..;.|
|00000a60| 0a 3b 20 20 20 20 43 50 | 52 4c 4f 43 20 2d 20 42 |.;    CP|RLOC - B|
|00000a70| 61 73 65 20 50 61 67 65 | 20 41 64 64 72 65 73 73 |ase Page| Address|
|00000a80| 20 6f 66 20 43 50 52 3b | 20 74 68 69 73 20 76 61 | of CPR;| this va|
|00000a90| 6c 75 65 20 63 61 6e 20 | 62 65 20 6f 62 74 61 69 |lue can |be obtai|
|00000aa0| 6e 65 64 20 62 79 20 72 | 75 6e 6e 69 6e 67 0d 0a |ned by r|unning..|
|00000ab0| 3b 09 20 20 20 20 20 20 | 74 68 65 20 42 44 4f 53 |;.      |the BDOS|
|00000ac0| 4c 4f 43 20 70 72 6f 67 | 72 61 6d 20 6f 6e 20 79 |LOC prog|ram on y|
|00000ad0| 6f 75 72 20 73 79 73 74 | 65 6d 2c 20 6f 72 20 62 |our syst|em, or b|
|00000ae0| 79 20 73 65 74 74 69 6e | 67 20 74 68 65 0d 0a 3b |y settin|g the..;|
|00000af0| 09 20 20 20 20 20 20 4d | 53 49 5a 45 20 61 6e 64 |.      M|SIZE and|
|00000b00| 20 42 49 4f 53 45 58 20 | 65 71 75 61 74 65 73 20 | BIOSEX |equates |
|00000b10| 74 6f 20 74 68 65 20 73 | 79 73 74 65 6d 20 6d 65 |to the s|ystem me|
|00000b20| 6d 6f 72 79 20 73 69 7a | 65 20 69 6e 0d 0a 3b 09 |mory siz|e in..;.|
|00000b30| 20 20 20 20 20 20 4b 2d | 62 79 74 65 73 20 61 6e |      K-|bytes an|
|00000b40| 64 20 74 68 65 20 22 65 | 78 74 72 61 22 20 6d 65 |d the "e|xtra" me|
|00000b50| 6d 6f 72 79 20 72 65 71 | 75 69 72 65 64 20 62 79 |mory req|uired by|
|00000b60| 20 79 6f 75 72 20 42 49 | 4f 53 0d 0a 3b 09 20 20 | your BI|OS..;.  |
|00000b70| 20 20 20 20 69 6e 20 4b | 2d 62 79 74 65 73 2e 20 |    in K|-bytes. |
|00000b80| 42 49 4f 53 45 58 20 69 | 73 20 7a 65 72 6f 20 69 |BIOSEX i|s zero i|
|00000b90| 66 20 79 6f 75 72 20 42 | 49 4f 53 20 69 73 20 6e |f your B|IOS is n|
|00000ba0| 6f 72 6d 61 6c 20 73 69 | 7a 65 2c 0d 0a 3b 09 20 |ormal si|ze,..;. |
|00000bb0| 20 20 20 20 20 61 6e 64 | 20 63 61 6e 20 62 65 20 |     and| can be |
|00000bc0| 6e 65 67 61 74 69 76 65 | 20 69 66 20 79 6f 75 72 |negative| if your|
|00000bd0| 20 42 49 4f 53 20 69 73 | 20 69 6e 20 50 52 4f 4d | BIOS is| in PROM|
|00000be0| 20 6f 72 20 69 6e 0d 0a | 3b 09 20 20 20 20 20 20 | or in..|;.      |
|00000bf0| 6e 6f 6e 2d 63 6f 6e 74 | 69 67 75 6f 75 73 20 6d |non-cont|iguous m|
|00000c00| 65 6d 6f 72 79 2e 0d 0a | 3b 0d 0a 3b 20 20 20 20 |emory...|;..;    |
|00000c10| 52 41 53 20 2d 20 52 65 | 6d 6f 74 65 2d 41 63 63 |RAS - Re|mote-Acc|
|00000c20| 65 73 73 20 53 79 73 74 | 65 6d 3b 20 73 65 74 74 |ess Syst|em; sett|
|00000c30| 69 6e 67 20 74 68 69 73 | 20 65 71 75 61 74 65 20 |ing this| equate |
|00000c40| 74 6f 20 54 52 55 45 20 | 64 69 73 61 62 6c 65 73 |to TRUE |disables|
|00000c50| 0d 0a 3b 09 20 20 20 63 | 65 72 74 61 69 6e 20 43 |..;.   c|ertain C|
|00000c60| 50 52 20 63 6f 6d 6d 61 | 6e 64 73 20 74 68 61 74 |PR comma|nds that|
|00000c70| 20 61 72 65 20 63 6f 6e | 73 69 64 65 72 65 64 20 | are con|sidered |
|00000c80| 68 61 72 6d 66 75 6c 20 | 69 6e 20 61 20 52 65 6d |harmful |in a Rem|
|00000c90| 6f 74 65 2d 0d 0a 3b 09 | 20 20 20 41 63 63 65 73 |ote-..;.|   Acces|
|00000ca0| 73 20 65 6e 76 69 72 6f | 6e 6d 65 6e 74 3b 20 75 |s enviro|nment; u|
|00000cb0| 73 65 20 75 6e 64 65 72 | 20 52 65 6d 6f 74 65 2d |se under| Remote-|
|00000cc0| 41 63 63 65 73 73 20 53 | 79 73 74 65 6d 73 20 28 |Access S|ystems (|
|00000cd0| 52 42 42 53 29 20 66 6f | 72 0d 0a 3b 09 20 20 20 |RBBS) fo|r..;.   |
|00000ce0| 73 65 63 75 72 69 74 79 | 20 70 75 72 70 6f 73 65 |security| purpose|
|00000cf0| 73 0d 0a 3b 0d 0a 52 45 | 4c 09 45 51 55 09 46 41 |s..;..RE|L.EQU.FA|
|00000d00| 4c 53 45 09 3b 53 45 54 | 20 54 4f 20 54 52 55 45 |LSE.;SET| TO TRUE|
|00000d10| 20 46 4f 52 20 4d 4f 56 | 43 50 4d 20 49 4e 54 45 | FOR MOV|CPM INTE|
|00000d20| 47 52 41 54 49 4f 4e 0d | 0a 3b 0d 0a 42 41 53 45 |GRATION.|.;..BASE|
|00000d30| 09 45 51 55 09 30 09 3b | 42 41 53 45 20 4f 46 20 |.EQU.0.;|BASE OF |
|00000d40| 43 50 2f 4d 20 53 59 53 | 54 45 4d 20 28 53 45 54 |CP/M SYS|TEM (SET|
|00000d50| 20 46 4f 52 20 53 54 41 | 4e 44 41 52 44 20 43 50 | FOR STA|NDARD CP|
|00000d60| 2f 4d 29 0d 0a 3b 0d 0a | 09 49 46 09 52 45 4c 0d |/M)..;..|.IF.REL.|
|00000d70| 0a 43 50 52 4c 4f 43 09 | 45 51 55 09 30 09 3b 4d |.CPRLOC.|EQU.0.;M|
|00000d80| 4f 56 43 50 4d 20 49 4d | 41 47 45 0d 0a 09 45 4c |OVCPM IM|AGE...EL|
|00000d90| 53 45 0d 0a 3b 0d 0a 3b | 20 49 66 20 52 45 4c 20 |SE..;..;| If REL |
|00000da0| 69 73 20 46 41 4c 53 45 | 2c 20 74 68 65 20 76 61 |is FALSE|, the va|
|00000db0| 6c 75 65 20 6f 66 20 43 | 50 52 4c 4f 43 20 6d 61 |lue of C|PRLOC ma|
|00000dc0| 79 20 62 65 20 73 65 74 | 20 69 6e 20 6f 6e 65 0d |y be set| in one.|
|00000dd0| 0a 3b 20 6f 66 20 74 77 | 6f 20 77 61 79 73 2e 20 |.; of tw|o ways. |
|00000de0| 20 54 68 65 20 66 69 72 | 73 74 20 77 61 79 20 69 | The fir|st way i|
|00000df0| 73 20 74 6f 20 73 65 74 | 20 4d 53 49 5a 45 20 61 |s to set| MSIZE a|
|00000e00| 6e 64 20 42 49 4f 53 45 | 58 0d 0a 3b 20 61 73 20 |nd BIOSE|X..; as |
|00000e10| 64 65 73 63 72 69 62 65 | 64 20 61 62 6f 76 65 20 |describe|d above |
|00000e20| 75 73 69 6e 67 20 74 68 | 65 20 66 6f 6c 6c 6f 77 |using th|e follow|
|00000e30| 69 6e 67 20 74 68 72 65 | 65 20 6c 69 6e 65 73 3a |ing thre|e lines:|
|00000e40| 0d 0a 3b 0d 0a 3b 4d 53 | 49 5a 45 09 45 51 55 09 |..;..;MS|IZE.EQU.|
|00000e50| 35 36 09 3b 53 49 5a 45 | 20 4f 46 20 4d 45 4d 20 |56.;SIZE| OF MEM |
|00000e60| 49 4e 20 4b 2d 42 59 54 | 45 53 0d 0a 3b 42 49 4f |IN K-BYT|ES..;BIO|
|00000e70| 53 45 58 09 45 51 55 09 | 30 09 3b 45 58 54 52 41 |SEX.EQU.|0.;EXTRA|
|00000e80| 20 23 20 4b 2d 42 59 54 | 45 53 20 49 4e 20 42 49 | # K-BYT|ES IN BI|
|00000e90| 4f 53 0d 0a 3b 43 50 52 | 4c 4f 43 09 45 51 55 09 |OS..;CPR|LOC.EQU.|
|00000ea0| 33 34 30 30 48 2b 28 4d | 53 49 5a 45 2d 32 30 2d |3400H+(M|SIZE-20-|
|00000eb0| 42 49 4f 53 45 58 29 2a | 31 30 32 34 09 3b 43 50 |BIOSEX)*|1024.;CP|
|00000ec0| 52 20 4f 52 49 47 49 4e | 0d 0a 3b 0d 0a 3b 20 54 |R ORIGIN|..;..; T|
|00000ed0| 68 65 20 73 65 63 6f 6e | 64 20 77 61 79 20 69 73 |he secon|d way is|
|00000ee0| 20 74 6f 20 6f 62 74 61 | 69 6e 20 74 68 65 20 6f | to obta|in the o|
|00000ef0| 72 69 67 69 6e 20 6f 66 | 20 79 6f 75 72 20 63 75 |rigin of| your cu|
|00000f00| 72 72 65 6e 74 0d 0a 3b | 20 43 50 52 20 75 73 69 |rrent..;| CPR usi|
|00000f10| 6e 67 20 42 44 53 4c 4f | 43 20 6f 72 20 69 74 73 |ng BDSLO|C or its|
|00000f20| 20 65 71 75 69 76 61 6c | 65 6e 74 2c 20 74 68 65 | equival|ent, the|
|00000f30| 6e 20 6d 65 72 65 6c 79 | 20 73 65 74 20 43 50 52 |n merely| set CPR|
|00000f40| 4c 4f 43 0d 0a 3b 20 74 | 6f 20 74 68 61 74 20 76 |LOC..; t|o that v|
|00000f50| 61 6c 75 65 20 61 73 20 | 61 73 20 69 6e 20 74 68 |alue as |as in th|
|00000f60| 65 20 66 6f 6c 6c 6f 77 | 69 6e 67 20 6c 69 6e 65 |e follow|ing line|
|00000f70| 3a 0d 0a 3b 0d 0a 43 50 | 52 4c 4f 43 09 45 51 55 |:..;..CP|RLOC.EQU|
|00000f80| 09 30 42 44 30 30 48 09 | 3b 46 49 4c 4c 20 49 4e |.0BD00H.|;FILL IN|
|00000f90| 20 57 49 54 48 20 42 44 | 4f 53 4c 4f 43 20 53 55 | WITH BD|OSLOC SU|
|00000fa0| 50 50 4c 49 45 44 20 56 | 41 4c 55 45 0d 0a 3b 0d |PPLIED V|ALUE..;.|
|00000fb0| 0a 3b 20 4e 6f 74 65 20 | 74 68 61 74 20 79 6f 75 |.; Note |that you|
|00000fc0| 20 73 68 6f 75 6c 64 20 | 6f 6e 6c 79 20 75 73 65 | should |only use|
|00000fd0| 20 6f 6e 65 20 6d 65 74 | 68 6f 64 20 6f 72 20 74 | one met|hod or t|
|00000fe0| 68 65 20 6f 74 68 65 72 | 2e 0d 0a 3b 20 44 6f 20 |he other|...; Do |
|00000ff0| 4e 4f 54 20 64 65 66 69 | 6e 65 20 43 50 52 4c 4f |NOT defi|ne CPRLO|
|00001000| 43 20 74 77 69 63 65 21 | 0d 0a 3b 0d 0a 3b 20 54 |C twice!|..;..; T|
|00001010| 68 65 20 66 6f 6c 6c 6f | 77 69 6e 67 20 67 69 76 |he follo|wing giv|
|00001020| 65 73 20 74 68 65 20 72 | 65 71 75 69 72 65 64 20 |es the r|equired |
|00001030| 6f 66 66 73 65 74 20 74 | 6f 20 6c 6f 61 64 20 74 |offset t|o load t|
|00001040| 68 65 20 43 50 52 20 69 | 6e 74 6f 20 74 68 65 0d |he CPR i|nto the.|
|00001050| 0a 3b 20 43 50 2f 4d 20 | 53 59 53 47 45 4e 20 49 |.; CP/M |SYSGEN I|
|00001060| 6d 61 67 65 20 74 68 72 | 6f 75 67 68 20 44 44 54 |mage thr|ough DDT|
|00001070| 20 28 74 68 65 20 52 6f | 66 66 73 65 74 20 63 6f | (the Ro|ffset co|
|00001080| 6d 6d 61 6e 64 29 3b 20 | 4e 6f 74 65 20 74 68 61 |mmand); |Note tha|
|00001090| 74 20 74 68 69 73 0d 0a | 3b 20 76 61 6c 75 65 20 |t this..|; value |
|000010a0| 63 6f 6e 66 6f 72 6d 73 | 20 77 69 74 68 20 74 68 |conforms| with th|
|000010b0| 65 20 73 74 61 6e 64 61 | 72 64 20 76 61 6c 75 65 |e standa|rd value|
|000010c0| 20 70 72 65 73 65 6e 74 | 65 64 20 69 6e 20 74 68 | present|ed in th|
|000010d0| 65 20 43 50 2f 4d 20 72 | 65 66 65 72 65 6e 63 65 |e CP/M r|eference|
|000010e0| 0d 0a 3b 20 6d 61 6e 75 | 61 6c 73 2c 20 62 75 74 |..; manu|als, but|
|000010f0| 20 69 74 20 6d 61 79 20 | 6e 6f 74 20 6e 65 63 65 | it may |not nece|
|00001100| 73 73 61 72 69 6c 79 20 | 63 6f 6e 66 6f 72 6d 20 |ssarily |conform |
|00001110| 77 69 74 68 20 74 68 65 | 20 6c 6f 63 61 74 69 6f |with the| locatio|
|00001120| 6e 20 6f 66 20 74 68 65 | 0d 0a 3b 20 43 50 52 20 |n of the|..; CPR |
|00001130| 69 6e 20 59 4f 55 52 20 | 43 50 2f 4d 20 73 79 73 |in YOUR |CP/M sys|
|00001140| 74 65 6d 3b 20 73 65 76 | 65 72 61 6c 20 73 79 73 |tem; sev|eral sys|
|00001150| 74 65 6d 73 20 28 4d 6f | 72 72 6f 77 20 44 65 73 |tems (Mo|rrow Des|
|00001160| 69 67 6e 73 2c 20 50 26 | 54 2c 20 48 65 61 74 68 |igns, P&|T, Heath|
|00001170| 0d 0a 3b 20 4f 72 67 2d | 30 20 74 6f 20 6e 61 6d |..; Org-|0 to nam|
|00001180| 65 20 61 20 66 65 77 29 | 20 68 61 76 65 20 74 68 |e a few)| have th|
|00001190| 65 20 43 50 52 20 6c 6f | 63 61 74 65 64 20 61 74 |e CPR lo|cated at|
|000011a0| 20 61 20 6e 6f 6e 2d 73 | 74 61 6e 64 61 72 64 20 | a non-s|tandard |
|000011b0| 61 64 64 72 65 73 73 20 | 69 6e 0d 0a 3b 20 74 68 |address |in..; th|
|000011c0| 65 20 53 59 53 47 45 4e | 20 49 6d 61 67 65 0d 0a |e SYSGEN| Image..|
|000011d0| 3b 0d 0a 3b 43 50 52 52 | 09 45 51 55 09 30 39 38 |;..;CPRR|.EQU.098|
|000011e0| 30 48 2d 43 50 52 4c 4f | 43 09 3b 44 44 54 20 4c |0H-CPRLO|C.;DDT L|
|000011f0| 4f 41 44 20 4f 46 46 53 | 45 54 0d 0a 43 50 52 52 |OAD OFFS|ET..CPRR|
|00001200| 09 45 51 55 09 31 31 30 | 30 48 2d 43 50 52 4c 4f |.EQU.110|0H-CPRLO|
|00001210| 43 09 3b 44 44 54 20 4c | 4f 41 44 20 4f 46 46 53 |C.;DDT L|OAD OFFS|
|00001220| 45 54 20 46 4f 52 20 4d | 4f 52 52 4f 57 20 44 45 |ET FOR M|ORROW DE|
|00001230| 53 49 47 4e 53 0d 0a 09 | 45 4e 44 49 46 0d 0a 3b |SIGNS...|ENDIF..;|
|00001240| 0d 0a 52 41 53 09 45 51 | 55 09 46 41 4c 53 45 09 |..RAS.EQ|U.FALSE.|
|00001250| 3b 53 45 54 20 54 4f 20 | 54 52 55 45 20 49 46 20 |;SET TO |TRUE IF |
|00001260| 43 50 52 20 49 53 20 46 | 4f 52 20 41 20 52 45 4d |CPR IS F|OR A REM|
|00001270| 4f 54 45 2d 41 43 43 45 | 53 53 20 53 59 53 54 45 |OTE-ACCE|SS SYSTE|
|00001280| 4d 0d 0a 3b 0d 0a 3b 20 | 54 68 65 20 66 6f 6c 6c |M..;..; |The foll|
|00001290| 6f 77 69 6e 67 20 69 73 | 20 70 72 65 73 65 6e 74 |owing is| present|
|000012a0| 65 64 20 61 73 20 61 6e | 20 6f 70 74 69 6f 6e 2c |ed as an| option,|
|000012b0| 20 62 75 74 20 69 73 20 | 6e 6f 74 20 67 65 6e 65 | but is |not gene|
|000012c0| 72 61 6c 6c 79 20 75 73 | 65 72 2d 63 75 73 74 6f |rally us|er-custo|
|000012d0| 6d 69 7a 2d 0d 0a 3b 20 | 61 62 6c 65 2e 20 20 41 |miz-..; |able.  A|
|000012e0| 20 62 61 73 69 63 20 64 | 65 73 69 67 6e 20 63 68 | basic d|esign ch|
|000012f0| 6f 69 63 65 20 68 61 64 | 20 74 6f 20 62 65 20 6d |oice had| to be m|
|00001300| 61 64 65 20 69 6e 20 74 | 68 65 20 64 65 73 69 67 |ade in t|he desig|
|00001310| 6e 20 6f 66 20 5a 43 50 | 52 20 63 6f 6e 63 65 72 |n of ZCP|R concer|
|00001320| 6e 69 6e 67 0d 0a 3b 20 | 74 68 65 20 65 78 65 63 |ning..; |the exec|
|00001330| 75 74 69 6f 6e 20 6f 66 | 20 53 55 42 4d 49 54 20 |ution of| SUBMIT |
|00001340| 66 69 6c 65 73 2e 20 20 | 54 68 65 20 6f 72 69 67 |files.  |The orig|
|00001350| 69 6e 61 6c 20 43 43 50 | 20 68 61 64 20 61 20 70 |inal CCP| had a p|
|00001360| 72 6f 62 6c 65 6d 20 69 | 6e 20 74 68 69 73 20 73 |roblem i|n this s|
|00001370| 65 6e 73 65 0d 0a 3b 20 | 69 6e 20 74 68 61 74 20 |ense..; |in that |
|00001380| 69 74 20 41 4c 57 41 59 | 53 20 6c 6f 6f 6b 65 64 |it ALWAY|S looked|
|00001390| 20 66 6f 72 20 74 68 65 | 20 53 55 42 4d 49 54 20 | for the| SUBMIT |
|000013a0| 66 69 6c 65 20 66 72 6f | 6d 20 64 72 69 76 65 20 |file fro|m drive |
|000013b0| 41 3a 20 61 6e 64 20 74 | 68 65 20 53 55 42 4d 49 |A: and t|he SUBMI|
|000013c0| 54 0d 0a 3b 20 70 72 6f | 67 72 61 6d 20 69 74 73 |T..; pro|gram its|
|000013d0| 65 6c 66 20 28 53 55 42 | 4d 49 54 2e 43 4f 4d 29 |elf (SUB|MIT.COM)|
|000013e0| 20 77 6f 75 6c 64 20 70 | 6c 61 63 65 20 74 68 65 | would p|lace the|
|000013f0| 20 24 24 24 2e 53 55 42 | 20 66 69 6c 65 20 6f 6e | $$$.SUB| file on|
|00001400| 20 74 68 65 20 63 75 72 | 72 65 6e 74 6c 79 0d 0a | the cur|rently..|
|00001410| 3b 20 6c 6f 67 67 65 64 | 2d 69 6e 20 64 72 69 76 |; logged|-in driv|
|00001420| 65 2c 20 73 6f 20 77 68 | 65 6e 20 74 68 65 20 75 |e, so wh|en the u|
|00001430| 73 65 72 20 77 61 73 20 | 6c 6f 67 67 65 64 20 69 |ser was |logged i|
|00001440| 6e 74 6f 20 42 3a 20 61 | 6e 64 20 68 65 20 69 73 |nto B: a|nd he is|
|00001450| 73 75 65 64 20 61 20 53 | 55 42 4d 49 54 0d 0a 3b |sued a S|UBMIT..;|
|00001460| 20 63 6f 6d 6d 61 6e 64 | 2c 20 74 68 65 20 24 24 | command|, the $$|
|00001470| 24 2e 53 55 42 20 77 61 | 73 20 70 6c 61 63 65 64 |$.SUB wa|s placed|
|00001480| 20 6f 6e 20 42 3a 20 61 | 6e 64 20 64 69 64 20 6e | on B: a|nd did n|
|00001490| 6f 74 20 65 78 65 63 75 | 74 65 20 62 65 63 61 75 |ot execu|te becau|
|000014a0| 73 65 20 74 68 65 20 43 | 43 50 0d 0a 3b 20 6c 6f |se the C|CP..; lo|
|000014b0| 6f 6b 65 64 20 66 6f 72 | 20 69 74 20 6f 6e 20 41 |oked for| it on A|
|000014c0| 3a 20 61 6e 64 20 6e 65 | 76 65 72 20 66 6f 75 6e |: and ne|ver foun|
|000014d0| 64 20 69 74 2e 0d 0a 3b | 09 41 66 74 65 72 20 6d |d it...;|.After m|
|000014e0| 75 63 68 20 64 65 62 61 | 74 65 20 69 74 20 77 61 |uch deba|te it wa|
|000014f0| 73 20 64 65 63 69 64 65 | 64 20 74 6f 20 68 61 76 |s decide|d to hav|
|00001500| 65 20 5a 43 50 52 20 70 | 65 72 66 6f 72 6d 20 74 |e ZCPR p|erform t|
|00001510| 68 65 20 73 61 6d 65 20 | 74 79 70 65 20 6f 66 0d |he same |type of.|
|00001520| 0a 3b 20 66 75 6e 63 74 | 69 6f 6e 20 61 73 20 43 |.; funct|ion as C|
|00001530| 43 50 20 28 6c 6f 6f 6b | 20 66 6f 72 20 74 68 65 |CP (look| for the|
|00001540| 20 24 24 24 2e 53 55 42 | 20 66 69 6c 65 20 6f 6e | $$$.SUB| file on|
|00001550| 20 41 3a 29 2c 20 62 75 | 74 20 74 68 65 20 70 72 | A:), bu|t the pr|
|00001560| 6f 62 6c 65 6d 20 77 69 | 74 68 0d 0a 3b 20 53 55 |oblem wi|th..; SU|
|00001570| 42 4d 49 54 2e 43 4f 4d | 20 73 74 69 6c 6c 20 65 |BMIT.COM| still e|
|00001580| 78 69 73 74 73 2e 20 20 | 48 65 6e 63 65 2c 20 52 |xists.  |Hence, R|
|00001590| 47 46 20 64 65 73 69 67 | 6e 65 64 20 53 75 70 65 |GF desig|ned Supe|
|000015a0| 72 53 55 42 20 61 6e 64 | 20 52 4c 43 20 74 6f 6f |rSUB and| RLC too|
|000015b0| 6b 20 68 69 73 0d 0a 3b | 20 53 75 70 65 72 53 55 |k his..;| SuperSU|
|000015c0| 42 20 61 6e 64 20 64 65 | 73 69 67 6e 65 64 20 53 |B and de|signed S|
|000015d0| 55 42 20 66 72 6f 6d 20 | 69 74 3b 20 62 6f 74 68 |UB from |it; both|
|000015e0| 20 70 72 6f 67 72 61 6d | 73 20 61 72 65 20 73 65 | program|s are se|
|000015f0| 74 20 75 70 20 74 6f 20 | 61 6c 6c 6f 77 20 74 68 |t up to |allow th|
|00001600| 65 0d 0a 3b 20 73 65 6c | 65 63 74 69 6f 6e 20 61 |e..; sel|ection a|
|00001610| 74 20 61 73 73 65 6d 62 | 6c 79 20 74 69 6d 65 20 |t assemb|ly time |
|00001620| 6f 66 20 63 72 65 61 74 | 69 6e 67 20 74 68 65 20 |of creat|ing the |
|00001630| 24 24 24 2e 53 55 42 20 | 6f 6e 20 74 68 65 20 6c |$$$.SUB |on the l|
|00001640| 6f 67 67 65 64 2d 69 6e | 20 64 72 69 76 65 0d 0a |ogged-in| drive..|
|00001650| 3b 20 6f 72 20 6f 6e 20 | 64 72 69 76 65 20 41 3a |; or on |drive A:|
|00001660| 2e 0d 0a 3b 09 41 20 66 | 69 6e 61 6c 20 64 65 66 |...;.A f|inal def|
|00001670| 69 6e 69 74 69 6f 6e 20 | 6f 66 20 74 68 65 20 49 |inition |of the I|
|00001680| 6e 64 69 72 65 63 74 20 | 43 6f 6d 6d 61 6e 64 20 |ndirect |Command |
|00001690| 46 69 6c 65 20 28 24 24 | 24 2e 53 55 42 20 6f 72 |File ($$|$.SUB or|
|000016a0| 20 53 55 42 4d 49 54 0d | 0a 3b 20 46 69 6c 65 29 | SUBMIT.|.; File)|
|000016b0| 20 69 73 20 70 72 65 73 | 65 6e 74 65 64 20 61 73 | is pres|ented as|
|000016c0| 20 66 6f 6c 6c 6f 77 73 | 3a 0d 0a 3b 09 09 22 41 | follows|:..;.."A|
|000016d0| 6e 20 49 6e 64 69 72 65 | 63 74 20 43 6f 6d 6d 61 |n Indire|ct Comma|
|000016e0| 6e 64 20 46 69 6c 65 20 | 69 73 20 6f 6e 65 20 77 |nd File |is one w|
|000016f0| 68 69 63 68 20 63 6f 6e | 74 61 69 6e 73 0d 0a 3b |hich con|tains..;|
|00001700| 09 09 20 61 20 73 65 72 | 69 65 73 20 6f 66 20 63 |.. a ser|ies of c|
|00001710| 6f 6d 6d 61 6e 64 73 20 | 65 78 61 63 74 6c 79 20 |ommands |exactly |
|00001720| 61 73 20 74 68 65 79 20 | 77 6f 75 6c 64 20 62 65 |as they |would be|
|00001730| 0d 0a 3b 09 09 20 65 6e | 74 65 72 65 64 20 66 72 |..;.. en|tered fr|
|00001740| 6f 6d 20 61 20 43 50 2f | 4d 20 43 6f 6e 73 6f 6c |om a CP/|M Consol|
|00001750| 65 2e 20 20 54 68 65 20 | 53 55 42 4d 49 54 20 43 |e.  The |SUBMIT C|
|00001760| 6f 6d 6d 61 6e 64 0d 0a | 3b 09 09 20 28 6f 72 20 |ommand..|;.. (or |
|00001770| 53 55 42 20 43 6f 6d 6d | 61 6e 64 29 20 72 65 61 |SUB Comm|and) rea|
|00001780| 64 73 20 74 68 69 73 20 | 66 69 6c 65 73 20 61 6e |ds this |files an|
|00001790| 64 20 74 72 61 6e 73 66 | 6f 72 6d 73 0d 0a 3b 09 |d transf|orms..;.|
|000017a0| 09 20 69 74 20 66 6f 72 | 20 70 72 6f 63 65 73 73 |. it for| process|
|000017b0| 69 6e 67 20 62 79 20 74 | 68 65 20 5a 43 50 52 20 |ing by t|he ZCPR |
|000017c0| 28 74 68 65 20 24 24 24 | 2e 53 55 42 20 46 69 6c |(the $$$|.SUB Fil|
|000017d0| 65 29 2e 0d 0a 3b 09 09 | 20 5a 43 50 52 20 77 69 |e)...;..| ZCPR wi|
|000017e0| 6c 6c 20 74 68 65 6e 20 | 65 78 65 63 75 74 65 20 |ll then |execute |
|000017f0| 74 68 65 20 63 6f 6d 6d | 61 6e 64 73 20 69 6e 64 |the comm|ands ind|
|00001800| 69 63 61 74 65 64 0d 0a | 3b 09 09 20 45 58 41 43 |icated..|;.. EXAC|
|00001810| 54 4c 59 20 61 73 20 69 | 66 20 74 68 65 79 20 77 |TLY as i|f they w|
|00001820| 65 72 65 20 74 79 70 65 | 64 20 61 74 20 74 68 65 |ere type|d at the|
|00001830| 20 43 6f 6e 73 6f 6c 65 | 2e 22 0d 0a 3b 09 48 65 | Console|."..;.He|
|00001840| 6e 63 65 2c 20 74 6f 20 | 70 65 72 6d 69 74 20 74 |nce, to |permit t|
|00001850| 68 69 73 20 74 6f 20 68 | 61 70 70 65 6e 2c 20 74 |his to h|appen, t|
|00001860| 68 65 20 24 24 24 2e 53 | 55 42 20 66 69 6c 65 20 |he $$$.S|UB file |
|00001870| 6d 75 73 74 20 61 6c 77 | 61 79 73 0d 0a 3b 20 62 |must alw|ays..; b|
|00001880| 65 20 70 72 65 73 65 6e | 74 20 6f 6e 20 61 20 73 |e presen|t on a s|
|00001890| 70 65 63 69 66 69 63 20 | 64 72 69 76 65 2c 20 61 |pecific |drive, a|
|000018a0| 6e 64 20 41 3a 20 69 73 | 20 74 68 65 20 63 68 6f |nd A: is| the cho|
|000018b0| 69 63 65 20 66 6f 72 20 | 73 61 69 64 20 64 72 69 |ice for |said dri|
|000018c0| 76 65 2e 0d 0a 3b 20 57 | 69 74 68 20 74 68 69 73 |ve...; W|ith this|
|000018d0| 20 66 61 63 69 6c 69 74 | 79 20 65 6e 67 61 67 65 | facilit|y engage|
|000018e0| 64 20 61 73 20 73 75 63 | 68 2c 20 49 6e 64 69 72 |d as suc|h, Indir|
|000018f0| 65 63 74 20 43 6f 6d 6d | 61 6e 64 20 46 69 6c 65 |ect Comm|and File|
|00001900| 73 20 6c 69 6b 65 3a 0d | 0a 3b 09 09 44 49 52 0d |s like:.|.;..DIR.|
|00001910| 0a 3b 09 09 41 3a 0d 0a | 3b 09 09 44 49 52 0d 0a |.;..A:..|;..DIR..|
|00001920| 3b 20 63 61 6e 20 62 65 | 20 65 78 65 63 75 74 65 |; can be| execute|
|00001930| 64 2c 20 65 76 65 6e 20 | 74 68 6f 75 67 68 20 74 |d, even |though t|
|00001940| 68 65 20 63 75 72 72 65 | 6e 74 6c 79 20 6c 6f 67 |he curre|ntly log|
|00001950| 67 65 64 2d 69 6e 20 64 | 72 69 76 65 20 69 73 20 |ged-in d|rive is |
|00001960| 63 68 61 6e 67 65 64 0d | 0a 3b 20 64 75 72 69 6e |changed.|.; durin|
|00001970| 67 20 65 78 65 63 75 74 | 69 6f 6e 2e 20 20 49 66 |g execut|ion.  If|
|00001980| 20 74 68 65 20 24 24 24 | 2e 53 55 42 20 66 69 6c | the $$$|.SUB fil|
|00001990| 65 20 77 61 73 20 70 72 | 65 73 65 6e 74 20 6f 6e |e was pr|esent on|
|000019a0| 20 74 68 65 20 63 75 72 | 72 65 6e 74 6c 79 0d 0a | the cur|rently..|
|000019b0| 3b 20 6c 6f 67 67 65 64 | 2d 69 6e 20 64 72 69 76 |; logged|-in driv|
|000019c0| 65 2c 20 74 68 65 20 61 | 62 6f 76 65 20 73 65 72 |e, the a|bove ser|
|000019d0| 69 65 73 20 6f 66 20 63 | 6f 6d 6d 61 6e 64 73 20 |ies of c|ommands |
|000019e0| 77 6f 75 6c 64 20 6e 6f | 74 20 77 6f 72 6b 20 73 |would no|t work s|
|000019f0| 69 6e 63 65 20 74 68 65 | 0d 0a 3b 20 5a 43 50 52 |ince the|..; ZCPR|
|00001a00| 20 77 6f 75 6c 64 20 62 | 65 20 6c 6f 6f 6b 69 6e | would b|e lookin|
|00001a10| 67 20 66 6f 72 20 24 24 | 24 2e 53 55 42 20 6f 6e |g for $$|$.SUB on|
|00001a20| 20 74 68 65 20 6c 6f 67 | 67 65 64 2d 69 6e 20 64 | the log|ged-in d|
|00001a30| 72 69 76 65 2c 20 61 6e | 64 20 73 77 69 74 63 68 |rive, an|d switch|
|00001a40| 69 6e 67 0d 0a 3b 20 6c | 6f 67 67 65 64 2d 69 6e |ing..; l|ogged-in|
|00001a50| 20 64 72 69 76 65 73 20 | 77 69 74 68 6f 75 74 20 | drives |without |
|00001a60| 6d 6f 76 69 6e 67 20 74 | 68 65 20 24 24 24 2e 53 |moving t|he $$$.S|
|00001a70| 55 42 20 66 69 6c 65 20 | 61 73 20 77 65 6c 6c 20 |UB file |as well |
|00001a80| 77 6f 75 6c 64 20 63 61 | 75 73 65 0d 0a 3b 20 70 |would ca|use..; p|
|00001a90| 72 6f 63 65 73 73 69 6e | 67 20 74 6f 20 61 62 6f |rocessin|g to abo|
|00001aa0| 72 74 2e 0d 0a 3b 0d 0a | 53 55 42 41 09 65 71 75 |rt...;..|SUBA.equ|
|00001ab0| 09 54 52 55 45 20 09 3b | 20 53 65 74 20 74 6f 20 |.TRUE .;| Set to |
|00001ac0| 54 52 55 45 20 74 6f 20 | 68 61 76 65 20 24 24 24 |TRUE to |have $$$|
|00001ad0| 2e 53 55 42 20 61 6c 77 | 61 79 73 20 6f 6e 20 41 |.SUB alw|ays on A|
|00001ae0| 3a 0d 0a 09 09 09 3b 20 | 53 65 74 20 74 6f 20 46 |:.....; |Set to F|
|00001af0| 41 4c 53 45 20 74 6f 20 | 68 61 76 65 20 24 24 24 |ALSE to |have $$$|
|00001b00| 2e 53 55 42 20 6f 6e 20 | 74 68 65 20 6c 6f 67 67 |.SUB on |the logg|
|00001b10| 65 64 2d 69 6e 20 64 72 | 69 76 65 0d 0a 3b 0d 0a |ed-in dr|ive..;..|
|00001b20| 3b 20 20 20 54 68 65 20 | 66 6f 6c 6c 6f 77 69 6e |;   The |followin|
|00001b30| 67 20 66 6c 61 67 20 65 | 6e 61 62 6c 65 73 20 65 |g flag e|nables e|
|00001b40| 78 74 65 6e 64 65 64 20 | 70 72 6f 63 65 73 73 69 |xtended |processi|
|00001b50| 6e 67 20 66 6f 72 20 75 | 73 65 72 2d 70 72 6f 67 |ng for u|ser-prog|
|00001b60| 72 61 6d 20 73 75 70 70 | 6c 69 65 64 0d 0a 3b 20 |ram supp|lied..; |
|00001b70| 63 6f 6d 6d 61 6e 64 20 | 6c 69 6e 65 73 2e 20 20 |command |lines.  |
|00001b80| 54 68 69 73 20 69 73 20 | 66 6f 72 20 43 6f 6d 6d |This is |for Comm|
|00001b90| 61 6e 64 20 4c 65 76 65 | 6c 20 33 20 6f 66 20 5a |and Leve|l 3 of Z|
|00001ba0| 43 50 52 2e 20 20 55 6e | 64 65 72 20 74 68 65 20 |CPR.  Un|der the |
|00001bb0| 43 43 50 5a 20 56 65 72 | 73 69 6f 6e 0d 0a 3b 20 |CCPZ Ver|sion..; |
|00001bc0| 34 2e 30 20 70 68 69 6c | 6f 73 6f 70 68 79 2c 20 |4.0 phil|osophy, |
|00001bd0| 74 68 72 65 65 20 63 6f | 6d 6d 61 6e 64 20 6c 65 |three co|mmand le|
|00001be0| 76 65 6c 73 20 65 78 69 | 73 74 3a 0d 0a 3b 09 28 |vels exi|st:..;.(|
|00001bf0| 31 29 20 74 68 61 74 20 | 63 6f 6d 6d 61 6e 64 20 |1) that |command |
|00001c00| 69 73 73 75 65 64 20 62 | 79 20 74 68 65 20 75 73 |issued b|y the us|
|00001c10| 65 72 20 66 72 6f 6d 20 | 68 69 73 20 63 6f 6e 73 |er from |his cons|
|00001c20| 6f 6c 65 20 61 74 20 74 | 68 65 20 27 3e 27 20 70 |ole at t|he '>' p|
|00001c30| 72 6f 6d 70 74 0d 0a 3b | 09 28 32 29 20 74 68 61 |rompt..;|.(2) tha|
|00001c40| 74 20 63 6f 6d 6d 61 6e | 64 20 69 73 73 75 65 64 |t comman|d issued|
|00001c50| 20 62 79 20 61 20 24 24 | 24 2e 53 55 42 20 66 69 | by a $$|$.SUB fi|
|00001c60| 6c 65 20 61 74 20 74 68 | 65 20 27 24 27 20 70 72 |le at th|e '$' pr|
|00001c70| 6f 6d 70 74 0d 0a 3b 09 | 28 33 29 20 74 68 61 74 |ompt..;.|(3) that|
|00001c80| 20 63 6f 6d 6d 61 6e 64 | 20 69 73 73 75 65 64 20 | command| issued |
|00001c90| 62 79 20 61 20 75 73 65 | 72 20 70 72 6f 67 72 61 |by a use|r progra|
|00001ca0| 6d 20 62 79 20 70 6c 61 | 63 69 6e 67 20 74 68 65 |m by pla|cing the|
|00001cb0| 20 63 6f 6d 6d 61 6e 64 | 20 69 6e 74 6f 0d 0a 3b | command| into..;|
|00001cc0| 20 43 49 42 55 46 46 20 | 61 6e 64 20 73 65 74 74 | CIBUFF |and sett|
|00001cd0| 69 6e 67 20 74 68 65 20 | 63 68 61 72 61 63 74 65 |ing the |characte|
|00001ce0| 72 20 63 6f 75 6e 74 20 | 69 6e 20 43 42 55 46 46 |r count |in CBUFF|
|00001cf0| 0d 0a 3b 20 20 20 53 65 | 74 74 69 6e 67 20 43 4c |..;   Se|tting CL|
|00001d00| 45 56 45 4c 33 20 74 6f | 20 54 52 55 45 20 65 6e |EVEL3 to| TRUE en|
|00001d10| 61 62 6c 65 73 20 65 78 | 74 65 6e 64 65 64 20 70 |ables ex|tended p|
|00001d20| 72 6f 63 65 73 73 69 6e | 67 20 6f 66 20 74 68 65 |rocessin|g of the|
|00001d30| 20 74 68 69 72 64 20 6c | 65 76 65 6c 20 6f 66 0d | third l|evel of.|
|00001d40| 0a 3b 20 5a 43 50 52 20 | 63 6f 6d 6d 61 6e 64 2e |.; ZCPR |command.|
|00001d50| 20 20 41 6c 6c 20 74 68 | 65 20 75 73 65 72 20 70 |  All th|e user p|
|00001d60| 72 6f 67 72 61 6d 20 6e | 65 65 64 20 64 6f 20 69 |rogram n|eed do i|
|00001d70| 73 20 74 6f 20 73 74 6f | 72 65 20 74 68 65 20 63 |s to sto|re the c|
|00001d80| 6f 6d 6d 61 6e 64 20 6c | 69 6e 65 20 61 6e 64 0d |ommand l|ine and.|
|00001d90| 0a 3b 20 73 65 74 20 74 | 68 65 20 63 68 61 72 61 |.; set t|he chara|
|00001da0| 63 74 65 72 20 63 6f 75 | 6e 74 3b 20 5a 43 50 52 |cter cou|nt; ZCPR|
|00001db0| 20 77 69 6c 6c 20 69 6e | 69 74 69 61 6c 69 7a 65 | will in|itialize|
|00001dc0| 20 74 68 65 20 70 6f 69 | 6e 74 65 72 73 20 70 72 | the poi|nters pr|
|00001dd0| 6f 70 65 72 6c 79 2c 20 | 73 74 6f 72 65 0d 0a 3b |operly, |store..;|
|00001de0| 20 74 68 65 20 65 6e 64 | 69 6e 67 20 7a 65 72 6f | the end|ing zero|
|00001df0| 20 70 72 6f 70 65 72 6c | 79 2c 20 61 6e 64 20 63 | properl|y, and c|
|00001e00| 61 70 69 74 61 6c 69 7a | 65 20 74 68 65 20 63 6f |apitaliz|e the co|
|00001e10| 6d 6d 61 6e 64 20 6c 69 | 6e 65 20 66 6f 72 20 70 |mmand li|ne for p|
|00001e20| 72 6f 63 65 73 73 69 6e | 67 2e 0d 0a 3b 20 4f 6e |rocessin|g...; On|
|00001e30| 63 65 20 74 68 65 20 63 | 6f 6d 6d 61 6e 64 20 6c |ce the c|ommand l|
|00001e40| 69 6e 65 20 69 73 20 70 | 72 6f 70 65 72 6c 79 20 |ine is p|roperly |
|00001e50| 73 74 6f 72 65 64 2c 20 | 74 68 65 20 75 73 65 72 |stored, |the user|
|00001e60| 20 65 78 65 63 75 74 65 | 73 20 74 68 65 20 63 6f | execute|s the co|
|00001e70| 6d 6d 61 6e 64 20 6c 69 | 6e 65 0d 0a 3b 20 62 79 |mmand li|ne..; by|
|00001e80| 20 72 65 65 6e 74 65 72 | 69 6e 67 20 74 68 65 20 | reenter|ing the |
|00001e90| 5a 43 50 52 20 74 68 72 | 6f 75 67 68 20 43 50 52 |ZCPR thr|ough CPR|
|00001ea0| 4c 4f 43 20 5b 4e 4f 54 | 45 3a 20 20 54 68 65 20 |LOC [NOT|E:  The |
|00001eb0| 43 20 72 65 67 69 73 74 | 65 72 20 4d 55 53 54 20 |C regist|er MUST |
|00001ec0| 63 6f 6e 74 61 69 6e 0d | 0a 3b 20 61 20 76 61 6c |contain.|.; a val|
|00001ed0| 69 64 20 55 73 65 72 2f | 44 69 73 6b 20 46 6c 61 |id User/|Disk Fla|
|00001ee0| 67 20 28 73 65 65 20 6c | 6f 63 61 74 69 6f 6e 20 |g (see l|ocation |
|00001ef0| 34 29 20 61 74 20 74 68 | 69 73 20 74 69 6d 65 2e |4) at th|is time.|
|00001f00| 5d 0d 0a 3b 0d 0a 43 4c | 45 56 45 4c 33 09 65 71 |]..;..CL|EVEL3.eq|
|00001f10| 75 09 54 52 55 45 09 09 | 3b 45 4e 41 42 4c 45 20 |u.TRUE..|;ENABLE |
|00001f20| 43 4f 4d 4d 41 4e 44 20 | 4c 45 56 45 4c 20 33 20 |COMMAND |LEVEL 3 |
|00001f30| 50 52 4f 43 45 53 53 49 | 4e 47 0d 0a 3b 0d 0a 3b |PROCESSI|NG..;..;|
|00001f40| 0d 0a 3b 2a 2a 2a 20 54 | 45 52 4d 49 4e 41 4c 20 |..;*** T|ERMINAL |
|00001f50| 41 4e 44 20 27 54 59 50 | 45 27 20 43 55 53 54 4f |AND 'TYP|E' CUSTO|
|00001f60| 4d 49 5a 41 54 49 4f 4e | 20 45 51 55 41 54 45 53 |MIZATION| EQUATES|
|00001f70| 0d 0a 3b 0d 0a 4e 4c 49 | 4e 45 53 09 45 51 55 09 |..;..NLI|NES.EQU.|
|00001f80| 32 34 09 09 3b 4e 55 4d | 42 45 52 20 4f 46 20 4c |24..;NUM|BER OF L|
|00001f90| 49 4e 45 53 20 4f 4e 20 | 43 52 54 20 53 43 52 45 |INES ON |CRT SCRE|
|00001fa0| 45 4e 0d 0a 57 49 44 45 | 09 45 51 55 09 54 52 55 |EN..WIDE|.EQU.TRU|
|00001fb0| 45 09 09 3b 54 52 55 45 | 20 49 46 20 57 49 44 45 |E..;TRUE| IF WIDE|
|00001fc0| 20 44 49 52 20 44 49 53 | 50 4c 41 59 0d 0a 46 45 | DIR DIS|PLAY..FE|
|00001fd0| 4e 43 45 09 45 51 55 09 | 27 7c 27 09 09 3b 53 45 |NCE.EQU.|'|'..;SE|
|00001fe0| 50 20 43 48 41 52 20 42 | 45 54 57 45 45 4e 20 44 |P CHAR B|ETWEEN D|
|00001ff0| 49 52 20 46 49 4c 45 53 | 0d 0a 3b 0d 0a 50 47 44 |IR FILES|..;..PGD|
|00002000| 46 4c 54 09 45 51 55 09 | 54 52 55 45 20 20 09 09 |FLT.EQU.|TRUE  ..|
|00002010| 3b 53 45 54 20 54 4f 20 | 46 41 4c 53 45 20 54 4f |;SET TO |FALSE TO|
|00002020| 20 44 49 53 41 42 4c 45 | 20 50 41 47 49 4e 47 20 | DISABLE| PAGING |
|00002030| 42 59 20 44 45 46 41 55 | 4c 54 0d 0a 50 47 44 46 |BY DEFAU|LT..PGDF|
|00002040| 4c 47 09 45 51 55 09 27 | 50 27 09 09 3b 46 4f 52 |LG.EQU.'|P'..;FOR|
|00002050| 20 54 59 50 45 20 43 4f | 4d 4d 41 4e 44 3a 20 50 | TYPE CO|MMAND: P|
|00002060| 41 47 45 20 4f 52 20 4e | 4f 54 20 28 44 45 50 20 |AGE OR N|OT (DEP |
|00002070| 4f 4e 20 50 47 44 46 4c | 54 29 0d 0a 09 09 09 09 |ON PGDFL|T)......|
|00002080| 3b 20 20 54 48 49 53 20 | 46 4c 41 47 20 52 45 56 |;  THIS |FLAG REV|
|00002090| 45 52 53 45 53 20 54 48 | 45 20 44 45 46 41 55 4c |ERSES TH|E DEFAUL|
|000020a0| 54 20 45 46 46 45 43 54 | 0d 0a 3b 0d 0a 4d 41 58 |T EFFECT|..;..MAX|
|000020b0| 55 53 52 09 45 51 55 09 | 31 35 20 09 09 3b 4d 41 |USR.EQU.|15 ..;MA|
|000020c0| 58 49 4d 55 4d 20 55 53 | 45 52 20 4e 55 4d 42 45 |XIMUM US|ER NUMBE|
|000020d0| 52 20 41 43 43 45 53 53 | 41 42 4c 45 0d 0a 3b 0d |R ACCESS|ABLE..;.|
|000020e0| 0a 53 59 53 46 4c 47 09 | 45 51 55 09 27 41 27 20 |.SYSFLG.|EQU.'A' |
|000020f0| 09 09 3b 46 4f 52 20 44 | 49 52 20 43 4f 4d 4d 41 |..;FOR D|IR COMMA|
|00002100| 4e 44 3a 20 4c 49 53 54 | 20 24 53 59 53 20 41 4e |ND: LIST| $SYS AN|
|00002110| 44 20 24 44 49 52 0d 0a | 3b 0d 0a 53 4f 46 4c 47 |D $DIR..|;..SOFLG|
|00002120| 09 45 51 55 09 27 53 27 | 09 09 3b 46 4f 52 20 44 |.EQU.'S'|..;FOR D|
|00002130| 49 52 20 43 4f 4d 4d 41 | 4e 44 3a 20 4c 49 53 54 |IR COMMA|ND: LIST|
|00002140| 20 24 53 59 53 20 46 49 | 4c 45 53 20 4f 4e 4c 59 | $SYS FI|LES ONLY|
|00002150| 0d 0a 3b 0d 0a 53 55 50 | 52 45 53 09 45 51 55 09 |..;..SUP|RES.EQU.|
|00002160| 54 52 55 45 20 09 09 3b | 53 55 50 52 45 53 53 45 |TRUE ..;|SUPRESSE|
|00002170| 53 20 55 53 45 52 20 23 | 20 52 45 50 4f 52 54 20 |S USER #| REPORT |
|00002180| 46 4f 52 20 55 53 45 52 | 20 30 0d 0a 3b 0d 0a 44 |FOR USER| 0..;..D|
|00002190| 45 46 55 53 52 09 45 51 | 55 09 30 20 09 09 3b 44 |EFUSR.EQ|U.0 ..;D|
|000021a0| 45 46 41 55 4c 54 20 55 | 53 45 52 20 4e 55 4d 42 |EFAULT U|SER NUMB|
|000021b0| 45 52 20 46 4f 52 20 43 | 4f 4d 20 46 49 4c 45 53 |ER FOR C|OM FILES|
|000021c0| 0d 0a 3b 0d 0a 53 50 52 | 4d 50 54 09 45 51 55 09 |..;..SPR|MPT.EQU.|
|000021d0| 27 24 27 09 09 3b 43 50 | 52 20 50 52 4f 4d 50 54 |'$'..;CP|R PROMPT|
|000021e0| 20 49 4e 44 49 43 41 54 | 49 4e 47 20 53 55 42 4d | INDICAT|ING SUBM|
|000021f0| 49 54 20 43 4f 4d 4d 41 | 4e 44 0d 0a 43 50 52 4d |IT COMMA|ND..CPRM|
|00002200| 50 54 09 45 51 55 09 27 | 3e 27 09 09 3b 43 50 52 |PT.EQU.'|>'..;CPR|
|00002210| 20 50 52 4f 4d 50 54 20 | 49 4e 44 49 43 41 54 49 | PROMPT |INDICATI|
|00002220| 4e 47 20 55 53 45 52 20 | 43 4f 4d 4d 41 4e 44 0d |NG USER |COMMAND.|
|00002230| 0a 3b 0d 0a 4e 55 4d 42 | 41 53 45 09 45 51 55 09 |.;..NUMB|ASE.EQU.|
|00002240| 27 48 27 09 09 3b 43 48 | 41 52 41 43 54 45 52 20 |'H'..;CH|ARACTER |
|00002250| 55 53 45 44 20 54 4f 20 | 53 57 49 54 43 48 20 46 |USED TO |SWITCH F|
|00002260| 52 4f 4d 20 44 45 46 41 | 55 4c 54 0d 0a 09 09 09 |ROM DEFA|ULT.....|
|00002270| 09 3b 20 4e 55 4d 42 45 | 52 20 42 41 53 45 0d 0a |.; NUMBE|R BASE..|
|00002280| 3b 0d 0a 53 45 43 54 46 | 4c 47 09 45 51 55 09 27 |;..SECTF|LG.EQU.'|
|00002290| 53 27 09 09 3b 4f 50 54 | 49 4f 4e 20 43 48 41 52 |S'..;OPT|ION CHAR|
|000022a0| 20 46 4f 52 20 53 41 56 | 45 20 43 4f 4d 4d 41 4e | FOR SAV|E COMMAN|
|000022b0| 44 20 54 4f 20 53 41 56 | 45 20 53 45 43 54 4f 52 |D TO SAV|E SECTOR|
|000022c0| 53 0d 0a 3b 0d 0a 3b 20 | 45 4e 44 20 4f 46 20 43 |S..;..; |END OF C|
|000022d0| 55 53 54 4f 4d 49 5a 41 | 54 49 4f 4e 20 53 45 43 |USTOMIZA|TION SEC|
|000022e0| 54 49 4f 4e 0d 0a 3b 0d | 0a 43 52 09 45 51 55 09 |TION..;.|.CR.EQU.|
|000022f0| 30 44 48 0d 0a 4c 46 09 | 45 51 55 09 30 41 48 0d |0DH..LF.|EQU.0AH.|
|00002300| 0a 54 41 42 09 45 51 55 | 09 30 39 48 0d 0a 3b 0d |.TAB.EQU|.09H..;.|
|00002310| 0a 57 42 4f 4f 54 09 45 | 51 55 09 42 41 53 45 2b |.WBOOT.E|QU.BASE+|
|00002320| 30 30 30 30 48 09 09 3b | 43 50 2f 4d 20 57 41 52 |0000H..;|CP/M WAR|
|00002330| 4d 20 42 4f 4f 54 20 41 | 44 44 52 45 53 53 0d 0a |M BOOT A|DDRESS..|
|00002340| 55 44 46 4c 41 47 09 45 | 51 55 09 42 41 53 45 2b |UDFLAG.E|QU.BASE+|
|00002350| 30 30 30 34 48 09 09 3b | 55 53 45 52 20 4e 55 4d |0004H..;|USER NUM|
|00002360| 20 49 4e 20 48 49 47 48 | 20 4e 59 42 42 4c 45 2c | IN HIGH| NYBBLE,|
|00002370| 20 44 49 53 4b 20 49 4e | 20 4c 4f 57 0d 0a 42 44 | DISK IN| LOW..BD|
|00002380| 4f 53 09 45 51 55 09 42 | 41 53 45 2b 30 30 30 35 |OS.EQU.B|ASE+0005|
|00002390| 48 09 09 3b 42 44 4f 53 | 20 46 55 4e 43 54 49 4f |H..;BDOS| FUNCTIO|
|000023a0| 4e 20 43 41 4c 4c 20 45 | 4e 54 52 59 20 50 54 0d |N CALL E|NTRY PT.|
|000023b0| 0a 54 46 43 42 09 45 51 | 55 09 42 41 53 45 2b 30 |.TFCB.EQ|U.BASE+0|
|000023c0| 30 35 43 48 09 09 3b 44 | 45 46 41 55 4c 54 20 46 |05CH..;D|EFAULT F|
|000023d0| 43 42 20 42 55 46 46 45 | 52 0d 0a 54 42 55 46 46 |CB BUFFE|R..TBUFF|
|000023e0| 09 45 51 55 09 42 41 53 | 45 2b 30 30 38 30 48 09 |.EQU.BAS|E+0080H.|
|000023f0| 09 3b 44 45 46 41 55 4c | 54 20 44 49 53 4b 20 49 |.;DEFAUL|T DISK I|
|00002400| 2f 4f 20 42 55 46 46 45 | 52 0d 0a 54 50 41 09 45 |/O BUFFE|R..TPA.E|
|00002410| 51 55 09 42 41 53 45 2b | 30 31 30 30 48 09 09 3b |QU.BASE+|0100H..;|
|00002420| 42 41 53 45 20 4f 46 20 | 54 50 41 0d 0a 3b 0d 0a |BASE OF |TPA..;..|
|00002430| 3b 0d 0a 3b 20 4d 41 43 | 52 4f 53 20 54 4f 20 50 |;..; MAC|ROS TO P|
|00002440| 52 4f 56 49 44 45 20 5a | 38 30 20 45 58 54 45 4e |ROVIDE Z|80 EXTEN|
|00002450| 53 49 4f 4e 53 0d 0a 3b | 20 20 20 4d 41 43 52 4f |SIONS..;|   MACRO|
|00002460| 53 20 49 4e 43 4c 55 44 | 45 3a 0d 0a 3b 0d 0a 24 |S INCLUD|E:..;..$|
|00002470| 2d 4d 41 43 52 4f 20 09 | 09 3b 46 49 52 53 54 20 |-MACRO .|.;FIRST |
|00002480| 54 55 52 4e 20 4f 46 46 | 20 54 48 45 20 45 58 50 |TURN OFF| THE EXP|
|00002490| 41 4e 53 49 4f 4e 53 0d | 0a 3b 0d 0a 3b 09 4a 52 |ANSIONS.|.;..;.JR|
|000024a0| 09 2d 20 4a 55 4d 50 20 | 52 45 4c 41 54 49 56 45 |.- JUMP |RELATIVE|
|000024b0| 0d 0a 3b 09 4a 52 43 09 | 2d 20 4a 55 4d 50 20 52 |..;.JRC.|- JUMP R|
|000024c0| 45 4c 41 54 49 56 45 20 | 49 46 20 43 41 52 52 59 |ELATIVE |IF CARRY|
|000024d0| 0d 0a 3b 09 4a 52 4e 43 | 09 2d 20 4a 55 4d 50 20 |..;.JRNC|.- JUMP |
|000024e0| 52 45 4c 41 54 49 56 45 | 20 49 46 20 4e 4f 20 43 |RELATIVE| IF NO C|
|000024f0| 41 52 52 59 0d 0a 3b 09 | 4a 52 5a 09 2d 20 4a 55 |ARRY..;.|JRZ.- JU|
|00002500| 4d 50 20 52 45 4c 41 54 | 49 56 45 20 49 46 20 5a |MP RELAT|IVE IF Z|
|00002510| 45 52 4f 0d 0a 3b 09 4a | 52 4e 5a 09 2d 20 4a 55 |ERO..;.J|RNZ.- JU|
|00002520| 4d 50 20 52 45 4c 41 54 | 49 56 45 20 49 46 20 4e |MP RELAT|IVE IF N|
|00002530| 4f 20 5a 45 52 4f 0d 0a | 3b 09 44 4a 4e 5a 09 2d |O ZERO..|;.DJNZ.-|
|00002540| 20 44 45 43 52 45 4d 45 | 4e 54 20 42 20 41 4e 44 | DECREME|NT B AND|
|00002550| 20 4a 55 4d 50 20 52 45 | 4c 41 54 49 56 45 20 49 | JUMP RE|LATIVE I|
|00002560| 46 20 4e 4f 20 5a 45 52 | 4f 0d 0a 3b 09 4c 44 49 |F NO ZER|O..;.LDI|
|00002570| 52 09 2d 20 4d 4f 56 20 | 40 48 4c 20 54 4f 20 40 |R.- MOV |@HL TO @|
|00002580| 44 45 20 46 4f 52 20 43 | 4f 55 4e 54 20 49 4e 20 |DE FOR C|OUNT IN |
|00002590| 42 43 0d 0a 3b 09 4c 58 | 58 44 09 2d 20 4c 4f 41 |BC..;.LX|XD.- LOA|
|000025a0| 44 20 44 4f 55 42 4c 45 | 20 52 45 47 20 44 49 52 |D DOUBLE| REG DIR|
|000025b0| 45 43 54 0d 0a 3b 09 53 | 58 58 44 09 2d 20 53 54 |ECT..;.S|XXD.- ST|
|000025c0| 4f 52 45 20 44 4f 55 42 | 4c 45 20 52 45 47 20 44 |ORE DOUB|LE REG D|
|000025d0| 49 52 45 43 54 0d 0a 3b | 0d 0a 3b 0d 0a 3b 0d 0a |IRECT..;|..;..;..|
|000025e0| 3b 09 40 47 45 4e 44 44 | 20 4d 41 43 52 4f 20 55 |;.@GENDD| MACRO U|
|000025f0| 53 45 44 20 46 4f 52 20 | 43 48 45 43 4b 49 4e 47 |SED FOR |CHECKING|
|00002600| 20 41 4e 44 20 47 45 4e | 45 52 41 54 49 4e 47 0d | AND GEN|ERATING.|
|00002610| 0a 3b 09 38 2d 42 49 54 | 20 4a 55 4d 50 20 52 45 |.;.8-BIT| JUMP RE|
|00002620| 4c 41 54 49 56 45 20 44 | 49 53 50 4c 41 43 45 4d |LATIVE D|ISPLACEM|
|00002630| 45 4e 54 53 0d 0a 3b 0d | 0a 40 47 45 4e 44 44 09 |ENTS..;.|.@GENDD.|
|00002640| 4d 41 43 52 4f 09 3f 44 | 44 09 3b 3b 55 53 45 44 |MACRO.?D|D.;;USED|
|00002650| 20 46 4f 52 20 43 48 45 | 43 4b 49 4e 47 20 52 41 | FOR CHE|CKING RA|
|00002660| 4e 47 45 20 4f 46 20 38 | 2d 42 49 54 20 44 49 53 |NGE OF 8|-BIT DIS|
|00002670| 50 4c 41 43 45 4d 45 4e | 54 53 0d 0a 09 49 46 20 |PLACEMEN|TS...IF |
|00002680| 28 3f 44 44 20 47 54 20 | 37 46 48 29 20 41 4e 44 |(?DD GT |7FH) AND|
|00002690| 20 28 3f 44 44 20 4c 54 | 20 30 46 46 38 30 48 29 | (?DD LT| 0FF80H)|
|000026a0| 0d 0a 09 44 42 09 31 30 | 30 48 09 3b 44 69 73 70 |...DB.10|0H.;Disp|
|000026b0| 6c 61 63 65 6d 65 6e 74 | 20 52 61 6e 67 65 20 45 |lacement| Range E|
|000026c0| 72 72 6f 72 20 6f 6e 20 | 4a 75 6d 70 20 52 65 6c |rror on |Jump Rel|
|000026d0| 61 74 69 76 65 0d 0a 09 | 45 4c 53 45 0d 0a 09 44 |ative...|ELSE...D|
|000026e0| 42 09 3f 44 44 0d 0a 09 | 45 4e 44 49 46 0d 0a 09 |B.?DD...|ENDIF...|
|000026f0| 45 4e 44 4d 0d 0a 3b 0d | 0a 3b 0d 0a 3b 20 5a 38 |ENDM..;.|.;..; Z8|
|00002700| 30 20 4d 41 43 52 4f 20 | 45 58 54 45 4e 53 49 4f |0 MACRO |EXTENSIO|
|00002710| 4e 53 0d 0a 3b 0d 0a 4a | 52 09 4d 41 43 52 4f 09 |NS..;..J|R.MACRO.|
|00002720| 3f 4e 09 3b 3b 4a 55 4d | 50 20 52 45 4c 41 54 49 |?N.;;JUM|P RELATI|
|00002730| 56 45 0d 0a 09 44 42 09 | 31 38 48 0d 0a 09 40 47 |VE...DB.|18H...@G|
|00002740| 45 4e 44 44 09 3f 4e 2d | 24 2d 31 0d 0a 09 45 4e |ENDD.?N-|$-1...EN|
|00002750| 44 4d 0d 0a 3b 0d 0a 4a | 52 43 09 4d 41 43 52 4f |DM..;..J|RC.MACRO|
|00002760| 09 3f 4e 09 3b 3b 4a 55 | 4d 50 20 52 45 4c 41 54 |.?N.;;JU|MP RELAT|
|00002770| 49 56 45 20 4f 4e 20 43 | 41 52 52 59 0d 0a 09 44 |IVE ON C|ARRY...D|
|00002780| 42 09 33 38 48 0d 0a 09 | 40 47 45 4e 44 44 09 3f |B.38H...|@GENDD.?|
|00002790| 4e 2d 24 2d 31 0d 0a 09 | 45 4e 44 4d 0d 0a 3b 0d |N-$-1...|ENDM..;.|
|000027a0| 0a 4a 52 4e 43 09 4d 41 | 43 52 4f 09 3f 4e 09 3b |.JRNC.MA|CRO.?N.;|
|000027b0| 3b 4a 55 4d 50 20 52 45 | 4c 41 54 49 56 45 20 4f |;JUMP RE|LATIVE O|
|000027c0| 4e 20 4e 4f 20 43 41 52 | 52 59 0d 0a 09 44 42 09 |N NO CAR|RY...DB.|
|000027d0| 33 30 48 0d 0a 09 40 47 | 45 4e 44 44 09 3f 4e 2d |30H...@G|ENDD.?N-|
|000027e0| 24 2d 31 0d 0a 09 45 4e | 44 4d 0d 0a 3b 0d 0a 4a |$-1...EN|DM..;..J|
|000027f0| 52 5a 09 4d 41 43 52 4f | 09 3f 4e 09 3b 3b 4a 55 |RZ.MACRO|.?N.;;JU|
|00002800| 4d 50 20 52 45 4c 41 54 | 49 56 45 20 4f 4e 20 5a |MP RELAT|IVE ON Z|
|00002810| 45 52 4f 0d 0a 09 44 42 | 09 32 38 48 0d 0a 09 40 |ERO...DB|.28H...@|
|00002820| 47 45 4e 44 44 09 3f 4e | 2d 24 2d 31 0d 0a 09 45 |GENDD.?N|-$-1...E|
|00002830| 4e 44 4d 0d 0a 3b 0d 0a | 4a 52 4e 5a 09 4d 41 43 |NDM..;..|JRNZ.MAC|
|00002840| 52 4f 09 3f 4e 09 3b 3b | 4a 55 4d 50 20 52 45 4c |RO.?N.;;|JUMP REL|
|00002850| 41 54 49 56 45 20 4f 4e | 20 4e 4f 20 5a 45 52 4f |ATIVE ON| NO ZERO|
|00002860| 0d 0a 09 44 42 09 32 30 | 48 0d 0a 09 40 47 45 4e |...DB.20|H...@GEN|
|00002870| 44 44 09 3f 4e 2d 24 2d | 31 0d 0a 09 45 4e 44 4d |DD.?N-$-|1...ENDM|
|00002880| 0d 0a 3b 0d 0a 44 4a 4e | 5a 09 4d 41 43 52 4f 09 |..;..DJN|Z.MACRO.|
|00002890| 3f 4e 09 3b 3b 44 45 43 | 52 45 4d 45 4e 54 20 42 |?N.;;DEC|REMENT B|
|000028a0| 20 41 4e 44 20 4a 55 4d | 50 20 52 45 4c 41 54 49 | AND JUM|P RELATI|
|000028b0| 56 45 20 4f 4e 20 4e 4f | 20 5a 45 52 4f 0d 0a 09 |VE ON NO| ZERO...|
|000028c0| 44 42 09 31 30 48 0d 0a | 09 40 47 45 4e 44 44 09 |DB.10H..|.@GENDD.|
|000028d0| 3f 4e 2d 24 2d 31 0d 0a | 09 45 4e 44 4d 0d 0a 3b |?N-$-1..|.ENDM..;|
|000028e0| 0d 0a 4c 44 49 52 09 4d | 41 43 52 4f 09 09 3b 3b |..LDIR.M|ACRO..;;|
|000028f0| 4c 44 49 52 0d 0a 09 44 | 42 09 30 45 44 48 2c 30 |LDIR...D|B.0EDH,0|
|00002900| 42 30 48 0d 0a 09 45 4e | 44 4d 0d 0a 3b 0d 0a 4c |B0H...EN|DM..;..L|
|00002910| 44 45 44 09 4d 41 43 52 | 4f 09 3f 4e 09 3b 3b 4c |DED.MACR|O.?N.;;L|
|00002920| 4f 41 44 20 44 45 20 44 | 49 52 45 43 54 0d 0a 09 |OAD DE D|IRECT...|
|00002930| 44 42 09 30 45 44 48 2c | 30 35 42 48 0d 0a 09 44 |DB.0EDH,|05BH...D|
|00002940| 57 09 3f 4e 0d 0a 09 45 | 4e 44 4d 0d 0a 3b 0d 0a |W.?N...E|NDM..;..|
|00002950| 4c 42 43 44 09 4d 41 43 | 52 4f 09 3f 4e 09 3b 3b |LBCD.MAC|RO.?N.;;|
|00002960| 4c 4f 41 44 20 42 43 20 | 44 49 52 45 43 54 0d 0a |LOAD BC |DIRECT..|
|00002970| 09 44 42 09 30 45 44 48 | 2c 34 42 48 0d 0a 09 44 |.DB.0EDH|,4BH...D|
|00002980| 57 09 3f 4e 0d 0a 09 45 | 4e 44 4d 0d 0a 3b 0d 0a |W.?N...E|NDM..;..|
|00002990| 53 44 45 44 09 4d 41 43 | 52 4f 09 3f 4e 09 3b 3b |SDED.MAC|RO.?N.;;|
|000029a0| 53 54 4f 52 45 20 44 45 | 20 44 49 52 45 43 54 0d |STORE DE| DIRECT.|
|000029b0| 0a 09 44 42 09 30 45 44 | 48 2c 35 33 48 0d 0a 09 |..DB.0ED|H,53H...|
|000029c0| 44 57 09 3f 4e 0d 0a 09 | 45 4e 44 4d 0d 0a 3b 0d |DW.?N...|ENDM..;.|
|000029d0| 0a 53 42 43 44 09 4d 41 | 43 52 4f 09 3f 4e 09 3b |.SBCD.MA|CRO.?N.;|
|000029e0| 3b 53 54 4f 52 45 20 42 | 43 20 44 49 52 45 43 54 |;STORE B|C DIRECT|
|000029f0| 0d 0a 09 44 42 09 30 45 | 44 48 2c 34 33 48 0d 0a |...DB.0E|DH,43H..|
|00002a00| 09 44 57 09 3f 4e 0d 0a | 09 45 4e 44 4d 0d 0a 3b |.DW.?N..|.ENDM..;|
|00002a10| 0d 0a 3b 20 45 4e 44 20 | 4f 46 20 5a 38 30 20 4d |..; END |OF Z80 M|
|00002a20| 41 43 52 4f 20 45 58 54 | 45 4e 53 49 4f 4e 53 0d |ACRO EXT|ENSIONS.|
|00002a30| 0a 3b 0d 0a 3b 0d 0a 3b | 2a 2a 2a 2a 20 53 65 63 |.;..;..;|**** Sec|
|00002a40| 74 69 6f 6e 20 30 20 2a | 2a 2a 2a 0d 0a 3b 0d 0a |tion 0 *|***..;..|
|00002a50| 09 4f 52 47 09 43 50 52 | 4c 4f 43 0d 0a 3b 0d 0a |.ORG.CPR|LOC..;..|
|00002a60| 3b 20 20 45 4e 54 52 59 | 20 50 4f 49 4e 54 53 20 |;  ENTRY| POINTS |
|00002a70| 49 4e 54 4f 20 5a 43 50 | 52 0d 0a 3b 20 20 20 20 |INTO ZCP|R..;    |
|00002a80| 49 66 20 74 68 65 20 5a | 43 50 52 20 69 73 20 65 |If the Z|CPR is e|
|00002a90| 6e 74 65 72 65 64 20 61 | 74 20 6c 6f 63 61 74 69 |ntered a|t locati|
|00002aa0| 6f 6e 20 43 50 52 4c 4f | 43 20 28 61 74 20 74 68 |on CPRLO|C (at th|
|00002ab0| 65 20 4a 4d 50 20 74 6f | 20 43 50 52 29 2c 20 74 |e JMP to| CPR), t|
|00002ac0| 68 65 6e 0d 0a 3b 20 74 | 68 65 20 64 65 66 61 75 |hen..; t|he defau|
|00002ad0| 6c 74 20 63 6f 6d 6d 61 | 6e 64 20 69 6e 20 43 49 |lt comma|nd in CI|
|00002ae0| 42 55 46 46 20 77 69 6c | 6c 20 62 65 20 70 72 6f |BUFF wil|l be pro|
|00002af0| 63 65 73 73 65 64 2e 20 | 20 49 66 20 74 68 65 20 |cessed. | If the |
|00002b00| 5a 43 50 52 20 69 73 20 | 65 6e 74 65 72 65 64 0d |ZCPR is |entered.|
|00002b10| 0a 3b 20 61 74 20 6c 6f | 63 61 74 69 6f 6e 20 43 |.; at lo|cation C|
|00002b20| 50 52 4c 4f 43 2b 33 20 | 28 61 74 20 74 68 65 20 |PRLOC+3 |(at the |
|00002b30| 4a 4d 50 20 74 6f 20 43 | 50 52 31 29 2c 20 74 68 |JMP to C|PR1), th|
|00002b40| 65 6e 20 74 68 65 20 64 | 65 66 61 75 6c 74 20 63 |en the d|efault c|
|00002b50| 6f 6d 6d 61 6e 64 20 69 | 6e 0d 0a 3b 20 43 49 42 |ommand i|n..; CIB|
|00002b60| 55 46 46 20 77 69 6c 6c | 20 4e 4f 54 20 62 65 20 |UFF will| NOT be |
|00002b70| 70 72 6f 63 65 73 73 65 | 64 2e 0d 0a 3b 20 20 20 |processe|d...;   |
|00002b80| 20 4e 4f 54 45 3a 20 20 | 45 6e 74 72 79 20 69 6e | NOTE:  |Entry in|
|00002b90| 74 6f 20 5a 43 50 52 20 | 69 6e 20 74 68 69 73 20 |to ZCPR |in this |
|00002ba0| 77 61 79 20 69 73 20 70 | 65 72 6d 69 74 74 65 64 |way is p|ermitted|
|00002bb0| 20 75 6e 64 65 72 20 5a | 43 50 52 20 56 65 72 73 | under Z|CPR Vers|
|00002bc0| 69 6f 6e 20 34 2e 30 2c | 0d 0a 3b 20 62 75 74 20 |ion 4.0,|..; but |
|00002bd0| 69 6e 20 6f 72 64 65 72 | 20 66 6f 72 20 74 68 69 |in order| for thi|
|00002be0| 73 20 74 6f 20 77 6f 72 | 6b 2c 20 43 49 42 55 46 |s to wor|k, CIBUF|
|00002bf0| 46 20 61 6e 64 20 43 42 | 55 46 46 20 4d 55 53 54 |F and CB|UFF MUST|
|00002c00| 20 62 65 20 69 6e 69 74 | 69 61 6c 69 7a 65 64 20 | be init|ialized |
|00002c10| 70 72 6f 70 65 72 6c 79 | 0d 0a 3b 20 41 4e 44 20 |properly|..; AND |
|00002c20| 74 68 65 20 43 20 72 65 | 67 69 73 74 65 72 20 4d |the C re|gister M|
|00002c30| 55 53 54 20 63 6f 6e 74 | 61 69 6e 20 61 20 76 61 |UST cont|ain a va|
|00002c40| 6c 69 64 20 55 73 65 72 | 2f 44 69 73 6b 20 46 6c |lid User|/Disk Fl|
|00002c50| 61 67 20 28 73 65 65 20 | 4c 6f 63 61 74 69 6f 6e |ag (see |Location|
|00002c60| 20 34 3a 20 74 68 65 0d | 0a 3b 20 6d 6f 73 74 20 | 4: the.|.; most |
|00002c70| 73 69 67 6e 69 66 69 63 | 61 6e 74 20 6e 79 62 62 |signific|ant nybb|
|00002c80| 6c 65 20 63 6f 6e 74 61 | 69 6e 73 20 74 68 65 20 |le conta|ins the |
|00002c90| 55 73 65 72 20 4e 75 6d | 62 65 72 20 61 6e 64 20 |User Num|ber and |
|00002ca0| 74 68 65 20 6c 65 61 73 | 74 20 73 69 67 6e 69 66 |the leas|t signif|
|00002cb0| 69 63 61 6e 74 0d 0a 3b | 20 6e 79 62 62 6c 65 20 |icant..;| nybble |
|00002cc0| 63 6f 6e 74 61 69 6e 73 | 20 74 68 65 20 44 69 73 |contains| the Dis|
|00002cd0| 6b 20 4e 75 6d 62 65 72 | 29 2e 0d 0a 3b 20 20 20 |k Number|)...;   |
|00002ce0| 20 53 6f 6d 65 20 75 73 | 65 72 20 70 72 6f 67 72 | Some us|er progr|
|00002cf0| 61 6d 73 20 28 73 75 63 | 68 20 61 73 20 53 59 4e |ams (suc|h as SYN|
|00002d00| 4f 4e 59 4d 33 29 20 61 | 74 74 65 6d 70 74 20 74 |ONYM3) a|ttempt t|
|00002d10| 6f 20 75 73 65 20 74 68 | 65 20 64 65 66 61 75 6c |o use th|e defaul|
|00002d20| 74 0d 0a 3b 20 63 6f 6d | 6d 61 6e 64 20 66 61 63 |t..; com|mand fac|
|00002d30| 69 6c 69 74 79 2e 20 20 | 55 6e 64 65 72 20 74 68 |ility.  |Under th|
|00002d40| 65 20 6f 72 69 67 69 6e | 61 6c 20 43 50 52 2c 20 |e origin|al CPR, |
|00002d50| 69 74 20 77 61 73 20 6e | 65 63 65 73 73 61 72 79 |it was n|ecessary|
|00002d60| 20 74 6f 20 69 6e 69 74 | 69 61 6c 69 7a 65 0d 0a | to init|ialize..|
|00002d70| 3b 20 74 68 65 20 70 6f | 69 6e 74 65 72 20 61 66 |; the po|inter af|
|00002d80| 74 65 72 20 74 68 65 20 | 72 65 73 65 72 76 65 64 |ter the |reserved|
|00002d90| 20 73 70 61 63 65 20 66 | 6f 72 20 74 68 65 20 63 | space f|or the c|
|00002da0| 6f 6d 6d 61 6e 64 20 62 | 75 66 66 65 72 20 74 6f |ommand b|uffer to|
|00002db0| 20 70 6f 69 6e 74 20 74 | 6f 0d 0a 3b 20 74 68 65 | point t|o..; the|
|00002dc0| 20 66 69 72 73 74 20 62 | 79 74 65 20 6f 66 20 74 | first b|yte of t|
|00002dd0| 68 65 20 63 6f 6d 6d 61 | 6e 64 20 62 75 66 66 65 |he comma|nd buffe|
|00002de0| 72 2e 20 20 55 6e 64 65 | 72 20 56 65 72 73 69 6f |r.  Unde|r Versio|
|00002df0| 6e 20 34 2e 78 20 6f 66 | 20 5a 43 50 52 2c 20 74 |n 4.x of| ZCPR, t|
|00002e00| 68 69 73 20 69 73 0d 0a | 3b 20 6e 6f 20 6c 6f 6e |his is..|; no lon|
|00002e10| 67 65 72 20 74 68 65 20 | 63 61 73 65 2e 20 20 54 |ger the |case.  T|
|00002e20| 68 65 20 43 49 42 50 54 | 52 20 28 43 6f 6d 6d 61 |he CIBPT|R (Comma|
|00002e30| 6e 64 20 49 6e 70 75 74 | 20 42 75 66 66 65 72 20 |nd Input| Buffer |
|00002e40| 50 6f 69 6e 54 65 52 29 | 20 69 73 20 6c 6f 63 61 |PoinTeR)| is loca|
|00002e50| 74 65 64 0d 0a 3b 20 74 | 6f 20 62 65 20 63 6f 6d |ted..; t|o be com|
|00002e60| 70 61 74 61 62 6c 65 20 | 77 69 74 68 20 73 75 63 |patable |with suc|
|00002e70| 68 20 70 72 6f 67 72 61 | 6d 73 20 28 70 72 6f 76 |h progra|ms (prov|
|00002e80| 69 64 65 64 20 74 68 65 | 79 20 64 65 74 65 72 6d |ided the|y determ|
|00002e90| 69 6e 65 20 74 68 65 20 | 62 75 66 66 65 72 0d 0a |ine the |buffer..|
|00002ea0| 3b 20 6c 65 6e 67 74 68 | 20 66 72 6f 6d 20 74 68 |; length| from th|
|00002eb0| 65 20 62 79 74 65 20 61 | 74 20 4d 42 55 46 46 20 |e byte a|t MBUFF |
|00002ec0| 5b 43 50 52 4c 4f 43 20 | 2b 20 36 5d 29 2c 20 62 |[CPRLOC |+ 6]), b|
|00002ed0| 75 74 20 75 6e 64 65 72 | 20 56 65 72 73 69 6f 6e |ut under| Version|
|00002ee0| 20 34 2e 78 20 6f 66 20 | 5a 43 50 52 0d 0a 3b 20 | 4.x of |ZCPR..; |
|00002ef0| 74 68 69 73 20 69 73 20 | 6e 6f 20 6c 6f 6e 67 65 |this is |no longe|
|00002f00| 72 20 6e 65 63 65 73 73 | 61 72 79 2e 20 20 5a 43 |r necess|ary.  ZC|
|00002f10| 50 52 20 56 65 72 73 69 | 6f 6e 20 34 2e 78 20 61 |PR Versi|on 4.x a|
|00002f20| 75 74 6f 6d 61 74 69 63 | 61 6c 6c 79 20 69 6e 69 |utomatic|ally ini|
|00002f30| 74 69 61 6c 69 7a 65 73 | 0d 0a 3b 20 74 68 69 73 |tializes|..; this|
|00002f40| 20 62 75 66 66 65 72 20 | 70 6f 69 6e 74 65 72 20 | buffer |pointer |
|00002f50| 69 6e 20 61 6c 6c 20 63 | 61 73 65 73 2e 0d 0a 3b |in all c|ases...;|
|00002f60| 0d 0a 45 4e 54 52 59 3a | 0d 0a 09 4a 4d 50 09 43 |..ENTRY:|...JMP.C|
|00002f70| 50 52 09 3b 20 50 72 6f | 63 65 73 73 20 70 6f 74 |PR.; Pro|cess pot|
|00002f80| 65 6e 74 69 61 6c 20 64 | 65 66 61 75 6c 74 20 63 |ential d|efault c|
|00002f90| 6f 6d 6d 61 6e 64 0d 0a | 09 4a 4d 50 09 43 50 52 |ommand..|.JMP.CPR|
|00002fa0| 31 09 3b 20 44 6f 20 4e | 4f 54 20 70 72 6f 63 65 |1.; Do N|OT proce|
|00002fb0| 73 73 20 70 6f 74 65 6e | 74 69 61 6c 20 64 65 66 |ss poten|tial def|
|00002fc0| 61 75 6c 74 20 63 6f 6d | 6d 61 6e 64 0d 0a 3b 0d |ault com|mand..;.|
|00002fd0| 0a 3b 2a 2a 2a 2a 20 53 | 65 63 74 69 6f 6e 20 31 |.;**** S|ection 1|
|00002fe0| 20 2a 2a 2a 2a 0d 0a 3b | 20 42 55 46 46 45 52 53 | ****..;| BUFFERS|
|00002ff0| 20 45 54 20 41 4c 0d 0a | 3b 0d 0a 3b 20 49 4e 50 | ET AL..|;..; INP|
|00003000| 55 54 20 43 4f 4d 4d 41 | 4e 44 20 4c 49 4e 45 20 |UT COMMA|ND LINE |
|00003010| 41 4e 44 20 44 45 46 41 | 55 4c 54 20 43 4f 4d 4d |AND DEFA|ULT COMM|
|00003020| 41 4e 44 0d 0a 3b 20 20 | 20 54 68 65 20 63 6f 6d |AND..;  | The com|
|00003030| 6d 61 6e 64 20 6c 69 6e | 65 20 74 6f 20 62 65 20 |mand lin|e to be |
|00003040| 65 78 65 63 75 74 65 64 | 20 69 73 20 73 74 6f 72 |executed| is stor|
|00003050| 65 64 20 68 65 72 65 2e | 20 20 54 68 69 73 20 63 |ed here.|  This c|
|00003060| 6f 6d 6d 61 6e 64 20 6c | 69 6e 65 0d 0a 3b 20 69 |ommand l|ine..; i|
|00003070| 73 20 67 65 6e 65 72 61 | 74 65 64 20 69 6e 20 6f |s genera|ted in o|
|00003080| 6e 65 20 6f 66 20 74 68 | 72 65 65 20 77 61 79 73 |ne of th|ree ways|
|00003090| 3a 0d 0a 3b 09 28 31 29 | 20 62 79 20 74 68 65 20 |:..;.(1)| by the |
|000030a0| 75 73 65 72 20 65 6e 74 | 65 72 69 6e 67 20 69 74 |user ent|ering it|
|000030b0| 20 74 68 72 6f 75 67 68 | 20 74 68 65 20 42 44 4f | through| the BDO|
|000030c0| 53 20 52 45 41 44 4c 4e | 20 66 75 6e 63 74 69 6f |S READLN| functio|
|000030d0| 6e 20 61 74 0d 0a 3b 20 | 74 68 65 20 64 75 3e 20 |n at..; |the du> |
|000030e0| 70 72 6f 6d 70 74 20 5b | 75 73 65 72 20 69 6e 70 |prompt [|user inp|
|000030f0| 75 74 20 66 72 6f 6d 20 | 6b 65 79 62 6f 61 72 64 |ut from |keyboard|
|00003100| 5d 0d 0a 3b 09 28 32 29 | 20 62 79 20 74 68 65 20 |]..;.(2)| by the |
|00003110| 53 55 42 4d 49 54 20 46 | 69 6c 65 20 46 61 63 69 |SUBMIT F|ile Faci|
|00003120| 6c 69 74 79 20 70 6c 61 | 63 69 6e 67 20 69 74 20 |lity pla|cing it |
|00003130| 74 68 65 72 65 20 66 72 | 6f 6d 20 61 20 24 24 24 |there fr|om a $$$|
|00003140| 2e 53 55 42 0d 0a 3b 20 | 66 69 6c 65 0d 0a 3b 09 |.SUB..; |file..;.|
|00003150| 28 33 29 20 62 79 20 61 | 6e 20 65 78 74 65 72 6e |(3) by a|n extern|
|00003160| 61 6c 20 70 72 6f 67 72 | 61 6d 20 6f 72 20 75 73 |al progr|am or us|
|00003170| 65 72 20 70 6c 61 63 69 | 6e 67 20 74 68 65 20 72 |er placi|ng the r|
|00003180| 65 71 75 69 72 65 64 20 | 63 6f 6d 6d 61 6e 64 0d |equired |command.|
|00003190| 0a 3b 20 69 6e 74 6f 20 | 74 68 69 73 20 62 75 66 |.; into |this buf|
|000031a0| 66 65 72 0d 0a 3b 20 20 | 20 49 6e 20 61 6c 6c 20 |fer..;  | In all |
|000031b0| 63 61 73 65 73 2c 20 74 | 68 65 20 63 6f 6d 6d 61 |cases, t|he comma|
|000031c0| 6e 64 20 6c 69 6e 65 20 | 69 73 20 70 6c 61 63 65 |nd line |is place|
|000031d0| 64 20 69 6e 74 6f 20 74 | 68 65 20 62 75 66 66 65 |d into t|he buffe|
|000031e0| 72 20 73 74 61 72 74 69 | 6e 67 20 61 74 0d 0a 3b |r starti|ng at..;|
|000031f0| 20 43 49 42 55 46 46 2e | 20 20 54 68 69 73 20 63 | CIBUFF.|  This c|
|00003200| 6f 6d 6d 61 6e 64 20 6c | 69 6e 65 20 69 73 20 74 |ommand l|ine is t|
|00003210| 65 72 6d 69 6e 61 74 65 | 64 20 62 79 20 74 68 65 |erminate|d by the|
|00003220| 20 6c 61 73 74 20 63 68 | 61 72 61 63 74 65 72 20 | last ch|aracter |
|00003230| 28 4e 4f 54 20 43 61 72 | 72 69 61 67 65 0d 0a 3b |(NOT Car|riage..;|
|00003240| 20 52 65 74 75 72 6e 29 | 2c 20 61 6e 64 20 61 20 | Return)|, and a |
|00003250| 63 68 61 72 61 63 74 65 | 72 20 63 6f 75 6e 74 20 |characte|r count |
|00003260| 6f 66 20 61 6c 6c 20 63 | 68 61 72 61 63 74 65 72 |of all c|haracter|
|00003270| 73 20 69 6e 20 74 68 65 | 20 63 6f 6d 6d 61 6e 64 |s in the| command|
|00003280| 20 6c 69 6e 65 0d 0a 3b | 20 75 70 20 74 6f 20 61 | line..;| up to a|
|00003290| 6e 64 20 69 6e 63 6c 75 | 64 69 6e 67 20 74 68 65 |nd inclu|ding the|
|000032a0| 20 6c 61 73 74 20 63 68 | 61 72 61 63 74 65 72 20 | last ch|aracter |
|000032b0| 69 73 20 70 6c 61 63 65 | 64 20 69 6e 74 6f 20 6c |is place|d into l|
|000032c0| 6f 63 61 74 69 6f 6e 20 | 43 42 55 46 46 0d 0a 3b |ocation |CBUFF..;|
|000032d0| 20 28 69 6d 6d 65 64 69 | 61 74 65 6c 79 20 62 65 | (immedi|ately be|
|000032e0| 66 6f 72 65 20 74 68 65 | 20 63 6f 6d 6d 61 6e 64 |fore the| command|
|000032f0| 20 6c 69 6e 65 20 61 74 | 20 43 49 42 55 46 46 29 | line at| CIBUFF)|
|00003300| 2e 20 20 54 68 65 20 70 | 6c 61 63 65 64 20 63 6f |.  The p|laced co|
|00003310| 6d 6d 61 6e 64 20 6c 69 | 6e 65 0d 0a 3b 20 69 73 |mmand li|ne..; is|
|00003320| 20 74 68 65 6e 20 70 61 | 72 73 65 64 2c 20 69 6e | then pa|rsed, in|
|00003330| 74 65 72 70 72 65 74 65 | 64 2c 20 61 6e 64 20 74 |terprete|d, and t|
|00003340| 68 65 20 69 6e 64 69 63 | 61 74 65 64 20 63 6f 6d |he indic|ated com|
|00003350| 6d 61 6e 64 20 69 73 20 | 65 78 65 63 75 74 65 64 |mand is |executed|
|00003360| 2e 0d 0a 3b 20 49 66 20 | 43 4c 45 56 45 4c 33 20 |...; If |CLEVEL3 |
|00003370| 69 73 20 70 65 72 6d 69 | 74 74 65 64 2c 20 61 20 |is permi|tted, a |
|00003380| 74 65 72 6d 69 6e 61 74 | 69 6e 67 20 7a 65 72 6f |terminat|ing zero|
|00003390| 20 69 73 20 70 6c 61 63 | 65 64 20 61 66 74 65 72 | is plac|ed after|
|000033a0| 20 74 68 65 20 63 6f 6d | 6d 61 6e 64 0d 0a 3b 20 | the com|mand..; |
|000033b0| 28 6f 74 68 65 72 77 69 | 73 65 20 74 68 65 20 75 |(otherwi|se the u|
|000033c0| 73 65 72 20 70 72 6f 67 | 72 61 6d 20 68 61 73 20 |ser prog|ram has |
|000033d0| 74 6f 20 70 6c 61 63 65 | 20 74 68 69 73 20 7a 65 |to place| this ze|
|000033e0| 72 6f 29 20 61 6e 64 20 | 74 68 65 20 43 49 42 50 |ro) and |the CIBP|
|000033f0| 54 52 20 69 73 0d 0a 3b | 20 70 72 6f 70 65 72 6c |TR is..;| properl|
|00003400| 79 20 69 6e 69 74 69 61 | 6c 69 7a 65 64 20 28 6f |y initia|lized (o|
|00003410| 74 68 65 72 77 69 73 65 | 20 74 68 65 20 75 73 65 |therwise| the use|
|00003420| 72 20 70 72 6f 67 72 61 | 6d 20 68 61 73 20 74 6f |r progra|m has to|
|00003430| 20 69 6e 69 74 20 74 68 | 69 73 20 70 74 72 29 2e | init th|is ptr).|
|00003440| 0d 0a 3b 20 49 66 20 74 | 68 65 20 63 6f 6d 6d 61 |..; If t|he comma|
|00003450| 6e 64 20 69 73 20 70 6c | 61 63 65 64 20 62 79 20 |nd is pl|aced by |
|00003460| 61 20 75 73 65 72 20 70 | 72 6f 67 72 61 6d 2c 20 |a user p|rogram, |
|00003470| 65 6e 74 65 72 69 6e 67 | 20 61 74 20 43 50 52 4c |entering| at CPRL|
|00003480| 4f 43 20 69 73 20 65 6e | 6f 75 67 68 0d 0a 3b 20 |OC is en|ough..; |
|00003490| 74 6f 20 68 61 76 65 20 | 74 68 65 20 63 6f 6d 6d |to have |the comm|
|000034a0| 61 6e 64 20 70 72 6f 63 | 65 73 73 65 64 2e 20 20 |and proc|essed.  |
|000034b0| 41 67 61 69 6e 2c 20 75 | 6e 64 65 72 20 43 43 50 |Again, u|nder CCP|
|000034c0| 5a 20 56 65 72 73 69 6f | 6e 20 34 2e 30 2c 20 69 |Z Versio|n 4.0, i|
|000034d0| 74 20 69 73 20 6e 6f 74 | 0d 0a 3b 20 6e 65 63 65 |t is not|..; nece|
|000034e0| 73 73 61 72 79 20 74 6f | 20 73 74 6f 72 65 20 74 |ssary to| store t|
|000034f0| 68 65 20 70 6f 69 6e 74 | 65 72 20 74 6f 20 43 49 |he point|er to CI|
|00003500| 42 55 46 46 20 69 6e 20 | 43 49 42 50 54 52 3b 20 |BUFF in |CIBPTR; |
|00003510| 5a 43 50 52 20 77 69 6c | 6c 20 64 6f 20 74 68 69 |ZCPR wil|l do thi|
|00003520| 73 20 66 6f 72 0d 0a 3b | 20 74 68 65 20 63 61 6c |s for..;| the cal|
|00003530| 6c 69 6e 67 20 70 72 6f | 67 72 61 6d 20 69 66 20 |ling pro|gram if |
|00003540| 43 4c 45 56 45 4c 33 20 | 69 73 20 6d 61 64 65 20 |CLEVEL3 |is made |
|00003550| 54 52 55 45 2e 0d 0a 3b | 20 20 20 57 41 52 4e 49 |TRUE...;|   WARNI|
|00003560| 4e 47 3a 20 20 54 68 65 | 20 63 6f 6d 6d 61 6e 64 |NG:  The| command|
|00003570| 20 6c 69 6e 65 20 6d 75 | 73 74 20 4e 4f 54 20 65 | line mu|st NOT e|
|00003580| 78 63 65 65 64 20 42 55 | 46 4c 45 4e 20 63 68 61 |xceed BU|FLEN cha|
|00003590| 72 61 63 74 65 72 73 20 | 69 6e 20 6c 65 6e 67 74 |racters |in lengt|
|000035a0| 68 2e 0d 0a 3b 20 46 6f | 72 20 75 73 65 72 20 70 |h...; Fo|r user p|
|000035b0| 72 6f 67 72 61 6d 73 20 | 77 68 69 63 68 20 6c 6f |rograms |which lo|
|000035c0| 61 64 20 74 68 69 73 20 | 63 6f 6d 6d 61 6e 64 2c |ad this |command,|
|000035d0| 20 74 68 65 20 76 61 6c | 75 65 20 6f 66 20 42 55 | the val|ue of BU|
|000035e0| 46 4c 45 4e 20 63 61 6e | 20 62 65 0d 0a 3b 20 6f |FLEN can| be..; o|
|000035f0| 62 74 61 69 6e 65 64 20 | 62 79 20 65 78 61 6d 69 |btained |by exami|
|00003600| 6e 69 6e 67 20 74 68 65 | 20 62 79 74 65 20 61 74 |ning the| byte at|
|00003610| 20 4d 42 55 46 46 20 28 | 43 50 52 4c 4f 43 20 2b | MBUFF (|CPRLOC +|
|00003620| 20 36 29 2e 0d 0a 3b 0d | 0a 42 55 46 4c 45 4e 09 | 6)...;.|.BUFLEN.|
|00003630| 45 51 55 09 38 30 09 09 | 3b 4d 41 58 49 4d 55 4d |EQU.80..|;MAXIMUM|
|00003640| 20 42 55 46 46 45 52 20 | 4c 45 4e 47 54 48 0d 0a | BUFFER |LENGTH..|
|00003650| 4d 42 55 46 46 3a 0d 0a | 09 44 42 09 42 55 46 4c |MBUFF:..|.DB.BUFL|
|00003660| 45 4e 09 09 3b 4d 41 58 | 49 4d 55 4d 20 42 55 46 |EN..;MAX|IMUM BUF|
|00003670| 46 45 52 20 4c 45 4e 47 | 54 48 0d 0a 43 42 55 46 |FER LENG|TH..CBUF|
|00003680| 46 3a 0d 0a 09 44 42 09 | 30 09 09 3b 4e 55 4d 42 |F:...DB.|0..;NUMB|
|00003690| 45 52 20 4f 46 20 56 41 | 4c 49 44 20 43 48 41 52 |ER OF VA|LID CHAR|
|000036a0| 53 20 49 4e 20 43 4f 4d | 4d 41 4e 44 20 4c 49 4e |S IN COM|MAND LIN|
|000036b0| 45 0d 0a 43 49 42 55 46 | 46 3a 0d 0a 09 44 42 09 |E..CIBUF|F:...DB.|
|000036c0| 27 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |'       |        |
|000036d0| 27 09 3b 44 45 46 41 55 | 4c 54 20 28 43 4f 4c 44 |'.;DEFAU|LT (COLD|
|000036e0| 20 42 4f 4f 54 29 20 43 | 4f 4d 4d 41 4e 44 0d 0a | BOOT) C|OMMAND..|
|000036f0| 43 49 42 55 46 3a 0d 0a | 09 44 42 09 30 09 09 09 |CIBUF:..|.DB.0...|
|00003700| 3b 43 4f 4d 4d 41 4e 44 | 20 53 54 52 49 4e 47 20 |;COMMAND| STRING |
|00003710| 54 45 52 4d 49 4e 41 54 | 4f 52 0d 0a 09 44 53 09 |TERMINAT|OR...DS.|
|00003720| 42 55 46 4c 45 4e 2d 28 | 24 2d 43 49 42 55 46 46 |BUFLEN-(|$-CIBUFF|
|00003730| 29 2b 31 09 3b 54 4f 54 | 41 4c 20 49 53 20 27 42 |)+1.;TOT|AL IS 'B|
|00003740| 55 46 4c 45 4e 27 20 42 | 59 54 45 53 0d 0a 3b 0d |UFLEN' B|YTES..;.|
|00003750| 0a 43 49 42 50 54 52 3a | 0d 0a 09 44 57 09 43 49 |.CIBPTR:|...DW.CI|
|00003760| 42 55 46 46 09 09 3b 50 | 4f 49 4e 54 45 52 20 54 |BUFF..;P|OINTER T|
|00003770| 4f 20 43 4f 4d 4d 41 4e | 44 20 49 4e 50 55 54 20 |O COMMAN|D INPUT |
|00003780| 42 55 46 46 45 52 0d 0a | 43 49 50 54 52 3a 0d 0a |BUFFER..|CIPTR:..|
|00003790| 09 44 57 09 43 49 42 55 | 46 09 09 3b 43 55 52 52 |.DW.CIBU|F..;CURR|
|000037a0| 45 4e 54 20 50 4f 49 4e | 54 45 52 0d 0a 3b 0d 0a |ENT POIN|TER..;..|
|000037b0| 09 44 53 09 32 36 09 09 | 3b 53 54 41 43 4b 20 41 |.DS.26..|;STACK A|
|000037c0| 52 45 41 0d 0a 53 54 41 | 43 4b 09 45 51 55 09 24 |REA..STA|CK.EQU.$|
|000037d0| 09 09 3b 54 4f 50 20 4f | 46 20 53 54 41 43 4b 0d |..;TOP O|F STACK.|
|000037e0| 0a 3b 0d 0a 3b 20 46 49 | 4c 45 20 54 59 50 45 20 |.;..; FI|LE TYPE |
|000037f0| 46 4f 52 20 43 4f 4d 4d | 41 4e 44 0d 0a 3b 0d 0a |FOR COMM|AND..;..|
|00003800| 43 4f 4d 4d 53 47 3a 0d | 0a 09 44 42 09 27 43 4f |COMMSG:.|..DB.'CO|
|00003810| 4d 27 0d 0a 3b 0d 0a 3b | 20 53 55 42 4d 49 54 20 |M'..;..;| SUBMIT |
|00003820| 46 49 4c 45 20 43 4f 4e | 54 52 4f 4c 20 42 4c 4f |FILE CON|TROL BLO|
|00003830| 43 4b 0d 0a 3b 0d 0a 53 | 55 42 46 43 42 3a 0d 0a |CK..;..S|UBFCB:..|
|00003840| 09 49 46 09 53 55 42 41 | 09 09 3b 49 46 20 24 24 |.IF.SUBA|..;IF $$|
|00003850| 24 2e 53 55 42 20 4f 4e | 20 41 3a 0d 0a 09 44 42 |$.SUB ON| A:...DB|
|00003860| 09 31 09 09 3b 44 49 53 | 4b 20 4e 41 4d 45 20 53 |.1..;DIS|K NAME S|
|00003870| 45 54 20 54 4f 20 44 45 | 46 41 55 4c 54 20 54 4f |ET TO DE|FAULT TO|
|00003880| 20 44 52 49 56 45 20 41 | 3a 0d 0a 09 45 4e 44 49 | DRIVE A|:...ENDI|
|00003890| 46 0d 0a 3b 0d 0a 09 49 | 46 09 4e 4f 54 20 53 55 |F..;...I|F.NOT SU|
|000038a0| 42 41 09 3b 49 46 20 24 | 24 24 2e 53 55 42 20 4f |BA.;IF $|$$.SUB O|
|000038b0| 4e 20 43 55 52 52 45 4e | 54 20 44 52 49 56 45 0d |N CURREN|T DRIVE.|
|000038c0| 0a 09 44 42 09 30 09 09 | 3b 44 49 53 4b 20 4e 41 |..DB.0..|;DISK NA|
|000038d0| 4d 45 20 53 45 54 20 54 | 4f 20 44 45 46 41 55 4c |ME SET T|O DEFAUL|
|000038e0| 54 20 54 4f 20 43 55 52 | 52 45 4e 54 20 44 52 49 |T TO CUR|RENT DRI|
|000038f0| 56 45 0d 0a 09 45 4e 44 | 49 46 0d 0a 3b 0d 0a 09 |VE...END|IF..;...|
|00003900| 44 42 09 27 24 24 24 27 | 09 09 3b 46 49 4c 45 20 |DB.'$$$'|..;FILE |
|00003910| 4e 41 4d 45 0d 0a 09 44 | 42 09 27 20 20 20 20 20 |NAME...D|B.'     |
|00003920| 27 0d 0a 09 44 42 09 27 | 53 55 42 27 09 09 3b 46 |'...DB.'|SUB'..;F|
|00003930| 49 4c 45 20 54 59 50 45 | 0d 0a 09 44 42 09 30 09 |ILE TYPE|...DB.0.|
|00003940| 09 3b 45 58 54 45 4e 54 | 20 4e 55 4d 42 45 52 0d |.;EXTENT| NUMBER.|
|00003950| 0a 09 44 42 09 30 09 09 | 3b 53 31 0d 0a 53 55 42 |..DB.0..|;S1..SUB|
|00003960| 46 53 32 3a 0d 0a 09 44 | 53 09 31 09 09 3b 53 32 |FS2:...D|S.1..;S2|
|00003970| 0d 0a 53 55 42 46 52 43 | 3a 0d 0a 09 44 53 09 31 |..SUBFRC|:...DS.1|
|00003980| 09 09 3b 52 45 43 4f 52 | 44 20 43 4f 55 4e 54 0d |..;RECOR|D COUNT.|
|00003990| 0a 09 44 53 09 31 36 09 | 09 3b 44 49 53 4b 20 47 |..DS.16.|.;DISK G|
|000039a0| 52 4f 55 50 20 4d 41 50 | 0d 0a 53 55 42 46 43 52 |ROUP MAP|..SUBFCR|
|000039b0| 3a 0d 0a 09 44 53 09 31 | 09 09 3b 43 55 52 52 45 |:...DS.1|..;CURRE|
|000039c0| 4e 54 20 52 45 43 4f 52 | 44 20 4e 55 4d 42 45 52 |NT RECOR|D NUMBER|
|000039d0| 0d 0a 3b 0d 0a 3b 20 43 | 4f 4d 4d 41 4e 44 20 46 |..;..; C|OMMAND F|
|000039e0| 49 4c 45 20 43 4f 4e 54 | 52 4f 4c 20 42 4c 4f 43 |ILE CONT|ROL BLOC|
|000039f0| 4b 0d 0a 3b 0d 0a 46 43 | 42 44 4e 3a 0d 0a 09 44 |K..;..FC|BDN:...D|
|00003a00| 53 09 31 09 09 3b 44 49 | 53 4b 20 4e 41 4d 45 0d |S.1..;DI|SK NAME.|
|00003a10| 0a 46 43 42 46 4e 3a 0d | 0a 09 44 53 09 38 09 09 |.FCBFN:.|..DS.8..|
|00003a20| 3b 46 49 4c 45 20 4e 41 | 4d 45 0d 0a 46 43 42 46 |;FILE NA|ME..FCBF|
|00003a30| 54 3a 0d 0a 09 44 53 09 | 33 09 09 3b 46 49 4c 45 |T:...DS.|3..;FILE|
|00003a40| 20 54 59 50 45 0d 0a 09 | 44 53 09 31 09 09 3b 45 | TYPE...|DS.1..;E|
|00003a50| 58 54 45 4e 54 20 4e 55 | 4d 42 45 52 0d 0a 09 44 |XTENT NU|MBER...D|
|00003a60| 53 09 32 09 09 3b 53 31 | 20 41 4e 44 20 53 32 0d |S.2..;S1| AND S2.|
|00003a70| 0a 09 44 53 09 31 09 09 | 3b 52 45 43 4f 52 44 20 |..DS.1..|;RECORD |
|00003a80| 43 4f 55 4e 54 0d 0a 46 | 43 42 44 4d 3a 0d 0a 09 |COUNT..F|CBDM:...|
|00003a90| 44 53 09 31 36 09 09 3b | 44 49 53 4b 20 47 52 4f |DS.16..;|DISK GRO|
|00003aa0| 55 50 20 4d 41 50 0d 0a | 46 43 42 43 52 3a 0d 0a |UP MAP..|FCBCR:..|
|00003ab0| 09 44 53 09 31 09 09 3b | 43 55 52 52 45 4e 54 20 |.DS.1..;|CURRENT |
|00003ac0| 52 45 43 4f 52 44 20 4e | 55 4d 42 45 52 0d 0a 3b |RECORD N|UMBER..;|
|00003ad0| 0d 0a 3b 20 4f 54 48 45 | 52 20 42 55 46 46 45 52 |..; OTHE|R BUFFER|
|00003ae0| 53 0d 0a 3b 0d 0a 50 41 | 47 43 4e 54 3a 0d 0a 09 |S..;..PA|GCNT:...|
|00003af0| 44 42 09 4e 4c 49 4e 45 | 53 2d 32 09 3b 4c 49 4e |DB.NLINE|S-2.;LIN|
|00003b00| 45 53 20 4c 45 46 54 20 | 4f 4e 20 50 41 47 45 0d |ES LEFT |ON PAGE.|
|00003b10| 0a 43 48 52 43 4e 54 3a | 0d 0a 09 44 42 09 30 09 |.CHRCNT:|...DB.0.|
|00003b20| 09 3b 43 48 41 52 20 43 | 4f 55 4e 54 20 46 4f 52 |.;CHAR C|OUNT FOR|
|00003b30| 20 54 59 50 45 0d 0a 51 | 4d 43 4e 54 3a 0d 0a 09 | TYPE..Q|MCNT:...|
|00003b40| 44 42 09 30 09 09 3b 51 | 55 45 53 54 49 4f 4e 20 |DB.0..;Q|UESTION |
|00003b50| 4d 41 52 4b 20 43 4f 55 | 4e 54 20 46 4f 52 20 46 |MARK COU|NT FOR F|
|00003b60| 43 42 20 54 4f 4b 45 4e | 20 53 43 41 4e 4e 45 52 |CB TOKEN| SCANNER|
|00003b70| 0d 0a 3b 0d 0a 3b 20 43 | 50 52 20 42 55 49 4c 54 |..;..; C|PR BUILT|
|00003b80| 2d 49 4e 20 43 4f 4d 4d | 41 4e 44 20 54 41 42 4c |-IN COMM|AND TABL|
|00003b90| 45 0d 0a 3b 0d 0a 4e 43 | 48 41 52 53 09 45 51 55 |E..;..NC|HARS.EQU|
|00003ba0| 09 34 09 09 3b 4e 55 4d | 42 45 52 20 4f 46 20 43 |.4..;NUM|BER OF C|
|00003bb0| 48 41 52 53 2f 43 4f 4d | 4d 41 4e 44 0d 0a 3b 0d |HARS/COM|MAND..;.|
|00003bc0| 0a 3b 20 43 50 52 20 43 | 4f 4d 4d 41 4e 44 20 4e |.; CPR C|OMMAND N|
|00003bd0| 41 4d 45 20 54 41 42 4c | 45 0d 0a 3b 20 20 20 45 |AME TABL|E..;   E|
|00003be0| 41 43 48 20 54 41 42 4c | 45 20 45 4e 54 52 59 20 |ACH TABL|E ENTRY |
|00003bf0| 49 53 20 43 4f 4d 50 4f | 53 45 44 20 4f 46 20 54 |IS COMPO|SED OF T|
|00003c00| 48 45 20 34 2d 42 59 54 | 45 20 43 4f 4d 4d 41 4e |HE 4-BYT|E COMMAN|
|00003c10| 44 20 41 4e 44 20 32 2d | 42 59 54 45 20 41 44 44 |D AND 2-|BYTE ADD|
|00003c20| 52 45 53 53 0d 0a 3b 0d | 0a 43 4d 44 54 42 4c 3a |RESS..;.|.CMDTBL:|
|00003c30| 0d 0a 09 44 42 09 27 44 | 49 52 20 27 0d 0a 09 44 |...DB.'D|IR '...D|
|00003c40| 57 09 44 49 52 0d 0a 09 | 44 42 09 27 4c 49 53 54 |W.DIR...|DB.'LIST|
|00003c50| 27 0d 0a 09 44 57 09 4c | 49 53 54 0d 0a 09 44 42 |'...DW.L|IST...DB|
|00003c60| 09 27 54 59 50 45 27 0d | 0a 09 44 57 09 54 59 50 |.'TYPE'.|..DW.TYP|
|00003c70| 45 0d 0a 09 44 42 09 27 | 55 53 45 52 27 0d 0a 09 |E...DB.'|USER'...|
|00003c80| 44 57 09 55 53 45 52 0d | 0a 09 44 42 09 27 44 46 |DW.USER.|..DB.'DF|
|00003c90| 55 20 27 0d 0a 09 44 57 | 09 44 46 55 0d 0a 3b 0d |U '...DW|.DFU..;.|
|00003ca0| 0a 09 49 46 09 4e 4f 54 | 20 52 41 53 09 09 3b 46 |..IF.NOT| RAS..;F|
|00003cb0| 4f 52 20 4e 4f 4e 2d 52 | 41 53 0d 0a 09 44 42 09 |OR NON-R|AS...DB.|
|00003cc0| 27 47 4f 20 20 27 0d 0a | 09 44 57 09 47 4f 0d 0a |'GO  '..|.DW.GO..|
|00003cd0| 09 44 42 09 27 45 52 41 | 20 27 0d 0a 09 44 57 09 |.DB.'ERA| '...DW.|
|00003ce0| 45 52 41 0d 0a 09 44 42 | 09 27 53 41 56 45 27 0d |ERA...DB|.'SAVE'.|
|00003cf0| 0a 09 44 57 09 53 41 56 | 45 0d 0a 09 44 42 09 27 |..DW.SAV|E...DB.'|
|00003d00| 52 45 4e 20 27 0d 0a 09 | 44 57 09 52 45 4e 0d 0a |REN '...|DW.REN..|
|00003d10| 09 44 42 09 27 47 45 54 | 20 27 0d 0a 09 44 57 09 |.DB.'GET| '...DW.|
|00003d20| 47 45 54 0d 0a 09 44 42 | 09 27 4a 55 4d 50 27 0d |GET...DB|.'JUMP'.|
|00003d30| 0a 09 44 57 09 4a 55 4d | 50 0d 0a 09 45 4e 44 49 |..DW.JUM|P...ENDI|
|00003d40| 46 0d 0a 3b 0d 0a 4e 43 | 4d 4e 44 53 09 45 51 55 |F..;..NC|MNDS.EQU|
|00003d50| 09 28 24 2d 43 4d 44 54 | 42 4c 29 2f 28 4e 43 48 |.($-CMDT|BL)/(NCH|
|00003d60| 41 52 53 2b 32 29 0d 0a | 3b 0d 0a 3b 0d 0a 3b 2a |ARS+2)..|;..;..;*|
|00003d70| 2a 2a 2a 20 53 65 63 74 | 69 6f 6e 20 32 20 2a 2a |*** Sect|ion 2 **|
|00003d80| 2a 2a 0d 0a 3b 20 43 50 | 52 20 53 54 41 52 54 49 |**..; CP|R STARTI|
|00003d90| 4e 47 20 50 4f 49 4e 54 | 53 0d 0a 3b 0d 0a 3b 20 |NG POINT|S..;..; |
|00003da0| 53 54 41 52 54 20 43 50 | 52 20 41 4e 44 20 44 4f |START CP|R AND DO|
|00003db0| 4e 27 54 20 50 52 4f 43 | 45 53 53 20 44 45 46 41 |N'T PROC|ESS DEFA|
|00003dc0| 55 4c 54 20 43 4f 4d 4d | 41 4e 44 20 53 54 4f 52 |ULT COMM|AND STOR|
|00003dd0| 45 44 0d 0a 3b 0d 0a 43 | 50 52 31 3a 0d 0a 09 58 |ED..;..C|PR1:...X|
|00003de0| 52 41 09 41 09 09 3b 53 | 45 54 20 4e 4f 20 44 45 |RA.A..;S|ET NO DE|
|00003df0| 46 41 55 4c 54 20 43 4f | 4d 4d 41 4e 44 0d 0a 09 |FAULT CO|MMAND...|
|00003e00| 53 54 41 09 43 42 55 46 | 46 0d 0a 3b 0d 0a 3b 20 |STA.CBUF|F..;..; |
|00003e10| 53 54 41 52 54 20 43 50 | 52 20 41 4e 44 20 50 4f |START CP|R AND PO|
|00003e20| 53 53 49 42 4c 59 20 50 | 52 4f 43 45 53 53 20 44 |SSIBLY P|ROCESS D|
|00003e30| 45 46 41 55 4c 54 20 43 | 4f 4d 4d 41 4e 44 0d 0a |EFAULT C|OMMAND..|
|00003e40| 3b 0d 0a 3b 20 4e 4f 54 | 45 20 4f 4e 20 4d 4f 44 |;..; NOT|E ON MOD|
|00003e50| 49 46 49 43 41 54 49 4f | 4e 20 42 59 20 52 47 46 |IFICATIO|N BY RGF|
|00003e60| 3a 20 42 44 4f 53 20 52 | 45 54 55 52 4e 53 20 30 |: BDOS R|ETURNS 0|
|00003e70| 46 46 48 20 49 4e 0d 0a | 3b 20 41 43 43 55 4d 55 |FFH IN..|; ACCUMU|
|00003e80| 4c 41 54 4f 52 20 57 48 | 45 4e 45 56 45 52 20 49 |LATOR WH|ENEVER I|
|00003e90| 54 20 4c 4f 47 53 20 49 | 4e 20 41 20 44 49 52 45 |T LOGS I|N A DIRE|
|00003ea0| 43 54 4f 52 59 2c 20 49 | 46 20 41 4e 59 0d 0a 3b |CTORY, I|F ANY..;|
|00003eb0| 20 46 49 4c 45 20 4e 41 | 4d 45 20 43 4f 4e 54 41 | FILE NA|ME CONTA|
|00003ec0| 49 4e 53 20 41 20 27 24 | 27 20 49 4e 20 49 54 2e |INS A '$|' IN IT.|
|00003ed0| 20 20 54 48 49 53 20 49 | 53 20 4e 4f 57 20 55 53 |  THIS I|S NOW US|
|00003ee0| 45 44 20 41 53 0d 0a 3b | 20 41 20 43 4c 55 45 20 |ED AS..;| A CLUE |
|00003ef0| 54 4f 20 44 45 54 45 52 | 4d 49 4e 45 20 57 48 45 |TO DETER|MINE WHE|
|00003f00| 54 48 45 52 20 4f 52 20 | 4e 4f 54 20 54 4f 20 44 |THER OR |NOT TO D|
|00003f10| 4f 20 41 20 53 45 41 52 | 43 48 0d 0a 3b 20 46 4f |O A SEAR|CH..; FO|
|00003f20| 52 20 53 55 42 4d 49 54 | 20 46 49 4c 45 2c 20 49 |R SUBMIT| FILE, I|
|00003f30| 4e 20 4f 52 44 45 52 20 | 54 4f 20 45 4c 49 4d 49 |N ORDER |TO ELIMI|
|00003f40| 4e 41 54 45 20 57 41 53 | 54 45 46 55 4c 20 53 45 |NATE WAS|TEFUL SE|
|00003f50| 41 52 43 48 45 53 2e 0d | 0a 3b 0d 0a 43 50 52 3a |ARCHES..|.;..CPR:|
|00003f60| 0d 0a 09 4c 58 49 09 53 | 50 2c 53 54 41 43 4b 09 |...LXI.S|P,STACK.|
|00003f70| 3b 52 45 53 45 54 20 53 | 54 41 43 4b 0d 0a 09 50 |;RESET S|TACK...P|
|00003f80| 55 53 48 09 42 0d 0a 09 | 4d 4f 56 09 41 2c 43 09 |USH.B...|MOV.A,C.|
|00003f90| 09 3b 43 3d 55 53 45 52 | 2f 44 49 53 4b 20 4e 55 |.;C=USER|/DISK NU|
|00003fa0| 4d 42 45 52 20 28 53 45 | 45 20 4c 4f 43 20 34 29 |MBER (SE|E LOC 4)|
|00003fb0| 0d 0a 09 52 41 52 09 09 | 09 3b 45 58 54 52 41 43 |...RAR..|.;EXTRAC|
|00003fc0| 54 20 55 53 45 52 20 4e | 55 4d 42 45 52 0d 0a 09 |T USER N|UMBER...|
|00003fd0| 52 41 52 0d 0a 09 52 41 | 52 0d 0a 09 52 41 52 0d |RAR...RA|R...RAR.|
|00003fe0| 0a 09 41 4e 49 09 30 46 | 48 0d 0a 09 4d 4f 56 09 |..ANI.0F|H...MOV.|
|00003ff0| 45 2c 41 09 09 3b 53 45 | 54 20 55 53 45 52 20 4e |E,A..;SE|T USER N|
|00004000| 55 4d 42 45 52 0d 0a 09 | 43 41 4c 4c 09 53 45 54 |UMBER...|CALL.SET|
|00004010| 55 53 52 0d 0a 09 43 41 | 4c 4c 09 52 45 53 45 54 |USR...CA|LL.RESET|
|00004020| 09 09 3b 52 45 53 45 54 | 20 44 49 53 4b 20 53 59 |..;RESET| DISK SY|
|00004030| 53 54 45 4d 0d 0a 09 53 | 54 41 09 52 4e 47 53 55 |STEM...S|TA.RNGSU|
|00004040| 42 09 09 3b 53 41 56 45 | 20 53 55 42 4d 49 54 20 |B..;SAVE| SUBMIT |
|00004050| 43 4c 55 45 20 46 52 4f | 4d 20 44 52 49 56 45 20 |CLUE FRO|M DRIVE |
|00004060| 41 3a 0d 0a 09 50 4f 50 | 09 42 0d 0a 09 4d 4f 56 |A:...POP|.B...MOV|
|00004070| 09 41 2c 43 09 09 3b 43 | 3d 55 53 45 52 2f 44 49 |.A,C..;C|=USER/DI|
|00004080| 53 4b 20 4e 55 4d 42 45 | 52 20 28 53 45 45 20 4c |SK NUMBE|R (SEE L|
|00004090| 4f 43 20 34 29 0d 0a 09 | 41 4e 49 09 30 46 48 09 |OC 4)...|ANI.0FH.|
|000040a0| 09 3b 45 58 54 52 41 43 | 54 20 44 45 46 41 55 4c |.;EXTRAC|T DEFAUL|
|000040b0| 54 20 44 49 53 4b 20 44 | 52 49 56 45 0d 0a 09 53 |T DISK D|RIVE...S|
|000040c0| 54 41 09 54 44 52 49 56 | 45 09 09 3b 53 45 54 20 |TA.TDRIV|E..;SET |
|000040d0| 49 54 0d 0a 09 4a 52 5a | 09 4e 4f 4c 4f 47 09 09 |IT...JRZ|.NOLOG..|
|000040e0| 3b 53 4b 49 50 20 49 46 | 20 30 2e 2e 2e 41 4c 52 |;SKIP IF| 0...ALR|
|000040f0| 45 41 44 59 20 4c 4f 47 | 47 45 44 0d 0a 09 43 41 |EADY LOG|GED...CA|
|00004100| 4c 4c 09 4c 4f 47 49 4e | 09 09 3b 4c 4f 47 20 49 |LL.LOGIN|..;LOG I|
|00004110| 4e 20 44 45 46 41 55 4c | 54 20 44 49 53 4b 0d 0a |N DEFAUL|T DISK..|
|00004120| 3b 0d 0a 09 49 46 09 4e | 4f 54 20 53 55 42 41 09 |;...IF.N|OT SUBA.|
|00004130| 3b 49 46 20 24 24 24 2e | 53 55 42 20 49 53 20 4f |;IF $$$.|SUB IS O|
|00004140| 4e 20 43 55 52 52 45 4e | 54 20 44 52 49 56 45 0d |N CURREN|T DRIVE.|
|00004150| 0a 09 53 54 41 09 52 4e | 47 53 55 42 09 09 3b 42 |..STA.RN|GSUB..;B|
|00004160| 44 4f 53 20 27 24 27 20 | 43 4c 55 45 0d 0a 09 45 |DOS '$' |CLUE...E|
|00004170| 4e 44 49 46 0d 0a 3b 0d | 0a 4e 4f 4c 4f 47 3a 0d |NDIF..;.|.NOLOG:.|
|00004180| 0a 09 4c 58 49 09 44 2c | 53 55 42 46 43 42 09 3b |..LXI.D,|SUBFCB.;|
|00004190| 43 48 45 43 4b 20 46 4f | 52 20 24 24 24 2e 53 55 |CHECK FO|R $$$.SU|
|000041a0| 42 20 4f 4e 20 43 55 52 | 52 45 4e 54 20 44 49 53 |B ON CUR|RENT DIS|
|000041b0| 4b 0d 0a 52 4e 47 53 55 | 42 09 45 51 55 09 24 2b |K..RNGSU|B.EQU.$+|
|000041c0| 31 09 09 3b 50 4f 49 4e | 54 45 52 20 46 4f 52 20 |1..;POIN|TER FOR |
|000041d0| 49 4e 2d 54 48 45 2d 43 | 4f 44 45 20 4d 4f 44 49 |IN-THE-C|ODE MODI|
|000041e0| 46 49 43 41 54 49 4f 4e | 0d 0a 09 4d 56 49 09 41 |FICATION|...MVI.A|
|000041f0| 2c 30 09 09 3b 32 4e 44 | 20 42 59 54 45 20 28 49 |,0..;2ND| BYTE (I|
|00004200| 4d 4d 45 44 49 41 54 45 | 20 41 52 47 29 20 49 53 |MMEDIATE| ARG) IS|
|00004210| 20 54 48 45 20 52 4e 47 | 53 55 42 20 46 4c 41 47 | THE RNG|SUB FLAG|
|00004220| 0d 0a 09 4f 52 41 09 41 | 09 09 3b 53 45 54 20 46 |...ORA.A|..;SET F|
|00004230| 4c 41 47 53 20 4f 4e 20 | 43 4c 55 45 0d 0a 09 43 |LAGS ON |CLUE...C|
|00004240| 4d 41 09 09 09 3b 50 52 | 45 50 41 52 45 20 46 4f |MA...;PR|EPARE FO|
|00004250| 52 20 43 4f 4d 49 4e 47 | 20 27 43 4d 41 27 0d 0a |R COMING| 'CMA'..|
|00004260| 09 43 4e 5a 09 53 45 41 | 52 31 0d 0a 09 43 4d 41 |.CNZ.SEA|R1...CMA|
|00004270| 09 09 09 3b 30 46 46 48 | 20 49 53 20 52 45 54 55 |...;0FFH| IS RETU|
|00004280| 52 4e 45 44 20 49 46 20 | 4e 4f 20 24 24 24 2e 53 |RNED IF |NO $$$.S|
|00004290| 55 42 2c 20 53 4f 20 43 | 4f 4d 50 4c 45 4d 45 4e |UB, SO C|OMPLEMEN|
|000042a0| 54 0d 0a 09 53 54 41 09 | 52 4e 47 53 55 42 09 09 |T...STA.|RNGSUB..|
|000042b0| 3b 53 45 54 20 46 4c 41 | 47 20 28 30 3d 4e 4f 20 |;SET FLA|G (0=NO |
|000042c0| 24 24 24 2e 53 55 42 29 | 0d 0a 09 4c 44 41 09 43 |$$$.SUB)|...LDA.C|
|000042d0| 42 55 46 46 09 09 3b 45 | 58 45 43 55 54 45 20 44 |BUFF..;E|XECUTE D|
|000042e0| 45 46 41 55 4c 54 20 43 | 4f 4d 4d 41 4e 44 3f 0d |EFAULT C|OMMAND?.|
|000042f0| 0a 09 4f 52 41 09 41 09 | 09 3b 30 3d 4e 4f 0d 0a |..ORA.A.|.;0=NO..|
|00004300| 09 4a 52 4e 5a 09 52 53 | 31 0d 0a 3b 0d 0a 3b 20 |.JRNZ.RS|1..;..; |
|00004310| 50 52 4f 4d 50 54 20 55 | 53 45 52 20 41 4e 44 20 |PROMPT U|SER AND |
|00004320| 49 4e 50 55 54 20 43 4f | 4d 4d 41 4e 44 20 4c 49 |INPUT CO|MMAND LI|
|00004330| 4e 45 20 46 52 4f 4d 20 | 48 49 4d 0d 0a 3b 0d 0a |NE FROM |HIM..;..|
|00004340| 52 45 53 54 52 54 3a 0d | 0a 09 4c 58 49 09 53 50 |RESTRT:.|..LXI.SP|
|00004350| 2c 53 54 41 43 4b 09 3b | 52 45 53 45 54 20 53 54 |,STACK.;|RESET ST|
|00004360| 41 43 4b 0d 0a 3b 0d 0a | 3b 20 50 52 49 4e 54 20 |ACK..;..|; PRINT |
|00004370| 50 52 4f 4d 50 54 20 28 | 44 55 3e 29 0d 0a 3b 0d |PROMPT (|DU>)..;.|
|00004380| 0a 09 43 41 4c 4c 09 43 | 52 4c 46 09 09 3b 50 52 |..CALL.C|RLF..;PR|
|00004390| 49 4e 54 20 50 52 4f 4d | 50 54 0d 0a 09 43 41 4c |INT PROM|PT...CAL|
|000043a0| 4c 09 47 45 54 44 52 56 | 09 09 3b 43 55 52 52 45 |L.GETDRV|..;CURRE|
|000043b0| 4e 54 20 44 52 49 56 45 | 20 49 53 20 50 41 52 54 |NT DRIVE| IS PART|
|000043c0| 20 4f 46 20 50 52 4f 4d | 50 54 0d 0a 09 41 44 49 | OF PROM|PT...ADI|
|000043d0| 09 27 41 27 09 09 3b 43 | 4f 4e 56 45 52 54 20 54 |.'A'..;C|ONVERT T|
|000043e0| 4f 20 41 53 43 49 49 20 | 41 2d 50 0d 0a 09 43 41 |O ASCII |A-P...CA|
|000043f0| 4c 4c 09 43 4f 4e 4f 55 | 54 0d 0a 09 43 41 4c 4c |LL.CONOU|T...CALL|
|00004400| 09 47 45 54 55 53 52 09 | 09 3b 47 45 54 20 55 53 |.GETUSR.|.;GET US|
|00004410| 45 52 20 4e 55 4d 42 45 | 52 0d 0a 3b 0d 0a 09 49 |ER NUMBE|R..;...I|
|00004420| 46 09 53 55 50 52 45 53 | 09 09 3b 49 46 20 53 55 |F.SUPRES|..;IF SU|
|00004430| 50 50 52 45 53 53 49 4e | 47 20 55 53 52 20 23 20 |PPRESSIN|G USR # |
|00004440| 52 45 50 4f 52 54 20 46 | 4f 52 20 55 53 52 20 30 |REPORT F|OR USR 0|
|00004450| 0d 0a 09 4f 52 41 09 41 | 0d 0a 09 4a 52 5a 09 52 |...ORA.A|...JRZ.R|
|00004460| 53 30 30 30 0d 0a 09 45 | 4e 44 49 46 0d 0a 3b 0d |S000...E|NDIF..;.|
|00004470| 0a 09 43 50 49 09 31 30 | 09 09 3b 55 53 45 52 20 |..CPI.10|..;USER |
|00004480| 3c 20 31 30 3f 0d 0a 09 | 4a 52 43 09 52 53 30 30 |< 10?...|JRC.RS00|
|00004490| 0d 0a 09 53 55 49 09 31 | 30 09 09 3b 53 55 42 54 |...SUI.1|0..;SUBT|
|000044a0| 52 41 43 54 20 31 30 20 | 46 52 4f 4d 20 49 54 0d |RACT 10 |FROM IT.|
|000044b0| 0a 09 50 55 53 48 09 50 | 53 57 09 09 3b 53 41 56 |..PUSH.P|SW..;SAV|
|000044c0| 45 20 49 54 0d 0a 09 4d | 56 49 09 41 2c 27 31 27 |E IT...M|VI.A,'1'|
|000044d0| 09 09 3b 4f 55 54 50 55 | 54 20 31 30 27 53 20 44 |..;OUTPU|T 10'S D|
|000044e0| 49 47 49 54 0d 0a 09 43 | 41 4c 4c 09 43 4f 4e 4f |IGIT...C|ALL.CONO|
|000044f0| 55 54 0d 0a 09 50 4f 50 | 09 50 53 57 0d 0a 52 53 |UT...POP|.PSW..RS|
|00004500| 30 30 3a 0d 0a 09 41 44 | 49 09 27 30 27 09 09 3b |00:...AD|I.'0'..;|
|00004510| 4f 55 54 50 55 54 20 31 | 27 53 20 44 49 47 49 54 |OUTPUT 1|'S DIGIT|
|00004520| 20 28 43 4f 4e 56 45 52 | 54 20 54 4f 20 41 53 43 | (CONVER|T TO ASC|
|00004530| 49 49 29 0d 0a 09 43 41 | 4c 4c 09 43 4f 4e 4f 55 |II)...CA|LL.CONOU|
|00004540| 54 0d 0a 3b 0d 0a 3b 20 | 52 45 41 44 20 49 4e 50 |T..;..; |READ INP|
|00004550| 55 54 20 4c 49 4e 45 20 | 46 52 4f 4d 20 55 53 45 |UT LINE |FROM USE|
|00004560| 52 20 4f 52 20 24 24 24 | 2e 53 55 42 0d 0a 3b 0d |R OR $$$|.SUB..;.|
|00004570| 0a 52 53 30 30 30 3a 0d | 0a 09 43 41 4c 4c 09 52 |.RS000:.|..CALL.R|
|00004580| 45 44 42 55 46 09 09 3b | 49 4e 50 55 54 20 43 4f |EDBUF..;|INPUT CO|
|00004590| 4d 4d 41 4e 44 20 4c 49 | 4e 45 20 46 52 4f 4d 20 |MMAND LI|NE FROM |
|000045a0| 55 53 45 52 20 28 4f 52 | 20 24 24 24 2e 53 55 42 |USER (OR| $$$.SUB|
|000045b0| 29 0d 0a 3b 0d 0a 3b 20 | 50 52 4f 43 45 53 53 20 |)..;..; |PROCESS |
|000045c0| 49 4e 50 55 54 20 4c 49 | 4e 45 0d 0a 3b 0d 0a 52 |INPUT LI|NE..;..R|
|000045d0| 53 31 3a 0d 0a 3b 0d 0a | 09 49 46 09 43 4c 45 56 |S1:..;..|.IF.CLEV|
|000045e0| 45 4c 33 09 09 3b 49 46 | 20 54 48 49 52 44 20 43 |EL3..;IF| THIRD C|
|000045f0| 4f 4d 4d 41 4e 44 20 4c | 45 56 45 4c 20 49 53 20 |OMMAND L|EVEL IS |
|00004600| 50 45 52 4d 49 54 54 45 | 44 0d 0a 09 43 41 4c 4c |PERMITTE|D...CALL|
|00004610| 09 43 4e 56 42 55 46 09 | 09 3b 43 41 50 49 54 41 |.CNVBUF.|.;CAPITA|
|00004620| 4c 49 5a 45 20 43 4f 4d | 4d 41 4e 44 20 4c 49 4e |LIZE COM|MAND LIN|
|00004630| 45 2c 20 50 4c 41 43 45 | 20 45 4e 44 49 4e 47 20 |E, PLACE| ENDING |
|00004640| 30 2c 0d 0a 09 09 09 09 | 3b 20 41 4e 44 20 53 45 |0,......|; AND SE|
|00004650| 54 20 43 49 42 50 54 52 | 20 56 41 4c 55 45 0d 0a |T CIBPTR| VALUE..|
|00004660| 09 45 4e 44 49 46 0d 0a | 3b 0d 0a 09 43 41 4c 4c |.ENDIF..|;...CALL|
|00004670| 09 44 45 46 44 4d 41 09 | 09 3b 53 45 54 20 54 42 |.DEFDMA.|.;SET TB|
|00004680| 55 46 46 20 54 4f 20 44 | 4d 41 20 41 44 44 52 45 |UFF TO D|MA ADDRE|
|00004690| 53 53 0d 0a 09 43 41 4c | 4c 09 47 45 54 44 52 56 |SS...CAL|L.GETDRV|
|000046a0| 09 09 3b 47 45 54 20 44 | 45 46 41 55 4c 54 20 44 |..;GET D|EFAULT D|
|000046b0| 52 49 56 45 20 4e 55 4d | 42 45 52 0d 0a 09 53 54 |RIVE NUM|BER...ST|
|000046c0| 41 09 54 44 52 49 56 45 | 09 09 3b 53 45 54 20 49 |A.TDRIVE|..;SET I|
|000046d0| 54 0d 0a 09 43 41 4c 4c | 09 53 43 41 4e 45 52 09 |T...CALL|.SCANER.|
|000046e0| 09 3b 50 41 52 53 45 20 | 43 4f 4d 4d 41 4e 44 20 |.;PARSE |COMMAND |
|000046f0| 4e 41 4d 45 20 46 52 4f | 4d 20 43 4f 4d 4d 41 4e |NAME FRO|M COMMAN|
|00004700| 44 20 4c 49 4e 45 0d 0a | 09 43 4e 5a 09 45 52 52 |D LINE..|.CNZ.ERR|
|00004710| 4f 52 09 09 3b 45 52 52 | 4f 52 20 49 46 20 43 4f |OR..;ERR|OR IF CO|
|00004720| 4d 4d 41 4e 44 20 4e 41 | 4d 45 20 43 4f 4e 54 41 |MMAND NA|ME CONTA|
|00004730| 49 4e 53 20 41 20 27 3f | 27 0d 0a 09 4c 58 49 09 |INS A '?|'...LXI.|
|00004740| 44 2c 52 53 54 43 50 52 | 09 3b 50 55 54 20 52 45 |D,RSTCPR|.;PUT RE|
|00004750| 54 55 52 4e 20 41 44 44 | 52 45 53 53 20 4f 46 20 |TURN ADD|RESS OF |
|00004760| 43 4f 4d 4d 41 4e 44 0d | 0a 09 50 55 53 48 09 44 |COMMAND.|..PUSH.D|
|00004770| 09 09 3b 4f 4e 20 54 48 | 45 20 53 54 41 43 4b 0d |..;ON TH|E STACK.|
|00004780| 0a 09 4c 44 41 09 54 45 | 4d 50 44 52 09 09 3b 49 |..LDA.TE|MPDR..;I|
|00004790| 53 20 43 4f 4d 4d 41 4e | 44 20 4f 46 20 46 4f 52 |S COMMAN|D OF FOR|
|000047a0| 4d 20 27 44 3a 43 4f 4d | 4d 41 4e 44 27 3f 0d 0a |M 'D:COM|MAND'?..|
|000047b0| 09 4f 52 41 09 41 09 09 | 3b 4e 5a 3d 59 45 53 0d |.ORA.A..|;NZ=YES.|
|000047c0| 0a 09 4a 4e 5a 09 43 4f | 4d 09 09 3b 20 49 4d 4d |..JNZ.CO|M..; IMM|
|000047d0| 45 44 49 41 54 45 4c 59 | 0d 0a 09 43 41 4c 4c 09 |EDIATELY|...CALL.|
|000047e0| 43 4d 44 53 45 52 09 09 | 3b 53 43 41 4e 20 46 4f |CMDSER..|;SCAN FO|
|000047f0| 52 20 43 50 52 2d 52 45 | 53 49 44 45 4e 54 20 43 |R CPR-RE|SIDENT C|
|00004800| 4f 4d 4d 41 4e 44 0d 0a | 09 4a 4e 5a 09 43 4f 4d |OMMAND..|.JNZ.COM|
|00004810| 09 09 3b 4e 4f 54 20 43 | 50 52 2d 52 45 53 49 44 |..;NOT C|PR-RESID|
|00004820| 45 4e 54 0d 0a 09 4d 4f | 56 09 41 2c 4d 09 09 3b |ENT...MO|V.A,M..;|
|00004830| 46 4f 55 4e 44 20 49 54 | 3a 20 20 47 45 54 20 4c |FOUND IT|:  GET L|
|00004840| 4f 57 2d 4f 52 44 45 52 | 20 50 41 52 54 0d 0a 09 |OW-ORDER| PART...|
|00004850| 49 4e 58 09 48 09 09 3b | 47 45 54 20 48 49 47 48 |INX.H..;|GET HIGH|
|00004860| 2d 4f 52 44 45 52 20 50 | 41 52 54 0d 0a 09 4d 4f |-ORDER P|ART...MO|
|00004870| 56 09 48 2c 4d 09 09 3b | 53 54 4f 52 45 20 48 49 |V.H,M..;|STORE HI|
|00004880| 47 48 0d 0a 09 4d 4f 56 | 09 4c 2c 41 09 09 3b 53 |GH...MOV|.L,A..;S|
|00004890| 54 4f 52 45 20 4c 4f 57 | 0d 0a 09 50 43 48 4c 09 |TORE LOW|...PCHL.|
|000048a0| 09 09 3b 45 58 45 43 55 | 54 45 20 43 50 52 20 52 |..;EXECU|TE CPR R|
|000048b0| 4f 55 54 49 4e 45 0d 0a | 3b 0d 0a 3b 20 45 4e 54 |OUTINE..|;..; ENT|
|000048c0| 52 59 20 50 4f 49 4e 54 | 20 46 4f 52 20 52 45 53 |RY POINT| FOR RES|
|000048d0| 54 41 52 54 49 4e 47 20 | 43 50 52 20 41 4e 44 20 |TARTING |CPR AND |
|000048e0| 4c 4f 47 47 49 4e 47 20 | 49 4e 20 44 45 46 41 55 |LOGGING |IN DEFAU|
|000048f0| 4c 54 20 44 52 49 56 45 | 0d 0a 3b 0d 0a 52 53 54 |LT DRIVE|..;..RST|
|00004900| 43 50 52 3a 0d 0a 09 43 | 41 4c 4c 09 44 4c 4f 47 |CPR:...C|ALL.DLOG|
|00004910| 49 4e 09 09 3b 4c 4f 47 | 20 49 4e 20 44 45 46 41 |IN..;LOG| IN DEFA|
|00004920| 55 4c 54 20 44 52 49 56 | 45 0d 0a 3b 0d 0a 3b 20 |ULT DRIV|E..;..; |
|00004930| 45 4e 54 52 59 20 50 4f | 49 4e 54 20 46 4f 52 20 |ENTRY PO|INT FOR |
|00004940| 52 45 53 54 41 52 54 49 | 4e 47 20 43 50 52 20 57 |RESTARTI|NG CPR W|
|00004950| 49 54 48 4f 55 54 20 4c | 4f 47 47 49 4e 47 20 49 |ITHOUT L|OGGING I|
|00004960| 4e 20 44 45 46 41 55 4c | 54 20 44 52 49 56 45 0d |N DEFAUL|T DRIVE.|
|00004970| 0a 3b 0d 0a 52 43 50 52 | 4e 4c 3a 0d 0a 09 43 41 |.;..RCPR|NL:...CA|
|00004980| 4c 4c 09 53 43 41 4e 45 | 52 09 09 3b 45 58 54 52 |LL.SCANE|R..;EXTR|
|00004990| 41 43 54 20 4e 45 58 54 | 20 54 4f 4b 45 4e 20 46 |ACT NEXT| TOKEN F|
|000049a0| 52 4f 4d 20 43 4f 4d 4d | 41 4e 44 20 4c 49 4e 45 |ROM COMM|AND LINE|
|000049b0| 0d 0a 09 4c 44 41 09 46 | 43 42 46 4e 09 09 3b 47 |...LDA.F|CBFN..;G|
|000049c0| 45 54 20 46 49 52 53 54 | 20 43 48 41 52 20 4f 46 |ET FIRST| CHAR OF|
|000049d0| 20 54 4f 4b 45 4e 0d 0a | 09 53 55 49 09 27 20 27 | TOKEN..|.SUI.' '|
|000049e0| 09 09 3b 41 4e 59 20 43 | 48 41 52 3f 0d 0a 09 4c |..;ANY C|HAR?...L|
|000049f0| 58 49 09 48 2c 54 45 4d | 50 44 52 0d 0a 09 4f 52 |XI.H,TEM|PDR...OR|
|00004a00| 41 09 4d 0d 0a 09 4a 4e | 5a 09 45 52 52 4f 52 0d |A.M...JN|Z.ERROR.|
|00004a10| 0a 09 4a 52 09 52 45 53 | 54 52 54 0d 0a 3b 0d 0a |..JR.RES|TRT..;..|
|00004a20| 3b 20 4e 6f 20 46 69 6c | 65 20 45 72 72 6f 72 20 |; No Fil|e Error |
|00004a30| 4d 65 73 73 61 67 65 0d | 0a 3b 0d 0a 50 52 4e 4e |Message.|.;..PRNN|
|00004a40| 46 3a 0d 0a 09 43 41 4c | 4c 09 50 52 49 4e 54 43 |F:...CAL|L.PRINTC|
|00004a50| 09 09 3b 4e 4f 20 46 49 | 4c 45 20 4d 45 53 53 41 |..;NO FI|LE MESSA|
|00004a60| 47 45 0d 0a 09 44 42 09 | 27 4e 6f 20 46 69 6c 27 |GE...DB.|'No Fil'|
|00004a70| 2c 27 65 27 2b 38 30 48 | 0d 0a 09 52 45 54 0d 0a |,'e'+80H|...RET..|
|00004a80| 3b 0d 0a 3b 2a 2a 2a 2a | 20 53 65 63 74 69 6f 6e |;..;****| Section|
|00004a90| 20 33 20 2a 2a 2a 2a 0d | 0a 3b 20 49 2f 4f 20 55 | 3 ****.|.; I/O U|
|00004aa0| 54 49 4c 49 54 49 45 53 | 0d 0a 3b 0d 0a 3b 20 4f |TILITIES|..;..; O|
|00004ab0| 55 54 50 55 54 20 43 48 | 41 52 20 49 4e 20 52 45 |UTPUT CH|AR IN RE|
|00004ac0| 47 20 41 20 54 4f 20 43 | 4f 4e 53 4f 4c 45 20 41 |G A TO C|ONSOLE A|
|00004ad0| 4e 44 20 44 4f 4e 27 54 | 20 43 48 41 4e 47 45 20 |ND DON'T| CHANGE |
|00004ae0| 42 43 0d 0a 3b 0d 0a 3b | 0d 0a 3b 20 4f 55 54 50 |BC..;..;|..; OUTP|
|00004af0| 55 54 20 3c 43 52 4c 46 | 3e 0d 0a 3b 0d 0a 43 52 |UT <CRLF|>..;..CR|
|00004b00| 4c 46 3a 0d 0a 09 4d 56 | 49 09 41 2c 43 52 0d 0a |LF:...MV|I.A,CR..|
|00004b10| 09 43 41 4c 4c 09 43 4f | 4e 4f 55 54 0d 0a 09 4d |.CALL.CO|NOUT...M|
|00004b20| 56 49 09 41 2c 4c 46 09 | 3b 46 41 4c 4c 20 54 48 |VI.A,LF.|;FALL TH|
|00004b30| 52 55 20 54 4f 20 43 4f | 4e 4f 55 54 0d 0a 3b 0d |RU TO CO|NOUT..;.|
|00004b40| 0a 43 4f 4e 4f 55 54 3a | 0d 0a 09 50 55 53 48 09 |.CONOUT:|...PUSH.|
|00004b50| 42 0d 0a 09 4d 56 49 09 | 43 2c 30 32 48 0d 0a 4f |B...MVI.|C,02H..O|
|00004b60| 55 54 50 55 54 3a 0d 0a | 09 4d 4f 56 09 45 2c 41 |UTPUT:..|.MOV.E,A|
|00004b70| 0d 0a 09 50 55 53 48 09 | 48 0d 0a 09 43 41 4c 4c |...PUSH.|H...CALL|
|00004b80| 09 42 44 4f 53 0d 0a 09 | 50 4f 50 09 48 0d 0a 09 |.BDOS...|POP.H...|
|00004b90| 50 4f 50 09 42 0d 0a 09 | 52 45 54 0d 0a 3b 0d 0a |POP.B...|RET..;..|
|00004ba0| 43 4f 4e 49 4e 3a 0d 0a | 09 4d 56 49 09 43 2c 30 |CONIN:..|.MVI.C,0|
|00004bb0| 31 48 09 3b 47 45 54 20 | 43 48 41 52 20 46 52 4f |1H.;GET |CHAR FRO|
|00004bc0| 4d 20 43 4f 4e 3a 20 57 | 49 54 48 20 45 43 48 4f |M CON: W|ITH ECHO|
|00004bd0| 0d 0a 09 43 41 4c 4c 09 | 42 44 4f 53 42 0d 0a 09 |...CALL.|BDOSB...|
|00004be0| 4a 4d 50 09 55 43 41 53 | 45 09 3b 43 41 50 49 54 |JMP.UCAS|E.;CAPIT|
|00004bf0| 41 4c 49 5a 45 0d 0a 3b | 0d 0a 4c 43 4f 55 54 3a |ALIZE..;|..LCOUT:|
|00004c00| 0d 0a 09 50 55 53 48 09 | 50 53 57 09 3b 4f 55 54 |...PUSH.|PSW.;OUT|
|00004c10| 50 55 54 20 43 48 41 52 | 20 54 4f 20 43 4f 4e 3a |PUT CHAR| TO CON:|
|00004c20| 20 4f 52 20 4c 53 54 3a | 20 44 45 50 20 4f 4e 20 | OR LST:| DEP ON |
|00004c30| 50 52 46 4c 47 0d 0a 50 | 52 46 4c 47 09 45 51 55 |PRFLG..P|RFLG.EQU|
|00004c40| 09 24 2b 31 09 3b 50 4f | 49 4e 54 45 52 20 46 4f |.$+1.;PO|INTER FO|
|00004c50| 52 20 49 4e 2d 54 48 45 | 2d 43 4f 44 45 20 4d 4f |R IN-THE|-CODE MO|
|00004c60| 44 49 46 49 43 41 54 49 | 4f 4e 0d 0a 09 4d 56 49 |DIFICATI|ON...MVI|
|00004c70| 09 41 2c 30 09 3b 32 4e | 44 20 42 59 54 45 20 28 |.A,0.;2N|D BYTE (|
|00004c80| 49 4d 4d 45 44 49 41 54 | 45 20 41 52 47 29 20 49 |IMMEDIAT|E ARG) I|
|00004c90| 53 20 54 48 45 20 50 52 | 49 4e 54 20 46 4c 41 47 |S THE PR|INT FLAG|
|00004ca0| 0d 0a 09 4f 52 41 09 41 | 09 3b 30 3d 54 59 50 45 |...ORA.A|.;0=TYPE|
|00004cb0| 0d 0a 09 4a 52 5a 09 4c | 43 31 0d 0a 09 50 4f 50 |...JRZ.L|C1...POP|
|00004cc0| 09 50 53 57 09 3b 47 45 | 54 20 43 48 41 52 0d 0a |.PSW.;GE|T CHAR..|
|00004cd0| 3b 0d 0a 3b 20 4f 55 54 | 50 55 54 20 43 48 41 52 |;..; OUT|PUT CHAR|
|00004ce0| 20 49 4e 20 52 45 47 20 | 41 20 54 4f 20 4c 49 53 | IN REG |A TO LIS|
|00004cf0| 54 20 44 45 56 49 43 45 | 0d 0a 3b 0d 0a 4c 53 54 |T DEVICE|..;..LST|
|00004d00| 4f 55 54 3a 0d 0a 09 50 | 55 53 48 09 42 0d 0a 09 |OUT:...P|USH.B...|
|00004d10| 4d 56 49 09 43 2c 30 35 | 48 0d 0a 09 4a 52 09 4f |MVI.C,05|H...JR.O|
|00004d20| 55 54 50 55 54 0d 0a 4c | 43 31 3a 0d 0a 09 50 4f |UTPUT..L|C1:...PO|
|00004d30| 50 09 50 53 57 09 3b 47 | 45 54 20 43 48 41 52 0d |P.PSW.;G|ET CHAR.|
|00004d40| 0a 09 50 55 53 48 09 50 | 53 57 0d 0a 09 43 41 4c |..PUSH.P|SW...CAL|
|00004d50| 4c 09 43 4f 4e 4f 55 54 | 09 3b 4f 55 54 50 55 54 |L.CONOUT|.;OUTPUT|
|00004d60| 20 54 4f 20 43 4f 4e 3a | 0d 0a 09 50 4f 50 09 50 | TO CON:|...POP.P|
|00004d70| 53 57 0d 0a 09 43 50 49 | 09 4c 46 09 3b 43 48 45 |SW...CPI|.LF.;CHE|
|00004d80| 43 4b 20 46 4f 52 20 50 | 41 47 49 4e 47 0d 0a 09 |CK FOR P|AGING...|
|00004d90| 4a 5a 09 50 41 47 45 52 | 0d 0a 09 52 45 54 0d 0a |JZ.PAGER|...RET..|
|00004da0| 3b 0d 0a 52 45 41 44 46 | 3a 0d 0a 09 4c 58 49 09 |;..READF|:...LXI.|
|00004db0| 44 2c 46 43 42 44 4e 20 | 3b 46 41 4c 4c 20 54 48 |D,FCBDN |;FALL TH|
|00004dc0| 52 55 20 54 4f 20 52 45 | 41 44 0d 0a 52 45 41 44 |RU TO RE|AD..READ|
|00004dd0| 3a 0d 0a 09 4d 56 49 09 | 43 2c 31 34 48 09 3b 46 |:...MVI.|C,14H.;F|
|00004de0| 41 4c 4c 20 54 48 52 55 | 20 54 4f 20 42 44 4f 53 |ALL THRU| TO BDOS|
|00004df0| 42 0d 0a 3b 0d 0a 3b 20 | 43 41 4c 4c 20 42 44 4f |B..;..; |CALL BDO|
|00004e00| 53 20 41 4e 44 20 53 41 | 56 45 20 42 43 0d 0a 3b |S AND SA|VE BC..;|
|00004e10| 0d 0a 42 44 4f 53 42 3a | 0d 0a 09 50 55 53 48 09 |..BDOSB:|...PUSH.|
|00004e20| 42 0d 0a 09 43 41 4c 4c | 09 42 44 4f 53 0d 0a 09 |B...CALL|.BDOS...|
|00004e30| 50 4f 50 09 42 0d 0a 09 | 4f 52 41 09 41 0d 0a 09 |POP.B...|ORA.A...|
|00004e40| 52 45 54 0d 0a 3b 0d 0a | 3b 20 50 52 49 4e 54 20 |RET..;..|; PRINT |
|00004e50| 53 54 52 49 4e 47 20 28 | 45 4e 44 49 4e 47 20 49 |STRING (|ENDING I|
|00004e60| 4e 20 30 29 20 50 54 45 | 44 20 54 4f 20 42 59 20 |N 0) PTE|D TO BY |
|00004e70| 52 45 54 20 41 44 52 3b | 53 54 41 52 54 20 57 49 |RET ADR;|START WI|
|00004e80| 54 48 20 3c 43 52 4c 46 | 3e 0d 0a 3b 0d 0a 50 52 |TH <CRLF|>..;..PR|
|00004e90| 49 4e 54 43 3a 0d 0a 09 | 50 55 53 48 09 50 53 57 |INTC:...|PUSH.PSW|
|00004ea0| 09 09 3b 53 41 56 45 20 | 46 4c 41 47 53 0d 0a 09 |..;SAVE |FLAGS...|
|00004eb0| 43 41 4c 4c 09 43 52 4c | 46 09 09 3b 4e 45 57 20 |CALL.CRL|F..;NEW |
|00004ec0| 4c 49 4e 45 0d 0a 09 50 | 4f 50 09 50 53 57 0d 0a |LINE...P|OP.PSW..|
|00004ed0| 3b 0d 0a 50 52 49 4e 54 | 3a 0d 0a 09 58 54 48 4c |;..PRINT|:...XTHL|
|00004ee0| 09 09 09 3b 47 45 54 20 | 50 54 52 20 54 4f 20 53 |...;GET |PTR TO S|
|00004ef0| 54 52 49 4e 47 0d 0a 09 | 50 55 53 48 09 50 53 57 |TRING...|PUSH.PSW|
|00004f00| 09 09 3b 53 41 56 45 20 | 46 4c 41 47 53 0d 0a 09 |..;SAVE |FLAGS...|
|00004f10| 43 41 4c 4c 09 50 52 49 | 4e 31 09 09 3b 50 52 49 |CALL.PRI|N1..;PRI|
|00004f20| 4e 54 20 53 54 52 49 4e | 47 0d 0a 09 50 4f 50 09 |NT STRIN|G...POP.|
|00004f30| 50 53 57 09 09 3b 47 45 | 54 20 46 4c 41 47 53 0d |PSW..;GE|T FLAGS.|
|00004f40| 0a 09 58 54 48 4c 09 09 | 09 3b 52 45 53 54 4f 52 |..XTHL..|.;RESTOR|
|00004f50| 45 20 48 4c 20 41 4e 44 | 20 52 45 54 20 41 44 52 |E HL AND| RET ADR|
|00004f60| 0d 0a 09 52 45 54 0d 0a | 3b 0d 0a 3b 20 50 52 49 |...RET..|;..; PRI|
|00004f70| 4e 54 20 53 54 52 49 4e | 47 20 28 45 4e 44 49 4e |NT STRIN|G (ENDIN|
|00004f80| 47 20 49 4e 20 30 29 20 | 50 54 45 44 20 54 4f 20 |G IN 0) |PTED TO |
|00004f90| 42 59 20 48 4c 0d 0a 3b | 0d 0a 50 52 49 4e 31 3a |BY HL..;|..PRIN1:|
|00004fa0| 0d 0a 09 4d 4f 56 09 41 | 2c 4d 09 09 3b 47 45 54 |...MOV.A|,M..;GET|
|00004fb0| 20 4e 45 58 54 20 42 59 | 54 45 0d 0a 09 43 41 4c | NEXT BY|TE...CAL|
|00004fc0| 4c 09 43 4f 4e 4f 55 54 | 09 09 3b 50 52 49 4e 54 |L.CONOUT|..;PRINT|
|00004fd0| 20 43 48 41 52 0d 0a 09 | 4d 4f 56 09 41 2c 4d 09 | CHAR...|MOV.A,M.|
|00004fe0| 09 3b 47 45 54 20 4e 45 | 58 54 20 42 59 54 45 20 |.;GET NE|XT BYTE |
|00004ff0| 41 47 41 49 4e 20 46 4f | 52 20 54 45 53 54 0d 0a |AGAIN FO|R TEST..|
|00005000| 09 49 4e 58 09 48 09 09 | 3b 50 54 20 54 4f 20 4e |.INX.H..|;PT TO N|
|00005010| 45 58 54 20 42 59 54 45 | 0d 0a 09 4f 52 41 09 41 |EXT BYTE|...ORA.A|
|00005020| 09 09 3b 53 45 54 20 46 | 4c 41 47 53 0d 0a 09 52 |..;SET F|LAGS...R|
|00005030| 5a 09 09 09 3b 44 4f 4e | 45 20 49 46 20 5a 45 52 |Z...;DON|E IF ZER|
|00005040| 4f 0d 0a 09 52 4d 09 09 | 09 3b 44 4f 4e 45 20 49 |O...RM..|.;DONE I|
|00005050| 46 20 4d 53 42 20 53 45 | 54 0d 0a 09 4a 52 09 50 |F MSB SE|T...JR.P|
|00005060| 52 49 4e 31 0d 0a 3b 0d | 0a 3b 20 42 44 4f 53 20 |RIN1..;.|.; BDOS |
|00005070| 46 55 4e 43 54 49 4f 4e | 20 52 4f 55 54 49 4e 45 |FUNCTION| ROUTINE|
|00005080| 53 0d 0a 3b 0d 0a 3b 0d | 0a 3b 20 52 45 54 55 52 |S..;..;.|.; RETUR|
|00005090| 4e 20 4e 55 4d 42 45 52 | 20 4f 46 20 43 55 52 52 |N NUMBER| OF CURR|
|000050a0| 45 4e 54 20 44 49 53 4b | 20 49 4e 20 41 0d 0a 3b |ENT DISK| IN A..;|
|000050b0| 0d 0a 47 45 54 44 52 56 | 3a 0d 0a 09 4d 56 49 09 |..GETDRV|:...MVI.|
|000050c0| 43 2c 31 39 48 0d 0a 09 | 4a 52 09 42 44 4f 53 4a |C,19H...|JR.BDOSJ|
|000050d0| 50 0d 0a 3b 0d 0a 3b 20 | 53 45 54 20 38 30 48 20 |P..;..; |SET 80H |
|000050e0| 41 53 20 44 4d 41 20 41 | 44 44 52 45 53 53 0d 0a |AS DMA A|DDRESS..|
|000050f0| 3b 0d 0a 44 45 46 44 4d | 41 3a 0d 0a 09 4c 58 49 |;..DEFDM|A:...LXI|
|00005100| 09 44 2c 54 42 55 46 46 | 20 09 3b 38 30 48 3d 54 |.D,TBUFF| .;80H=T|
|00005110| 42 55 46 46 0d 0a 44 4d | 41 53 45 54 3a 0d 0a 09 |BUFF..DM|ASET:...|
|00005120| 4d 56 49 09 43 2c 31 41 | 48 0d 0a 09 4a 52 09 42 |MVI.C,1A|H...JR.B|
|00005130| 44 4f 53 4a 50 0d 0a 3b | 0d 0a 52 45 53 45 54 3a |DOSJP..;|..RESET:|
|00005140| 0d 0a 09 4d 56 49 09 43 | 2c 30 44 48 0d 0a 42 44 |...MVI.C|,0DH..BD|
|00005150| 4f 53 4a 50 3a 0d 0a 09 | 4a 4d 50 09 42 44 4f 53 |OSJP:...|JMP.BDOS|
|00005160| 0d 0a 3b 0d 0a 4c 4f 47 | 49 4e 3a 0d 0a 09 4d 4f |..;..LOG|IN:...MO|
|00005170| 56 09 45 2c 41 0d 0a 09 | 4d 56 49 09 43 2c 30 45 |V.E,A...|MVI.C,0E|
|00005180| 48 0d 0a 09 4a 52 09 42 | 44 4f 53 4a 50 09 3b 53 |H...JR.B|DOSJP.;S|
|00005190| 41 56 45 20 53 4f 4d 45 | 20 43 4f 44 45 20 53 50 |AVE SOME| CODE SP|
|000051a0| 41 43 45 0d 0a 3b 0d 0a | 4f 50 45 4e 46 3a 0d 0a |ACE..;..|OPENF:..|
|000051b0| 09 58 52 41 09 41 0d 0a | 09 53 54 41 09 46 43 42 |.XRA.A..|.STA.FCB|
|000051c0| 43 52 0d 0a 09 4c 58 49 | 09 44 2c 46 43 42 44 4e |CR...LXI|.D,FCBDN|
|000051d0| 20 3b 46 41 4c 4c 20 54 | 48 52 55 20 54 4f 20 4f | ;FALL T|HRU TO O|
|000051e0| 50 45 4e 0d 0a 3b 0d 0a | 4f 50 45 4e 3a 0d 0a 09 |PEN..;..|OPEN:...|
|000051f0| 4d 56 49 09 43 2c 30 46 | 48 09 3b 46 41 4c 4c 20 |MVI.C,0F|H.;FALL |
|00005200| 54 48 52 55 20 54 4f 20 | 47 52 42 44 4f 53 0d 0a |THRU TO |GRBDOS..|
|00005210| 3b 0d 0a 47 52 42 44 4f | 53 3a 0d 0a 09 43 41 4c |;..GRBDO|S:...CAL|
|00005220| 4c 09 42 44 4f 53 0d 0a | 09 49 4e 52 09 41 09 3b |L.BDOS..|.INR.A.;|
|00005230| 53 45 54 20 5a 45 52 4f | 20 46 4c 41 47 20 46 4f |SET ZERO| FLAG FO|
|00005240| 52 20 45 52 52 4f 52 20 | 52 45 54 55 52 4e 0d 0a |R ERROR |RETURN..|
|00005250| 09 52 45 54 0d 0a 3b 0d | 0a 43 4c 4f 53 45 3a 0d |.RET..;.|.CLOSE:.|
|00005260| 0a 09 4d 56 49 09 43 2c | 31 30 48 0d 0a 09 4a 52 |..MVI.C,|10H...JR|
|00005270| 09 47 52 42 44 4f 53 0d | 0a 3b 0d 0a 53 45 41 52 |.GRBDOS.|.;..SEAR|
|00005280| 46 3a 0d 0a 09 4c 58 49 | 09 44 2c 46 43 42 44 4e |F:...LXI|.D,FCBDN|
|00005290| 20 3b 53 50 45 43 49 46 | 59 20 46 43 42 0d 0a 53 | ;SPECIF|Y FCB..S|
|000052a0| 45 41 52 31 3a 0d 0a 09 | 4d 56 49 09 43 2c 31 31 |EAR1:...|MVI.C,11|
|000052b0| 48 0d 0a 09 4a 52 09 47 | 52 42 44 4f 53 0d 0a 3b |H...JR.G|RBDOS..;|
|000052c0| 0d 0a 53 45 41 52 4e 3a | 0d 0a 09 4d 56 49 09 43 |..SEARN:|...MVI.C|
|000052d0| 2c 31 32 48 0d 0a 09 4a | 52 09 47 52 42 44 4f 53 |,12H...J|R.GRBDOS|
|000052e0| 0d 0a 3b 0d 0a 3b 20 43 | 48 45 43 4b 20 46 4f 52 |..;..; C|HECK FOR|
|000052f0| 20 53 55 42 4d 49 54 20 | 46 49 4c 45 20 49 4e 20 | SUBMIT |FILE IN |
|00005300| 45 58 45 43 55 54 49 4f | 4e 20 41 4e 44 20 41 42 |EXECUTIO|N AND AB|
|00005310| 4f 52 54 20 49 54 20 49 | 46 20 53 4f 0d 0a 3b 0d |ORT IT I|F SO..;.|
|00005320| 0a 53 55 42 4b 49 4c 3a | 0d 0a 09 4c 58 49 09 48 |.SUBKIL:|...LXI.H|
|00005330| 2c 52 4e 47 53 55 42 09 | 3b 43 48 45 43 4b 20 46 |,RNGSUB.|;CHECK F|
|00005340| 4f 52 20 53 55 42 4d 49 | 54 20 46 49 4c 45 20 49 |OR SUBMI|T FILE I|
|00005350| 4e 20 45 58 45 43 55 54 | 49 4f 4e 0d 0a 09 4d 4f |N EXECUT|ION...MO|
|00005360| 56 09 41 2c 4d 0d 0a 09 | 4f 52 41 09 41 09 09 3b |V.A,M...|ORA.A..;|
|00005370| 30 3d 4e 4f 0d 0a 09 52 | 5a 0d 0a 09 4d 56 49 09 |0=NO...R|Z...MVI.|
|00005380| 4d 2c 30 09 09 3b 41 42 | 4f 52 54 20 53 55 42 4d |M,0..;AB|ORT SUBM|
|00005390| 49 54 20 46 49 4c 45 0d | 0a 09 4c 58 49 09 44 2c |IT FILE.|..LXI.D,|
|000053a0| 53 55 42 46 43 42 09 3b | 44 45 4c 45 54 45 20 24 |SUBFCB.;|DELETE $|
|000053b0| 24 24 2e 53 55 42 0d 0a | 3b 0d 0a 44 45 4c 45 54 |$$.SUB..|;..DELET|
|000053c0| 45 3a 0d 0a 09 4d 56 49 | 09 43 2c 31 33 48 0d 0a |E:...MVI|.C,13H..|
|000053d0| 09 4a 52 09 42 44 4f 53 | 4a 50 09 3b 53 41 56 45 |.JR.BDOS|JP.;SAVE|
|000053e0| 20 4d 4f 52 45 20 53 50 | 41 43 45 0d 0a 3b 0d 0a | MORE SP|ACE..;..|
|000053f0| 3b 20 52 45 53 45 54 20 | 55 53 45 52 20 4e 55 4d |; RESET |USER NUM|
|00005400| 42 45 52 20 49 46 20 43 | 48 41 4e 47 45 44 0d 0a |BER IF C|HANGED..|
|00005410| 3b 0d 0a 52 45 53 45 54 | 55 53 52 3a 0d 0a 54 4d |;..RESET|USR:..TM|
|00005420| 50 55 53 52 09 45 51 55 | 09 24 2b 31 09 09 3b 50 |PUSR.EQU|.$+1..;P|
|00005430| 4f 49 4e 54 45 52 20 46 | 4f 52 20 49 4e 2d 54 48 |OINTER F|OR IN-TH|
|00005440| 45 2d 43 4f 44 45 20 4d | 4f 44 49 46 49 43 41 54 |E-CODE M|ODIFICAT|
|00005450| 49 4f 4e 0d 0a 09 4d 56 | 49 09 41 2c 30 09 09 3b |ION...MV|I.A,0..;|
|00005460| 32 4e 44 20 42 59 54 45 | 20 28 49 4d 4d 45 44 49 |2ND BYTE| (IMMEDI|
|00005470| 41 54 45 20 41 52 47 29 | 20 49 53 20 54 4d 50 55 |ATE ARG)| IS TMPU|
|00005480| 53 52 0d 0a 09 4d 4f 56 | 09 45 2c 41 09 09 3b 50 |SR...MOV|.E,A..;P|
|00005490| 4c 41 43 45 20 49 4e 20 | 45 0d 0a 09 4a 52 09 53 |LACE IN |E...JR.S|
|000054a0| 45 54 55 53 52 09 09 3b | 54 48 45 4e 20 47 4f 20 |ETUSR..;|THEN GO |
|000054b0| 53 45 54 20 55 53 45 52 | 0d 0a 47 45 54 55 53 52 |SET USER|..GETUSR|
|000054c0| 3a 0d 0a 09 4d 56 49 09 | 45 2c 30 46 46 48 09 09 |:...MVI.|E,0FFH..|
|000054d0| 3b 47 45 54 20 43 55 52 | 52 45 4e 54 20 55 53 45 |;GET CUR|RENT USE|
|000054e0| 52 20 4e 55 4d 42 45 52 | 0d 0a 53 45 54 55 53 52 |R NUMBER|..SETUSR|
|000054f0| 3a 0d 0a 09 4d 56 49 09 | 43 2c 32 30 48 09 09 3b |:...MVI.|C,20H..;|
|00005500| 53 45 54 20 55 53 45 52 | 20 4e 55 4d 42 45 52 20 |SET USER| NUMBER |
|00005510| 54 4f 20 56 41 4c 55 45 | 20 49 4e 20 45 20 28 47 |TO VALUE| IN E (G|
|00005520| 45 54 20 49 46 20 45 3d | 46 46 48 29 0d 0a 09 4a |ET IF E=|FFH)...J|
|00005530| 52 09 42 44 4f 53 4a 50 | 09 09 3b 4d 4f 52 45 20 |R.BDOSJP|..;MORE |
|00005540| 53 50 41 43 45 20 53 41 | 56 49 4e 47 0d 0a 3b 0d |SPACE SA|VING..;.|
|00005550| 0a 3b 20 45 4e 44 20 4f | 46 20 42 44 4f 53 20 46 |.; END O|F BDOS F|
|00005560| 55 4e 43 54 49 4f 4e 53 | 0d 0a 3b 0d 0a 3b 0d 0a |UNCTIONS|..;..;..|
|00005570| 3b 2a 2a 2a 2a 20 53 65 | 63 74 69 6f 6e 20 34 20 |;**** Se|ction 4 |
|00005580| 2a 2a 2a 2a 0d 0a 3b 20 | 43 50 52 20 55 54 49 4c |****..; |CPR UTIL|
|00005590| 49 54 49 45 53 0d 0a 3b | 0d 0a 3b 20 53 45 54 20 |ITIES..;|..; SET |
|000055a0| 55 53 45 52 2f 44 49 53 | 4b 20 46 4c 41 47 20 54 |USER/DIS|K FLAG T|
|000055b0| 4f 20 43 55 52 52 45 4e | 54 20 55 53 45 52 20 41 |O CURREN|T USER A|
|000055c0| 4e 44 20 44 45 46 41 55 | 4c 54 20 44 49 53 4b 0d |ND DEFAU|LT DISK.|
|000055d0| 0a 3b 0d 0a 53 45 54 55 | 44 3a 0d 0a 09 43 41 4c |.;..SETU|D:...CAL|
|000055e0| 4c 09 47 45 54 55 53 52 | 09 09 3b 47 45 54 20 4e |L.GETUSR|..;GET N|
|000055f0| 55 4d 42 45 52 20 4f 46 | 20 43 55 52 52 45 4e 54 |UMBER OF| CURRENT|
|00005600| 20 55 53 45 52 0d 0a 09 | 41 44 44 09 41 09 09 3b | USER...|ADD.A..;|
|00005610| 50 4c 41 43 45 20 49 54 | 20 49 4e 20 48 49 47 48 |PLACE IT| IN HIGH|
|00005620| 20 4e 59 42 42 4c 45 0d | 0a 09 41 44 44 09 41 0d | NYBBLE.|..ADD.A.|
|00005630| 0a 09 41 44 44 09 41 0d | 0a 09 41 44 44 09 41 0d |..ADD.A.|..ADD.A.|
|00005640| 0a 09 4c 58 49 09 48 2c | 54 44 52 49 56 45 09 3b |..LXI.H,|TDRIVE.;|
|00005650| 4d 41 53 4b 20 49 4e 20 | 44 45 46 41 55 4c 54 20 |MASK IN |DEFAULT |
|00005660| 44 52 49 56 45 20 4e 55 | 4d 42 45 52 20 28 4c 4f |DRIVE NU|MBER (LO|
|00005670| 57 20 4e 59 42 42 4c 45 | 29 0d 0a 09 4f 52 41 09 |W NYBBLE|)...ORA.|
|00005680| 4d 09 09 3b 4d 41 53 4b | 20 49 4e 0d 0a 09 53 54 |M..;MASK| IN...ST|
|00005690| 41 09 55 44 46 4c 41 47 | 09 09 3b 53 45 54 20 55 |A.UDFLAG|..;SET U|
|000056a0| 53 45 52 2f 44 49 53 4b | 20 4e 55 4d 42 45 52 0d |SER/DISK| NUMBER.|
|000056b0| 0a 09 52 45 54 0d 0a 3b | 0d 0a 3b 20 53 45 54 20 |..RET..;|..; SET |
|000056c0| 55 53 45 52 2f 44 49 53 | 4b 20 46 4c 41 47 20 54 |USER/DIS|K FLAG T|
|000056d0| 4f 20 55 53 45 52 20 30 | 20 41 4e 44 20 44 45 46 |O USER 0| AND DEF|
|000056e0| 41 55 4c 54 20 44 49 53 | 4b 0d 0a 3b 0d 0a 53 45 |AULT DIS|K..;..SE|
|000056f0| 54 55 30 44 3a 0d 0a 54 | 44 52 49 56 45 09 45 51 |TU0D:..T|DRIVE.EQ|
|00005700| 55 09 24 2b 31 09 09 3b | 50 4f 49 4e 54 45 52 20 |U.$+1..;|POINTER |
|00005710| 46 4f 52 20 49 4e 2d 54 | 48 45 2d 43 4f 44 45 20 |FOR IN-T|HE-CODE |
|00005720| 4d 4f 44 49 46 49 43 41 | 54 49 4f 4e 0d 0a 09 4d |MODIFICA|TION...M|
|00005730| 56 49 09 41 2c 30 09 09 | 3b 32 4e 44 20 42 59 54 |VI.A,0..|;2ND BYT|
|00005740| 45 20 28 49 4d 4d 45 44 | 49 41 54 45 20 41 52 47 |E (IMMED|IATE ARG|
|00005750| 29 20 49 53 20 54 44 52 | 49 56 45 0d 0a 09 53 54 |) IS TDR|IVE...ST|
|00005760| 41 09 55 44 46 4c 41 47 | 09 09 3b 53 45 54 20 55 |A.UDFLAG|..;SET U|
|00005770| 53 45 52 2f 44 49 53 4b | 20 4e 55 4d 42 45 52 0d |SER/DISK| NUMBER.|
|00005780| 0a 09 52 45 54 0d 0a 3b | 0d 0a 3b 20 43 4f 4e 56 |..RET..;|..; CONV|
|00005790| 45 52 54 20 43 48 41 52 | 20 49 4e 20 41 20 54 4f |ERT CHAR| IN A TO|
|000057a0| 20 55 50 50 45 52 20 43 | 41 53 45 0d 0a 3b 0d 0a | UPPER C|ASE..;..|
|000057b0| 55 43 41 53 45 3a 0d 0a | 09 43 50 49 09 36 31 48 |UCASE:..|.CPI.61H|
|000057c0| 09 09 3b 4c 4f 57 45 52 | 2d 43 41 53 45 20 41 0d |..;LOWER|-CASE A.|
|000057d0| 0a 09 52 43 0d 0a 09 43 | 50 49 09 37 42 48 09 09 |..RC...C|PI.7BH..|
|000057e0| 3b 47 52 45 41 54 45 52 | 20 54 48 41 4e 20 4c 4f |;GREATER| THAN LO|
|000057f0| 57 45 52 2d 43 41 53 45 | 20 5a 3f 0d 0a 09 52 4e |WER-CASE| Z?...RN|
|00005800| 43 0d 0a 09 41 4e 49 09 | 35 46 48 09 09 3b 43 41 |C...ANI.|5FH..;CA|
|00005810| 50 49 54 41 4c 49 5a 45 | 0d 0a 09 52 45 54 0d 0a |PITALIZE|...RET..|
|00005820| 3b 0d 0a 3b 20 49 4e 50 | 55 54 20 4e 45 58 54 20 |;..; INP|UT NEXT |
|00005830| 43 4f 4d 4d 41 4e 44 20 | 54 4f 20 43 50 52 0d 0a |COMMAND |TO CPR..|
|00005840| 3b 09 54 68 69 73 20 72 | 6f 75 74 69 6e 65 20 64 |;.This r|outine d|
|00005850| 65 74 65 72 6d 69 6e 65 | 73 20 69 66 20 61 20 53 |etermine|s if a S|
|00005860| 55 42 4d 49 54 20 66 69 | 6c 65 20 69 73 20 62 65 |UBMIT fi|le is be|
|00005870| 69 6e 67 20 70 72 6f 63 | 65 73 73 65 64 0d 0a 3b |ing proc|essed..;|
|00005880| 20 61 6e 64 20 65 78 74 | 72 61 63 74 73 20 74 68 | and ext|racts th|
|00005890| 65 20 63 6f 6d 6d 61 6e | 64 20 6c 69 6e 65 20 66 |e comman|d line f|
|000058a0| 72 6f 6d 20 69 74 20 69 | 66 20 73 6f 20 6f 72 20 |rom it i|f so or |
|000058b0| 66 72 6f 6d 20 74 68 65 | 20 75 73 65 72 27 73 20 |from the| user's |
|000058c0| 63 6f 6e 73 6f 6c 65 0d | 0a 3b 0d 0a 52 45 44 42 |console.|.;..REDB|
|000058d0| 55 46 3a 0d 0a 09 4c 44 | 41 09 52 4e 47 53 55 42 |UF:...LD|A.RNGSUB|
|000058e0| 09 09 3b 53 55 42 4d 49 | 54 20 46 49 4c 45 20 43 |..;SUBMI|T FILE C|
|000058f0| 55 52 52 45 4e 54 4c 59 | 20 49 4e 20 45 58 45 43 |URRENTLY| IN EXEC|
|00005900| 55 54 49 4f 4e 3f 0d 0a | 09 4f 52 41 09 41 09 09 |UTION?..|.ORA.A..|
|00005910| 3b 30 3d 4e 4f 0d 0a 09 | 4a 52 5a 09 52 42 31 09 |;0=NO...|JRZ.RB1.|
|00005920| 09 3b 47 45 54 20 4c 49 | 4e 45 20 46 52 4f 4d 20 |.;GET LI|NE FROM |
|00005930| 43 4f 4e 53 4f 4c 45 20 | 49 46 20 4e 4f 54 0d 0a |CONSOLE |IF NOT..|
|00005940| 09 4c 58 49 09 44 2c 53 | 55 42 46 43 42 09 3b 4f |.LXI.D,S|UBFCB.;O|
|00005950| 50 45 4e 20 24 24 24 2e | 53 55 42 0d 0a 09 50 55 |PEN $$$.|SUB...PU|
|00005960| 53 48 09 44 09 09 3b 53 | 41 56 45 20 44 45 0d 0a |SH.D..;S|AVE DE..|
|00005970| 09 43 41 4c 4c 09 4f 50 | 45 4e 0d 0a 09 50 4f 50 |.CALL.OP|EN...POP|
|00005980| 09 44 09 09 3b 52 45 53 | 54 4f 52 45 20 44 45 0d |.D..;RES|TORE DE.|
|00005990| 0a 09 4a 52 5a 09 52 42 | 31 09 09 3b 45 52 41 53 |..JRZ.RB|1..;ERAS|
|000059a0| 45 20 24 24 24 2e 53 55 | 42 20 49 46 20 45 4e 44 |E $$$.SU|B IF END|
|000059b0| 20 4f 46 20 46 49 4c 45 | 20 41 4e 44 20 47 45 54 | OF FILE| AND GET|
|000059c0| 20 43 4d 4e 44 0d 0a 09 | 4c 44 41 09 53 55 42 46 | CMND...|LDA.SUBF|
|000059d0| 52 43 09 09 3b 47 45 54 | 20 56 41 4c 55 45 20 4f |RC..;GET| VALUE O|
|000059e0| 46 20 4c 41 53 54 20 52 | 45 43 4f 52 44 20 49 4e |F LAST R|ECORD IN|
|000059f0| 20 46 49 4c 45 0d 0a 09 | 44 43 52 09 41 09 09 3b | FILE...|DCR.A..;|
|00005a00| 50 54 20 54 4f 20 4e 45 | 58 54 20 54 4f 20 4c 41 |PT TO NE|XT TO LA|
|00005a10| 53 54 20 52 45 43 4f 52 | 44 0d 0a 09 53 54 41 09 |ST RECOR|D...STA.|
|00005a20| 53 55 42 46 43 52 09 09 | 3b 53 41 56 45 20 4e 45 |SUBFCR..|;SAVE NE|
|00005a30| 57 20 56 41 4c 55 45 20 | 4f 46 20 4c 41 53 54 20 |W VALUE |OF LAST |
|00005a40| 52 45 43 4f 52 44 20 49 | 4e 20 24 24 24 2e 53 55 |RECORD I|N $$$.SU|
|00005a50| 42 0d 0a 09 43 41 4c 4c | 09 52 45 41 44 09 09 3b |B...CALL|.READ..;|
|00005a60| 44 45 3d 53 55 42 46 43 | 42 0d 0a 09 4a 52 4e 5a |DE=SUBFC|B...JRNZ|
|00005a70| 09 52 42 31 09 09 3b 41 | 42 4f 52 54 20 24 24 24 |.RB1..;A|BORT $$$|
|00005a80| 2e 53 55 42 20 49 46 20 | 45 52 52 4f 52 20 49 4e |.SUB IF |ERROR IN|
|00005a90| 20 52 45 41 44 49 4e 47 | 20 4c 41 53 54 20 52 45 | READING| LAST RE|
|00005aa0| 43 0d 0a 09 4c 58 49 09 | 44 2c 43 42 55 46 46 20 |C...LXI.|D,CBUFF |
|00005ab0| 09 3b 43 4f 50 59 20 4c | 41 53 54 20 52 45 43 4f |.;COPY L|AST RECO|
|00005ac0| 52 44 20 28 4e 45 58 54 | 20 53 55 42 4d 49 54 20 |RD (NEXT| SUBMIT |
|00005ad0| 43 4d 4e 44 29 20 54 4f | 20 43 42 55 46 46 0d 0a |CMND) TO| CBUFF..|
|00005ae0| 09 4c 58 49 09 48 2c 54 | 42 55 46 46 20 09 3b 20 |.LXI.H,T|BUFF .; |
|00005af0| 20 46 52 4f 4d 20 54 42 | 55 46 46 0d 0a 09 4c 58 | FROM TB|UFF...LX|
|00005b00| 49 09 42 2c 42 55 46 4c | 45 4e 09 3b 4e 55 4d 42 |I.B,BUFL|EN.;NUMB|
|00005b10| 45 52 20 4f 46 20 42 59 | 54 45 53 0d 0a 09 4c 44 |ER OF BY|TES...LD|
|00005b20| 49 52 0d 0a 09 4c 58 49 | 09 48 2c 53 55 42 46 53 |IR...LXI|.H,SUBFS|
|00005b30| 32 09 3b 50 54 20 54 4f | 20 53 32 20 4f 46 20 24 |2.;PT TO| S2 OF $|
|00005b40| 24 24 2e 53 55 42 20 46 | 43 42 0d 0a 09 4d 56 49 |$$.SUB F|CB...MVI|
|00005b50| 09 4d 2c 30 09 09 3b 53 | 45 54 20 53 32 20 54 4f |.M,0..;S|ET S2 TO|
|00005b60| 20 5a 45 52 4f 0d 0a 09 | 49 4e 58 09 48 09 09 3b | ZERO...|INX.H..;|
|00005b70| 50 54 20 54 4f 20 52 45 | 43 4f 52 44 20 43 4f 55 |PT TO RE|CORD COU|
|00005b80| 4e 54 0d 0a 09 44 43 52 | 09 4d 09 09 3b 44 45 43 |NT...DCR|.M..;DEC|
|00005b90| 52 45 4d 45 4e 54 20 52 | 45 43 4f 52 44 20 43 4f |REMENT R|ECORD CO|
|00005ba0| 55 4e 54 20 4f 46 20 24 | 24 24 2e 53 55 42 0d 0a |UNT OF $|$$.SUB..|
|00005bb0| 09 4c 58 49 09 44 2c 53 | 55 42 46 43 42 09 3b 43 |.LXI.D,S|UBFCB.;C|
|00005bc0| 4c 4f 53 45 20 24 24 24 | 2e 53 55 42 0d 0a 09 43 |LOSE $$$|.SUB...C|
|00005bd0| 41 4c 4c 09 43 4c 4f 53 | 45 0d 0a 09 4a 52 5a 09 |ALL.CLOS|E...JRZ.|
|00005be0| 52 42 31 09 09 3b 41 42 | 4f 52 54 20 24 24 24 2e |RB1..;AB|ORT $$$.|
|00005bf0| 53 55 42 20 49 46 20 45 | 52 52 4f 52 0d 0a 09 4d |SUB IF E|RROR...M|
|00005c00| 56 49 09 41 2c 53 50 52 | 4d 50 54 09 3b 50 52 49 |VI.A,SPR|MPT.;PRI|
|00005c10| 4e 54 20 53 55 42 4d 49 | 54 20 50 52 4f 4d 50 54 |NT SUBMI|T PROMPT|
|00005c20| 0d 0a 09 43 41 4c 4c 09 | 43 4f 4e 4f 55 54 0d 0a |...CALL.|CONOUT..|
|00005c30| 09 4c 58 49 09 48 2c 43 | 49 42 55 46 46 09 3b 50 |.LXI.H,C|IBUFF.;P|
|00005c40| 52 49 4e 54 20 43 4f 4d | 4d 41 4e 44 20 4c 49 4e |RINT COM|MAND LIN|
|00005c50| 45 20 46 52 4f 4d 20 24 | 24 24 2e 53 55 42 0d 0a |E FROM $|$$.SUB..|
|00005c60| 09 43 41 4c 4c 09 50 52 | 49 4e 31 0d 0a 09 43 41 |.CALL.PR|IN1...CA|
|00005c70| 4c 4c 09 42 52 45 41 4b | 09 09 3b 43 48 45 43 4b |LL.BREAK|..;CHECK|
|00005c80| 20 46 4f 52 20 41 42 4f | 52 54 20 28 41 4e 59 20 | FOR ABO|RT (ANY |
|00005c90| 43 48 41 52 29 0d 0a 3b | 0d 0a 09 49 46 09 43 4c |CHAR)..;|...IF.CL|
|00005ca0| 45 56 45 4c 33 09 09 3b | 49 46 20 54 48 49 52 44 |EVEL3..;|IF THIRD|
|00005cb0| 20 43 4f 4d 4d 41 4e 44 | 20 4c 45 56 45 4c 20 49 | COMMAND| LEVEL I|
|00005cc0| 53 20 50 45 52 4d 49 54 | 54 45 44 0d 0a 09 52 5a |S PERMIT|TED...RZ|
|00005cd0| 09 09 09 3b 49 46 20 3c | 4e 55 4c 4c 3e 20 28 4e |...;IF <|NULL> (N|
|00005ce0| 4f 20 41 42 4f 52 54 29 | 2c 20 52 45 54 55 52 4e |O ABORT)|, RETURN|
|00005cf0| 20 54 4f 20 43 41 4c 4c | 45 52 20 41 4e 44 20 52 | TO CALL|ER AND R|
|00005d00| 55 4e 0d 0a 09 45 4e 44 | 49 46 0d 0a 3b 0d 0a 09 |UN...END|IF..;...|
|00005d10| 49 46 09 4e 4f 54 20 43 | 4c 45 56 45 4c 33 09 3b |IF.NOT C|LEVEL3.;|
|00005d20| 49 46 20 54 48 49 52 44 | 20 43 4f 4d 4d 41 4e 44 |IF THIRD| COMMAND|
|00005d30| 20 4c 45 56 45 4c 20 49 | 53 20 4e 4f 54 20 50 45 | LEVEL I|S NOT PE|
|00005d40| 52 4d 49 54 54 45 44 0d | 0a 09 4a 52 5a 09 43 4e |RMITTED.|..JRZ.CN|
|00005d50| 56 42 55 46 09 09 3b 49 | 46 20 3c 4e 55 4c 4c 3e |VBUF..;I|F <NULL>|
|00005d60| 20 28 4e 4f 20 41 42 4f | 52 54 29 2c 20 43 41 50 | (NO ABO|RT), CAP|
|00005d70| 49 54 41 4c 49 5a 45 20 | 43 4f 4d 4d 41 4e 44 0d |ITALIZE |COMMAND.|
|00005d80| 0a 09 45 4e 44 49 46 0d | 0a 3b 0d 0a 09 43 41 4c |..ENDIF.|.;...CAL|
|00005d90| 4c 09 53 55 42 4b 49 4c | 09 09 3b 4b 49 4c 4c 20 |L.SUBKIL|..;KILL |
|00005da0| 24 24 24 2e 53 55 42 20 | 49 46 20 41 42 4f 52 54 |$$$.SUB |IF ABORT|
|00005db0| 0d 0a 09 4a 4d 50 09 52 | 45 53 54 52 54 09 09 3b |...JMP.R|ESTRT..;|
|00005dc0| 52 45 53 54 41 52 54 20 | 43 50 52 0d 0a 3b 0d 0a |RESTART |CPR..;..|
|00005dd0| 3b 20 49 4e 50 55 54 20 | 43 4f 4d 4d 41 4e 44 20 |; INPUT |COMMAND |
|00005de0| 4c 49 4e 45 20 46 52 4f | 4d 20 55 53 45 52 20 43 |LINE FRO|M USER C|
|00005df0| 4f 4e 53 4f 4c 45 0d 0a | 3b 0d 0a 52 42 31 3a 0d |ONSOLE..|;..RB1:.|
|00005e00| 0a 09 43 41 4c 4c 09 53 | 55 42 4b 49 4c 09 09 3b |..CALL.S|UBKIL..;|
|00005e10| 45 52 41 53 45 20 24 24 | 24 2e 53 55 42 20 49 46 |ERASE $$|$.SUB IF|
|00005e20| 20 50 52 45 53 45 4e 54 | 0d 0a 09 43 41 4c 4c 09 | PRESENT|...CALL.|
|00005e30| 53 45 54 55 44 09 09 3b | 53 45 54 20 55 53 45 52 |SETUD..;|SET USER|
|00005e40| 20 41 4e 44 20 44 49 53 | 4b 0d 0a 09 4d 56 49 09 | AND DIS|K...MVI.|
|00005e50| 41 2c 43 50 52 4d 50 54 | 09 3b 50 52 49 4e 54 20 |A,CPRMPT|.;PRINT |
|00005e60| 50 52 4f 4d 50 54 0d 0a | 09 43 41 4c 4c 09 43 4f |PROMPT..|.CALL.CO|
|00005e70| 4e 4f 55 54 0d 0a 09 4d | 56 49 09 43 2c 30 41 48 |NOUT...M|VI.C,0AH|
|00005e80| 09 09 3b 52 45 41 44 20 | 43 4f 4d 4d 41 4e 44 20 |..;READ |COMMAND |
|00005e90| 4c 49 4e 45 20 46 52 4f | 4d 20 55 53 45 52 0d 0a |LINE FRO|M USER..|
|00005ea0| 09 4c 58 49 09 44 2c 4d | 42 55 46 46 0d 0a 09 43 |.LXI.D,M|BUFF...C|
|00005eb0| 41 4c 4c 09 42 44 4f 53 | 0d 0a 3b 0d 0a 09 49 46 |ALL.BDOS|..;...IF|
|00005ec0| 09 43 4c 45 56 45 4c 33 | 09 09 3b 49 46 20 54 48 |.CLEVEL3|..;IF TH|
|00005ed0| 49 52 44 20 43 4f 4d 4d | 41 4e 44 20 4c 45 56 45 |IRD COMM|AND LEVE|
|00005ee0| 4c 20 49 53 20 50 45 52 | 4d 49 54 54 45 44 0d 0a |L IS PER|MITTED..|
|00005ef0| 09 4a 4d 50 09 53 45 54 | 55 30 44 09 09 3b 53 45 |.JMP.SET|U0D..;SE|
|00005f00| 54 20 43 55 52 52 45 4e | 54 20 44 49 53 4b 20 4e |T CURREN|T DISK N|
|00005f10| 55 4d 42 45 52 20 49 4e | 20 4c 4f 57 45 52 20 50 |UMBER IN| LOWER P|
|00005f20| 41 52 41 4d 53 0d 0a 09 | 45 4e 44 49 46 0d 0a 3b |ARAMS...|ENDIF..;|
|00005f30| 0d 0a 09 49 46 09 4e 4f | 54 20 43 4c 45 56 45 4c |...IF.NO|T CLEVEL|
|00005f40| 33 09 3b 49 46 20 54 48 | 49 52 44 20 43 4f 4d 4d |3.;IF TH|IRD COMM|
|00005f50| 41 4e 44 20 4c 45 56 45 | 4c 20 49 53 20 4e 4f 54 |AND LEVE|L IS NOT|
|00005f60| 20 50 45 52 4d 49 54 54 | 45 44 0d 0a 09 43 41 4c | PERMITT|ED...CAL|
|00005f70| 4c 09 53 45 54 55 30 44 | 09 09 3b 53 45 54 20 43 |L.SETU0D|..;SET C|
|00005f80| 55 52 52 45 4e 54 20 44 | 49 53 4b 20 4e 55 4d 42 |URRENT D|ISK NUMB|
|00005f90| 45 52 20 49 46 20 4c 4f | 57 45 52 20 50 41 52 41 |ER IF LO|WER PARA|
|00005fa0| 4d 53 0d 0a 09 09 09 09 | 3b 20 41 4e 44 20 46 41 |MS......|; AND FA|
|00005fb0| 4c 4c 20 54 48 52 55 20 | 54 4f 20 43 4e 56 42 55 |LL THRU |TO CNVBU|
|00005fc0| 46 0d 0a 09 45 4e 44 49 | 46 0d 0a 3b 0d 0a 3b 20 |F...ENDI|F..;..; |
|00005fd0| 43 41 50 49 54 41 4c 49 | 5a 45 20 53 54 52 49 4e |CAPITALI|ZE STRIN|
|00005fe0| 47 20 28 45 4e 44 49 4e | 47 20 49 4e 20 30 29 20 |G (ENDIN|G IN 0) |
|00005ff0| 49 4e 20 43 42 55 46 46 | 20 41 4e 44 20 53 45 54 |IN CBUFF| AND SET|
|00006000| 20 50 54 52 20 46 4f 52 | 20 50 41 52 53 49 4e 47 | PTR FOR| PARSING|
|00006010| 0d 0a 3b 0d 0a 43 4e 56 | 42 55 46 3a 0d 0a 09 4c |..;..CNV|BUF:...L|
|00006020| 58 49 09 48 2c 43 42 55 | 46 46 20 09 3b 50 54 20 |XI.H,CBU|FF .;PT |
|00006030| 54 4f 20 55 53 45 52 27 | 53 20 43 4f 4d 4d 41 4e |TO USER'|S COMMAN|
|00006040| 44 0d 0a 09 4d 4f 56 09 | 42 2c 4d 09 09 3b 43 48 |D...MOV.|B,M..;CH|
|00006050| 41 52 20 43 4f 55 4e 54 | 20 49 4e 20 42 0d 0a 09 |AR COUNT| IN B...|
|00006060| 49 4e 52 09 42 09 09 3b | 41 44 44 20 31 20 49 4e |INR.B..;|ADD 1 IN|
|00006070| 20 43 41 53 45 20 4f 46 | 20 5a 45 52 4f 0d 0a 43 | CASE OF| ZERO..C|
|00006080| 42 31 3a 0d 0a 09 49 4e | 58 09 48 09 09 3b 50 54 |B1:...IN|X.H..;PT|
|00006090| 20 54 4f 20 31 53 54 20 | 56 41 4c 49 44 20 43 48 | TO 1ST |VALID CH|
|000060a0| 41 52 0d 0a 09 4d 4f 56 | 09 41 2c 4d 09 09 3b 43 |AR...MOV|.A,M..;C|
|000060b0| 41 50 49 54 41 4c 49 5a | 45 20 43 4f 4d 4d 41 4e |APITALIZ|E COMMAN|
|000060c0| 44 20 43 48 41 52 0d 0a | 09 43 41 4c 4c 09 55 43 |D CHAR..|.CALL.UC|
|000060d0| 41 53 45 0d 0a 09 4d 4f | 56 09 4d 2c 41 0d 0a 09 |ASE...MO|V.M,A...|
|000060e0| 44 4a 4e 5a 09 43 42 31 | 09 09 3b 43 4f 4e 54 49 |DJNZ.CB1|..;CONTI|
|000060f0| 4e 55 45 20 54 4f 20 45 | 4e 44 20 4f 46 20 43 4f |NUE TO E|ND OF CO|
|00006100| 4d 4d 41 4e 44 20 4c 49 | 4e 45 0d 0a 43 42 32 3a |MMAND LI|NE..CB2:|
|00006110| 0d 0a 09 4d 56 49 09 4d | 2c 30 09 09 3b 53 54 4f |...MVI.M|,0..;STO|
|00006120| 52 45 20 45 4e 44 49 4e | 47 20 3c 4e 55 4c 4c 3e |RE ENDIN|G <NULL>|
|00006130| 0d 0a 09 4c 58 49 09 48 | 2c 43 49 42 55 46 46 09 |...LXI.H|,CIBUFF.|
|00006140| 3b 53 45 54 20 43 4f 4d | 4d 41 4e 44 20 4c 49 4e |;SET COM|MAND LIN|
|00006150| 45 20 50 54 52 20 54 4f | 20 31 53 54 20 43 48 41 |E PTR TO| 1ST CHA|
|00006160| 52 0d 0a 09 53 48 4c 44 | 09 43 49 42 50 54 52 0d |R...SHLD|.CIBPTR.|
|00006170| 0a 09 52 45 54 0d 0a 3b | 0d 0a 3b 20 43 48 45 43 |..RET..;|..; CHEC|
|00006180| 4b 20 46 4f 52 20 41 4e | 59 20 43 48 41 52 20 46 |K FOR AN|Y CHAR F|
|00006190| 52 4f 4d 20 55 53 45 52 | 20 43 4f 4e 53 4f 4c 45 |ROM USER| CONSOLE|
|000061a0| 3b 52 45 54 20 57 2f 5a | 45 52 4f 20 53 45 54 20 |;RET W/Z|ERO SET |
|000061b0| 49 46 20 4e 4f 4e 45 0d | 0a 3b 0d 0a 42 52 45 41 |IF NONE.|.;..BREA|
|000061c0| 4b 3a 0d 0a 09 50 55 53 | 48 09 44 09 09 3b 53 41 |K:...PUS|H.D..;SA|
|000061d0| 56 45 20 44 45 0d 0a 09 | 4d 56 49 09 43 2c 31 31 |VE DE...|MVI.C,11|
|000061e0| 09 09 3b 43 53 54 53 20 | 43 48 45 43 4b 0d 0a 09 |..;CSTS |CHECK...|
|000061f0| 43 41 4c 4c 09 42 44 4f | 53 42 0d 0a 09 43 4e 5a |CALL.BDO|SB...CNZ|
|00006200| 09 43 4f 4e 49 4e 09 09 | 3b 47 45 54 20 49 4e 50 |.CONIN..|;GET INP|
|00006210| 55 54 20 43 48 41 52 0d | 0a 42 52 4b 42 4b 3a 0d |UT CHAR.|.BRKBK:.|
|00006220| 0a 09 50 4f 50 09 44 0d | 0a 09 52 45 54 0d 0a 3b |..POP.D.|..RET..;|
|00006230| 0d 0a 3b 20 47 45 54 20 | 54 48 45 20 52 45 51 55 |..; GET |THE REQU|
|00006240| 45 53 54 45 44 20 55 53 | 45 52 20 4e 55 4d 42 45 |ESTED US|ER NUMBE|
|00006250| 52 20 46 52 4f 4d 20 54 | 48 45 20 43 4f 4d 4d 41 |R FROM T|HE COMMA|
|00006260| 4e 44 20 4c 49 4e 45 20 | 41 4e 44 20 56 41 4c 49 |ND LINE |AND VALI|
|00006270| 44 41 54 45 20 49 54 2e | 0d 0a 3b 0d 0a 55 53 52 |DATE IT.|..;..USR|
|00006280| 4e 55 4d 3a 0d 0a 09 43 | 41 4c 4c 09 4e 55 4d 42 |NUM:...C|ALL.NUMB|
|00006290| 45 52 0d 0a 09 43 50 49 | 09 4d 41 58 55 53 52 2b |ER...CPI|.MAXUSR+|
|000062a0| 31 0d 0a 09 52 43 0d 0a | 3b 0d 0a 3b 20 49 4e 56 |1...RC..|;..; INV|
|000062b0| 41 4c 49 44 20 43 4f 4d | 4d 41 4e 44 20 2d 2d 20 |ALID COM|MAND -- |
|000062c0| 50 52 49 4e 54 20 49 54 | 0d 0a 3b 0d 0a 45 52 52 |PRINT IT|..;..ERR|
|000062d0| 4f 52 3a 0d 0a 09 43 41 | 4c 4c 09 43 52 4c 46 09 |OR:...CA|LL.CRLF.|
|000062e0| 09 3b 4e 45 57 20 4c 49 | 4e 45 0d 0a 09 4c 48 4c |.;NEW LI|NE...LHL|
|000062f0| 44 09 43 49 50 54 52 09 | 09 3b 50 54 20 54 4f 20 |D.CIPTR.|.;PT TO |
|00006300| 42 45 47 49 4e 4e 49 4e | 47 20 4f 46 20 43 4f 4d |BEGINNIN|G OF COM|
|00006310| 4d 41 4e 44 20 4c 49 4e | 45 0d 0a 45 52 52 32 3a |MAND LIN|E..ERR2:|
|00006320| 0d 0a 09 4d 4f 56 09 41 | 2c 4d 09 09 3b 47 45 54 |...MOV.A|,M..;GET|
|00006330| 20 43 48 41 52 0d 0a 09 | 43 50 49 09 27 20 27 2b | CHAR...|CPI.' '+|
|00006340| 31 09 09 3b 53 49 4d 50 | 4c 45 20 27 3f 27 20 49 |1..;SIMP|LE '?' I|
|00006350| 46 20 3c 53 50 3e 20 4f | 52 20 4c 45 53 53 0d 0a |F <SP> O|R LESS..|
|00006360| 09 4a 52 43 09 45 52 52 | 31 0d 0a 09 50 55 53 48 |.JRC.ERR|1...PUSH|
|00006370| 09 48 09 09 3b 53 41 56 | 45 20 50 54 52 20 54 4f |.H..;SAV|E PTR TO|
|00006380| 20 45 52 52 4f 52 20 43 | 4f 4d 4d 41 4e 44 20 43 | ERROR C|OMMAND C|
|00006390| 48 41 52 0d 0a 09 43 41 | 4c 4c 09 43 4f 4e 4f 55 |HAR...CA|LL.CONOU|
|000063a0| 54 09 09 3b 50 52 49 4e | 54 20 43 4f 4d 4d 41 4e |T..;PRIN|T COMMAN|
|000063b0| 44 20 43 48 41 52 0d 0a | 09 50 4f 50 09 48 09 09 |D CHAR..|.POP.H..|
|000063c0| 3b 47 45 54 20 50 54 52 | 0d 0a 09 49 4e 58 09 48 |;GET PTR|...INX.H|
|000063d0| 09 09 3b 50 54 20 54 4f | 20 4e 45 58 54 0d 0a 09 |..;PT TO| NEXT...|
|000063e0| 4a 52 09 45 52 52 32 09 | 09 3b 43 4f 4e 54 49 4e |JR.ERR2.|.;CONTIN|
|000063f0| 55 45 0d 0a 45 52 52 31 | 3a 0d 0a 09 43 41 4c 4c |UE..ERR1|:...CALL|
+--------+-------------------------+-------------------------+--------+--------+