1 * F4$DUM - DEC 10 2006 - VERSION 1
3 * FORTRAN COMPILER DUMMY DEVICE DRIVERS AND DATA POOL INITIALISATION
5 * THIS MODULE MUST BE THE LAST ONE BEING LINKED TO THE F4 COMPILER.
6 * THESE ROUTINES ARE CALLED BY F4-IOS AND THE INITIALISATION ROUTINE
7 * IS OVERWRITTEN BY THE DATA POOL AFTER INITIALISATION.
9 * HONEYWELL X16 16 BIT COMPUTER SOFTWARE
11 * PROGRAM LENGTH: 48 WORDS
13 * THIS SOURCE IS RECREATED FROM THE EXISTING SLST FILE:
14 * - SLST-FRTN.IMG (WHICH ORIGINATES FROM HONEYWELL)
16 * THE SOURCE IS RECREATED BY: THEO ENGEL (THEO.ENGEL@HETNET.NL)
55 DAC *-* DUMMY SOURCE INPUT
63 DAC *-* DUMMY OBJECT OUTPUT
70 DAC *-* DUMMY LISTING OUTPUT
73 * JUMP TABLE TO APPROPRIATE DUMMY DRIVER IN F4-IOS
74 SI XAC F4$DUI POINTER TO DUMMY SOURCE INPUT DEVICE DRIVER
75 OO XAC F4$DUO POINTER TO DUMMY OBJECT OUTPUT DEVICE DRIVER
76 LL XAC F4$DUS POINTER TO DUMMY LISTING OUTPUT DEVICE DRIVER
78 * PURPOSE OF INI ROUTINE IS TWOFOLD:
79 * - INITIALIZE THE MEMORY BOUNDARIES BEING USED BY THE F4 COMPILER CODE
80 * AND I/O DRIVERS TO DETERMINE THE SPACE FOR THE DATA POOL
81 * - INITIALIZE AND LINK THE DATA POOL TO THE F4 COMPILER VIA SECTOR 0
83 DP EQU * START OF DATA POOL
86 LDA SIZE GET RETURN ADDRESS
88 STA SIZE = CALLING ADDRESS
90 STA* SIZE REPLACE CALL BY NOP
91 NEXT LDA MTOP MEMORY BOUNDARY
92 SUB CTOP MINUS CODE LENGTH
94 STA LO SAVE DATAPOOL SIZE
95 LDA* MTOP CONTENT MEM BOUNDARY
96 IAB => B = CONTENT MEM BOUNDARY
98 STA* MTOP STORE PATTERN
99 LDA* MTOP AND TRY TO GET IT BACK
101 JMP* SIZE MEMORY SIZE = MTOP
103 STA* MTOP RESTORE CONTENT MEM BOUNDARY
105 ADD M4K INCREASE MEM BOUNDARY WITH 4K
111 * THE ADAPTION PROCESS STOPS HERE WHEN MTOP = 16K
112 * THE DATA POOL SIZE (LO) IS ADAPTED THEN FOR THE MTOP = 12K
113 * FOR A 16K MACHINE THE UPPER 4K IS NOT USED FOR THE DATAPOOL.
114 * TO USE THAT UPPER 4K, THE VALUE OF 'UPP' HAS TO CHANCE TO '50000
116 JMP* SIZE YES; STOP IF MTOP = UPP
120 MTOP OCT 20000 MINIMUM MEMORY TOP (8K INIT)
121 NOP NOP NOP OPERATION
123 UPP OCT 40000 16K (20K => '50000)
125 PAT OCT 12525 MEMORY PATTREN
130 * THE FOLLOWING TABLE LINKS THE DATA POOL VIA SECTOR 0 TO THE F4 COMPILER
146 LO DAC DP+7 (113) DATA POOL SIZE