home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / PMNETWRK / COLUMBIA.ASM < prev    next >
Assembly Source File  |  2000-06-30  |  4KB  |  169 lines
  1.     TITLE    'POOR MANS NETWORK ** COLUMBIA M64 OVERLAY'
  2. ;
  3. ; Last updated 15 Apr 87   v1.0   Jim Lill
  4. ;
  5. NETBIOS     EQU    2000H
  6. OFFSET     EQU    0F00H        ;DISPL TO DRIVERS
  7. ;
  8. TRUE     EQU    0FFH
  9. FALSE     EQU    0
  10. CR     EQU    13
  11. ;
  12.      ORG    107H
  13. ;
  14. ; MODEM COMMANDS (NOT USED IN THIS VERSION)
  15. ;
  16. MATTNCDS DB    'A','T',0,0,0,0,0,0,0,0    ;ATTENTION
  17. MINTRCDS DB    '+','+','+',0,0,0,0,0,0,0 ;INTERRUPT
  18. MDIALCDS DB    'D',0,0,0,0,0,0,0,0,0    ;DIAL A NO
  19. MHANGCDS DB    'H','0',0,0,0,0,0,0,0,0    ;HANG UP LINE
  20. MINITCDS DB    'E0',CR        ;INITIALIZATION
  21.      DB    'F1',CR        ;(40 BYTES TOTAL)
  22.       DB    'Q0',CR
  23.       DB    'V1',CR
  24.       DB     'X1',CR
  25.       DB    'S0=0',CR
  26.       DB    'S7=15',CR
  27.      DB    0,0,0,0,0,0,0,0,0,0,0,0,0,0
  28. ;
  29. BAUDRATE EQU    $        ;BAUD RATE TABLE
  30.       DW    40H        ;300
  31.      DW    60H        ;600
  32.      DW    70H        ;1200
  33.      DW    0        ;1800
  34.      DW    78H        ;2400
  35.      DW    0        ;3600
  36.      DW    7CH        ;4800
  37.      DW    0        ;7200
  38.      DW    7EH        ;9600 
  39.      DW    7FH        ;19200
  40.      DW    0        ;38400
  41. ;
  42. ERRMARK     DB    '!'        ;ERROR MARKER
  43. COMPUTER DB    '    Columbia M64 "Shoebox"    ',CR
  44. ;                .........1.........2.........3  30 bytes
  45.      PAGE
  46.      ORG    NETBIOS+31BH
  47. ;
  48. SCRNSIZE DB    24        ;LINES ON SCREEN
  49. SCRNWID     DB    80        ;WIDTH OF SCREEN
  50. ; 
  51. CLRLINE     DB    1,14,0,0,0,0,0,0,0,0    ;CLEAR TO EOL
  52. DIRCURSR DB    2,27,'=',0,0,0,0,0,0,0    ;DIRECT CURSOR ADDR
  53. MIDCURSR DB    0,0,0,0,0,0,0,0,0,0    ;MIDDLE STRING
  54. ENDCURSR DB    0,0,0,0,0,0,0,0,0,0    ;ENDING STRING
  55. VOFFSET     DB    32        ;CURSOR ADDR OFFSET
  56. CURSRTYP DB    0        ;0=Y,X; 1=X,Y
  57. ASCCURSR DB    0        ;ASCII CURSOR ADDR
  58. VDELAY     DB    0        ;CURS ADDR DELAY
  59. REVVIDEO DB    1,1,0,0,0,0,0,0,0,0    ;REVERSE VIDEO
  60. NORVIDEO DB    1,2,0,0,0,0,0,0,0,0    ;NORMAL VIDEO
  61. SAVECPOS DB    0,0,0,0,0,0,0,0,0,0    ;SAVE CURSR POSN
  62. RSTRCPOS DB    0,0,0,0,0,0,0,0,0,0    ;RESTORE CURSR POSN
  63. MSGLINE     DB    0    ;WHERE TO PUT MESSAGE
  64. ;
  65.  
  66.      ORG    NETBIOS+61CH
  67. ;
  68. SYSTEMID DB    3    ;THIS SYSTEM ID    
  69. FASTCLK     DB    TRUE    ;4MHZ OR BETTER
  70. MSGKEY     DB    1CH,0,0,0 ;MSG KEY SEQUENCE
  71. RELOC     DW    0    ;WHERE TO PUT NETBIOS    
  72.      DS    8    ;reserved
  73. ;
  74. PORTSTAT EQU    59H    ;PORT 1 STATUS
  75. MPORT     EQU    58H    ;PORT 1 DATA
  76. PORTCTL     EQU    59H    ;PORT 1 CONTROL
  77. PORTBAUD EQU    80H    ;PORT 1 BAUD RATE
  78. ;
  79. ; USART CONTROL BYTES
  80. ;
  81. USART1     DB    80H        ;GET USART'S ATTN
  82. USART2     DB    40H        ;SOFTWARE RESET
  83. FINALBIT DB     37H        ;ENABLE XMIT
  84. FIXED     DB    02H        ;USART CONSTANT BITS
  85. ;
  86. PARITY     DB    0        ;PARITY
  87. CHARBITS DB    0CH        ;BITS/CHAR = 8
  88. STOPBITS DB    0C0H        ;STOP BITS = 2
  89. RATEBAUD DW    7FH        ;DEFAULT BAUD RATE 
  90. ;
  91.     TITLE 'COLUMBIA DRIVERS'
  92.  
  93.     ORG    NETBIOS+OFFSET
  94. ;
  95. DRIVERS     EQU    $        ;VECTOR TABLE
  96. ANYEXT   JMP     DR$ANYEXT
  97. INEXT    JMP     DR$INEXT
  98. EXTRDY   JMP     DR$EXTRDY
  99. OUTEXT   JMP     DR$OUTEXT
  100. RESETEXT JMP     DR$RESETEXT
  101. ACTIVITY RET    ! NOP ! NOP
  102. PRTRBUSY RET    ! NOP ! NOP
  103. ;
  104. ; COLUMBIA I/O ROUTINES
  105. ;
  106. ;
  107. ; CHECK IF BYTE AT MODEM
  108. ; Z set if byte available.
  109. ; May use registers A, B, C.
  110. ;
  111. DR$ANYEXT IN     PORTSTAT    ;PORT STATUS
  112.     XRI     2        ;MAKE LOW TRUE
  113.     ANI     2        ;DATA AVAIL?
  114.     RET
  115. ;
  116. ; GET BYTE FROM MODEM
  117. ; May use registers A, B, C.
  118. ;
  119. DR$INEXT IN     MPORT        ;DATA PORT 
  120.      RET
  121. ;
  122. ; CHECK IF MODEM PORT READY TO XMIT
  123. ; Z set if so.
  124. ; May use registers A, B, C.
  125. ;
  126. DR$EXTRDY IN     PORTSTAT    ;STATUS PORT
  127.       XRI     1
  128.       ANI     1        ;TBE?
  129.       RET
  130. ;
  131. ; SEND BYTE TO MODEM
  132. ; May use registers A, B, C.
  133. ;
  134. DR$OUTEXT OUT    MPORT
  135.      RET
  136. ;
  137. ;
  138. ; INITIALIZE USART, ENABLE XMIT
  139. ;
  140. DR$RESETEXT:
  141.     LDA    USART1
  142.     OUT     PORTCTL        ;GET USART'S ATTN
  143.     OUT    PORTCTL
  144.     OUT    PORTCTL
  145. ;
  146.     LDA     USART2         ;SOFTWARE RESET
  147.     OUT    PORTCTL
  148. ;
  149.      LDA     PARITY         ;PARITY
  150.      MOV     B,A         ;INTO B
  151.      LDA     CHARBITS     ;NUM DATA BITS
  152.      ORA     B         ;COMBINE THEM
  153.      MOV     B,A         ;SAVE IN B
  154.      LDA     STOPBITS     ;NUM STOP BITS
  155.      ORA     B         ;COMBINE THEM
  156.      MOV     B,A         ;SAVE IN B
  157.      LDA     FIXED         ;CONSTANT BITS
  158.      ORA     B        ;COMBINE THEM
  159.      OUT    PORTCTL     ;SEND MODE INSTR
  160. ;
  161.     LDA    FINALBIT
  162.     OUT    PORTCTL        ;ENABLE XMIT
  163. ;
  164. ;    LDA     RATEBAUD
  165. ;    OUT    PORTBAUD
  166.     RET
  167. ;
  168.     END
  169.