home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / sigmv009.ark / TERMTEST.ASM < prev    next >
Encoding:
Assembly Source File  |  1984-04-29  |  1.2 KB  |  51 lines
  1. ;
  2. ;        TERMINAL TEST PROGRAM
  3. ;        BY RODERICK W. HART
  4. ;        DEC. 1,1980
  5. ;
  6. TPORT    EQU    0C0H    ;MODEM UART CONTROL/STATUS PORT
  7. DPORT    EQU    TPORT+1    ;MODEM DATA PORT
  8. P0TBMT    EQU    1    ;XMIT BUFF EMPTY
  9. P0DAV    EQU    2    ;DATA AVAILABLE
  10. VDM    EQU    0F800H    ;VDM-1 DRIVER
  11. STACK    EQU    080H    ;DMA ADDRESS
  12. CR    EQU    0DH    ;ASCII CARRIAGE RETURN
  13. LF    EQU    0AH    ;ASCII LINE FEED
  14. BEL    EQU    07H    ;ASCII BELL
  15. ;
  16. ;
  17.     ORG    100H
  18. ;
  19. START    LXI    SP,STACK    ;LOAD STACK POINTER
  20. ;
  21. TEST    MVI    A,CR    ;LOAD A WITH CARRIAGE RETURN
  22.     CALL    TTYOUT    ;PRINT CARRIAGE RETURN
  23.     MVI    A,LF    ;LOAD A WITH LINE FEED
  24.     CALL    TTYOUT    ;PRINT LINE FEED
  25.     MVI    A,BEL    ;LOAD A WITH BELL
  26.     CALL    TTYOUT    ;RING BELL
  27.     MVI    A,0A0H    ;THE FIRST CHARACTER TO SEND
  28. ;
  29. NXTCHR    CPI    0E0H    ;LAST CHARACTER TO BE PRINTED
  30.     JZ    CHECK    ;CHECK FOR STOP COMMAND
  31.     CALL    TTYOUT    ;PRINT CHARACTER
  32.     INR    A    ;INCREMENT THE CHAR VALUE
  33.     JMP    NXTCHR
  34. ;
  35. CHECK    IN    TPORT    ;GET MODEM STATUS
  36.     ANI    P0DAV    ;DATA AVAILABLE?
  37.     JZ    TEST    ;RETURN IF NOT INTERRUPTED
  38.     IN    DPORT    ;CLEAR DATA PORT
  39.     JMP    0    ;STOP TEST
  40. ;
  41. TTYOUT    MOV    B,A    ;SAVE THE CHARACTER IN B
  42. TTYO    IN    TPORT    ;GET STATUS
  43.     ANI    P0TBMT    ;CHECK XMIT BUFFER
  44.     JZ    TTYO    ;LOOP WHILE WAITING FOR TRANSMITTER
  45.     CALL    VDM    ;OUTPUT TO CONSOLE
  46.     MOV    A,B    ;GET CHARACTER
  47.     OUT    DPORT    ;SENT IT TO MODEM
  48.     RET
  49. ;
  50.     END
  51.