Clean up MACTAP.

2026-01-13 23:36:30 +00:00 · 2019-02-19 13:05:47 +01:00 · 2019-02-19 13:05:47 +01:00 · 8efa4aa74b
commit 8efa4aa74b
parent 37fd5da2b2
1 changed files with 1 additions and 142 deletions
--- a/src/sysen2/mactap.f71
+++ b/src/sysen2/mactap.f71
@ -896,145 +896,4 @@ DIRTAB:
 MOVTAB:
 	LOC MOVTAB+NDIR*200

-END î A,ACBLK+A
-	PUSH P,B
-	PUSH P,A
-	PUSHJ P,DELE
-
-FILE1:	MOVEI A,SYSEOF
-	MOVEI B,4
-	PUSHJ P,UWR
-	JFCL
-	SOJG B,.-2
-	MOVE A,[SYSEOF_11.,,1
-FILE1B:	LDB B,[700,,WCNTR
-	JUMPE B,FILE3
-	PUSHJ P,WR
-	JRST FILE7
-	JRST FILE1B
-FILE3:	MOVEI B,NUWBUF*200
-	CAME B,WCNTR
-	JRST .-1
-
-FILE4:	PUSHJ P,FILER
-	CLEARM A
-	MOVEI B,105
-	PUSHJ P,LOOK
-	JRST ERR2	;HOPEFULLY IMPOSSIBLE
-	POP P,(D)
-	POP P,1(D)
-	PUSHJ P,FILE6
-	PUSHJ P,CLSTP
-FILE5:	POP P,A
-	PUSHJ P,FILESL
-	JRST RESTOR
-
-FILE7:	SOS -3(P)
-	JRST FILE4
-OPNWR":	PUSHJ P,SAVAC
-	CLEARB A,B
-	PUSHJ P,LOOK
-	JRST ERR2
-	MOVEI B,105
-	PUSHJ P,DELE
-	MOVEI C,0
-	PUSHJ P,WINIT1
-	PUSHJ P,FILE6
-	JRST RESTOR
-
-
-FILE6:	MOVEI A,200*NUWBUF
-	MOVEM A,WCNTR
-	MOVEI B,WDATAS
-	PUSHJ P,SETUPR
-	MOVE A,[(10700)WRASM-1]
-	MOVEM A,UWRP
-	MOVEI A,5
-	MOVEM A,WRASM+1
-	MOVE A,FPNTR+2
-	DPB A,[(270400)WBYTS]
-	MOVEI A,105
-	MOVEM A,LSTFIL
-	CLEARM WRASM
-	CLEARM WRFUL
-	POPJ P,
-
-FILER:	CLEARB A,B
-	PUSHJ P,LOOK
-	JRST TPFUL
-	MOVE A,C
-	EXCH A,LSTFIL
-	MOVEM A,1(D)
-	MOVE A,FPNTR
-	ADD A,C
-	ELSE .FILEB",[
-	MOVE B,ACBLK+C
-	DPB B,.BC1
-	LSH B,-1
-	DPB B,.BC2
-][
-	MOVEI B,1
-	ANDCAM B,55(A)
-	ANDCAM B,104(A)
-]
-
-	MOVEI B,1
-	IORM B,133(A)	;SET NEW TYPE EOF BIT
-WINIT1:	MOVE B,FPNTR+1
-	ILDB A,B
-	CAIN A,35
-	DPB C,B
-	CAIE A,37
-	JRST .-4
-	POPJ P,
-
-TPFUL:	SETOM WRFUL
-	POPJ P,
-UCLSTP":	PUSHJ P,SAVAC0
-	PUSH P,CRESTOR
-
-CLSTP:	MOVE A,FPNTR+2
-	MOVNI B,1
-OPNTP1:	MOVEI C,100
-AVAIL .WSB,	LSH A,3
-	PUSHJ P,UWAIT1
-	MOVEM B,WRITE
-	CAMN A,LSTP
-	JRST .+3
-	PUSHJ P,UWAIT
-	SETOM FORW
-	HRRM A,UTAPE
-	MOVEM A,LSTP
-	HRR B,FPNTR
-	SOS B
-	HRRM B,TAPINS
-	MOVEI B,TEM1
-	HRRM B,UTCNTR
-	HRRM C,UTBLK
-	SKIPL FORW
-	TRO A,10000
-	COND .TCHG,[SKIPN WRITE
-	CLEARM TAPID
-]
-	CONO UTC,322200+UTCCHN(A)
-	PUSHJ P,TSTART
-	MOVEI A,120000.
-	MOVSI B,-200
-	SKIPL WRITE
-OPNTP3:	SKIPGE COAST
-	POPJ P,
-	CAMN B,UTENB
-	SOJGE A,OPNTP3
-	JUMPGE A,OPNTP3
-	SETOM SDLY
-	CONO UTC,5000+UTCCHN
-	SETOM COAST
-	MOVE A,FPNTR+2
-	PUSHJ P,FILESL
-	CLEARM DIRTAB(C)
-	MOVNI A,2
-	POPJ P,
-
-
-TAPKIL":	PUSHJ P,SAVAC0
-	PUSH P
+END