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 / SIMTEL / CPMUG / CPMUG035.ARK / RESCALE.ASM < prev    next >
Assembly Source File  |  1984-04-29  |  756b  |  29 lines
  1. ; 30 AUG - RELOCATED TO 2F50 TO CLEAR DISTPLUS. JMM.
  2.     ORG    2F50H
  3. ;
  4. ; RESCALE - AN OP OF A DIFFERENT COLOR, ALMOST A KIND OF 
  5. ; OUTPAR, WHICH CALLED WITH 2 PARAMS (IN-DEV,RANGE)
  6. ; ADJUSTS (IF THE DEVICE ADMITS ADJUSTING) THE RANGE OF THE
  7. ; DEVICE'S VALUES. AT PRESENT ONLY THE ADC'S ALLOW IT.
  8. ;
  9. ; CALLS: INPAR
  10. ;
  11. INPAR    EQU    5030H
  12. RESCALE:CALL    INPAR    ;WHICH DEVICE (0-F)?
  13.     PUSH    D
  14.     CALL    INPAR    ;WHAT RANGE?
  15.     MOV    A,E
  16.     ANI    07H    ;(0-7)
  17.     LXI    H,RANGTABL
  18.     POP    D
  19.     DAD    D    ;HL POINTS INTO RANGTABL.
  20.     MOV    M,A
  21.     RET        ;STORE RANGE,RETURN.
  22. ;
  23.     ORG    2F70H    ;'INPARM' MUST BE TOLD WHEN THIS MOVES.
  24.  
  25. RANGTABL:DB    0,0,0,0,0,0,0,0    ;DEFAULTS FOR DEVICES 0-7
  26.     DB    1,1,1,1    ;DEFAULTS FOR JS X,Y:+-64
  27.     DB    2,2    ;DEFAULTS FOR JS Z: +-32
  28.     DB    0,0    ;DEFAULTS FOR SWITCHES:0
  29.