Build FAIL from sources and JOBDAT REL.

src/sail/fail.loader

@@ -0,0 +1,4 @@
+m sail;jobdat rell
+m sail;stktrn rell
+m sail;fail rell
+m sail;fail biny

src/sail/stktrn.39

@@ -2,26 +2,26 @@
 
 TITLE STINK Translator
 
-
T_1
-
STOBLK_2
-
STNWD_4
-
STOWD_5
-
STBTYP_6
-
STOSBC_7
-
STNSBC_10
-
STNBLK_11
-
STCKS_12
-
STCODE_13
-
STNSBL__14
-
BC_14
-
STP_15
-
P_17
+T=1
+STOBLK=2
+STNWD=4
+STOWD=5
+STBTYP=6
+STOSBC=7
+STNSBC=10
+STNBLK=11
+STCKS=12
+STCODE=13
+STNSBL==14
+BC=14
+STP=15
+P=17
 
-
INTGLB__20
-
STNBT__21
-
STOSBL__22
-
STNBL__40
-
STGSTL__41
+INTGLB==20
+STNBT==21
+STOSBL==22
+STNBL==40
+STGSTL==41
 
 INTERNAL STKTRN
 EXTERNAL GBOUT1
@@ -40,11 +40,11 @@ STKTRN:	MOVEM	P,STACS+17		;141
 	MOVEI	STOSBC,0
 	HLRZ	STBTYP,(BC)
 STBINT:	HRRZI	STNBLK,STNBUF		;156
-	MOVE	STP,[-41,,STGSTU]
+	MOVE	STP,[-STGSTL,,STGSTU]
 	SETZB	STCKS,STNBUF
 	MOVE	T,[STNBUF,,STNBUF+1]
 	BLT	T,STGPTR-1
-	HRROI	STNSBC,777777
+	HRROI	STNSBC,-1
 	SETZB	STNWD,STGSTU
 	CAILE	STBTYP,STNBT
 	HALT	.
@@ -56,11 +56,12 @@ STBINT:	HRRZI	STNBLK,STNBUF		;156
 	HRLS	BC
 	HRRI	BC,STNBUF
 	MOVEM	BC,STACS+14
-	SKIPGE	STBDSP(6)
-STSKRT:	AOS (P)				;200
-	MOVSI P,STACS
-	BLT P,P
-	POPJ P,
+	SKIPGE	STBDSP(STBTYP)
+STSKRT:	AOS	(P)			;200
+	MOVSI	P,STACS
+	BLT	P,P
+	POPJ	P,
+
 STBDSP:	 0,,STKBLK			;204
 	 3,,STREL
 	10,,STSYM
@@ -79,11 +80,12 @@ STBDSP:	 0,,STKBLK			;204
 	25,,STLVAR
 	20,,STGLBS
 	16,,STENT
-STBMPR:	LDB	T,[221106,,STBDSP]	;226
+
+STBMPR:	LDB	T,[221100,,STBDSP(STBTYP)]	;226
 	DPB	T,[310700,,STNWD]
 	CAIE	T,1
 	JRST	STPUT
-	LDB	T,[331006,,STBDSP]
+	LDB	T,[331000,,STBDSP(STBTYP)]
 	DPB	T,[001000,,STNWD]
 STPUT:	MOVEM	STNWD,(STNBLK)		;234
 	ADD	STNBLK,[1,,1]
@@ -116,17 +118,17 @@ STCKIT:	JCRY0	.+1			;264
 		 JRST	STSQUZ+3]
 	POPJ	P,
 STOUT:	PUSH	P,STCODE		;270
