Trailing-Edge
-
PDP-10 Archives
-
integ_tools_tops20_v7_30-apr-86_dumper
-
tools/tvaxv1/gtvr08.mar
There are 7 other files named gtvr08.mar in the archive. Click here to see a list.
.TITLE GTVR08 - LOGFILE ROUTINE
INIT GTVR08
GTVR08O:: ;OPEN
CLRW WLOGC ;CLEAR LOGCOUNT
$CREATE FAB=DLOGF
$CONNECT RAB=DLOGR
IF. *ERROR
MOVC3 OPELL,OPE,@GOBUFFA
MOVZWL OPELL,R1
BSBW GWRITR
$EXIT_S
ENDIF.
RSB
OPE: .ASCII \TV - BACKUP FILE COULD NOT BE OPENED\
OPELL: .WORD .-OPE
;
;
GTVR08C:: ;CLOSE
$CLOSE FAB=DLOGF
RSB
;
;
GTVR08W:: ;WRITE
PUSHR #^M<R0,R1>
MOVL R1,DLOGR+RAB$L_RBF
MOVW R0,DLOGR+RAB$W_RSZ
W001: ADDW2 R0,WLOGC
$PUT RAB=DLOGR
CMPW WLOGC,#15
IF. *GT
CLRW WLOGC
$FLUSH RAB=DLOGR
ENDIF.
POPR #^M<R0,R1>
RSB
GTVR08WE:: ;WRITE + ESC,ESC
PUSHR #^M<R0,R1>
MOVL R1,DLOGR+RAB$L_RBF
MOVZWL R0,R0
ADDL2 R0,R1
MOVW #^X1B1B,(R1) ;END ESCAPES
ADDL2 #2,R0
MOVW R0,DLOGR+RAB$W_RSZ
BRW W001
;
;
WLOGC: .BLKW
.ALIGN LONG
DLOGF: $FAB MRS=2048,RAT=CR,RFM=VAR,DNM=<TVBACK>,BLS=2048,FAC=<PUT>
DLOGR: $RAB FAB=DLOGF
.END