Build FAIL from sources and JOBDAT REL.

README.md

@@ -135,7 +135,7 @@ A list of [known ITS machines](doc/machines.md).
    - DUMP/LOAD, tape backup and restore.
    - EMACS, editor.
    - EXECVT, convert 20x.exe (SSAVE) file to ITS BIN (PDUMP) file.
-   - FAIL, assembler from SAIL (binary).
+   - FAIL, assembler from SAIL.
    - FDIR, fast directory listing.
    - FED, font editor.
    - FIND, search for files.

build/build.tcl

@@ -933,6 +933,22 @@ expect ":KILL"
 respond "*" ":fail sail;stktrn rel_sail;stktrn >\r"
 respond "*" "\032:kill\r"
 
+# fail
+respond "*" ":fail sail;fail rel_sail;fail >\r"
+respond "*" "\032:kill\r"
+respond "*" ":stink\r"
+respond "\n" "m sail;jobdat rel\033l\033\033"
+respond "\n" "m sail;stktrn rel\033l\033\033"
+respond "\n" "m sail;fail rel\033l\033\033"
+respond "\n" "m sail;fail bin\033y\033\033"
+expect ":KILL"
+respond "*" ":job fail\r"
+respond "*" ":load sail;fail bin\r"
+respond "*" "\033\0331l decsys;decbot bin\r"
+respond "*" ".jbsa/strt\r"
+respond "'" "\033y sys;ts fail\r"
+respond "*" ":kill\r"
+
 # who%
 respond "*" ":midas sys1;ts who%_sysen3;who%\r"
 expect ":KILL"

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
+T=1
-
STOBLK_2
+STOBLK=2
-
STNWD_4
+STNWD=4
-
STOWD_5
+STOWD=5
-
STBTYP_6
+STBTYP=6
-
STOSBC_7
+STOSBC=7
-
STNSBC_10
+STNSBC=10
-
STNBLK_11
+STNBLK=11
-
STCKS_12
+STCKS=12
-
STCODE_13
+STCODE=13
-
STNSBL__14
+STNSBL==14
-
BC_14
+BC=14
-
STP_15
+STP=15
-
P_17
+P=17
 
-
INTGLB__20
+INTGLB==20
-
STNBT__21
+STNBT==21
-
STOSBL__22
+STOSBL==22
-
STNBL__40
+STNBL==40
-
STGSTL__41
+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)
+	SKIPGE	STBDSP(STBTYP)
-STSKRT:	AOS (P)				;200
+STSKRT:	AOS	(P)			;200
-	MOVSI P,STACS
+	MOVSI	P,STACS
-	BLT P,P
+	BLT	P,P
-	POPJ 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
+	MOVE	STCODE,STBTYP
-	HLRZ     BC,STNBLK
+	HLRZ	BC,STNBLK
-	MOVNS    BC
+	MOVNS	BC
-	HRLI     BC,STNBUF
+	HRLI	BC,STNBUF
-	MOVSS    BC
+	MOVSS	BC
-	PUSHJ    P,GBOUT1
+	PUSHJ	P,GBOUT1
-	POP      P,STCODE
+	POP	P,STCODE
-	POPJ     P,
+	POPJ	P,
-STGET:	MOVE     5,(STOBLK)		;301
+STGET:	MOVE	5,(STOBLK)		;301
-	SOJL     7,STGET0
+	SOJL	7,STGET0
-	ILDB     STCODE,STGPTR
+	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)