[h316.git] / lib / fortran / src / fpatch.asm

*    (FPATCH)    REV.B  (6.2.2005)
*
*  
* COMPUTER:   H316
*   
* PROGRAM CATEGORY:  I/O LIBRARY
*    
* PROGRAM TITLE:  FPATCH 
*                 FORTRAN COMPILER PATCH
*
*
* AUTHOR
*
*    PHILIPP HACHTMANN
*
* REVISIONS
*    REV. B (6.2.2005) ADDED CORRECT DATA POOL ENTRY MANIPULATION
*
* PURPOSE
*
*    THIS PATCH IS TO ENABLE THE FORTRAN IV COMPILER TO USE THE
*    O$LA AND O$LH SUBROUTINES                         
*
*
* RESTRICTIONS
*
*    DEPENDS ON HACHTI'S HARDWARE AND FORTRAN IV COMPILER TAPE
*
*
* STORAGE
*
*    50 (OCTAL)
*    40 (DECIMAL)
*
*
* USE
*
*    THE LIBRARY ROUTINES ARE FOR GENERAL PURPOSE.
*    TO APPLY THE PATCH:
*        - BOOT FRTN SYSTEM TAPE
*        - LOAD O$LA AT LOCATION '20000
*        - LOAD FPATCH SOMEWHERE ABOVE
*        - RUN FROM FIRST LOCATION OF FPATCH
*
********************************************************************************
	SUBR	FPATCH,PTCH	ONLY FOR NAMING PURPOSES
********************************************************************************
* 
IOSB	EQU	'15036	IOS' BASE ADDRESS
IOSS	EQU	'36	INNER SECTOR OFFSET
PT1	EQU	'611	FIRST FREELY USABLE ADDRESS IN IOS' SPACE
PT2	EQU	'612	SECOND FREELY USABLE ADDRESS IN IOS' SPACE
PTE	EQU	'610	ADDRESS WHICH MUST BE FILLED WITH "V?"
PTS	EQU	'635	MESSAGE SIZE OF "DEVICE?" ERROR MESSAGE
JH	EQU	'173	ADDRESS OF CALL O$LH INSTRUCTION IN IOS
JL	EQU	'252	ADDRESS OF CALL O$LA INSTRUCTIIN IN IOS
DUM	EQU	'16612	DUMY OBJECT'S BASE ADDRESS
DPO	EQU	'16	ADDRESS OF ORIGINAL DUMY'S OWN BASE POINTER
*
JSTI	EQU	'121000	JST* INSTRUCTION
*
	REL		LET'S BEGIN RELATIVE
	SUBR	ENDPAL,FNS	END OF THE IMPORTANT PART
	REL	RELATIVE MODE
ND1	***	**
	***	**
	***	**
	***	**
ND2	***	**
*
*
	ABS		ABSOLUTE MODE
	ORG	'21000
PTCH	NOP
	LDX	IOS	ADDRESSES WILL BE RELATIVE TO IOS' BEGINNING
 	LDA	OLHA	O$LH ADDRESS (OK)
 	STA	PT1,1	STORE TO POINTER LOCATION (OK)
 	LDA	OLLA	O$LA ADDRESS (OK)
 	STA	PT2,1	STORE TO POINTER LOCATION (OK)
 	LDA	VQ	LOAD "V?" (OK)
 	STA	PTE,1	REPAIR "DEV?" MSG (OK)
 	LDA	='-4	
 	STA	PTS,1	NEW MESSAGE SIZE (OK)
*
 	LDA	JMP1	NEUER SPRUNG
	STA	JH,1
 	LDA	JMP2
	STA	JL,1
**************
*
	LDA	ND2P	ADDRESS OF NEW "DUMMY ROUTINE"
	STA*	DP	STORE TO VARIABLE IN ORIGINAL DUMMY ROUTINE
	LDA	ND1P1
	STA	'100
	AOA
	STA	'101
	AOA
	STA	'102
	AOA
	STA	'103
	AOA
	STA	'104
	AOA
	STA	'105
	AOA
	STA	'106
	AOA
	STA	'107
	AOA
	STA	'110
	AOA
	STA	'111
	AOA
	STA	'112