-	MOVE     STCODE,STBTYP
-	HLRZ     BC,STNBLK
-	MOVNS    BC
-	HRLI     BC,STNBUF
-	MOVSS    BC
-	PUSHJ    P,GBOUT1
-	POP      P,STCODE
-	POPJ     P,
-STGET:	MOVE     5,(STOBLK)		;301
-	SOJL     7,STGET0
-	ILDB     STCODE,STGPTR
+	MOVE	STCODE,STBTYP
+	HLRZ	BC,STNBLK
+	MOVNS	BC
+	HRLI	BC,STNBUF
+	MOVSS	BC
+	PUSHJ	P,GBOUT1
+	POP	P,STCODE
+	POPJ	P,
+STGET:	MOVE	5,(STOBLK)		;301
+	SOJL	7,STGET0
+	ILDB	STCODE,STGPTR
 	AOBJN	STOBLK,CPOPJ
 	POPJ	P,
 STGET0:	HRLI	T,440200		;306
@@ -153,12 +155,12 @@ STSYM1:	PUSHJ	P,STGET			;327
 	PUSHJ	P,STSQUZ
 	PUSHJ	P,@STSDSP(1)
 	JUMPL	STOBLK,STSYM1
-	PUSHJ	P,stputf
+	PUSHJ	P,STPUTF
 	SKIPN	STOWD,STGSTU
 	POPJ	P,
 	CAME	STNBLK,[000002,,STNBUF+2]
 	PUSHJ	P,STOUT
-	MOVEI	STBTYP,20
+	MOVEI	STBTYP,INTGLB
 	PUSHJ	P,STBINT
 	POPJ	P,
 STSQUZ:	LDB	T,[400400,,STNWD]	;346
@@ -167,24 +169,26 @@ STSQUZ:	LDB	T,[400400,,STNWD]	;346
 	CAMGE	STNWD,[000606,,500000]
 	JRST	[IMULI	STNWD,50
 		 JRST	STSQUZ+3]
-STSYM2:	DPB	T,[400400,STNWD]
+STSYM2:	DPB	T,[400400,,STNWD]
 	POPJ	P,
+
 STSDSP:	STOP				;355
 	STIGS
 	STLCL
 	STBN
 	STOP
-	STIGS-1
+	STGLHF
 	STOP
 	STOP
 	STOP
-	STIGS-1
+	STGLHF
 	STLCL
 	STOP
 	STGRQ
 	STIGS-1
 	STOP
 	STOP
+
 STOP:	HALT	.			;375
 STBN:	TLZ	STNWD,100000
 STLCL:	DPB	STCODE,[410200,,STNWD]	;377
@@ -193,7 +197,7 @@ STLCL:	DPB	STCODE,[410200,,STNWD]	;377
 	MOVEM	STNWD,1(STNBLK)
 	ADD	STNBLK,[2,,2]
 	POPJ	P,
-	JFCL
+STGLHF:	JFCL
 STIGS:	AOS	STGSTU			;406
 	PUSH	STP,STNWD
 	PUSH	STP,STSVAL
@@ -209,7 +213,7 @@ STGLBS:	MOVEI	STCODE,0		;414
 	ADD	STP,[3,,3]
 	JUMPGE	STP,[HALT .]
 	SOJG	STOWD,STGLBS
-	PUSHJ	P,stputf
+	PUSHJ	P,STPUTF
 	POPJ	P,
 STGRQ:	JUMPGE	STOWD,STIGS		;427
 	TLNN	STOWD,100000
@@ -227,10 +231,10 @@ STNAME:	PUSHJ	P,STGET			;441
 	MOVEM	STNWD,STPRGN
 	JUMPGE	STOBLK,CPOPJ
 	PUSHJ	P,STGET
-	TRNE	STOWD,777777
+	TRNE	STOWD,-1
 	HALT	.
 	POPJ	P,
-STEND:  PUSHJ	P,STGET			;452
+STEND:	PUSHJ	P,STGET			;452
 	HRLI	STOWD,STGPTR-1
 	MOVEM	STOWD,STNBUF
 	SETZM	STNBUF+1
@@ -260,7 +264,7 @@ STENT1:	PUSHJ	P,STGET
 	MOVEM	STNWD,(STNBLK)
 	ADD	STNBLK,[1,,1]
 	JUMPL	STOBLK,STENT1
-	JRST	stputf
+	JRST	STPUTF
 STKBLK:	MOVEI	STNBLK,STNBUF		;511
 	ADD	BC,[1,,1]
 	MOVE	STOWD,(BC)