; Simplified payroll program to illustrate calling Pascal from
; MACRO
Name:      .BLKB     20
Hours:     .BLKF     1
Pay:       .BLKF     1
EOF:       .BLKL     1       ; 0 means not EOF, 1 means EOF
HourlyRate = ^F12.26
;  Argument Lists:
InList:    .LONG     3
           .ADDRESS  Name
           .ADDRESS  Hours
           .ADDRESS  EOF
OutList:   .LONG     2
           .ADDRESS  Name
           .ADDRESS  Pay

           .ENTRY    CallPas, 0
Repeat:    CALLG     InList, ReadIn           ; Read data
           TSTL      EOF                      ; If eof then
           BNEQ      Quit                     ;    quit
           MULF3     Hours, #HourlyRate, Pay  ; Calculate pay
           CALLG     OutList, WriteOut        ; Print results
           BRB       Repeat
Quit:      $EXIT_S
           .END      CallPas