18-FEB-78

BASIC .SV   9 21-JUL-77
BCOMP .SV  17 21-JUL-77
BLOAD .SV   8 21-JUL-77
BRTS  .SV  15 21-JUL-77
BASIC .AF   4 21-JUL-77
BASIC .FF   4 21-JUL-77
BASIC .SF   4 21-JUL-77
BASIC .UF   4 21-JUL-77
STARTR.BA  31 03-FEB-78
STARTR.LS   4 30-JAN-78
CODMAK.BA   8 08-FEB-78
CODMAK.SV   9 08-FEB-78
CODBRE.BA   9 08-FEB-78
NIMBLE.BA  12 11-NOV-77
NIMBLE.SV  13 22-FEB-78
BBALL .BA  19 22-FEB-78
BBALL .SV  14 22-FEB-78
BBALLA.BA  19 31-DEC-77
BBALLA.SV  14 22-FEB-78
ROCKET.BA   6 22-FEB-78
ROCKET.SV   8 22-FEB-78
STARTR.SV  28 03-FEB-78
CODBRE.SV  10 08-FEB-78
OTHELO.BA  21 14-FEB-78
OTHELO.SV  16 14-FEB-78
YAHTZE.BA  20 21-FEB-78
YAHTZE.SV  20 21-FEB-78
MORTT .FT   7 19-DEC-77
MORTT .SV  21 19-DEC-77
CHEKMO.WU  34 01-JAN-76
CHEKMO.BN  18 01-JAN-76
CHEKMO.SV  15 01-JAN-76
CUBIC .PA  35 04-JUN-73
CUBIC .SV   8 22-FEB-78
T3ZSR .SV  17 01-MAY-72
T3BZSR.SV  17 01-MAY-72
ROULET.BA  11 28-MAR-78
ROULET.SV  10 28-MAR-78
FOOTBA.BA  19 23-MAR-71
FOOTBA.SV  16 23-MAR-71

  40 files in  574 blocks -  156 free blocks
T BE ZERO HERE
FILE,	OTFL			/LOADER IMAGE FILE
LDRIOC,	0			/R/W + BLOCK CNT + FLD
LDRIOA,	0			/ADDRESS
LDRIOB,	0			/BLOCK NUMBER
LDRIOR,	JMP I	LDRIO		/NULL BUFFER XFER ADDRESS AND EXIT
/

/CODE TABLE
CODTBL,	ASIS			/0 - LOAD AS IS
	REL12			/1 - ADD BASE OF CURRENT SECT TO ENTRY
	REL7B			/2 - 7 BIT RELOCATION
	SLC			/3 - SPECIAL LOADER CODE

PAGE
/PUSH SUBROUTINE
PUSH,	0
	DCA I	IN		/STORE WORD TO BE PUSHED
	TAD	IN		/MOVE CURRENT POINTER
	DCA	SOUT
	ISZ	IN		/BUMP CURRENT POINTER
	TAD	IN
	TAD	SBOTTOM
	SMA CLA			/AT END OF STACK?
E28==.;	JMS I	COS8ER		/YES, ERROR, STACK FULL
	JMP I	PUSH		/OK
/
/
IN,	STACK
SBOTTOM,	-BSTAK
/
/
POP,	0
	TAD	SOUT
	SNA
	JMP	.+3
	TAD (-STACK
	SPA CLA			/STACK UNDERFLOW?
E29==.;	JMS I	COS8ER		/YES,