Remove garbage added to GTLOAD.

src/syseng/gtload.13

@@ -286,235 +286,4 @@ SEND3:	MOVE F,A
 
 
 	END BEGIN
-GSWRD:	PUSHJ	P,GETDSK
-	ANDI	A,377
-	LSHC	A,-36.	;MOVE A TO B AND ZERO A
-	SOSLE	BCOUNT	;IF CHECKSUM DON'T GET EXTRA BLOCK YET
-	PUSHJ	P,GETDSK
-	SOS	BCOUNT
-	AOSE	A	;WAS IT A NEG 1?
-	SOS	A	;IF NOT RESTORE, ELSE SEND ZERO
-	LSH	A,8.
-	ADDB	A,B
-SWORD:	ANDI	A,77
-	PUSHJ	P,SEND
-	MOVE	A,B
-	LSH	A,-6
-	ANDI	A,17
-	PUSHJ	P,SEND
-	MOVE	A,B
-	LSH	A,-10.
-	ANDI	A,77
-SEND:	JUMPL	A,FSEND	;ACTUALLY IOT THIS CRUFT
-	ADDI	A,40
-	IDPB	A,ERP
-	POPJ	P,
-FSEND:	MOVEI	F,5
-	MOVEI	A,40
-FSNDL:	IDPB	A,ERP
-	SOSLE	F
-	JRST	FSNDL
-	HRRZM	ERP,SPNTR
-	SUBI	SPNTR,EBUFF
-	MOVNS	SPNTR
-	HRLZS	SPNTR
-	HRRI	SPNTR,EBUFF
-	MOVEM	SPNTR,SPSAV
-RESEND:	.IOT	LINE,SPNTR
-	.IOT	TTI,A
-	ANDI	A,177
-	CAIN	A,4
-	POPJ	P,
-	MOVE	SPNTR,SPSAV
-	JRST	RESEND
-
-SPSAV:	0
-SYMBS:	.IOT	TTI,A
-	CAIN	A,47	;^G;I.E.DON'T SEND SYMBOLS
-	JRST	GBYE
-	CAIE	A,5
-	JRST	SYMBS	;THAT SIGNALS 11 READY FOR SYMBOLS
-	.IOT	LINE,ONEP
-SYM1:	PUSHJ	P,GETDSK
-	CAIE	A,2
-	JRST	SYM1
-	PUSHJ	P,SETUP1
-	SKIPN	FINFLG
-	PUSHJ	P,SETUPU
-	MOVEI	C,BUFF1
-	PUSHJ	P,SNDB
-	MOVEI	C,FBUFF
-	PUSHJ	P,SNDB
-GBYE:	.VALUE	[ASCIZ /:LOGOUT
-/]
-
-SETUP1:	SETZM	FINFLG
-	MOVEI	REG,R1
-	MOVEI	C,7.
-	MOVEI	B,BF1ST
-	PUSHJ	P,SETUP
-	JUMPE	C,CPOPJ
-	MOVNS	C
-	ADDI	C,17.	;SEE HOW MUCH LEFT
-	IMULI	C,6
-	ADD	C,LDAD
-	MOVEM	C,..B
-	SETOM	FINFLG
-	POPJ	P,
-
-ONEP:	-1,,ONE
-ONE:	PACK	1,40,40,40,40
-SETUPU:	MOVEI	REG,RFLGS
-	SETZM	(REG)
-	SETZM	-1(REG)
-	MOVNI	A,100.
-	ADDM	A,LDAD
-	MOVEI	C,1
-	MOVEI	B,BUFFST
-	PUSHJ	P,SETUP
-	MOVE	A,LDAD
-	MOVEM	A,..B
-	JUMPE	C,SAME
-	MOVNS	C
-	ADDI	C,17.
-	IMULI	C,6
-	ADDM	C,..B
-	SETOM	FINFLG
-SAME:	MOVEI	C,BUFF2
-	PUSHJ	P,SNDB
-	SKIPN	FINFLG
-	JRST	SETUPU
-	POPJ	P,
-SNDB:	MOVE	ERP,EBUFP
-	MOVE	BCOUNT,1(C)
-	SUBI	BCOUNT,2
-	MOVEI	CKSM,1
-STPN:	MOVEI	A,1
-	PUSHJ	P,SEND
-	MOVEI	A,0
-	PUSHJ	P,SEND
-SNDLP:	MOVE	A,1(C)
-	ADDM	A,CKSM
-	MOVEM	A,B
-	LSH	A,-8.
-	ADDM	A,CKSM
-	SUBI	BCOUNT,2
-	MOVE	A,B
-	PUSHJ	P,SWORD
-	AOS	C
-	JUMPN	BCOUNT,SNDLP
-	MOVN	A,CKSM
-	ANDI	A,377
-	MOVE	B,A
-	PUSHJ	P,SWORD
-	SETOM	A
-	PUSHJ	P,SEND	;.IOT THE BLOCK
-	POPJ	P,
-
-
-FINFLG:	0
-SBTB:	440600,,A	;SIXBIT BYTE POINTER TO A
-
-RAD50:	MOVE	PPTR,SBTB
-	PUSHJ	P,LOOP50
-	HRRZM	F,-2(B)
-	PUSHJ	P,LOOP50
-	MOVEM	F,-1(B)
-	POPJ	P,
-LOOP50:	MOVEI	F,0
-	MOVEI	BCOUNT,3
-LOP50:	ILDB	S,PPTR
-	PUSHJ	P,CNVT
-	IMULI	F,50
-	ADD	F,S
-	SOJG	BCOUNT,LOP50
-	POPJ	P,
-
-CNVT:	CAIGE	S,41
-	JRST	NOTLET
-	CAILE	S,72
-	JRST	NOTLET
-	SUBI	S,40
-	POPJ	P,
-NOTLET:	CAIN	S,4
-	JRST	DOLR
-	CAIN	S,16
-	JRST	PERD
-	CAILE	S,31
-	JRST	NOTNUM
-	CAIGE	S,20
-	JRST	NOTNUM
-	ADDI	S,16
-	POPJ	P,
-NOTNUM:	MOVEI	S,0
-	POPJ	P,
-DOLR:	MOVEI	S,33
-	POPJ	P,
-PERD:	MOVEI	S,34
-	POPJ	P,
-SETUP:	PUSHJ	P,GETDSK
-	JUMPE	A,CPOPJ
-	AOJE	A,CPOPJ
-	SOS	A
-	PUSHJ	P,RAD50		;DEPOSITS INTO MEMORY
-	PUSHJ	P,GETDSK	;VALUE THIS TIME
-	HRRZM	A,(B)
-	MOVEI	D,1
-	LSH	D,-1(C)	;SO CAN POINT TO RIGHT BIT IN FLAG
-	MOVE	S,(REG)
-	TLNE	A,4000
-	TDO	S,D
-	MOVEM	S,(REG)
-	MOVE	S,-1(REG)
-	TLNE	A,20000
-	TDO	S,D
-	MOVEM	S,-1(REG)
-	SUBI	B,3
-	AOS	C
-	CAIG	C,16.
-	JRST	SETUP
-	MOVEI	C,0
-	POPJ	P,
-BUFF1:	1
-	106.
-	O.SYMS
-	BLOCK	29.
-BF1ST:	0
-	127570	;/.C /
-	0
-	24
-	130600	;/.P /
-	0
-	10
-	130410	;/.M /
-	0
-	11
-	127520	;/.B /
-	0
-	14
-	131542	;/..B/
-	0
-..B:	0
-	127400	;/.  /
-	0
-	0
-HK1:	1
-R1:	74
-BUFF2:	1
-	106.
-LDAD:	O.SYMS
-	BLOCK	47.
-BUFFST:	0
-	0
-RFLGS:	0
-
-FBUFF:	1
-	6
-	0
-
-	CONSTANTS
-	VARIABLES
-EBUFF:	BLOCK	10000
-	-1	;TO FAKE OUT DDT'S LOADER INTO CAUSING ENOUGH MEMORY
-	END	BEGIN