.MACRO .ASSUME A,REL,C,MESSAGE
    .IF REL <<A>>-<<C>>
    .IFF
      .IF B <MESSAGE>
        .ERROR ;?134MC-W-"A REL C" is not true;
      .IFF
        .ERROR ;?134MC-MESSAGE;
      .ENDC
    .ENDC
  .ENDM .ASSUME

  .MACRO $MESSL MESS, TEXT, ?L2
    .EMITL <MESS>

    .IF DF N$SHOW
      .EMIT  <.=.+1>
    .ENDC

    .EMIT  <.ASCII TEXT>

    .IF DF N$SHOW
      .EMITL <L2>

      .EMIT  <.=MESS>
      .EMIT <.BYTE L2-MESS-1>
      .EMIT  <.=L2>
    .IFF
      .EMIT <'MESS'.L =: .-'MESS'>
    .ENDC
  .ENDM $MESSL

  .MACRO $SHMESS MESS
    .EMIT <MOV  #MESS,R0>
    .IF DF N$SHOW
      .EMIT <CALL SHSTR2>
    .IFF
      .EMIT <MOV  #'MESS'.L,R4>
      .EMIT <CALL SHSTR>
    .ENDC
  .ENDM $SHMESS

  .MACRO $ERMSC MESS, ?L1, ?L2
L1:
    .IF DF N$SHOW
      .EMIT  <.=.+1>
    .ENDC

    .EMIT <.ASCII MESS>

    .IF DF N$SHOW
      .EMITL <L2>

      .EMIT  <.=L1>
      .EMIT <.BYTE L2-L1-1>
      .EMIT  <.=L2>
    .IFF
      .IF LT .-L1-ERMC.L
        .REPT ERMC.L-.+L1
          .EMIT <.ASCII / />
        .ENDR
      .IFF
        .IF GT .-L1-ERMC.L
          .ERROR ; Message length greater than ERMC.L chars!
        .ENDC
      .ENDC
    .ENDC
  .ENDM $ERMSC    

  .MACRO $ERMST CODE, MESS, ?L1
    .IF DF N$SHOW
      .EMITL <CODE>
      .EMIT  <.=.+1>
    .IFF
      ER.NUM=ER.NUM+1
      CODE=ER.NUM
      .EMITL <L1>
    .ENDC

    .EMIT <.ASCII MESS>

    .IF DF N$SHOW
      .EMITL <L1>

      .EMIT  <.=CODE>
      .EMIT <.BYTE L1-CODE-1>
      .EMIT  <.=L1>
    .IFF
      .IF LT .-L1-ERMT.L
        .REPT ERMT.L-.+L1
          .EMIT <.ASCII / />
        .ENDR
      .IFF
        .IF GT .-L1-ERMT.L
          .ERROR ; Message length greater than ERMT.L chars!
        .ENDC
      .ENDC
    .ENDC
  .ENDM $ERMST

  ER.NUM = 0

  .MACRO DV.BOT NAME, CSR, BOOT, PARAM
    .EMIT <.ASCII ^NAME^>	; Name
    .EMIT <.WORD  CSR>		; CSR
    .EMIT <.WORD  BOOT>		; Entry point
    .EMIT <.WORD  PARAM>	; ??
  .ENDM DV.BOT

  .MACRO DV.END
    .EMIT <.WORD 0>
  .ENDM DV.END

...............................................................................

  .MACRO HMCALL
    MOV  #112345, R0
    MOV  #123456, R1
    MOV  #134567, R2
    MOV  #145671, R3
    MOV  #156712, R4
    MOV  #167123, R5
    HALT
    BR   .
    BR   .
  .ENDM HMCALL

  .MACRO HMRETURN
    MOV @#SP.SAV, SP
    MOV @#SU.PSW, @#U.PSW
    MOV @#SU.PC, @#U.PC
    RTT
  .ENDM HMRETURN