home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / pcpursut / pisrc.ark / CUSTOM.ASM < prev    next >
Assembly Source File  |  1988-07-14  |  3KB  |  111 lines
  1. ; CUSTOM.ASM - Customizes PCPIMP for each individual user - 14 Jul 88
  2. ;
  3. ; This overlay starts where the IMP overlay quits at 0400h and ends at
  4. ; 0480h.  Edit your changes then assemble using ASM (or equivelant as-
  5. ; sembler) to get CUSTOM.HEX, then then use MLOAD.COM to merge into the
  6. ; main file:  You would do the same with a suitable IMP overlay to get
  7. ; a .HEX file (even if using some program other than IMP once the BBS
  8. ; is connected):  Then merge:
  9. ;
  10. ;    MLOAD PCPIMP.COM=PCPIMP.COM,CUSTOM.HEX,I2DP-2.HEX
  11. ;                          |
  12. ;     your IMP overlay (whatever it's called) /
  13. ;
  14. ;-----------------------------------------------------------------------
  15. ;
  16.     ORG    0400H        ; Starts where IMP overlay stops
  17. ;
  18. YES    EQU    0FFH
  19. NO    EQU    0
  20. ;
  21. ;
  22. MANUAL    EQU    NO        ; Yes for manual, No for Smartmodem
  23. ;
  24. ;
  25. CR    EQU    'M'-40H        ; CTL-M = Carriage return
  26. ;
  27. ;-----------------------------------------------------------------------
  28. ;           don't mess with pointers in this area
  29. ;
  30. UDPTR:       DW    IDSTRING    ; Pointer to user id           400H
  31. PASSPTR:   DW    PASSWORD    ; Pointer to password           402H
  32. MINITPTR:  DW    MDMINIT        ; Pointer to modem init string       404H
  33. DIAL12PTR: DW    DIAL12        ; Pointer to 1200 baud number       406H
  34. DIAL24PTR: DW    DIAL24        ; Pointer to 2400 baud numer       408H
  35. TCONPTR:   DW    TELCON        ; Pointer to string to compare       40AH
  36.                 ;    for Telenet connect
  37. CHAINPTR:  DW    CHAIN        ; Pointer to connect prog       40CH
  38. MINIT2:       DW    MDMINIT2    ; 2400 initialization string       40EH
  39. ;
  40. ;           don't mess with pointers in this area
  41. ;-----------------------------------------------------------------------
  42. ;
  43. DDRIVE:       DB    1        ; Database Drive 0=default, 1=A:   410H
  44.                 ;   2=B:, etc.
  45. DUSER:       DB    0        ; Database User Area Only used if
  46.                 ;   DDRIVE > 0
  47. CITYPTR:   DW    039H        ; Pointer to location of city code 412H
  48.                 ;   used for reconnect (3 bytes)
  49. MDRIVE:       DB    1        ; Modem Prog. Drive 0=default, 1=A: 414H
  50.                 ;   2=B:, etc.
  51. MUSER:       DB    0        ; Modem Prog. User Area. Only used if
  52.                 ;   MDRIVE > 0
  53. ;
  54. ; User identificationa and password
  55. ;
  56. IDSTRING: DB    'IHOFF',CR    ; Put your user identification here
  57.       DB    0
  58. ;
  59. PASSWORD: DB    '1234ABC',CR    ; Put your password here
  60.       DB    0
  61. ;
  62. ;-----------------------------------------------------------------------
  63. ;
  64. ; Smartmodem initialization strings
  65. ;
  66. ; 1200 baud initialization string
  67. ;
  68. MDMINIT      EQU    $
  69. ;
  70.      IF    MANUAL
  71.     DB    0
  72.      ENDIF
  73. ;
  74.     DB    'ATQ0M1V1X1',CR
  75.     DB    0
  76. ;
  77. ;
  78. ; 2400 baud initialization string
  79. ;
  80. MDMINIT2  EQU    $
  81. ;
  82.      IF    MANUAL
  83.     DB    0
  84.      ENDIF
  85.  
  86.     DB    'ATQ0M1V1X4',CR
  87.     DB    0
  88. ;
  89. ;-----------------------------------------------------------------------
  90. ;
  91. ; String to dial your local telenet number goes here - the setting in
  92. ; the IMP overlay decides which will be used.
  93. ;
  94. DIAL12:    DB    'ATDT856-9995',CR ; 1200 baud PCP node number
  95.     DB    0
  96. ;
  97. DIAL24:    DB    'ATDT856-0484',CR ; 2400 baud PCP node number
  98.     DB    0
  99. ;
  100. ;
  101. TELCON:    DB    'CONNECT'    ; String that your modem echos when
  102.     DB    0        ;   connected with Telenet at any speed
  103. ;
  104. CHAIN:    DB    'IMP T',0    ; Program to chain to on connect
  105. ;
  106. ;-----------------------------------------------------------------------
  107. ;
  108. ; This point must be less than 480H
  109. ;
  110.     END
  111.