BYEV7.MAC/-AU=BYE.MAC -2,2 .IDENT -04.5V7- ; [SMT851] -88 ; SMT851 22-JUL-83 ADD ACCOUNTING V7/BATCH V2/V3 SUPPORT; [SMT851] ; ; [SMT851] -98 .IF DF AA$BV3 ; [SMT851] BATDV$ ; [SMT851] .ENDC ; [SMT851] -116,116 MSG1B: .ASCIZ /XXXXXX/ ; [SMT851] -120,120 MSG5: .ASCIZ <15>/Go to bed, you deserve a rest/ ; [SMT851] -199,199 .IF DF AA$BV3 ; [SMT851] $BATCH::.WORD 0 ; [SMT851] .ENDC ; DF AA$BV3 ; [SMT851] -239 ; [SMT851] .IF DF,AA$BV3 ; [SMT851] ; [SMT851] MOV U.DCB(R0),R0 ; POINT TO DCB ; [SMT851] CMP D.NAM(R0),BATDEV ; BATCH JOB? ; [SMT851] BNE 2011$ ; IF NE NO ; [SMT851] INC $BATCH ; YES, SET FLAG ; [SMT851] 2011$: MOV UCB,R0 ; RESTORE UCB ADDRESS ; [SMT851] ; [SMT851] .ENDC ; DF,AA$BV3 ; [SMT851] ; [SMT851] -346,346 BYE1: ; [SMT851] .IF DF AA$ACC ; ; [SMT851] CALL $GBLOG ; GET LOG...'S TCB ADDRESS ; [SMT851] .ENDC ; DF AA$ACC; ; [SMT851] CALL LGOLOG ; LOG LOGOUT ON CO: ; [SMT851] ; [SMT851] -355 .IF DF AA$ACC ; ; [SMT851] CALL $RQBYE ; DO ACCOUNTING PROCESSING ; [SMT851] .ENDC ; DF AA$ACC ; [SMT851] ; [SMT851] -359 ; [SMT851] .IF DF,AA$BV3 ; [SMT851] ; [SMT851] TST $BATCH ; VERSION 3 BATCH JOB? ; [SMT851] BNE 195$ ; IF NE YES, SKIP MESSAGES ; [SMT851] ; [SMT851] .ENDC ; DF,AA$BV3 ; [SMT851] ; [SMT851] -396,396 195$: ; [SMT851] .IF DF AA$ACC ; ; [SMT851] CALL $FINBY ; FINISH ACCOUNTING PROCESSING ; [SMT851] .ENDC ; DF AA$ACC ; [SMT851] ; [SMT851] -611 .IF DF,AA$BV3 ; [SMT851] ; [SMT851] TST $BATCH ; VERSION 3 BATCH JOB? ; [SMT851] BNE 10$ ; IF NE YES, DON'T PRINT COMMAND LINE; [SMT851] ; [SMT851] .ENDC ; DF,AA$BV3 ; [SMT851] ; [SMT851] /