home *** CD-ROM | disk | FTP | other *** search
/ kermit.columbia.edu / kermit.columbia.edu.tar / kermit.columbia.edu / trs80model4 / m4mac.asm < prev    next >
Assembly Source File  |  1986-10-21  |  2KB  |  173 lines
  1. ;    m4mac/asm
  2. *LIST    OFF
  3. PUTHL    MACRO    #P1
  4.     LD    (HL),#P1
  5.     INC    HL
  6.     ENDM
  7. ;
  8. ;    Protocol switch macro
  9. ;
  10. ;    Expansion is something like:
  11. ;
  12. ;    CP    'D'
  13. ;    JR    NZ,SWAA
  14. ;    CALL    SDATA
  15. ;    JP    PROTO
  16. ;SWAA
  17. ;
  18. SWITCH    MACRO    #P1,#P2
  19.     CP    #P1
  20.     JR    NZ,SW?
  21.     CALL    #P2
  22.     JP    PROTO
  23. SW?
  24.     ENDM
  25. ;
  26. TOCHAR    MACRO
  27.     ADD    A,32
  28.     ENDM
  29. ;
  30. STROUT    MACRO    #P1
  31.     LD    DE,#P1
  32.     CALL    PRTSTR
  33.     ENDM
  34. ;
  35. SPACKET    MACRO    #P1
  36.     LD    A,#P1
  37.     CALL    SPACK
  38.     JP    ABORT
  39.     ENDM
  40. ;
  41. RPACKET    MACRO
  42.     CALL    RPACK
  43.     JP    QUIT
  44.     ENDM
  45. ;
  46. NSTATE    MACRO    #P1
  47.     LD    A,#P1
  48.     LD    (STATE),A
  49.     ENDM
  50. ;
  51. IFANOT    MACRO    #P1,#P2
  52.     CP    #P1
  53.     JR    NZ,#P2
  54.     ENDM
  55. ;
  56. IFALT    MACRO    #P1,#P2
  57.     CP    #P1
  58.     JR    C,#P2
  59.     ENDM
  60. ;
  61. IFAGE    MACRO    #P1,#P2
  62.     CP    #P1
  63.     JR    NC,#P2
  64.     ENDM
  65. ;
  66. IFA    MACRO    #P1,#P2
  67.     CP    #P1
  68.     JR    Z,#P2
  69.     ENDM
  70. ;
  71. IFZ    MACRO    #P1
  72.     OR    A
  73.     JR    Z,#P1
  74.     ENDM
  75. ;
  76. GENCASE    MACRO    #P1,#P2
  77.     LD    A,#P2
  78.     LD    (FLDLEN),A
  79.     LD    A,#P1
  80.     JP    GENCMD
  81.     ENDM
  82. ;
  83. GETHL    MACRO    #P1
  84.     INC    HL
  85.     LD    #P1,(HL)
  86.     ENDM
  87. ;
  88. ADDPUT    MACRO    #P1
  89.     LD    A,(#P1)
  90.     CALL    TCHPUT
  91.     ENDM
  92. ;
  93. SRPACK    MACRO    #P1
  94.     LD    A,#P1
  95.     CALL    SPACK
  96.     JP    ABORT
  97.     RPACKET
  98.     ENDM
  99. ;
  100. GETCRCTAB    MACRO
  101.     LD    C,A
  102.     LD    HL,CRCTAB
  103.     ADD    HL,BC
  104.     ADD    HL,BC
  105.     ENDM
  106. ;
  107. XORATHL    MACRO    #P1
  108.     LD    A,#P1
  109.     XOR    (HL)
  110.     LD    #P1,A
  111.     ENDM
  112. ;
  113. CHKWKEY    MACRO    #P1
  114.     IFA    #P1,INCHR5
  115.     ENDM
  116. ;
  117. IFNZ    MACRO    #P1
  118.     OR    A
  119.     JR    NZ,#P1
  120.     ENDM
  121. ;
  122. SETFLG    MACRO    #P1
  123.     CALL    ONOFF
  124.     LD    (#P1),A
  125.     JP    KERMIT
  126.     ENDM
  127. ;
  128. SHOFFON    MACRO    #P1
  129.     LD    A,(#P1)
  130.     CALL    COFFON
  131.     JP    NEWLIN
  132.     ENDM
  133. ;
  134. FOFFON    MACRO    #P1
  135.     LD    A,(#P1)
  136.     CALL    COFFON
  137.     CALL    NEWLIN
  138.     ENDM
  139. ;
  140. SHRSTAT    MACRO    #P1,#P2
  141.     FORMAT    #P1,SRSTRLEN
  142.     LD    A,(#P2)
  143.     CALL    ANOUT
  144.     CALL    NEWLIN
  145.     ENDM
  146. ;
  147. SHSSTAT    MACRO    #P1,#P2
  148.     FORMAT    #P1,SRSTRLEN
  149.     LD    A,(#P2)
  150.     CALL    ANOUT
  151.     CALL    NEWLIN
  152.     ENDM
  153. ;
  154. DOSVC    MACRO    #P1
  155.     LD    A,#P1
  156.     RST    28H
  157.     LD    (XERRNO),A
  158.     RET
  159.     ENDM
  160. ;
  161. FORMAT    MACRO    #P1,#P2
  162.     LD    HL,#P2
  163.     LD    DE,#P1
  164.     CALL    LEFTPAD
  165.     ENDM
  166. ;
  167. TRLOG    MACRO    #P1,#P2
  168.     LD    HL,#P1
  169.     CALL    OUTLOG
  170.     JP    #P2
  171.     ENDM
  172. *LIST    ON
  173.