*
**********
* READY
	LDA	OK	LOAD OK
	ICA
	OCP	'104
	OTA	4
	JMP	*-1
	ICA
	OTA	4
	JMP	*-1
	LDA	CRLF
	ICA
	OTA	4
	JMP	*-1
	ICA	
	OTA	4
	JMP	*-1
	HLT
	JMP	*-1
*
**********
* 
* KONSTANTEN
VQ	BCI	1,V?
CRLF	OCT	6412	
OK	BCI	1,OK	
OLLA	XAC	O$LA
OLHA	XAC	O$LH
*
IOS	DAC	IOSB	IOS BASE ADDRESS
DP	DAC	DUM+'52	"DP" VARIABLE ADDRESS
ND1P	DAC	ND1,1	NEW DUMMY ROUTINE'S BASE ADDRESS + INDEX BIT
ND2P	DAC	ND2	NEW DUMMY ROUTINE'S START ADDRESS
*
DUMB	DAC	DUM	ORIGNAL DUMMY'S START ADDRESS
* POINTER USW
JMP1	DAC	JSTI+PT1+IOSS
JMP2	DAC	JSTI+PT2+IOSS
*
*******************************************************************************
*
*
*	ORG	'100
*	DAC	NDUM-4,1
*	DAC	NDUM-3,1	
*	DAC	NDUM-2,1
*	DAC	NDUM-1,1
*	DAC	NDUM,1
*	DAC	NDUM+1,1
*	DAC	NDUM+2,1
*	DAC	NDUM+3,1	
*	DAC	NDUM+4,1	
*	DAC	NDUM+5,1
*	DAC	NDUM+6,1
*
* PUH.....
*
	END
