home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / sigmv307.ark / SHOW12B.LBR / SHOWCRT.LZB / SHOWCRT.LIB
Encoding:
Text File  |  1988-12-10  |  2.1 KB  |  138 lines
  1.  
  2. ; SHOWCRT.Z80
  3.  
  4. cpdata:
  5.     call    banner
  6.     call    gxymsg
  7.     defb    3,29
  8.     defb    highon,' CRT and Printer Data ',highoff,0
  9.  
  10. ; CRT information
  11.  
  12.     call    gxymsg
  13.     defb    5,2
  14.     defb    highon
  15.     defb    ' Selected CRT:     '
  16.     defb    highoff,0
  17.     ld    a,2fh        ; Offset in ENV
  18.     call    prbyte        ; Display byte value there
  19.  
  20.     call    gxymsg
  21.     defb    7,15
  22.     defb    'CRT 0',0
  23.     ld    hl,8*100h+18    ; Start display at row 8, column 18
  24.     ld    a,31h        ; Print data at 31H
  25.     call    cprt
  26.  
  27.     call    gxymsg
  28.     defb    7,50
  29.     defb    'CRT 1',0
  30.     ld    hl,8*100h+53
  31.     ld    a,34h        ; Print data at 34H
  32.     call    cprt
  33.  
  34. ; Printer information
  35.  
  36.     call    gxymsg
  37.     defb    11,2
  38.     defb    highon
  39.     defb    ' Selected Printer: '
  40.     defb    highoff,0
  41.     ld    a,30h        ; Offset in ENV
  42.     call    prbyte        ; Display byte value there
  43.  
  44.     call    gxymsg
  45.     defb    13,15
  46.     defb    'LST 0',0
  47.     ld    hl,14*100h+18
  48.     ld    a,37h        ; Print data at 37H
  49.     call    lprt
  50.  
  51.     call    gxymsg
  52.     defb    13,50
  53.     defb    'LST 1',0
  54.     ld    hl,14*100h+53
  55.     ld    a,3bh        ; Print data at 3BH
  56.     call    lprt
  57.  
  58.     call    gxymsg
  59.     defb    18,15
  60.     defb    'LST 2',0
  61.     ld    hl,19*100h+18
  62.     ld    a,3fh        ; Print data at 3FH
  63.     call    lprt
  64.  
  65.     call    gxymsg
  66.     defb    18,50
  67.     defb    'LST 3',0
  68.     ld    hl,19*100h+53
  69.     ld    a,43h        ; Print data at 43H
  70.     call    lprt
  71.  
  72.     jp    getcmd
  73.  
  74. ;----------------------------------------
  75.  
  76. ; Subroutine to display CRT data
  77.  
  78. cprt:
  79.     ld    (infoxy),hl
  80.     call    compenv        ; Compute offset
  81.  
  82.     call    vprxy        ; Position cursor
  83.     defb    'Width:      ',0
  84.     ld    a,(hl)
  85.     call    padc
  86.     call    vprint
  87.     defb    ' Cols',0
  88.  
  89.     call    dispxy
  90.     call    vprint
  91.     defb    'Lines/Text: ',0
  92.     inc    hl
  93.     ld    a,(hl)
  94.     call    padc
  95.     call    vprint
  96.     defb    ' / ',0
  97.     inc    hl
  98.     ld    a,(hl)
  99.     call    padc
  100.     ret
  101.  
  102. ;----------------------------------------
  103.  
  104. ; Print LST Data
  105.  
  106. lprt:
  107.     ld    (infoxy),hl
  108.     call    compenv        ; Compute offset
  109.  
  110.     call    vprxy
  111.     defb    'Width:      ',0
  112.     ld    a,(hl)
  113.     call    padc
  114.     call    vprint
  115.     defb    ' Cols',0
  116.  
  117.     call    dispxy
  118.     call    vprint
  119.     defb    'Lines/Text: ',0
  120.     inc    hl
  121.     ld    a,(hl)
  122.     call    padc
  123.     call    vprint
  124.     defb    ' / ',0
  125.     inc    hl
  126.     ld    a,(hl)
  127.     call    padc
  128.     inc    hl
  129.  
  130.     call    vprxy
  131.     defb    'Form Feed?  ',0
  132.     ld    a,(hl)
  133.     call    pryn
  134.     ret
  135.  
  136. ; End SHOWCRT.Z80
  137.  
  138.