;display log accounts of each job
;30-Jun-83    David Pallmann    for NY/AMUS

       SEARCH  SYS
       SEARCH  SYSSYM
       SEARCH  TRM

       PHDR    -2,0,PH$REU

START:  MOV     JOBTBL,A0

LOOP:   CTRLC   EXIT
       MOV     (A0)+,A3
       MOV     A3,D0
       BMI     EXIT
       BEQ     LOOP
       LEA     A1,JOBNAM(A3)
       LEA     A2,BUFFER
       UNPACK
       UNPACK
       CLRB    @A2
       LEA     A2,BUFFER
       TTYL    @A2
       TYPESP
       LEA     A1,JOBDEV(A3)
       LEA     A2,BUFFER
       UNPACK
       CLRB    @A2
       LEA     A2,BUFFER
       TTYL    @A2
       CLR     D1
       MOVW    JOBDRV(A3),D1
       DCVT    0,3
       TYPE    :[
       PRPPN   JOBUSR(A3)
       TYPE    ]
       MOV     A0,A6
       SUB     #4,A6
       MOV     @A6,D0
       CMM     D0,JOBCUR
       BNE     NEXT
       TYPE    < *>

NEXT:   CRLF
       JMP     LOOP

EXIT:   CRLF
       EXIT

BUFFER: BLKB    10

       END

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.