Commit	Line	Data
	1	* (FPATCH) REV.B (6.2.2005)
	2	*
	3	*
	4	* COMPUTER: H316
	5	*
	6	* PROGRAM CATEGORY: I/O LIBRARY
	7	*
	8	* PROGRAM TITLE: FPATCH
	9	* FORTRAN COMPILER PATCH
	10	*
	11	*
	12	* AUTHOR
	13	*
	14	* PHILIPP HACHTMANN
	15	*
	16	* REVISIONS
	17	* REV. B (6.2.2005) ADDED CORRECT DATA POOL ENTRY MANIPULATION
	18	*
	19	* PURPOSE
	20	*
	21	* THIS PATCH IS TO ENABLE THE FORTRAN IV COMPILER TO USE THE
	22	* O$LA AND O$LH SUBROUTINES
	23	*
	24	*
	25	* RESTRICTIONS
	26	*
	27	* DEPENDS ON HACHTI'S HARDWARE AND FORTRAN IV COMPILER TAPE
	28	*
	29	*
	30	* STORAGE
	31	*
	32	* 50 (OCTAL)
	33	* 40 (DECIMAL)
	34	*
	35	*
	36	* USE
	37	*
	38	* THE LIBRARY ROUTINES ARE FOR GENERAL PURPOSE.
	39	* TO APPLY THE PATCH:
	40	* - BOOT FRTN SYSTEM TAPE
	41	* - LOAD O$LA AT LOCATION '20000
	42	* - LOAD FPATCH SOMEWHERE ABOVE
	43	* - RUN FROM FIRST LOCATION OF FPATCH
	44	*
	45	********************************************************************************
	46	SUBR FPATCH,PTCH ONLY FOR NAMING PURPOSES
	47	********************************************************************************
	48	*
	49	IOSB EQU '15036 IOS' BASE ADDRESS
	50	IOSS EQU '36 INNER SECTOR OFFSET
	51	PT1 EQU '611 FIRST FREELY USABLE ADDRESS IN IOS' SPACE
	52	PT2 EQU '612 SECOND FREELY USABLE ADDRESS IN IOS' SPACE
	53	PTE EQU '610 ADDRESS WHICH MUST BE FILLED WITH "V?"
	54	PTS EQU '635 MESSAGE SIZE OF "DEVICE?" ERROR MESSAGE
	55	JH EQU '173 ADDRESS OF CALL O$LH INSTRUCTION IN IOS
	56	JL EQU '252 ADDRESS OF CALL O$LA INSTRUCTIIN IN IOS
	57	DUM EQU '16612 DUMY OBJECT'S BASE ADDRESS
	58	DPO EQU '16 ADDRESS OF ORIGINAL DUMY'S OWN BASE POINTER
	59	*
	60	JSTI EQU '121000 JST* INSTRUCTION
	61	*
	62	REL LET'S BEGIN RELATIVE
	63	SUBR ENDPAL,FNS END OF THE IMPORTANT PART
	64	REL RELATIVE MODE
	65	ND1 *
	66	*
	67	*
	68	*
	69	ND2 *
	70	*
	71	*
	72	ABS ABSOLUTE MODE
	73	ORG '21000
	74	PTCH NOP
	75	LDX IOS ADDRESSES WILL BE RELATIVE TO IOS' BEGINNING
	76	LDA OLHA O$LH ADDRESS (OK)
	77	STA PT1,1 STORE TO POINTER LOCATION (OK)
	78	LDA OLLA O$LA ADDRESS (OK)
	79	STA PT2,1 STORE TO POINTER LOCATION (OK)
	80	LDA VQ LOAD "V?" (OK)
	81	STA PTE,1 REPAIR "DEV?" MSG (OK)
	82	LDA ='-4
	83	STA PTS,1 NEW MESSAGE SIZE (OK)
	84	*
	85	LDA JMP1 NEUER SPRUNG
	86	STA JH,1
	87	LDA JMP2
	88	STA JL,1
	89	**************
	90	*
	91	LDA ND2P ADDRESS OF NEW "DUMMY ROUTINE"
	92	STA* DP STORE TO VARIABLE IN ORIGINAL DUMMY ROUTINE
	93	LDA ND1P1
	94	STA '100
	95	AOA
	96	STA '101
	97	AOA
	98	STA '102
	99	AOA
	100	STA '103
	101	AOA
	102	STA '104
	103	AOA
	104	STA '105
	105	AOA
	106	STA '106
	107	AOA
	108	STA '107
	109	AOA
	110	STA '110
	111	AOA
	112	STA '111
	113	AOA
	114	STA '112
	115	*
	116	**********
	117	* READY
	118	LDA OK LOAD OK
	119	ICA
	120	OCP '104
	121	OTA 4
	122	JMP *-1
	123	ICA
	124	OTA 4
	125	JMP *-1
	126	LDA CRLF
	127	ICA
	128	OTA 4
	129	JMP *-1
	130	ICA
	131	OTA 4
	132	JMP *-1
	133	HLT
	134	JMP *-1
	135	*
	136	**********
	137	*
	138	* KONSTANTEN
	139	VQ BCI 1,V?
	140	CRLF OCT 6412
	141	OK BCI 1,OK
	142	OLLA XAC O$LA
	143	OLHA XAC O$LH
	144	*
	145	IOS DAC IOSB IOS BASE ADDRESS
	146	DP DAC DUM+'52 "DP" VARIABLE ADDRESS
	147	ND1P DAC ND1,1 NEW DUMMY ROUTINE'S BASE ADDRESS + INDEX BIT
	148	ND2P DAC ND2 NEW DUMMY ROUTINE'S START ADDRESS
	149	*
	150	DUMB DAC DUM ORIGNAL DUMMY'S START ADDRESS
	151	* POINTER USW
	152	JMP1 DAC JSTI+PT1+IOSS
	153	JMP2 DAC JSTI+PT2+IOSS
	154	*
	155	*******************************************************************************
	156	*
	157	*
	158	* ORG '100
	159	* DAC NDUM-4,1
	160	* DAC NDUM-3,1
	161	* DAC NDUM-2,1
	162	* DAC NDUM-1,1
	163	* DAC NDUM,1
	164	* DAC NDUM+1,1
	165	* DAC NDUM+2,1
	166	* DAC NDUM+3,1
	167	* DAC NDUM+4,1
	168	* DAC NDUM+5,1
	169	* DAC NDUM+6,1
	170	*
	171	* PUH.....
	172	*
	173	END