home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / pub / trs80model4 / m4h19.mac < prev    next >
Text File  |  2020-01-01  |  726b  |  76 lines
  1. ;        m4h19/mac
  2. *LIST OFF
  3. SWAP_IN        MACRO
  4.         PUSH    AF
  5.         DI
  6.         LD    A,(IY+SCR_MASK)
  7.         AND    S_IN
  8.         OUT    (132),A
  9.         POP    AF
  10.         ENDM
  11. ;
  12. SWAP_OUT    MACRO
  13.         PUSH    AF
  14.         LD    A,(IY+SCR_MASK)
  15.         OR    S_OUT
  16.         OUT    (132),A
  17.         EI
  18.         POP    AF
  19.         ENDM
  20. ;
  21. SVC        MACRO    #P1
  22.         PUSH    AF
  23.         LD    A,#P1
  24.         RST    28H
  25.         POP    AF
  26.         ENDM
  27. ;
  28. SSVC        MACRO    #P1
  29.         LD    A,#P1
  30.         RST    28H
  31.         ENDM
  32. ;
  33. GET_CURSOR    MACRO
  34.         PUSH    BC
  35.         LD    B,4
  36.         SVC    @VDCTL
  37.         POP    BC
  38.         ENDM
  39. ;
  40. PUT_CURSOR    MACRO
  41.         PUSH    BC
  42.         PUSH    DE
  43.         PUSH    HL
  44.         LD    B,3
  45.         SVC    @VDCTL
  46.         POP    HL
  47.         POP    DE
  48.         POP    BC
  49.         ENDM
  50. ;
  51. GET_LINE    MACRO
  52.         PUSH    BC
  53.         PUSH    HL
  54.         PUSH    DE
  55.         LD    B,9
  56.         LD    C,1
  57.         SVC    @VDCTL
  58.         POP    DE
  59.         POP    HL
  60.         POP    BC
  61.         ENDM
  62. ;
  63. PUT_LINE    MACRO
  64.         PUSH    BC
  65.         PUSH    HL
  66.         PUSH    DE
  67.         LD    B,9
  68.         LD    C,0
  69.         SVC    @VDCTL
  70.         POP    DE
  71.         POP    HL
  72.         POP    BC
  73.         ENDM
  74. ;
  75. *LIST ON
  76.