home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / apple / aplcat99.lbr / APLCAT.AZM / APLCAT.ASM
Assembly Source File  |  1986-12-21  |  26KB  |  1,329 lines
  1. ;APLCAT.ASM  Version 9.9 revised 5/25/85
  2. ;
  3. ;Overlay file for MSFTCAT.OBJ and PCPICAT.OBJ.
  4. ;
  5. ;
  6. ;Deffinitions for use in assembling MODEM9.xx.
  7. ;
  8.  
  9. ;
  10. M80    EQU    0FFFFH    ;SET TO 0 IF ASSEMBLING WITH ASM OR MAC
  11. ;
  12. FALSE    EQU    0
  13.     IF    NOT M80
  14. TRUE    EQU    0FFH
  15.     ENDIF    ;NOT M80
  16. ;
  17.     IF    M80
  18. TRUE    EQU    NOT FALSE
  19.     .8080    ;necessary for ALDS version
  20.     ENDIF    ;M80
  21. ;
  22. OVERLAY    EQU    FALSE    ;False if doing complete assembly, true if overlay
  23.             ;only. 
  24.  
  25.     IF    (NOT OVERLAY) AND (NOT M80)
  26.         +++INCOMPATIBLE ASSEMBLY SWITCHES+++
  27.         +++M80 MUST BE TRUE IF OVERLAY IS FALSE+++
  28.     ENDIF    ;NOT OVERLAY AND NOT M80
  29. ;
  30.     GLOBAL    CKOVLY
  31. ;
  32.  
  33. ;
  34.     IF    (NOT OVERLAY)
  35.     GLOBAL    ORIGIN
  36.     ASEG
  37.     ORG    0103H
  38.     .SFCOND        ;DON'T PRINT FALSE CONDITIONAL SOURCE
  39. ;
  40. ;    
  41. ORIGIN:
  42. JMP$START:    JMP    START    ;VECTOR FOR CKOVL EXIT
  43. JMP$ILPRT:    JMP    ILPRT    ;AND FOR ILPRINT
  44. ;
  45.     .printx +aplcat.asm+
  46.     ENDIF    ;not overlay
  47. ;
  48. MAJVER    EQU    9
  49. MINVER    EQU    9
  50. VERMONTH    EQU    5 
  51. VERDAY        EQU    25
  52. VERYEAR        EQU    85
  53. ;
  54. APLICARD    EQU     FALSE    ;TRUE ONLY IF YOU HAVE APPLICARD CPM
  55.                 ;MUST BE FALSE FOR MICROSOFT BOARD
  56. ;
  57. ;
  58. ;  
  59. CATSLOT    EQU    2    ;SLOT OF APPLE CAT
  60. SLOT    EQU    CATSLOT*16
  61. ;
  62. VERMSG    EQU    TRUE        ;CHANGE TO TRUE IF YOU HAVE GIVEN AT
  63.                 ;location SYSVER the name of the
  64.                 ;system for which MODEM9 has been
  65.                 ;configured.
  66. ;
  67. INIT    EQU    TRUE        ;CHANGE TO TRUE IF YOU ARE USING A
  68.                 ;routine at location INITMOD to
  69.                 ;initialize your modem port on MODEM9
  70.                 ;execution.
  71. ;
  72. SETUP    EQU    TRUE        ;CHANGE TO TRUE IF YOU ARE USING A
  73.                 ;routine at location SETUPR to change
  74.                 ;baud rate, etc.
  75.                 
  76. ;
  77. DISCON    EQU    TRUE        ;CHANGE TO TRUE IF YOU HAVE WRITTEN A
  78.                 ;routine at location DISCR to disconnect
  79.                 ;the modem from the telephone line.
  80. ;
  81. CRDT    EQU    TRUE        ;CHANGE TO TRUE IF YOU HAVE WRITTEN A
  82.                 ;routine at location DETCAR to give carrier
  83.                 ;detect status.
  84. ;
  85. EOSCLR    EQU    TRUE        ;change to TRUE if you have defined the
  86.                 ;clear to end of screen sequence for
  87.                 ;your terminal. Clear to end of screen is
  88.                 ;used on returning from terminal mode to
  89.                 ;keep the screen from becoming jumbled if
  90.                 ;the remote can positon your cursor.
  91. ;
  92. SCRNCLR    EQU    TRUE        ;change to TRUE if you have defined the
  93.                 ;home cursor and clear screen sequence
  94.                 ;for you terminal.
  95. ;
  96. CPM2X    EQU    TRUE    ;TRUE IF CP/M 2.X
  97. DBUFSIZ    EQU    8    ;BUFFER SIZE FOR FILE TRANSFER IN KBYTES
  98. ;
  99. ERRCRC    EQU    6    ;NUMBER OF TIMES TO TRY CRC MODE BEFORE
  100.             ;SWITCHING TO CHECKSUM
  101. ERRLIM    EQU    10    ;NUMBER OF TIMES TO RETRY
  102.             ;SEND/RECEIVE ERRORS BEFORE QUIT
  103. ;
  104. ;
  105. CRC       EQU   'C'         ;USED TO REQUEST 'CRC' INSTEAD OF 'CKSUM'
  106. ESC      EQU    '['-40H     ; ^[ = ESCAPE
  107. SOH       EQU   'A'-40H     ; ^A = START OF HEADER
  108. EOT       EQU   'D'-40H     ; ^D = END OF TEXT
  109. ACK       EQU   'F'-40H     ; ^F = ACKNOWLEDGE
  110. OKNMCH    EQU   'F'-40H     ; ^F = OKAY NAME MATCH
  111. BELL      EQU   'G'-40H     ; ^G = BELL CHARACTER
  112. BKSP      EQU    'H'-40H     ; ^H = BACKSPACE
  113. TAB      EQU    'I'-40H        ; ^I = TAB
  114. LF        EQU   'J'-40H     ; ^J = LINEFEED
  115. CR        EQU   'M'-40H     ; ^M = CARRIAGE RETURN
  116. XON       EQU   'Q'-40H     ; ^Q = XON CHARACTER
  117. XOFF      EQU   'S'-40H     ; ^S = XOFF CHARACTER
  118. NAK       EQU   'U'-40H     ; ^U = NOT ACKNOWLEDGE
  119. CAN       EQU   'X'-40H     ; ^X = CANCEL SEND/RECEIVE
  120. EOFCHAR   EQU   'Z'-40H     ; ^Z = END OF FILE
  121. SPACE      EQU    ' '        ; SPACE
  122. BDNMCH    EQU   75H         ; BAD NAME MATCH
  123. RUB      EQU    7FH        ; RUB
  124. ;
  125. ;
  126. ;    BDOS EQUATES
  127. ;
  128. RDCON    EQU    1
  129. WRCON    EQU    2
  130. LSTOUT    EQU    5
  131. PRINT    EQU    9
  132. RDBUF    EQU    10
  133. CONST    EQU    11
  134. RESET    EQU    13
  135. SELDSK    EQU    14
  136. OPEN    EQU    15
  137. CLOSE    EQU    16
  138. SRCHF    EQU    17
  139. SRCHN    EQU    18
  140. ERASE    EQU    19
  141. READ    EQU    20
  142. WRITE    EQU    21
  143. MAKE    EQU    22
  144. REN    EQU    23
  145. CURDSK    EQU    25
  146. STDMA    EQU    26
  147. GETALC    EQU    27        ;CP/M ALLOCATION VECTOR ADDRESS
  148. GETPARM    EQU    31        ;CURRENT DISK PARAMETERS ADDRESS
  149. USER    EQU    32
  150. FILSIZ    EQU    35
  151. BDOS    EQU    5
  152. REIPL    EQU    0
  153. FCB    EQU    5CH
  154. FCBEXT    EQU    FCB+12
  155. FCBSNO    EQU    FCB+32
  156. FCBRNO    EQU    FCB+32
  157. FCB2    EQU    6CH
  158. ;
  159. XMSPD    EQU    03CH        ;address used by bye/xmodem for mspeed
  160. ;
  161. ;
  162. ;
  163. ;START.ASM
  164. ;The user can make the following changes in this section:
  165. ;
  166. ;       a) Set the TRUE/FALSE statements in the lookup table which
  167. ;       begins with BAKUPBYTE and ends with EOFSEND
  168. ;       b) Change the control characters that are used for local commands,
  169. ;       this sequence starts with EXITCHR and ends with EXTCHR
  170. ;    c) Set STRGOK to TRUE and enter up to ten strings at location
  171. ;       STRINGS. These strings can be logon sequences or frequently
  172. ;       used commands that are sent to a remote computer
  173. ;
  174. ;
  175. STRGOK    EQU    TRUE        ;change to TRUE if you want to define
  176.                 ;strings, such as logon sequences, for
  177.                 ;transmission. Up to 10 strings may be
  178.                 ;entered at location STRINGS in this file.
  179. ;
  180. ;*** Don't change the ORG locations in this file ***
  181. ;*** These ORG statements provide standard locations ***
  182. ;*** for modification by overlay files or DDT. ***
  183. ;
  184.     IF    OVERLAY
  185. ;;this will be installed by l80 at link time 
  186.         ;JMP    CKOVLY    ;First make sure overlay and obj match
  187. ;
  188. ;
  189. JMP$START:    JMP    START    ;SPACE FOR JUMP TO START
  190. JMP$ILPRT:    JMP    ILPRT    ;Allows file to assemble as a stand-alone
  191.     ENDIF    ;overlay
  192. ;
  193. BAKUPBYTE:    DB    FALSE    ;true=make .BAK file
  194. CKSUMDFLT:    DB    FALSE    ;true=default to Checksum checking
  195.                 ;false=default to CRC checking
  196. TOGLCRC:    DB    TRUE    ;true=allow toggling of Checksum to CRC
  197. CONVBKSP:    DB    FALSE    ;true=convert backspace to rub
  198. TOGLBK:    DB    TRUE    ;true=allow toggling of bksp to rub
  199. ADDLF:        DB    FALSE    ;true=add LF after CR
  200. TOGLLF:    DB    TRUE    ;true=allow toggling of LF after CR
  201. STRLF:        DB    TRUE    ;true=strip LF after CR in terminal file output
  202. TOGSLF:        DB    TRUE    ;true=toggle strip LF after CR in file output
  203. SAVCCP:        DB    TRUE    ;TRUE=DO NOT OVERWRITE CCP
  204. LOCONEXTCHR:    DB    FALSE    ;true=local command if EXTCHR precedes
  205.                 ;false=not local command if EXTCHR precedes
  206. TOGLLOC:    DB    TRUE    ;true=allow toggling of LOCONEXTCHR
  207. LSTTST:        DB    TRUE    ;TRUE=ALLOW TOGGLING OF PRINTER ON/OFF
  208.                 ;in terminal mode. Set to false if your
  209.                 ;printer can't keep up with the modem
  210.  
  211. ;***** WARNING *****
  212. ;The three mode bytes XOFFTXT, XONWAIT, and ECHWAIT are mutually exclusive
  213. ; modes.  Do NOT attempt to set more than one of them at a time, as very
  214. ; unpredictable results will ensue.
  215.  
  216. XOFFTST:    DB    TRUE    ;TRUE=ALLOW TESTING OF XOFF FROM REMOTE
  217.                 ;while transmitting a file in terminal mode
  218. XONWAIT:    DB    FALSE    ;true=wait for XON after sending CR while
  219.                 ;transmitting a file in terminal mode
  220. TOGXOFF:    DB    TRUE    ;true=allow toggling of XOFF/XON testing
  221. ECHWAIT:    DB    FALSE    ;true=wait for echo before sending next
  222.                 ;character in terminal mode file output
  223. EOFSEND:    DB    FALSE    ;true=send eof in terminal mode file output
  224. NAKONLY:    DB    TRUE    ;true=resends a record only after a valid NAK
  225.                 ;false=resends a record after any non-ACK
  226.                 ;true is intended only for use with mainframes
  227.                 ;that send, for example, xoff when buffer is
  228.                 ;full
  229. ;
  230. SETUPTST:    DB    SETUP
  231. SCRNTEST:    DB    SCRNCLR
  232. TRANLOGON:    DB    STRGOK
  233. DISCFLG:    DB    DISCON
  234. CRDTFLG:    DB    CRDT
  235. CLOCK:        DB    CLKRATE
  236. ;
  237. MSPEED:        DB    1    ;sets the display time to send a file
  238.                 ;0=110 1=300 2=450 3=600 4=710
  239.                 ;5=1200 6=2400 7=4800 8=9600
  240. BYTDLY:        DB    0    ;default time to send character in
  241.                 ;terminal mode file transfer
  242.                 ;0=0 delay, 1=0.02 sec, -- ,9=0.18 sec
  243. CRDLY:        DB    0    ;default time for extra wait after CR
  244.                 ;in terminal mode file transfer
  245.                 ;0=0 delay, 1=0.02 sec, -- ,9=0.18 sec
  246. BELRPT:        DB    30    ;bell repeat time = value*0.03 sec
  247. NOOFCOL:    DB    5    ;number of directory columns
  248. DIALSW:        DB    0    ;DIALER DEFAULT MODE
  249.                 ;0=TOUCHTONE, 1=PULSE
  250. IDGT:        DB    10H    ;interdigit delay value for touch tone dialer
  251.                 ;increase if your exchange needs slower dialing
  252.                 ;should be 10H minimum
  253. BYESAV:        DB    TRUE    ;True saves mspeed in 03CH so that xmodem
  254.                 ;can be used after
  255. CTLTRP:        DB    TRUE    ;True terminal mode traps control characters
  256.                 ;(except tab,cr,lf,bs,rub) before sending to console
  257. ;
  258. ;
  259. EXITCHR:    DB    'E'-40H    ; ^E = Exit without disconnect
  260. LOGCHR:        DB    'O'-40H    ; ^O = Send logon
  261. LSTCHR:        DB    'Z'-40H    ; CHANGED DUE TO MAINFRAMES USING CTL P FOR A 'BREAK'
  262. UNSAVECHR:    DB    'R'-40H    ; ^R = Close input text buffer
  263. TRANCHR:    DB    'T'-40H ; ^T = Transmit file to remote
  264. SAVECHR:    DB    'Y'-40H    ; ^Y = Open input text buffer
  265. EXTCHR:        DB    '^'-40H    ; ^^ = Send next character
  266. ;
  267.         ;org    140H
  268. ;
  269. CLREOS:        CALL    JMP$ILPRT
  270. ;
  271.     IF    EOSCLR
  272.         DB    CLR1,CLR2,CLR3,CLR4,0
  273.     ENDIF    ;EOSCLR
  274. ;
  275.     IF    NOT EOSCLR
  276.         DB    0,0,0,0,0
  277.     ENDIF    ;NOT EOSCLR
  278. ;
  279.         RET
  280. ;
  281.         DS    CLREOS-$+16
  282. ;
  283. CLRSCRN:    CALL    JMP$ILPRT
  284. ;
  285.     IF    SCRNCLR
  286.         DB    SCLR1,SCLR2,SCLR3,SCLR4,0
  287.     ENDIF    ;SCRNCLR
  288. ;
  289.     IF    NOT    SCRNCLR
  290.         DB    0,0,0,0,0
  291.     ENDIF    ;NOT SCRNCLR
  292. ;
  293.         RET
  294. ;
  295.     ORG    150H
  296.         .list
  297. ;
  298. ;ALL STRINGS MUST BE 31 CHARACTERS OR LESS AND MUST BE TERMINATED WITH 0
  299. ;
  300. STRINGS:
  301.     DB    'STRING #0 AT 150H',0
  302.     DS    STRINGS-$+32*1
  303.     DB    'STRING #1 AT 170H',0
  304.     DS    STRINGS-$+32*2
  305.     DB    'STRING #2 AT 190H',0
  306.     DS    STRINGS-$+32*3
  307.     DB    'STRING #3 AT 1B0H',0
  308.     DS    STRINGS-$+32*4
  309.     DB    'STRING #4 AT 1D0H',0
  310.     DS    STRINGS-$+32*5
  311.     DB    'STRING #5 AT 1F0H',0
  312.     DS    STRINGS-$+32*6
  313.     DB    'STRING #6 AT 210H',0
  314.     DS    STRINGS-$+32*7
  315.     DB    'STRING #7 AT 230H',0
  316.     DS    STRINGS-$+32*8
  317.     DB    'STRING #8 AT 250H',0
  318.     DS    STRINGS-$+32*9
  319.     DB    'STRING #9 AT 270H',0
  320.     DS    STRINGS-$+32*10
  321. ;
  322. ;
  323. ;
  324. ;PHONE NUMBER LIBRARY TABLE.
  325. ;
  326. ;EACH DB MUST BE 32 CHARACTERS LONG FOR PROPER OPERATION.
  327. ;LAST DB MUST BE DB 0. UP TO 26 NUMBERS ARE ALLOWED.
  328. ;
  329. NUMBLIB:
  330. ;    '----5---10---15---20---25-----32'
  331. DB    'A=AMRAD           1-703-734-1387'    ;'A'
  332. DB    'B=ROCHESTER RBBS  1-716-425-1785'    ;'B'
  333. DB    'C=CBBS PASADENA   1-818-799-1632'    ;'C'
  334. DB    'D=NOVATION        1-818-881-6880'    ;'D'
  335. DB    'E=TECH. CBBS      1-313-846-6127'    ;'E'
  336. DB    'F=RON FOWLER     1-313-729-1905R'    ;'F'
  337. DB    'G=GASNET NASA     1-301-344-9156'    ;'G'
  338. DB    'H=DAVE HARDY      1-313-846-6127'    ;'H'
  339. DB    'I=WAYNE HAMMERLY  1-301-953-3753'    ;'I'
  340. DB    'J=RBBS PASADENA   1-818-356-1034'    ;'J'
  341. DB    'K=TIM LINEHAN     1-206-357-7400'    ;'K'
  342. DB    'L=PROGRAM STORE   1-202-337-4694'    ;'L'
  343. DB    'M=KELLY SMITH     1-805-527-9321'    ;'M'
  344. DB    'N=SUPERBRAIN SYS  1-617-862-0781'    ;'N'
  345. DB    'O=R.L.PLOUFFE     1-703-524-2549'    ;'O'
  346. DB    'P=K.PETERSEN      <313-759-6569>'    ;'P'
  347. DB    'Q=BRUCE RATOFF    1-201-272-1874'    ;'Q'
  348. DB    'R=MARK PULVER     1-312-789-0499'    ;'R'
  349. DB    'S=LA CANADA RBBS  1-818-790-3014'    ;'S'
  350. DB    'T=                              '    ;'T'
  351. DB    'U=                              '    ;'U'
  352. DB    'V=                              '    ;'V'
  353. DB    'W=                              '    ;'W'
  354. DB    'X=                              '    ;'X'
  355. DB    'Y=                              '    ;'Y'
  356. DB    'Z=                              '    ;'Z'
  357. ;
  358. ;
  359. ALDS1:
  360. DB    '<=                              '    ;'<' 
  361. ALDS2:
  362. DB    '>=                              '    ;'>' 
  363. DB    0                    ; END ALDS
  364. ;    '----5---10---15---20---25-----32'
  365.  
  366. ;
  367.     IF    NOT    APLICARD
  368. ;
  369. INCTLP:    LDA    STATUS
  370.         RET
  371.         DS    INCTLP-$+16  ;extra space
  372. OUTDATP:    STA    OUTDAT
  373.         RET
  374.         DS    OUTDATP-$+16 ;EXTRA SPACE
  375. ;
  376.     ENDIF    ;NOT APLICARD
  377. ;
  378. ;
  379.     IF    APLICARD
  380. ;
  381. INCTLP:    PUSH    D
  382.         LXI    D,STATUS
  383.         CALL    PEEK
  384.         POP    D
  385.         RET
  386.     DS    INCTLP-$+16 ;EXTRA SPACE
  387. ;
  388. OUTDATP:
  389.         PUSH    D
  390.         LXI    D,OUTDAT
  391.         CALL    POKE
  392.         POP    D
  393.         RET
  394.         DS    OUTDATP-$+16
  395. ;
  396.     ENDIF    ;APLICARD                        
  397. ;
  398. INDATP:
  399. ;
  400.     IF    NOT APLICARD
  401. ;
  402.         LDA    INDAT        ;IN MODEM DATA PORT
  403.         PUSH    PSW
  404.         LDA    XMTRAM
  405.         STA    XMTBYT
  406.         POP    PSW
  407.         RET
  408. ;
  409.     ENDIF    ;NOT APLICARD
  410. ;
  411.     IF    APLICARD
  412. ;
  413.         PUSH    D
  414.         LXI    D,INDAT
  415.         CALL    PEEK
  416.         PUSH    PSW
  417.         CALL    SXMTBYT
  418.         POP    PSW
  419.         POP    D
  420.         RET
  421. ;
  422.     ENDIF    ;APLICARD
  423. ;
  424.                     
  425.         DS    INDATP-$+16  ;extra space
  426. ;
  427. ANISNDB:    ANI    MODSNDB
  428.         RET            ;BIT TO TEST FOR SEND READY
  429.         DS    ANISNDB-$+16 ;extra space
  430. CPISNDR:    CPI    MODSNDR        ;VALUE OF SEND BIT WHEN READY
  431.         RET
  432.         DS    CPISNDR-$+16 ;extra space
  433. ANIRCVB:    ANI    MODRCVB        ;BIT TO TEST FOR RECEIVE READY
  434.         RET
  435.         DS    ANIRCVB-$+16 ;extra space
  436. CPIRCVR:    CPI    MODRCVR        ;VALUE OF RECEIVE BIT WHEN READY
  437.         RET
  438.         DS    CPIRCVR-$+16 ;extra space
  439. ;
  440. VERNUM:        CALL    JMP$ILPRT
  441.     DB    CR,LF,'MODEM '
  442.     DB    MAJVER+'0'
  443.     DB    '.'
  444.     DB    MINVER   / 10 + '0', MINVER   MOD 10 + '0'
  445.     DB    ' - '
  446.     DB    VERMONTH / 10 + '0', VERMONTH MOD 10 + '0', '/'
  447.     DB    VERDAY   / 10 + '0', VERDAY   MOD 10 + '0', '/'
  448.     DB    VERYEAR  / 10 + '0', VERYEAR  MOD 10 + '0'
  449.     DB    CR,LF,0
  450.     JMP    SYSVER
  451. ;
  452. ;
  453. SYSVER:
  454.     IF    NOT VERMSG
  455.     CALL    JMP$ILPRT
  456.     DB    'Version for: Apple-Cat in slot ',CATSLOT+30H,CR,LF,0
  457.             ;NOTE: 0 MUST BE AT END OF ALL ILPRT MESSAGES
  458.     RET
  459.     ENDIF    ;NOT VERMSG
  460. ;
  461. ;This is where the message goes giving the system for
  462. ;which MODEM9 has been customized.
  463. ;
  464.     IF     VERMSG AND APLICARD
  465.     CALL    JMP$ILPRT
  466.     DB    'Version for: Apple-Cat in slot ',CATSLOT+'0'
  467.     DB    ' and PCPI CP/M',CR,LF,0
  468.     RET
  469.     ENDIF    ;VERMSG AND APLICARD
  470. ;
  471.     IF    VERMSG AND NOT APLICARD
  472.     CALL    JMP$ILPRT
  473.     DB    'Version for: Apple-Cat in slot ',CATSLOT+'0'
  474.     DB    ' and SOFTCARD CP/M',CR,LF,0
  475.     RET
  476.     ENDIF    ;VERMSG AND APLICARD
  477. ;
  478. ;
  479. ;
  480. ;
  481. ;NOVATION APPLE-CAT EQUATES START HERE
  482. ;
  483. ;
  484.     IF    NOT APLICARD 
  485. ;
  486. COM    EQU    0E08CH+SLOT
  487. XMTBYT    EQU    0E08DH+SLOT
  488. CON    EQU    0E08AH+SLOT
  489. BSRBYT    EQU    0E083H+SLOT
  490. SHBYT    EQU    0E082H+SLOT
  491. TONBYT    EQU    0E081H+SLOT
  492. SQUBYT    EQU    0E081H+SLOT
  493. SWBYT    EQU    0E080H+SLOT
  494. RECBYT    EQU    0E089H+SLOT
  495. INDAT    EQU    0E08BH+SLOT
  496. OUTDAT    EQU    0E08EH+SLOT
  497. SPDBYT    EQU    0E08BH+SLOT
  498. STATUS    EQU    0E08FH+SLOT
  499. ACBYT    EQU    0E08DH+SLOT
  500. DEVBYT    EQU    0E08FH+SLOT
  501. DACBYT    EQU    0E080H+SLOT
  502. ;
  503. ;
  504.     ENDIF    ;NOT APLICARD
  505. ;
  506.     IF    APLICARD
  507. ;
  508. COM    EQU    0C08CH+SLOT
  509. XMTBYT    EQU    0C08DH+SLOT
  510. CON    EQU    0C08AH+SLOT
  511. BSRBYT    EQU    0C083H+SLOT
  512. SHBYT    EQU    0C082H+SLOT
  513. TONBYT    EQU    0C081H+SLOT
  514. SQUBYT    EQU    0C081H+SLOT
  515. SWBYT    EQU    0C080H+SLOT
  516. RECBYT    EQU    0C089H+SLOT
  517. INDAT    EQU    0C08BH+SLOT
  518. OUTDAT    EQU    0C08EH+SLOT
  519. SPDBYT    EQU    0C08BH+SLOT
  520. STATUS    EQU    0C08FH+SLOT
  521. ACBYT    EQU    0C08DH+SLOT
  522. DEVBYT    EQU    0C08FH+SLOT
  523. DACBYT    EQU    0C080H+SLOT
  524. ;
  525.     ENDIF    ;APLICARD
  526. ;    
  527. MODSNDB    EQU    00010000B    ;READY TO SEND
  528. MODSNDR    EQU    MODSNDB        ;change to 0 if bit is 0 when
  529.                 ;ready to send
  530. MODRCVB    EQU    00001000B    ;RECEIVE READY including framing/overrun
  531. MODRCVR    EQU    00001000B    ;change to 0 if bit is 0 when
  532.                 ;data received
  533.  
  534. ;
  535. ;
  536.     IF    NOT APLICARD
  537. CLKRATE    EQU    2        ;CLOCK SPEED IN MHZ, 8 MHZ MAXIMUM
  538.     ENDIF    ;not aplicard
  539. ;
  540.     IF    APLICARD    ;NOTE: DO NOT CHANGE RATE TO 6MHZ
  541. CLKRATE    EQU    1        ;FOR APLICARD: EXTRA PROCESSING OVERHEAD
  542.     ENDIF    ;aplicard    ;OF PCPI PEEK/POKE ROUTINES MORE THAN
  543.                 ;COMPENSATES FOR THIS
  544. ;
  545.     IF    EOSCLR
  546. CLR1    EQU    ESC        ;ESC Y is the Apple clear to end
  547. CLR2    EQU    'Y'        ;OF SCREEN SEQUENCE
  548. CLR3    EQU    0        ;the unused bytes MUST be 0
  549. CLR4    EQU    0
  550.     ENDIF    ;EOSCLR
  551. ;
  552. ;CHANGE SCLR1, SCLR2, SCLR3, AND SCLR4 TO THE APPROPRIATE VALUES FOR
  553. ;YOUR TERMINAL IF YOU DO NOT HAVE STANDARD APPLE CALLS
  554.     IF    SCRNCLR
  555. SCLR1    EQU    ESC        ;ESC * is the Apple home cursor
  556. SCLR2    EQU    '*'        ;AND CLEAR SCREEN SEQUENCE
  557. SCLR3    EQU    0        ;the unused bytes MUST be 0
  558. SCLR4    EQU    0
  559.     ENDIF    ;SCRNCLR
  560. ;
  561.  
  562. ;
  563. ;
  564.     IF    INIT
  565. ;
  566. INITMOD:
  567.     JMP    AINITMOD
  568. ;
  569.     ENDIF
  570. ;
  571.  
  572. ;
  573. INIT3:        
  574.         MVI    A,1
  575.         STA    MSPEED
  576.         CALL    XMCK
  577.         LDA    REFLG
  578.         ORA    A
  579.         RNZ
  580.         CALL    PICKUP    ;PICK UP PHONE
  581.         MVI    A,0A1H
  582. ;
  583.         IF    NOT APLICARD
  584. ;
  585.         STA    RECBYT    ;SET RECEIVER FOR 103
  586.         MVI    A,00000011B    ;8 DATA NO PARITY 1 STOP
  587.         STA    CON
  588.         MVI    A,22H    ;SET UART TO 300 BAUD
  589.         STA    SPDBYT
  590. ;
  591.         ENDIF    ;NOT APLICARD
  592. ;
  593.         IF    APLICARD
  594. ;
  595.         PUSH    D
  596.         LXI    D,RECBYT
  597.         CALL    POKE
  598.         MVI    A,00000011B    ;8DATA NO PAR 1 STOP
  599.         LXI    D,CON
  600.         CALL    POKE
  601.         MVI    A,22H
  602.         LXI    D,SPDBYT
  603.         CALL    POKE
  604.         POP    D
  605. ;
  606.         ENDIF    ;APLICARD
  607. ;
  608.  
  609.         MVI    A,0FFH
  610.         STA    SETFLG
  611.         RET
  612. ;
  613. ORIG103:    
  614.         MVI    A,11H
  615. ;
  616.         IF    NOT APLICARD
  617. ;
  618.         STA    XMTBYT
  619.         STA    XMTRAM
  620.                 ;103 ORIG RING IRQ OFF
  621.         MVI    A,65H
  622.         STA    RECBYT
  623. ;
  624.         ENDIF    ;NOT APLICARD
  625. ;
  626.         IF    APLICARD
  627. ;
  628.         STA    XMTRAM
  629.         PUSH    D
  630.         LXI    D,XMTBYT
  631.         CALL    POKE
  632.         POP    D
  633. ;
  634.         ENDIF    ;APLICARD
  635. ;
  636.         RET
  637. ;
  638. ANS103:        
  639.         MVI    A,10H
  640. ;
  641.         IF    NOT APLICARD
  642. ;
  643.         STA    XMTBYT
  644.         STA    XMTRAM
  645.         MVI    A,64H
  646.         STA    RECBYT
  647. ;
  648.         ENDIF    ;NOT APLICARD
  649. ;
  650.         IF    APLICARD
  651. ;
  652.         STA    XMTRAM
  653.         PUSH    D
  654.         LXI    D,XMTBYT
  655.         CALL    POKE
  656.         MVI    A,64H
  657.         LXI    D,RECBYT
  658.         CALL    POKE
  659.         POP    D
  660. ;
  661.         ENDIF    ;APLICARD
  662. ;                                    
  663.         RET
  664. ;
  665. INIT2:        
  666.         MVI    A,5
  667.         STA    MSPEED
  668.         CALL    XMCK
  669.         MVI    A,18H
  670.         STA    XMTRAM        ;for re-entrance
  671.         LDA    REFLG
  672.         ORA    A
  673.         RNZ            ;return if re entrant
  674.         MVI    A,0FFH
  675.         STA    SETFLG
  676.         CALL     PICKUP
  677.         MVI    A,0
  678. ;
  679.         IF    NOT APLICARD
  680. ;
  681.         STA    SPDBYT
  682.         MVI    A,18H
  683.         STA    XMTBYT
  684.         MVI    A,0AH
  685.         STA    DEVBYT
  686.         MVI    A,13H
  687.         STA    CON
  688.         MVI    A,05H
  689.         STA    COM
  690.         STA    MSPEED
  691.         CALL    XMCK
  692.         MVI    A,0FFH
  693.         STA    SETFLG
  694. ;
  695.         ENDIF    ;NOT APLICARD
  696. ;
  697.         IF    APLICARD
  698. ;
  699.         PUSH    D
  700.         LXI    D,SPDBYT
  701.         CALL    POKE
  702.         MVI    A,18H
  703.         LXI    D,XMTBYT
  704.         CALL    POKE
  705.         MVI    A,0AH
  706.         LXI    D,DEVBYT
  707.         CALL    POKE
  708.         MVI    A,13H
  709.         LXI    D,CON
  710.         CALL    POKE
  711.         MVI    A,05H
  712.         LXI    D,COM
  713.         CALL    POKE
  714.         POP    D
  715. ;
  716.  
  717. ;
  718.         ENDIF    ;APLICARD
  719. ;
  720.         RET
  721. ;
  722. ORIG212:    
  723.         LDA    REFLG
  724.         ORA    A
  725.         RNZ
  726.         MVI    A,0A1H
  727. ;
  728.         IF    NOT APLICARD
  729. ;
  730.         STA    SQUBYT
  731.         CALL    DELAY5
  732.         MVI    A,21H
  733.         STA    SQUBYT
  734. ;
  735.         ENDIF    ;NOT APLICARD
  736. ;
  737.         IF    APLICARD
  738. ;
  739.         PUSH    D
  740.         LXI    D,SQUBYT
  741.         CALL    POKE
  742.         CALL    DELAY5
  743.         MVI    A,21H
  744.         LXI    D,SQUBYT
  745.         CALL    POKE
  746.         POP    D
  747. ;
  748.         ENDIF    ;APLICARD
  749. ;
  750.         RET
  751. ;
  752. ANS212:        
  753.         LDA    REFLG
  754.         ORA    A
  755.         RNZ
  756.         MVI    A,81H
  757. ;
  758.         IF    NOT APLICARD
  759. ; 
  760.         STA    SQUBYT
  761.         CALL    DELAY5
  762.         MVI    A,01
  763.         STA    SQUBYT
  764. ;
  765.         ENDIF    ;NOT APLICARD
  766. ;
  767.         IF    APLICARD
  768.         PUSH    D
  769.         LXI    D,SQUBYT
  770.         CALL    POKE
  771.         CALL    DELAY5
  772.         MVI    A,01
  773.         LXI    D,SQUBYT
  774.         CALL    POKE
  775.         POP    D
  776. ;
  777.         ENDIF    ;APLICARD
  778. ;
  779.         RET
  780. ;
  781. SETORIG:
  782.             MVI       A,0FFH
  783.         STA    SETFLG
  784.         LDA    MSPEED
  785.         CPI    1
  786.         JZ    ORIG103
  787.         JMP    ORIG212    ;SELECT 212 OR 103
  788. ;
  789. SETANS:
  790.         MVI    A,0FFH
  791.         STA    SETFLG    ;SHOW MODEM IS SET
  792.             LDA    MSPEED
  793.         CPI    1
  794.         JZ    ANS103
  795.         JMP    ANS212
  796. ;
  797. PICKUP:        
  798.         MVI    A,0A1H
  799. ;
  800.         IF    NOT APLICARD
  801. ;
  802.         STA    SQUBYT
  803. ;
  804.         ENDIF    ;NOT APLICARD
  805. ;
  806.         IF    APLICARD
  807. ; 
  808.         PUSH    D
  809.         LXI    D,SQUBYT
  810.         CALL    POKE
  811.         POP    D
  812. ;
  813.         ENDIF    ;APLICARD
  814. ;
  815.         MVI    A,'T'    ;FORCE TERMINAL MODE AFTER INIT
  816.         STA    5DH
  817.         MVI    A,0
  818.         STA    80H    ;AND RESET COMMAND TAIL LENGTH
  819.                 ;IN CASE MAIN CALLS US AGAIN
  820.         MVI    A,2
  821. ;
  822.         IF    NOT APLICARD
  823. ;
  824.         STA    SHBYT
  825.         MVI    A,13H
  826.         STA    CON
  827.         MVI    A,05H
  828.         STA    COM
  829.         MVI    A,0
  830.         STA    DEVBYT
  831. ;
  832.         ENDIF    ;NOT APLICARD
  833. ;
  834.         IF    APLICARD
  835. ;
  836.         PUSH    D
  837.         LXI    D,SHBYT
  838.         CALL    POKE
  839.         MVI    A,13H
  840.         LXI    D,CON
  841.         CALL    POKE
  842.         MVI    A,05H
  843.         LXI    D,COM
  844.         CALL    POKE
  845.         MVI    A,0
  846.         LXI    D,DEVBYT
  847.         CALL    POKE
  848.         POP    D    
  849. ;
  850.         ENDIF    ;APLICARD
  851. ;
  852.         RET
  853. ;
  854. DELAY5:        PUSH    PSW
  855.         PUSH     B    ;THIS IS A 5-10 MS HARDWARE DELAY
  856.         LXI    B,1000    ;FOR SETTING UP 212 BOARD
  857. DELAY5A:    DCX    B
  858.         MOV    A,B
  859.         ORA    C
  860.         JNZ    DELAY5A
  861.         POP    B
  862.         POP    PSW
  863.         RET
  864. ;
  865. D500:                    ;500 ms delay
  866.         MVI    A,100        ;100 5ms delays
  867. D500A:        DCR    A
  868.         RZ
  869.         CALL    DELAY5
  870.         JMP    D500A
  871. ;
  872.         IF    (INIT AND SETUP)
  873. ;
  874. SETUPR:
  875.         LDA    SETFLG        ;DONE THIS RECENTLY?
  876.         XRA    A        ;IF SO
  877.         RNZ            ;RETURN
  878.         MVI    A,0FFH
  879.         STA    SETFLG
  880.         STA    INFLAG
  881.         CALL    JMP$ILPRT
  882.         DB    'Enter ''3'' for 300 baud, ''2'' for 1200 baud, '
  883.         DB    'or ''V'' for voice mode: '
  884.         DB    0
  885.         MVI    C,1
  886.         CALL    BDOS
  887.         PUSH    PSW
  888.         CALL    JMP$ILPRT
  889.         DB    CR,LF,0
  890.         POP    PSW
  891.         PUSH     PSW
  892.         ANI    01011111B    ;FORCE UPPER CASE ETC
  893.         CPI    'V'
  894.         JZ    SETVOICE
  895.         POP    PSW
  896.         SUI    30H        ;ZAP ASCII BIAS
  897.         CPI    3
  898.         JNZ    CK2A
  899.         CALL    INIT3
  900.         JMP    SETUPR1
  901. ;
  902. CK2A:        CPI    2
  903.         JNZ    NOT2
  904.         CALL    INIT2
  905.         JMP    SETUPR1
  906. ;
  907. NOT2:        CALL    JMP$ILPRT
  908.         DB    07h,'Invalid: must be ','2',' or ','3'
  909.         DB    cr,lf,0
  910.         JMP    SETUPR
  911. ;
  912. SETUPR1:
  913.         CALL    JMP$ILPRT
  914.         DB    'ENTER ''O'' for Originate, or ''A'' for Answer ',0
  915.         MVI    C,1
  916.         CALL    BDOS
  917.         PUSH    PSW
  918.         CALL    JMP$ILPRT    ;TURN UP NEW LINE
  919.         DB    CR,LF,0
  920.         POP    PSW
  921.         ANI    01011111B    ;FORCE UPPER CASE HI BIT OFF
  922.         CPI    'O'
  923.         JZ    SETORIG
  924.         CPI    'A'
  925.         JZ    SETANS
  926.         CALL    JMP$ILPRT
  927.         DB    07h,'INVALID: Must be ','O',' or ','A'
  928.         DB    cr,lf,0
  929.         JMP    SETUPR1
  930. ;
  931. SETVOICE:
  932.         POP    PSW    ;RESTORE STACK FROM SETUPR
  933.         MVI    A,2
  934.         ENDIF    ;INIT AND SETUP
  935. ;
  936.         IF    (INIT AND SETUP) AND (NOT APLICARD)
  937. ; 
  938.         STA    SHBYT
  939.         MVI    A,18H    ;TURN OFF 103 XMTR
  940.         STA    XMTBYT
  941.         STA    XMTRAM
  942.         MVI    A,0A2H    ;DISABLE 212 AND TURN ON HANDSET
  943.         STA    SQUBYT
  944.         MVI    A,0
  945.         STA    SETFLG
  946. ;
  947.         ENDIF    ;INIT AND SETUP AND NOT APLICARD
  948. ;
  949.         IF    (INIT AND SETUP) AND APLICARD
  950. ;
  951.         PUSH    D
  952.         LXI    D,SHBYT
  953.         CALL    POKE
  954.         MVI    A,18H
  955.         STA    XMTRAM
  956.         LXI    D,XMTBYT
  957.         CALL    POKE
  958.         MVI    A,0A2H
  959.         LXI    D,SQUBYT
  960.         CALL    POKE
  961.         POP    D
  962. ;
  963.         ENDIF    ;INIT AND SETUP AND APLICARD
  964. ;
  965.         IF    (INIT AND SETUP)
  966.         MVI    A,0
  967.         STA    SETFLG
  968.         RET
  969.         ENDIF    ;INIT AND SETUP
  970. ;
  971. ;THESE ARE THE PCPI ROUTINES FOR PASSING
  972. ;PARAMATERS TO THE APPLE CAT
  973. ;
  974.     IF    APLICARD
  975. ;
  976. RDBYTE    EQU    0FFE0H    ;READ A BYTE FROM APPLE (A=BYTE)
  977. WRBYTE    EQU    0FFE3H    ;WRITE A BYTE TO APPLE (C=BYTE)
  978. RDWORD    EQU    0FFE6H    ;READ 2 BYTES FROM APPLE (DE=BYTES)
  979. WRWORD    EQU    0FFE9H    ;WRITE 2 BYTES TO APPLE (DE=BYTES)
  980. RDNBYTS    EQU    0FFEFH    ;READ N BYTES (DE=COUNT, HL=BUFFER)
  981. WRNBYTS    EQU    0FFEFH    ;WRITE N BYTES (DE=COUNT,HL=BUFFER)
  982. ;
  983. PEEK1BYTE    EQU    6    ;COMMAND TO PEEK 1 BYTE IN THE APPLE
  984. POKE1BYTE    EQU    7    ;COMMAND TO POKE 1 BYTE IN THE APPLE
  985. ;
  986. ;
  987. PEEK:
  988.     PUSH    B    ;SAVE B REG
  989.     MVI    C,PEEK1BYTE
  990.     CALL    WRBYTE    ;WRBYTE=0FFE3H
  991.     CALL    WRWORD    ;WRWORD=FFE6H
  992.     CALL    RDBYTE    ;RDBYTE=OFFEOH
  993.     POP    B    ;RESTORE B
  994.     RET
  995. ;
  996. POKE:
  997. ;
  998.     PUSH    PSW    ;SAVE A
  999.     PUSH    B    ;SAVE B
  1000.     MOV    B,A
  1001.     MVI    C,POKE1BYTE
  1002.     CALL    WRBYTE
  1003.     CALL    WRWORD
  1004.     MOV    C,B
  1005.     CALL    WRBYTE
  1006.     POP    B
  1007.     POP    PSW
  1008.     RET
  1009. ;
  1010. SXMTBYT:
  1011.     PUSH    D        ;READ XMTRAM AND POKE INTO XMTBYT
  1012.     LDA    XMTRAM
  1013.     LXI    D,XMTBYT
  1014.     CALL    POKE
  1015.     POP    D
  1016.     RET
  1017. ;
  1018. SXMTRAM:
  1019.     PUSH    D        ;POKE BYTE IN A INTO XMTRAM AND XMTBYT
  1020.     STA    XMTRAM
  1021.     LXI    D,XMTBYT
  1022.     CALL    POKE
  1023.     POP    D
  1024.     RET
  1025. ;
  1026.     ENDIF        ;APLICARD
  1027. ;
  1028. AINITMOD:         ;MOVED HERE TO MAKE ROOM FOR APLICARD STUFF
  1029.     MVI    A,SLOT
  1030.     STA    DIALSLOT    ;for dialer
  1031.     CALL    FIXMT        ;in case we are re-entrant
  1032.     LDA    INFLAG
  1033.     CPI    0FFH
  1034.     JZ    DETCAR
  1035.     MVI    A,0FFH
  1036.     STA    INFLAG    ;MAKE SURE WE ONLY DO THIS ONCE
  1037.     LDA    REFLG
  1038.     ORA    A
  1039.     CNZ    SETUPR    ;if re entrant
  1040.     LDA    REFLG
  1041.     ORA    A
  1042.     RNZ
  1043.     XRA    A
  1044.     STA    REFLG
  1045.  
  1046.     
  1047. ;
  1048.     IF    NOT APLICARD
  1049. ;
  1050.     MVI     A,6
  1051.     STA    BSRBYT    ;DISABLE BSR IRQ
  1052.     MVI    A,4
  1053.     STA    COM
  1054.     LDA    XMTRAM
  1055.     ORI    00010000B    ;SET RING IRQ BIT
  1056.     STA    XMTBYT        ;DISABLE RING IRQ
  1057.     STA    XMTRAM
  1058. ;
  1059.     MVI    A,SLOT        ;PUT CATSLOT*16 IN 6502 FF
  1060. ;
  1061. ;
  1062.     STA    0F0FFH        ;FOR DIALING ROUTINES
  1063. ;
  1064.     ENDIF    ;NOT APLICARD
  1065. ; 
  1066.     IF    APLICARD
  1067. ;
  1068.     PUSH    D
  1069.     MVI    A,6
  1070.     LXI    D,BSRBYT
  1071.     CALL    POKE
  1072.     MVI    A,4
  1073.     LXI    D,COM
  1074.     CALL    POKE
  1075.     CALL    SXMTBYT
  1076.     ORI    00010000B
  1077.     CALL    SXMTRAM
  1078.     POP    D
  1079. ;
  1080.  
  1081.     ENDIF    ;APLICARD
  1082. ;
  1083. ;CHECK IF PRINT ENABLED. IF SO, PATCH LSTST IN APPLE BIOS
  1084. ;SO ITS ALWAYS 'READY'
  1085. ;
  1086. ;
  1087.     IF    NOT APLICARD
  1088.     LDA    LSTTST
  1089.     CPI    0
  1090.     JZ    FIRSTIN    ;NOT PRINTING SO SKIP PATCHING
  1091.     LHLD    0001    ;GET START OF BIOS TABLE
  1092.     MOV    A,L
  1093.     ADI    02AH    ;GET IT TO POINT TO BIOS 14 VECTOR
  1094.     MOV    L,A
  1095.     MVI    A,03EH
  1096.     MOV    M,A
  1097.     INR    L
  1098.     MVI    A,0FFH    ;INSTALL MVI A,FF RET
  1099.     MOV    M,A
  1100.     INR    L
  1101.     MVI    A,0C9H
  1102.     MOV    M,A
  1103.     ENDIF    ;NOT APLICARD
  1104. ;
  1105. ;NOW BEGINS THE ACTUAL MODEM INITIALIZATION
  1106. ;
  1107. FIRSTIN:    LDA    80H
  1108.         CPI    0
  1109.                 ;CHECK FOR BAUD CODE IN COMMAND TAIL
  1110.         JZ    DISCR      ;IF NOTHING THERE, HANG UP THE PHONE
  1111.         MVI    A,0FFH
  1112.         STA    SETFLG    ;This keeps detcar from causing trouble
  1113.         LDA    5DH
  1114.         ANI    7FH
  1115.         CPI    '3'    ;ASCII '3' FOR 300 BAUD?
  1116.         JNZ    CK2    ;NO SEE IF 1200
  1117.         XRA    A
  1118.         STA    80H    ;RESET COMMAND TAIL
  1119.         CALL    INIT3
  1120.         JMP    ORIG103
  1121. ;
  1122. CK2:        CPI    '2'    ;ASCII '2' FOR 1200 BAUD?
  1123.         JNZ    SETUPR
  1124.         CALL    INIT2    ;YEP GO SET UP 1200 BAUD
  1125.         JMP    ORIG212    ;ORIGINATE
  1126. ;
  1127. FIXMT:
  1128.         LDA    080H
  1129.         ORA    A
  1130.         RZ
  1131.         LDA    INFLAG        ;check inflag for T trap
  1132.         ORA    A
  1133.         RNZ
  1134.         LDA    05DH        ;first byte of command tail
  1135.         CPI    'T'        ;check for re-entrant terminal mode
  1136.         JZ    FIXMT1
  1137.         CPI    'E'
  1138.         JZ    FIXMT1
  1139.         CPI    'L'
  1140.         JZ    FIXMT1
  1141.         CPI    'S'
  1142.         JZ    FIXMT1
  1143.         CPI    'R'
  1144.         JZ    FIXMT1
  1145.         RET
  1146. ;
  1147. FIXMT1:
  1148.  
  1149.         MVI    A,0FFH
  1150.         STA    REFLG        ;signal re-entrant
  1151.         RET
  1152. ;
  1153. REFLG:        DB    0
  1154. ;
  1155. DETCAR0:
  1156.     CALL    JMP$ILPRT
  1157.     DB    'not ',0
  1158. DETCAR1:
  1159.     CALL    JMP$ILPRT
  1160.     DB    'present',CR,LF,0
  1161.     RET
  1162. ;
  1163. CKOVLY:    
  1164.     LDA    OVLEND        ;LOCATION OF TEST BYTE IN DIALER
  1165. ;
  1166.     IF    APLICARD
  1167.     CPI    'P'
  1168.     ENDIF    ;APLICARD
  1169. ;
  1170.     IF    NOT APLICARD
  1171.     CPI    'M'
  1172.     ENDIF    ;NOT APLICARD
  1173. ;
  1174.     JZ    JMP$START    ;WE'RE OK
  1175. ;
  1176.     LXI    D,OOPSMSG    ;OOPS, WRONG COMBINATION
  1177.     MVI    C,PRINT        ;TELL OPERATOR WE HAVE A PROBLEM
  1178.     CALL    BDOS        ;USE BDOS SINCE WE DON'T KNOW WHERE ILPRT IS
  1179.     JMP    0        ;AND RETURN TO CPM    
  1180. ;
  1181. OOPSMSG:    DB    BELL,BELL,BELL,BELL
  1182.         DB    'WRONG OVERLAY/.OBJ FILE COMBINATION! '
  1183.         DB    'ABORTING!',CR,LF,'$'
  1184. ;
  1185. ;
  1186. ;
  1187. ;
  1188.     IF    DISCON
  1189. DISCR:
  1190.     CALL    DISCR1
  1191.     CALL    DELAY5
  1192. DISCR1:    xra    a
  1193.     sta    reflg    ;reset re-entry flag
  1194.     mvi    a,1
  1195. ;
  1196.     IF    NOT APLICARD
  1197. ;
  1198.     sta    shbyt    ;hang up phone
  1199.     mvi    a,081H
  1200.     sta    squbyt    ;disable 212 board
  1201.     mvi    a,18h
  1202.     sta    xmtbyt
  1203.     sta    xmtram    ;and 103 xmtr
  1204. ;
  1205.     ENDIF    ;NOT APLICARD
  1206. ;
  1207.     IF    APLICARD
  1208. ;
  1209.     PUSH    D
  1210.     LXI    D,SHBYT
  1211.     CALL    POKE
  1212.     MVI    A,081H
  1213.     LXI    D,SQUBYT
  1214.     CALL    POKE
  1215.     MVI    A,18H
  1216.     LXI    D,SQUBYT
  1217.     CALL    POKE
  1218.     CALL    SXMTRAM
  1219.     POP    D
  1220. ;
  1221.     ENDIF    ;APLICARD
  1222. ;
  1223.     MVI     A,0        ;RESET SETUP FLAG
  1224.     STA    SETFLG
  1225.     ret
  1226. ;
  1227.     ENDIF    ;DISCON
  1228. ;
  1229. ;
  1230. ;
  1231. ;
  1232. DETCAR:
  1233.     LDA    SETFLG        ;ARE WE SET UP YET?
  1234.     CPI    0
  1235.     CZ    SETUPR        ;NO SO SET IT UP
  1236. DETCARA:
  1237.     LDA     CRDTFLG
  1238.     ORA    A
  1239.     RZ            ;RETURN IF FALSE
  1240.     CALL    JMP$ILPRT
  1241.     DB    'Carrier ',0
  1242. ;
  1243.     IF    NOT APLICARD
  1244. ;
  1245.     LDA    SWBYT
  1246. ;
  1247.     ENDIF    ;NOT APLICARD
  1248. ;
  1249.     IF    APLICARD
  1250. ;
  1251.     PUSH    D
  1252.     LXI    D,SWBYT
  1253.     CALL    PEEK
  1254.     POP    D
  1255. ;
  1256.     ENDIF    ;APLICARD
  1257. ;
  1258.     ANI    00100000B
  1259.     CPI    00100000B
  1260.     JZ    DETCAR1
  1261.     LDA    MSPEED
  1262.     CPI    5
  1263.     JNZ    DETCAR0
  1264. ;
  1265.     IF    NOT APLICARD
  1266. ;
  1267.     LDA    ACBYT
  1268. ;
  1269.     ENDIF    ;NOT APLICARD
  1270. ;
  1271.     IF    APLICARD
  1272. ;
  1273.     PUSH    D
  1274.     LXI    D,ACBYT
  1275.     CALL    PEEK
  1276.     POP    D
  1277. ;
  1278.     ENDIF    ;APLICARD
  1279. ;
  1280.     ANI    00000100B    ;212 CARRIER?
  1281.     CPI    00000100B
  1282.     JZ    DETCAR1
  1283.     JMP    DETCAR0
  1284. ;
  1285. ;
  1286. XMCK:    PUSH    PSW
  1287.     LDA    BYESAV
  1288.     ORA    A
  1289.     JZ    NOBYE
  1290.     POP    PSW
  1291.     PUSH    PSW
  1292.     STA    XMSPD
  1293. NOBYE:    POP    PSW
  1294.     RET
  1295. ;
  1296. DIALSLOT:    DS    1    ;FOR DIALER
  1297. ;
  1298. ;
  1299. GIVEPRM:    RET
  1300. GETPRM:        RET
  1301. ;
  1302. XMTRAM:    DB    0    ;Xmtram initially zero
  1303. INFLAG:    DB    0    ;CHECK FOR SECOND INIT ENTRY
  1304. SETFLG:    DB    0    ;CHECK FOR MODEM SETUP
  1305. OVLEND:            ;MARKS END OF OVERLAY
  1306. ;
  1307.     ;Xlist
  1308. ;
  1309.     IF     (NOT OVERLAY) AND APLICARD
  1310.     .PRINTX    +pcpidial+
  1311.     subttl    pcpidial 
  1312.     $INCLUDE     PCPIDIAL.ASM
  1313.     ENDIF    ;not overlay and aplicard
  1314. ;
  1315.     IF    (NOT OVERLAY) AND (NOT APLICARD)
  1316.     .PRINTX +msftdial+
  1317.     subttl    msftdial
  1318.     $INCLUDE    MSFTDIAL.ASM
  1319.     ENDIF    ;not overlay and not aplicard
  1320. ;
  1321.     IF    (NOT OVERLAY)
  1322.     .printx    +main+
  1323.     subttl MAIN
  1324.     $INCLUDE    MAIN.ASM
  1325. ;
  1326.     ENDIF    ;not overlay
  1327. ;
  1328.     END    CKOVLY
  1329.