home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_07_07 / v7n7045a.txt < prev    next >
Text File  |  1989-09-05  |  2KB  |  56 lines
  1. **************************************************************
  2. ;
  3. ; THIS PROGRAM TOGGLES THE LST: PORT OF A CP/M OPERATING SYSTEM
  4. ;
  5. ;EQUATES LIST
  6. ;
  7.      RESET     EQU       0H        ; CP/M SYSTEM RESET
  8.      IOBYTE    EQU       3H        ; CP/M IOBYTE ADDRESS
  9.      LOUT      EQU       5H        ; CP/M LISTOUT
  10.      POUT      EQU       9H        ; CP/M PRINT STRING
  11.      CR        EQU       0DH       ; ASCII CR
  12.      LF        EQU       0AH       ; ASCII LF
  13. ;
  14.      ORG       100H                ; STANDARD CP/M STARTING POINT
  15.      LXI       SP,STACK            ; START A STACK
  16. ;
  17.      LDA       IOBYTE              ; LOAD IOBYTE TO ACC
  18.      CPI       0                   ; IS IT PARALLEL ?
  19.      JZ        SER                 ; IF NOT CHANGE
  20. ;
  21. ; CHANGE TO PARALLEL PORT SUBROUTINE
  22. ;
  23.      LXI       D,SMSG              ; POINT TO SERIAL MSG
  24.      MVI       C,POUT              ; PRINT IT
  25.      CALL      LOUT
  26.      MVI       A,0                 ; PARALLEL VALUE OF IOBYTE
  27.      STA       IOBYTE              ; INSTALL
  28.      JMP       FINISH
  29. ;
  30. ;CHANGE TO SERIAL PORT SUBROUTINE
  31. ;
  32. SER: LXI       D,PMSG              ; POINT TO PARALLEL MSG
  33.      MVI       C,POUT              ; PRINT IT
  34.      CALL      LOUT
  35.      MVI       A,80H               ; SERIAL VALUE FOR IOBYTE
  36.      STA       IOBYTE              ; INSTALL
  37.      JMP       FINISH
  38. ;
  39. FINISH: CALL   RESET               ; SYSTEM RESET
  40. ;
  41. ;STORAGE AREAS
  42. ;
  43. SMSG:   DB     CR,LF,'CHANGING FROM SERIAL TO PARALLEL.',CR,LF,'$'   
  44.  
  45.  
  46.                            4
  47.  
  48.  
  49.  
  50. PMSG:   DB     CR,LF,'CHANGING FROM PARALLEL TO SERIAL.`,CR,LF,`4`
  51.         DB     40
  52. STACK;  DB     0                   ; START STACK
  53. ;
  54. END
  55.  
  56.