home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols200 / vol216 / m8lib.a86 < prev    next >
Encoding:
Text File  |  1994-07-13  |  25.1 KB  |  1,108 lines
  1. ;
  2. ; M8LIB      -  Phone Number library edit utility for MDM8xx series 
  3. ;         Version 1.0  09-18-84
  4. ;
  5. ;         This is a translation of CHGLIB22 to 8086 code
  6. ;
  7. ;======================================================================
  8. ;         To Assemble:
  9. ;
  10. ;                ASM86 M8LIB
  11. ;
  12. ;                GENCMD M8LIB 8080 CODE[M650]
  13. ;
  14. ;======================================================================
  15. ;
  16. ;
  17. ;
  18. ;           SOURCE CODE
  19. ;
  20. ;    A universal number change program to work with all
  21. ;    versions of MDM8xx that contain an internal telephone
  22. ;    numbers list for use with the CAL and NUM functions.
  23. ;
  24. ;    This program will load specified MODEM file, allow 
  25. ;    changes to library, and write to secondary file. 
  26. ;
  27. ; ========================================================
  28. ;--------------
  29. ;  Revisions  ;
  30. ;--------------
  31. ;
  32. ; 09-18-84 - Translated to 8086 code and renamed M8LIB to work
  33. ; Ver. 1.0   with MDM8xx series. Version Number now reflects
  34. ;         8086 revision levels thus CHGLIB vers 2.2 became
  35. ;         M8LIB Vers 1.0
  36. ;
  37. ;                        Alex Soya
  38. ;
  39. ; 03-09-84 - Fixed bug in insert routine at label INEXIT (jump to
  40. ; Ver. 2.1   POP H caused trouble). Minor mods. Sigi Kluger
  41. ;
  42. ; 02-28-84 - In continuing with my original modification to an auto-
  43. ; Ver. 2.0   matic single program for all versions of MODEM7 and now
  44. ;         MDM7xx.  This version 2.0 will determine how large the
  45. ;         telephone list is and only allow the correct entries to
  46. ;         be made.  This eliminates the need to have to 'patch' a
  47. ;         program to make it work one way or another as was the
  48. ;         problem with versions of CHGLIB before 1.5.  Since this
  49. ;         new code was generated from Ver. 1.6 the new code that
  50. ;         was used in versions 1.7 and 1.8 does not appear in this
  51. ;         ASM file. An appology to revisors 1.8 and 1.7, I didn't 
  52. ;         find that a new version existed until this version was 
  53. ;         ready.  Since this revision is 'completely' automatic I
  54. ;         did select a new version number beginning with 2.0.  
  55. ;         Thanks to Charles Horn for assistance with the new code.
  56. ;          
  57. ;                   Dennis Recla
  58. ;                 (214) 681-4789 (300/1200)
  59. ;
  60. ;
  61. ; 02-26-84 - Modified to work with PRE MDM722 by allowing '0' - '9'
  62. ; ver 1.8    to be used as valid LIBRARY keys ONLY if wanted.
  63. ;         <ATOZ09> Byte 105H= 0 then A thru Z and 0 thru 9 valid.
  64. ;                   = 1 then A thru X only.
  65. ;         Recompile NOT needed - just patch byte 105H and SAVE.
  66. ;       - added EQU's for Version and Modification numbers
  67. ;                (used in Sign-on)
  68. ;       - Made CKNUMB part of CKCHAR
  69. ;       - Removed UNBIAS and other such stuff where not needed.
  70. ; 
  71. ;                  Charlie Polete
  72. ;                  c/o Flanders RCP/M
  73. ;                  (201) 584-9227
  74. ;
  75. ; 02-19-84 - Added subroutines CKNUMB and UNBIAS and other such
  76. ; Ver. 1.7   stuff, to permit the View, Delete, and Insert com-
  77. ;         mands to access the larger phone libraries used in
  78. ;         MDM722 and above.    CHGLIB now can handle 36 numbers,
  79. ;         listed A-Z and 0 - 9.
  80. ;                      Robert Mornoney
  81. ;                      c/o BHEC RCPM
  82. ;                      (301) 661-2175
  83. ;
  84. ;
  85. ; 08-10-83 - Pulled un-needed code, (READC). Added LIBLOW / 
  86. ;         LIBHI bytes up front for modifiable search range,
  87. ;         currently set for 30-40, the most practical limit 
  88. ;         to date. These bytes appear at 0103H-0104H in the 
  89. ;         memory loaded image so that they can be patched 
  90. ;         with DDT, SID, etc. Search is now in 1 byte increments
  91. ;         Pulled commented out code that I had left in, (sloppy,
  92. ;         sloppy, oops..)
  93. ;
  94. ;                Mark Pulver  -    (312) 789-0499
  95. ;                     PMMI  24hrs / 7 days
  96. ;
  97. ;
  98. ; 07/12/83 - Modifed program so it will automatically load
  99. ;         the modem program to be modified, and search
  100. ;         for the correct spacing between the Alphabetic
  101. ;         KEY characters.  This program looks for spacing
  102. ;         of 30, 32, and 34 characters.  At this point in
  103. ;         time this should take care of 95% of all the
  104. ;         various modem7 programs I have come accross.
  105. ;         
  106. ;         Dennis Recla   1-214-681-4789 (Data) 300/1200
  107. ;
  108. ;
  109. ; 06/01/83 - Fixed bug in <I>nsert vs <W>rite, added "real"
  110. ;         case conversion routines.
  111. ;                Mark Pulver  -    (312) 789-0499
  112. ;                     PMMI  24hrs / 7 days
  113. ;
  114. ; 05/30/83 - Added LIBLEN equ, fixed <R>ead command, changed
  115. ;         msgs to lowercase, added <H>elp, and various
  116. ;         messages for clarity
  117. ;                Mark Pulver
  118. ;
  119. ; 05/17/83 - Modified to work with mdm707
  120. ;                Dave Holmes sysop 804-898-7493
  121. ;
  122. ; 02/23/83 - MODIFIED TO WORK WITH MODEM798 AND TO ACCEPT
  123. ;         LOWER CASE CONSOLE INPUT.
  124. ;                Bruce R. Ratoff
  125. ;
  126. ; 01/??/82 - ORIGINAL VERSION
  127. ;                Tony Ribeiro
  128. ;            
  129. ; ========================================================
  130. ;
  131. LF    EQU    0AH
  132. CR    EQU    0DH
  133. ;
  134. ;
  135. ; --------------------------------------------------------
  136. ; System Equates
  137. ;
  138. BOOT    EQU    0
  139. BDOS    EQU    BOOT+5
  140. SFCB1    EQU    BOOT+5CH
  141. SFCB2    EQU    BOOT+6CH
  142. TPA    EQU    BOOT+100H
  143. CONIN    EQU    1
  144. CONOT    EQU    2
  145. PLIST    EQU    5
  146. PRINTB    EQU    9
  147. RDCON    EQU    10
  148. CONST    EQU    11
  149. OPENF    EQU    15
  150. CLOSEF    EQU    16
  151. SRCHF    EQU    17
  152. DELF    EQU    19
  153. READF    EQU    20
  154. WRITEF    EQU    21
  155. MAKEF    EQU    22
  156. SETDMA    EQU    26
  157. ;
  158. ; ========================================================
  159. ;
  160. ;
  161.     ORG    TPA
  162. ;
  163.     JMPS    START            ; jump around data area
  164. ;
  165. ; The value of the following two bytes determine the low and hi
  166. ; range of library length to be searched. LIBLOW is the start point
  167. ; while LIBHI is the ending point. These can be patched with your
  168. ; favorite debugger so that the file need not be re-assembled.
  169. ;
  170. LIBLOW    DB    30            ; 0103H
  171. LIBHI    DB    40            ; 0104H
  172. ;
  173. ;
  174. ;PROGRAM STARTS HERE
  175. ;
  176. START:    MOV    AX,CS
  177.     MOV    SS,AX
  178.     MOV    SP,(Offset STACK)
  179.     XOR    AL,AL            ;CLEAR CHGSW
  180.     MOV    Byte Ptr CHGSW,AL
  181. ;
  182. ;THIS ROUTINE MOVES SOURCE AND OUTPUT FCBS AND 
  183. ;SETS BOTH CRS TO '0'
  184. ;
  185. SAVFCB: MOV    BX,SFCB1        ;SOURCE FCB
  186.     MOV    DX,(Offset FCB1)
  187.     CALL    MFCB
  188.     XOR    AL,AL
  189.     MOV    Byte Ptr FCB1+32,AL
  190.     MOV    BX,SFCB2        ;OUTPUT FCB
  191.     MOV    DX,(Offset FCB2)
  192.     CALL    MFCB
  193.     XOR    AL,AL
  194.     MOV    Byte Ptr FCB2+32,AL
  195. ;
  196. ;DISPLAY SIGN ON MSG
  197. ;
  198.     MOV    DX,(Offset MPROG)
  199.     CALL    PRTBUF
  200. ;
  201. ;CHECKS TO SEE THAT A SOURCE FILE IS CALLED
  202. ;
  203.     MOV    BX,SFCB1+1
  204.     MOV    AL,Byte Ptr [BX]
  205.     CMP    AL,' '
  206.     JNZ    CKDF
  207. ;
  208. ;IF NOT, DISPLAYS ERROR MSG AND EXITS PROG
  209. ;
  210.     MOV    DX,(Offset MCERR)
  211.     JMP    DOEXIT
  212. ;
  213. ;CHECKS TO SEE IT AN OUTPUT FILE IS CALLED
  214. ;
  215. CKDF:    MOV    BX,SFCB2+1
  216.     MOV    AL,Byte Ptr [BX]
  217.     CMP    AL,' '
  218.     JNZ    CLRBUF
  219. ;
  220. ;IF NOT, DISPLAYS ERROR MSG AND EXITS PROG
  221. ;
  222.     MOV    DX,(Offset MCERR)
  223.     JMP    DOEXIT
  224. ;
  225. ;THIS IS THE SUB-ROUTINE THAT MOVES FCBS
  226. ;
  227. MFCB:    MOV    CL,16
  228. MFCB1:    MOV    AL,Byte Ptr [BX]
  229.     MOV    SI,DX
  230.     MOV    [SI],AL
  231.     LAHF
  232.     INC    DX
  233.     SAHF
  234.     LAHF
  235.     INC    BX
  236.     SAHF
  237.     DEC    CL
  238.     JNZ    MFCB1
  239.     RET
  240. ;
  241. ;CLEARS 5000H BYTES OF RAM SO THAT NO GARBAGE APPEARS
  242. ;IN NEW COM FILE THAT IS WRITTEN.
  243. ;
  244. CLRBUF: MOV    DX,(Offset mclrng)
  245.     CALL    prtbuf
  246.     MOV    BX,(Offset BUF)
  247.     MOV    DX,6000H        ; 24K
  248. CLR1:    MOV    Byte Ptr [BX],0
  249.     INC    BX
  250.     DEC    DX
  251.     MOV    AL,DH
  252.     OR    AL,DL
  253.     JNZ    CLR1
  254. ;
  255. ;OPENS SOURCE FILE, AND IF NOT FOUND, DISPLAYS
  256. ;ERROR MSG.
  257. ;
  258. OPNSF:    MOV    DX,(Offset FCB1)
  259.     MOV    CL,OPENF
  260.     INT    224
  261.     INC    AL
  262.     JNZ    SRCDF
  263.     MOV    DX,(Offset MUNSF)
  264.     JMP    DOEXIT
  265. ;
  266. ;CKS TO SEE IF OUTPUT FILE ALREADY EXISTS.IF IT DOES 
  267. ;DISPLAYS ERROR MSG AND EXITS PROG.
  268. ;
  269. SRCDF:    MOV    DX,(Offset FCB2)
  270.     MOV    CL,SRCHF
  271.     INT    224
  272.     INC    AL
  273.     JZ    DOREAD
  274.     MOV    DX,(Offset MUNDF)
  275.     JMP    DOEXIT
  276. ;
  277. ;DISPLAYS LOADING MSG AND LOADS SOURCE FILE
  278. ;
  279. DOREAD: MOV    DX,(Offset MLOADF)
  280.     CALL    PRTBUF
  281.     CALL    RDFILE
  282.     JMPS    DOSRC
  283. ;
  284. ;LOADS SOURCE FILE(CURRENT MODEM7.COM PROG) AT 'BUF'
  285. ;
  286. RDFILE: MOV    BX,(Offset BUF)        ;START OF BUFFER RAM
  287.     MOV    Word Ptr DMADD,BX    ;STORE BUFFER POINTER
  288. RDFIL1: PUSH    BX
  289.     POP    DX
  290.     MOV    CL,SETDMA
  291.     INT    224
  292.     MOV    DX,(Offset FCB1)
  293.     MOV    CL,READF
  294.     INT    224
  295.     OR    AL,AL
  296.     JZ    L_3
  297.     RET
  298. L_3:
  299.     MOV    BX,Word Ptr DMADD
  300.     MOV    DX,128
  301.     ADD    BX,DX
  302.     MOV    Word Ptr DMADD,BX
  303.     JMPS    RDFIL1
  304. ;
  305. ;THIS ROUTINE WILL DO AN AUTO SEARCH OF THE START OF
  306. ;THE PHONE LIBRARY...IT LOOKS FOR THE ASCII CHARS
  307. ;'A','B','C' WITH SPACINGS <LIBLOW> TO <LIBHI> BYTES
  308. ;AS SHOWN IN THE VARIOUS VERSIONS OF THE MODEM7
  309. ; 'NUMBLIB'.SEARCH IS DONE ON FIRST 4K BYTES ONLY
  310. ;SEARCH LIMIT MONITORED BY 'SRCLMT' AND 'H' REGISTER.
  311. ;
  312. DOSRC:    MOV    BX,(Offset BUF)        ;START OF BUFFER RAM
  313.     MOV    AL,BH            ;MONITOR LIMIT COUNT
  314.     ADD    AL,24            ;SEARCH ONLY FIRST 6K
  315.     MOV    Byte Ptr SRCLMT,AL
  316. ;
  317. ;PROG LOOKS FOR FIRST LETTER IN SEQUENCE('A').
  318. ;
  319. DOSRC1: MOV    Word Ptr LIBSTT,BX    ;Store LIBSTT
  320.     MOV    AL,Byte Ptr [BX]
  321.     CMP    AL,'A'
  322.     JZ    CKB
  323.     INC    BX
  324.     MOV    AL,Byte Ptr SRCLMT
  325.     CMP    AL,BH
  326.     JNZ    DOSRC1
  327. ;
  328. ;SEARCH OF FIRST 4K BYTES DOESNT FIND LIBRARY SO
  329. ;PROGRAM EXITS.
  330. ;
  331. SRCEXT: MOV    DX,(Offset MDLNF)
  332.     JMP    DOEXIT
  333. ;
  334. ;'A' IS FOUND.PROG CKS FOR 'B' BEING IN RIGHT PLACE.
  335. ;
  336. CKB:    MOV    Word Ptr LIBSTT,BX    ; store new value of LIBSTT
  337.     MOV    CH,0
  338.     MOV    AL,Byte Ptr LIBLOW    ; get low end of search range
  339.     MOV    CL,AL
  340. CKB1:    ADD    BX,CX
  341.     MOV    AL,Byte Ptr [BX]
  342.     CMP    AL,'B'
  343.     JZ    CKC
  344.     MOV    BX,Word Ptr LIBSTT    ; get buffer address
  345.     LAHF                ; bump count once
  346.     INC    CX
  347.     SAHF
  348.     MOV    AL,CL            ; get current offset+1
  349.     LAHF                ; save it
  350.     XCHG    AL,AH
  351.     PUSH    AX
  352.     MOV    AL,Byte Ptr LIBHI    ; get hi end of search range
  353.     MOV    DH,AL            ; setup for CMP
  354.     POP    AX            ; restore current offset+1
  355.     XCHG    AL,AH
  356.     CMP    AL,DH            ; We there yet?
  357.     JB    CKB1            ; Nope...loop back
  358. ;
  359. ;'B' NOT FOUND IN <LIBLOW>-<LIBHI> BYTES FROM 'A' SO PROG BUMPS
  360. ;POINTER BY ONE(1) AND STARTS SEARCH FOR 'A' AGAIN.
  361. ;
  362. DONXT:    MOV    BX,Word Ptr LIBSTT
  363.     INC    BX
  364.     JMPS    DOSRC1
  365. ;
  366. ;'A' AND 'B' FOUND IN RIGHT PLACE.PROG NOW CKS PROPER BYTES
  367. ;DOWN THE LINE FOR 'C'.
  368. ;
  369. CKC:    ADD    BX,CX
  370.     MOV    AL,Byte Ptr [BX]
  371.     CMP    AL,'C'
  372.     JNZ    DONXT
  373.     MOV    BX,(Offset LIBLEN)    ;H/L = Address to store
  374.     MOV    Byte Ptr [BX],CL            ;Store spacing count
  375. ;
  376. ;LETTERS A,B,AND C FOUND IN PROPER SEQ AT CORRECT
  377. ;LOCATION SO PROG DISPLAYS THAT LIBRARY IS FOUND
  378. ;THEN DISPLAYS THE START ADDRESS IN HEX AND DISPS
  379. ;WHAT IT THINKS IS THE DIAL LIBRARY.
  380. ;
  381. DLFND:    CALL    DCRLF
  382.     MOV    DX,(Offset MDLFND)    ; 'Found library at '
  383.     CALL    PRTBUF
  384.     CALL    DSPADR            ; 'xxxxH'
  385.     MOV    DX,(Offset MLLEN)    ; 'Library spacing is '
  386.     CALL    PRTBUF
  387.     MOV    AL,Byte Ptr LIBLEN    ; <LIBLEN>
  388.     CALL    ADOUT
  389.     MOV    DX,(Offset MBYT)    ; ' bytes'
  390.     CALL    PRTBUF
  391.     CALL    DSPLIB            ; and the library
  392. ;
  393. ;PROG NOW ASKS USER IF THE DISPLAY LOOKS LIKE THE
  394. ;PROPER START OF THE DIAL LIBRARY.IF USER ANSWERS
  395. ;'Y' THEN PROG CONTINUES.IF  'N'  THEN    PROG GOES
  396. ;BACK AND SEARCHES SOME MORE.
  397. ;
  398. DLFND1: MOV    DX,(Offset MDLOK)
  399.     CALL    PRTBUF
  400.     CALL    CKCONS
  401.     CMP    AL,'Y'
  402.     JZ    DLFND2
  403.     CMP    AL,'N'
  404.     JNZ    DLFND1
  405.     JMPS    DONXT
  406. ;
  407. ;LIBRARY LOOKS OK,SO PROG CONTINUES HERE.
  408. ;
  409. DLFND2: CALL    DCRLF
  410. ;
  411. ;PROG DISPLAYS COMMAND LINE AND PROMPTS USER FOR CMD.
  412. ;THE D,I,AND V COMMANDS REQUIRE AND ARGUMENT WITH CMD.
  413. ;THE D,AND I CMDS NEED A LETTER 'A' TO 'Z' or '0' to '9'.
  414. ;THE V(VIEW) CMD NEEDS A LETTER AS ABOVE TO VIEW ONE
  415. ;LINE OR A '?' TO VIEW ENTIRE LIBRARY.
  416. ;THE OTHER CMDS REQUIRE NO ARGUMENT.
  417. ;
  418. CMD:    CALL    DSPLIB
  419. CMD1:    MOV    DX,(Offset MCMD)
  420.     CALL    PRTBUF
  421.     CALL    CKCONS
  422.     CMP    AL,3            ;IF CNTRL C THEN EXIT
  423.     JNZ    L_4    
  424.     JMP    EXIT
  425. L_4:
  426.     CMP    AL,'D'            ;DELETE FUNCTION
  427.     JNZ    L_5    
  428.     JMP    DELETE
  429. L_5:
  430.     CMP    AL,'H'            ; show help msg
  431.     JZ    shwhlp
  432.     CMP    AL,'I'            ;INSERT FUNCTION
  433.     JNZ    L_6    
  434.     JMP    INS
  435. L_6:
  436.     CMP    AL,'P'            ;PRINTS ENTIRE LIBRARY
  437.     JNZ    L_7    
  438.     JMP    PRTLIB
  439. L_7:
  440.     CMP    AL,'R'            ;REREADS SOURCE FILE
  441.     JZ    REREAD
  442.     CMP    AL,'V'            ;DISPS LINE/ENTIRE LIB
  443.     JNZ    L_8    
  444.     JMP    VIEW
  445. L_8:
  446.     CMP    AL,'W'            ;WRITES OUTPUT FILE
  447.     JNZ    L_9    
  448.     JMP    WRTFIL
  449. L_9:
  450. ;
  451. ;IF PROPER SYNTAX NOT USED,DISPLAYS ERROR MSG
  452. ;AND DISPLAYS CMD LINE AGAIN AND PROMPTS USER.
  453. ;
  454. CMDERR: MOV    DX,(Offset MSYNER)    ;SYNTAX ERROR MSG
  455.     CALL    PRTBUF
  456.     JMPS    CMD1
  457. ;
  458. ; Show help message
  459. ;
  460. shwhlp: MOV    DX,(Offset hlpmsg)
  461.     CALL    prtbuf
  462.     JMPS    cmd1
  463. ;
  464. ;THIS ROUTINE WILL RELOAD THE SOURCE FILE
  465. ;SO USER CAN START FROM SCRATCH AGAIN.
  466. ;
  467. REREAD: CALL    dcrlf
  468.     MOV    DX,(Offset MLOADF)    ;LOADING FILE MSG
  469.     CALL    PRTBUF
  470.     XOR    AL,AL            ;CLEAR CHGSW
  471.     MOV    Byte Ptr CHGSW,AL
  472. ;
  473.     MOV    CH,21            ; thou shalt be sure that the FCB is clean
  474.     MOV    BX,(Offset fcb1)+12
  475. agn1:    MOV    Byte Ptr [BX],0
  476.     LAHF
  477.     INC    BX
  478.     SAHF
  479.     DEC    CH
  480.     JNZ    agn1
  481. ;
  482.     MOV    DX,(Offset fcb1)    ; and thou must open a book before reading it
  483.     MOV    CL,openf
  484.     INT    224
  485.     INC    AL
  486.     JNZ    c1
  487. ;
  488.     MOV    DX,(Offset moerr)
  489.     JMP    doexit
  490. ;
  491. c1:    CALL    RDFILE
  492.     JMP    CMD
  493. ;
  494. ;DISPLAYS THE ENTIRE LIBRARY ON CONSOLE.
  495. ;
  496. DSPLIB: CALL    DCRLF
  497.     MOV    BX,Word Ptr LIBSTT
  498. DSPLB1: MOV    CL,1            ; set 1st column
  499. DSPLB2: MOV    AL,Byte Ptr LIBLEN
  500.     MOV    CH,AL            ; get length of entry
  501.     MOV    AL,Byte Ptr [BX]            ; setup for test
  502.     CMP    AL,0            ; end of lib?
  503.     JNZ    DSPLB3
  504.     RET                ; yep...
  505. ;
  506. DSPLB3: MOV    AL,Byte Ptr [BX]    ; move character to memory
  507.     CALL    DISP            ; show it
  508.     LAHF                ; bump pointer
  509.     INC    BX
  510.     SAHF
  511.     DEC    CH            ; bump counter
  512.     JNZ    DSPLB3            ; if more, do it again...
  513.     DEC    CL            ; bump column flag
  514.     JNZ    DSPLB4            ; if second column
  515.     MOV    AL,' '            ; 2 space delimeter
  516.     CALL    DISP
  517.     CALL    DISP
  518.     JMPS    DSPLB2            ; show second column
  519. DSPLB4: CALL    DCRLF            ; new line
  520.     JMPS    DSPLB1            ; keep at it...
  521. ;
  522. ;SEND ONE CHARACTER TO CONSOLE THRU CP/M FACILITIES.
  523. ;NOTE..IF DPSWP IS 'CONOT',CHAR SENT TO CONSOLE.
  524. ;IF DPSWP IS 'PLIST' THEN CHAR SENT TO LIST DEVICE.
  525. ;DPSWP IS SWITCHED TO 'PLIST' ON (P)'PRTLIB' CMD.
  526. ;
  527. DISP:    LAHF
  528.     XCHG    AL,AH
  529.     PUSH    AX
  530.     XCHG    AL,AH
  531.     PUSH    CX
  532.     PUSH    DX
  533.     PUSH    BX
  534. DPSW:    MOV    CL,CONOT
  535. DPSWP    EQU    ( OFFSET $ - 1)
  536.     MOV    DL,AL
  537.     INT    224
  538.     POP    BX
  539.     POP    DX
  540.     POP    CX
  541.     POP    AX
  542.     XCHG    AL,AH
  543.     SAHF
  544.     RET
  545. ;
  546. ;SEND CR,LF SEQUENCE TO CONSOLE OR LIST DEV.
  547. ;
  548. DCRLF:    MOV    AL,CR
  549.     CALL    DISP
  550.     MOV    AL,LF
  551.     CALL    DISP
  552.     RET
  553. ;
  554. ;DOES A PRINT BUFFER USING CP/M FACILITIES.
  555. ;
  556. PRTBUF: LAHF
  557.     XCHG    AL,AH
  558.     PUSH    AX
  559.     PUSH    CX
  560.     PUSH    DX
  561.     PUSH    BX
  562.     MOV    CL,PRINTB
  563.     INT    224
  564.     POP    BX
  565.     POP    DX
  566.     POP    CX
  567.     POP    AX
  568.     XCHG    AL,AH
  569.     SAHF
  570.     RET
  571. ;
  572. ;THIS ROUTINE READS THE CONSOLE BUFFER.
  573. ;READ THE CP/M MANUALS FOR A GOOD DESCRIPTION
  574. ;OF HOW IT WORKS.
  575. ;NOTE THAT THE CONSOLE BUFFER IS STORED AT 'CONLIN',
  576. ;THE SIZE OF THE BUFFER IS STORED AT 'CONSIZ',
  577. ;AND THE MAX LENGTH OF BUFFER IS STORED AT 'CONBUF'.
  578. ;
  579. MSUB1:    CALL    PRTBUF
  580. BLNKBF: MOV    BX,(Offset CONLIN)
  581.     MOV    AL,Byte Ptr LIBLEN    ; buffer size
  582.     INC    AL
  583.     MOV    CL,AL
  584. BLNKB1: MOV    Byte Ptr [BX],0        ; clear buffer
  585.     LAHF
  586.     INC    BX
  587.     SAHF
  588.     DEC    CL
  589.     JNZ    BLNKB1
  590.     MOV    CL,RDCON        ; do BDOS read
  591.     MOV    DX,(Offset CONBUF)
  592.     INT    224
  593.     MOV    DX,(Offset CONLIN)    ; leave D pointing to first character
  594.     RET
  595. ;
  596. ;CKS CONSOLE FOR CHAR AND STORES IT 'A' REG.
  597. ;
  598. CKCONS: MOV    CL,CONIN
  599.     INT    224
  600.     CMP    AL,61H            ; convert lower case to upper case
  601.     JNB    L_11
  602.     RET
  603. L_11:
  604.     CMP    AL,7BH
  605.     JNAE    L_12
  606.     RET
  607. L_12:
  608.     AND    AL,5FH
  609.     RET
  610. ;
  611. ;'V' CMD BRANCHES HERE.IF ARGUMENT IS '?' THEN
  612. ;PROG GOES TO 'VALL'(DISP ENTIRE LIBRARY).
  613. ;ELSE ONLY ONE LINE IS DISPLAYED PER ARGUMENT.
  614. ;
  615. VIEW:    CALL    CKCONS
  616.     CMP    AL,'?'
  617.     JZ    VALL
  618.     CALL    CKCHAR
  619.     JNB    L_13    
  620.     JMP    CMDERR
  621. L_13:
  622.     CALL    LINSEL
  623.     MOV    AL,Byte Ptr LIBLEN
  624.     MOV    CH,AL
  625.     CALL    DCRLF
  626. VONE1:    MOV    AL,Byte Ptr [BX]
  627.     CALL    DISP
  628.     LAHF
  629.     INC    BX
  630.     SAHF
  631.     DEC    CH
  632.     JNZ    VONE1
  633.     JMP    CMD1
  634. VALL:    CALL    DCRLF
  635.     CALL    DSPLIB
  636.     JMP    CMD1
  637. ;
  638. ;DELETES ONE LINE OF THE LIBRARY(DENOTED BY ARGUMENT).
  639. ;
  640. DELETE: CALL    CKCONS
  641.     CMP    AL,3
  642.     JNZ    L_14    
  643.     JMP    CMD
  644. L_14:
  645.     CALL    CKCHAR
  646.     JNB    L_15    
  647.     JMP    CMDERR
  648. L_15:
  649.     CALL    LINSEL
  650.     LAHF
  651.     INC    BX
  652.     SAHF
  653.     LAHF
  654.     INC    BX
  655.     SAHF
  656.     MOV    AL,Byte Ptr LIBLEN
  657.     DEC    AL
  658.     DEC    AL
  659.     MOV    CH,AL
  660.     CALL    DCRLF
  661. DEL1:    MOV    Byte Ptr [BX],' '
  662.     LAHF
  663.     INC    BX
  664.     SAHF
  665.     DEC    CH
  666.     JNZ    DEL1
  667. DELX:    MOV    AL,1
  668.     MOV    Byte Ptr CHGSW,AL
  669.     JMP    CMD
  670. ;
  671. ;INSERTS ONE LINE INTO LIBRARY(DENOTED BY ARGUMENT)
  672. ;IF A <CR> IS ENTERED AFTER THE 'I' CMD THEN THE
  673. ;INSERT MODE IS ABORTED,ELSE THEN ARGUMENT MUST
  674. ;BE A VALID CHAR 'A' TO 'Z' OR '0' to '9' or CONSOLE WILL
  675. ;DISPLAY A SYNTAX ERROR AND RETURN TO CMD PROMPT.
  676. ;THE VALID CHAR IS STORED IN 'LINCHR' FOR USE LATER.
  677. ;
  678. INS:    CALL    CKCONS
  679.     CMP    AL,CR
  680.     JNZ    L_16    
  681.     JMP    INEXT1
  682. L_16:
  683.     CALL    CKCHAR
  684.     JNB    L_17    
  685.     JMP    CMDERR
  686. L_17:
  687.     MOV    Byte Ptr LINCHR,AL
  688.     LAHF
  689.     XCHG    AL,AH
  690.     PUSH    AX
  691.     CALL    DSPLIB
  692.     POP    AX
  693.     XCHG    AL,AH
  694.     SAHF
  695.     CALL    LINSEL            ; @HL points to letter
  696.     LAHF                ; point to delimiter
  697.     INC    BX
  698.     SAHF
  699.     LAHF                ; point to blank space
  700.     INC    BX
  701.     SAHF
  702.     PUSH    BX            ; save it
  703. ;
  704. ;'MADDBx' IS THE PROMPT LINE BUILT FOR INSERTING
  705. ;
  706. INS1:    MOV    DX,(Offset MADDB1)    ; "  Description"
  707.     CALL    PRTBUF
  708. ;
  709.     MOV    AL,Byte Ptr LIBLEN    ; (length of entry) - (message offset)
  710.     SUB    AL,27
  711.     MOV    CH,AL
  712.     MOV    AL,' '
  713. spac1:    CALL    disp            ; print a space
  714.     DEC    CH            ; decrement counter
  715.     JNZ    spac1            ; if not done, then print another
  716. ;
  717.     MOV    DX,(Offset maddb2)    ; "1-xxx-xxx-xxxx  - Exactly "
  718.     CALL    prtbuf
  719.     MOV    AL,Byte Ptr LIBLEN    ; offset for "A:"
  720.     SUB    AL,2
  721.     CALL    adout            ; LIBLEN as decimal ASCII value
  722.     MOV    DX,(Offset maddb3)    ; " Characters"
  723.     CALL    prtbuf
  724. ;
  725.     MOV    AL,Byte Ptr LINCHR
  726.     CALL    DISP            ; show lib letter
  727.     MOV    AL,':'
  728.     CALL    DISP            ; show a delimiter
  729.     CALL    BLNKBF            ; do BDOS conin, @DC points to buff
  730.     MOV    AL,Byte Ptr CONSIZ    ; get # of characters
  731.     OR    AL,AL            ; 0?
  732.     JZ    INEXIT            ; exit if blank return
  733.     MOV    CH,AL            ; correct # of characters?
  734.     MOV    AL,Byte Ptr LIBLEN
  735.     SUB    AL,2
  736.     CMP    AL,CH
  737.     JNZ    INS1            ; nope, try again
  738.     POP    BX            ; get lib entry pointer back
  739.     MOV    DX,(Offset CONLIN)    ; point to inbuff
  740. INS2:    MOV    SI,DX            ; get first character from buffer
  741.     MOV    AL,[SI]
  742.     MOV    Byte Ptr [BX],AL    ; move it to library
  743.     LAHF                ; bump inpointer
  744.     INC    DX
  745.     SAHF
  746.     LAHF                ; bump outpointer
  747.     INC    BX
  748.     SAHF
  749.     DEC    CH            ; bump counter
  750.     JNZ    INS2            ; if not done, do more
  751.     JMP    DELX            ; all done
  752. ;
  753. ;PROG COMES HERE IF ABORTING INSERT MODE.
  754. ;
  755. INEXIT: POP    BX
  756. INEXT1: MOV    DX,(Offset MABINS)
  757.     CALL    PRTBUF
  758.     JMP    CMD1
  759. ;
  760. ;This routine first computes the address of the '0' library
  761. ;entry if it were to exist.  This location is beyond the 'Z'
  762. ;entry by the LIBLEN number of bytes, as already determined.
  763. ;The character at the location is tested for a '0', and if it
  764. ;is, proceeds t verify that the console entry is a valid letter
  765. ;or number.  If the character is not a '0', only letter entries
  766. ;are accepted.    In any case, the routine returns with CY set if
  767. ;the entry is not acceptable.
  768. ;
  769. ;First we must compute the location for the hypothetical '0'.
  770. ;
  771. CKCHAR: LAHF                ;Save the input character
  772.     XCHG    AL,AH
  773.     PUSH    AX
  774.     MOV    AL,Byte Ptr LIBLEN    ;get the length of entries    
  775.     MOV    DL,AL            ;get LIBLEN
  776.     MOV    DH,0            ;....into DE
  777.     MOV    BX,0            ;use HL to accumulate product of mult.
  778.     MOV    AL,26            ;numeric offset value of '0'('A'=0,'Z'=25)
  779.     MOV    CH,8            ;8-bit multiplier
  780. CKCHAR1:
  781.     SHL    BX,1            ;\
  782.     ROL    AL,1            ; \         This section multiplies the
  783.     JNB    CKCHAR2            ;  \         LIBLEN value in DE bye the
  784.     ADD    BX,DX            ;   |---     number 26 in A to get the
  785. CKCHAR2:                ;  /         offset from LIBSTT of the
  786.     DEC    CH            ; /         hypothetical '0'. The offset
  787.     JNZ    CKCHAR1            ;/         is now in HL
  788.     XCHG    BX,DX            ;Move offset to DE
  789.     MOV    BX,Word Ptr LIBSTT    ;get library start address
  790.     ADD    BX,DX            ;add the offset
  791.     MOV    AL,Byte Ptr [BX]    ;get the character there
  792.     CMP    AL,'0'            ;is it '0' ?
  793.     JZ    CKCHAR4            ;if so
  794.     POP    AX            ;else - check only for alpha
  795.     XCHG    AL,AH
  796. CKCHAR3:
  797.     CMP    AL,'A'            ;less than 'A' ?
  798.     JNB    L_18    
  799.     RET                ;ret with CY set if not alpha
  800. L_18:
  801.     CMP    AL,'Z'+1        ;greater than 'Z' ?
  802.     CMC                ;set CY if so - else reset CY
  803.     RET
  804. CKCHAR4:
  805.     POP    AX            ;get char back for number check
  806.     XCHG    AL,AH
  807.     CMP    AL,'0'            ;less than '0'?
  808.     JNB    L_19    
  809.     RET                ;error if so
  810. L_19:
  811.     CMP    AL,'9'+1        ;no CY if greater than '9'
  812.     JNB    CKCHAR3            ;so check for alpha
  813.     CMC                ;else - reset CY, number OK
  814.     RET
  815. ;
  816. ;DISPLAYS START ADDRESS ON CONSOLE.
  817. ;
  818. DSPADR: MOV    BX,Word Ptr LIBSTT
  819.     MOV    AL,BH
  820.     CALL    HEXASC
  821.     MOV    AL,BL
  822.     CALL    HEXASC
  823.     MOV    DX,(Offset MHEX)
  824.     CALL    PRTBUF
  825.     RET
  826. ;
  827. ;Decimal output routine, print @HL as ASCII digits
  828. ;   entry at ADOUT will print @A
  829. ;
  830. ADOUT:    MOV    BH,0            ; clear @H
  831.     MOV    BL,AL            ; @A to @L
  832. DECOUT: PUSH    CX
  833.     PUSH    DX
  834.     PUSH    BX
  835.     MOV    CX,-10
  836.     MOV    DX,-1
  837. DECOU2: ADD    BX,CX
  838.     INC    DX
  839.     JB    DECOU2
  840.     MOV    CX,10
  841.     ADD    BX,CX
  842.     XCHG    BX,DX
  843.     MOV    AL,BH
  844.     OR    AL,BL
  845.     JZ    L_20    
  846.     CALL    DECOUT
  847. L_20:
  848.     MOV    AL,DL
  849.     ADD    AL,'0'
  850.     CALL    DISP
  851.     POP    BX
  852.     POP    DX
  853.     POP    CX
  854.     RET
  855. ;
  856. ;CONVERTS HEX BINARY NBR TO ASCII AND DISPS ON CONSOLE.
  857. ;
  858. HEXASC: LAHF
  859.     XCHG    AL,AH
  860.     PUSH    AX
  861.     XCHG    AL,AH
  862.     ROR    AL,1
  863.     ROR    AL,1
  864.     ROR    AL,1
  865.     ROR    AL,1
  866.     CALL    OUTHEX
  867.     POP    AX
  868.     XCHG    AL,AH
  869. OUTHEX: AND    AL,0FH
  870.     ADD    AL,90H
  871.     DAA
  872.     ADC    AL,40H
  873.     DAA
  874.     CALL    DISP
  875.     RET
  876. ;
  877. ;SELECTS LINE IN LIBRARY AS DENOTED BY A-Z ARGUMENT.
  878. ;
  879. LINSEL: CMP    AL,'A'            ;Alpha if no CY
  880.     JNB    LINSEL1            ;so jump to original code
  881.     SUB    AL,30H            ;else remove ASCII bias
  882.     ADD    AL,27            ;equate '0' to 27, after 'Z'
  883.     JMPS    LINSEL2
  884. ;
  885. LINSEL1:                ;original code starts here
  886.     AND    AL,1FH            ;Equate 'A' to 1
  887. ;
  888. LINSEL2:
  889.     SUB    AL,1            ;Make 'A' = 0, 'Z' = 26
  890.     MOV    BX,Word Ptr LIBLEN
  891.     MOV    DL,BL
  892.     MOV    DH,0
  893.     MOV    BX,0
  894.     MOV    CH,8
  895. LINSC1: SHL    BX,1
  896.     ROL    AL,1
  897.     JNB    LINSC2
  898.     LAHF
  899.     ADD    BX,DX
  900.     SAHF
  901. LINSC2: DEC    CH
  902.     JNZ    LINSC1
  903.     XCHG    BX,DX
  904.     MOV    BX,Word Ptr LIBSTT
  905.     LAHF
  906.     ADD    BX,DX
  907.     RCR    SI,1
  908.     SAHF
  909.     RCL    SI,1
  910.     MOV    Word Ptr LINSTT,BX
  911.     RET
  912. ;
  913. ;WRITES OUTPUT FILE TO DISK STARTING FROM 'BUF'.
  914. ;THESE ARE STANDARD ROUTINES,NOTHING FANCY HERE.
  915. ;
  916. WRTFIL: MOV    DX,(Offset mwrtng)
  917.     CALL    prtbuf
  918.     MOV    DX,(Offset FCB2)
  919.     MOV    CL,MAKEF
  920.     INT    224
  921.     INC    AL
  922.     JNZ    DFOK
  923.     MOV    DX,(Offset MNOSPC)
  924.     CALL    PRTBUF
  925.     JMP    CMD1
  926. DFOK:    CALL    numrec
  927.     MOV    BX,(Offset BUF)
  928. WRTFL1: LAHF
  929.     XCHG    AL,AH
  930.     PUSH    AX
  931.     XCHG    AL,AH
  932.     MOV    Word Ptr DMADD,BX
  933.     PUSH    BX
  934.     POP    DX
  935.     MOV    CL,SETDMA
  936.     INT    224
  937.     MOV    DX,(Offset FCB2)
  938.     MOV    CL,WRITEF
  939.     INT    224
  940.     OR    AL,AL
  941.     JZ    WRTOK
  942.     POP    AX
  943.     XCHG    AL,AH
  944.     SAHF
  945.     MOV    DX,(Offset FCB2)
  946.     MOV    CL,CLOSEF
  947.     INT    224
  948.     MOV    DX,(Offset MDFULL)
  949.     JMP    DOEXIT
  950. WRTOK:    POP    AX
  951.     XCHG    AL,AH
  952.     DEC    AL
  953.     OR    AL,AL
  954.     JZ    WRDONE
  955.     MOV    BX,Word Ptr DMADD
  956.     MOV    DX,128
  957.     LAHF
  958.     ADD    BX,DX
  959.     RCR    SI,1
  960.     SAHF
  961.     RCL    SI,1
  962.     JMPS    WRTFL1
  963. WRDONE: MOV    DX,(Offset FCB2)
  964.     MOV    CL,CLOSEF
  965.     INT    224
  966.     MOV    DX,(Offset MSAVED)
  967.     JMPS    DOEXIT
  968. ;
  969. ;Calculate number of records to write returns
  970. ; with @A=#records. Note that code is only good
  971. ; for 255 records, (32K)
  972. ;
  973. numrec: MOV    BX,Word Ptr dmadd
  974.     MOV    DX,-((Offset buf))
  975.     ADD    BX,DX
  976.     MOV    AL,BL
  977.     OR    AL,AL
  978.     RCL    AL,1
  979.     MOV    BL,BH
  980.     MOV    BH,0
  981.     LAHF
  982.     XCHG    AL,AH
  983.     PUSH    AX
  984.     SHL    BX,1
  985.     POP    AX
  986.     XCHG    AL,AH
  987.     SAHF
  988.     MOV    AL,0
  989.     ADC    AL,BL
  990.     RET
  991. ;
  992. ;PROG COMES HERE IF (P)'PRTLIB' CMD CALLED.
  993. ;WHAT IT DOES IS CHANGE 'CONOT' TO 'LIST' AT DPSWP
  994. ;AND CHANGES BACK TO 'CONOT' AT END OF PRINTOUT.
  995. ;
  996. PRTLIB: MOV    AL,PLIST
  997.     MOV    CS:Byte Ptr .DPSWP,AL
  998.     CALL    DSPLIB
  999.     CALL    DCRLF
  1000.     MOV    AL,CONOT
  1001.     MOV    CS:Byte Ptr .DPSWP,AL
  1002.     JMP    CMD1
  1003. ;
  1004. ;THESE CONTAIN THE EXIT ROUTINES.
  1005. ;IF NO INSERT OR DELETE HAS BEEN DONE,THEN 'CHGSW'
  1006. ;IS '0' AND THEN PROG EXITS.IF AN INSERT OR DELETE
  1007. ;HAS BEEN PERFORMED THEN 'CHGSW' WAS SET TO '1'
  1008. ;AND USER IS ASKED IF NEW FILE IS TO BE SAVED.
  1009. ;IF USER ANSWERS 'Y' THEN A 'WRTFIL' IS DONE AND
  1010. ;PROG IS EXITED.IF ANSWER IS 'N' THEN PROG EXITS
  1011. ;WITHOUT WRITING NEW FILE.
  1012. ;
  1013. EXIT:    MOV    AL,Byte Ptr CHGSW
  1014.     OR    AL,AL
  1015.     JZ    DOEXT1
  1016. EXIT1:    MOV    DX,(Offset MCKSAV)
  1017.     CALL    PRTBUF
  1018.     CALL    CKCONS
  1019.     CMP    AL,'Y'
  1020.     JNZ    L_21    
  1021.     JMP    WRTFIL
  1022. L_21:
  1023.     CMP    AL,'N'
  1024.     JNZ    EXIT1
  1025.     JMPS    DOEXT2
  1026. ;
  1027. DOEXIT: CALL    PRTBUF
  1028.     JMPS    DOEXT2
  1029. DOEXT1: MOV    DX,(Offset MNCHG)
  1030.     CALL    PRTBUF
  1031. DOEXT2: MOV    DX,(Offset MEXIT)
  1032.     CALL    PRTBUF
  1033.     MOV    CL,0
  1034.     MOV    DL,0
  1035.     INT    224
  1036. ;
  1037. ;
  1038. ;THE DATA AREA STORES ALL THE MESSAGES,AND ALL THE 
  1039. ;OTHER DATA USED BY THE PROG.
  1040. ;
  1041. ;DATA AREA
  1042. ;
  1043. MPROG    DB    CR,LF,'M8LIB V 1.0 -  change Phone Number Library of MDM8xx series'
  1044.     DB    CR,LF,'8086 Version by Alex Soya',CR,LF,'$'
  1045. MCERR    DB    CR,LF,LF,'Syntax is :   M8LIB input.CMD output.CMD',CR,LF,LF
  1046.     DB    '  Both filenames must be specified',CR,LF
  1047.     DB    '  and <output> must be unique',CR,LF,'$'
  1048. MUNSF    DB    7,CR,LF,LF,'Unable to open Source File$'
  1049. MUNDF    DB    7,CR,LF,LF,'Output File Already Exists$'
  1050. MNOSPC    DB    7,CR,LF,LF,'No Directory Space$'
  1051. MCLRNG    DB    CR,LF,'Clearing file space, $'
  1052. MLOADF    DB    'loading file...',CR,LF,'$'
  1053. MEXIT    DB    CR,LF,'M8LIB done, rebooting$'
  1054. MDLNF    DB    7,CR,LF,LF,'Dial Library not found in the first 6k Bytes$'
  1055. MDLFND    DB    CR,LF,'Found dial Library at $'
  1056. MLLEN    DB    CR,LF,'Library spacing is $'
  1057. MBYT    DB    ' bytes',CR,LF,'$'
  1058. MDLOK    DB    CR,LF,'Does Library look okay? $'
  1059. MCMD    DB    CR,LF,'<D>elete, <H>elp, <I>nsert, <P>rint, <R>ead,'
  1060.     DB    ' <V>iew, <W>rite $'
  1061. hlpmsg    DB    CR,LF,LF,'  ++  Command Summary  ++',CR,LF,LF
  1062.     DB    ' Cmd   Syntax    Description',CR,LF
  1063.     DB    '----- --------  -------------',CR,LF,LF
  1064.     DB    '  D      D*       Delete specified entry from library',CR,LF
  1065.     DB    '  H      H        Display this screen',CR,LF
  1066.     DB    '  I      I*       Insert new text for specified entry',CR,LF
  1067.     DB    '  P      P        Print full library on printer',CR,LF
  1068.     DB    '  R      R        Re-Read library from source file',CR,LF
  1069.     DB    '  V      V*       View specified entry on console',CR,LF
  1070.     DB    '         V?       View entire library',CR,LF
  1071.     DB    '  W      W        Write new COM file to disk',CR,LF,LF
  1072.     DB    '  "*"  signifies one character,  A - Z or 0 to 9 which',CR,LF
  1073.     DB    '       is the library entry you wish to work with',CR,LF,'$'
  1074. MSYNER    DB    7,CR,LF,LF,'++ Syntax Error ++',CR,LF,'$'
  1075. MABINS    DB    CR,LF,LF,'Aborting insert mode, no changes made$'
  1076. MADDB1    DB    CR,LF,'  Description$'
  1077. MADDB2    DB    '1-xxx-xxx-xxxx  - Exactly $'
  1078. MADDB3    DB    ' Characters',CR,LF,'$'
  1079. MDFULL    DB    7,CR,LF,LF,'Disk Full$'
  1080. MWRTNG    DB    CR,LF,LF,'Writing File...$'
  1081. MSAVED    DB    CR,'File Written to Disk$'
  1082. MOERR    DB    7,CR,LF,'Open error on <R>ead',CR,LF,'$'
  1083. MNCHG    DB    CR,LF,LF,'No changes made to library$'
  1084. MCKSAV    DB    CR,LF,LF,'Do you want to save new File (Y/N)? $'
  1085. MHEX    DB    'H, (Absolute address)',CR,LF,'$'
  1086. DMADD    DW    0
  1087. LIBSTT    DW    0
  1088. LINSTT    DW    0
  1089. CHGSW    DB    0
  1090. PRTSW    DB    0
  1091. SRCLMT    DB    0
  1092. LINCHR    DB    0
  1093. CONBUF    DB    (Offset CONLEN)
  1094. CONSIZ    RS    1
  1095. CONLIN    RS    35
  1096. CONLEN    EQU    (Offset $)-(Offset CONSIZ)
  1097. KPCLR    DB    0
  1098. FCB1    RS    36
  1099. FCB2    RS    36
  1100. LIBLEN    RS    1
  1101. STKSPC    RS    40
  1102. STACK    EQU    (Offset $)
  1103. BUF    EQU    (Offset $)
  1104. LDAREA    RS    6000H        ; area to load CMD file
  1105. ;
  1106. ;
  1107.     END
  1108.