| Previous File | Multiple Pages | Next File |
* F4$DUM - DEC 10 2006 - VERSION 1 PAGE 1
0001 * F4$DUM - DEC 10 2006 - VERSION 1 0002 * 0003 * FORTRAN COMPILER DUMMY DEVICE DRIVERS AND DATA POOL INITIALISATION 0004 * 0005 * THIS MODULE MUST BE THE LAST ONE BEING LINKED TO THE F4 COMPILER. 0006 * THESE ROUTINES ARE CALLED BY F4-IOS AND THE INITIALISATION ROUTINE 0007 * IS OVERWRITTEN BY THE DATA POOL AFTER INITIALISATION. 0008 * 0009 * HONEYWELL X16 16 BIT COMPUTER SOFTWARE 0010 * 0011 * PROGRAM LENGTH: 48 WORDS 0012 * 0013 * THIS SOURCE IS RECREATED FROM THE EXISTING SLST FILE: 0014 * - SLST-FRTN.IMG (WHICH ORIGINATES FROM HONEYWELL) 0015 * 0016 * THE SOURCE IS RECREATED BY: THEO ENGEL (THEO.ENGEL@HETNET.NL) 0017 * 0018 SUBR F4$INI,SIZE 0019 SUBR F4$DUM,DUM 0020 SUBR O$LH 0021 SUBR O$ME 0022 * 0023 SUBR I$AA 0024 SUBR I$CA 0025 SUBR I$PA 0026 SUBR I$MA 0027 SUBR C$6TO8,C$68 0028 * 0029 SUBR O$PB 0030 SUBR O$AB 0031 SUBR O$MB 0032 * 0033 SUBR O$LA 0034 SUBR C$8TO6,C$86 0035 SUBR O$MA 0036 * 0037 REL 0038 * 0039 000000 DUM EQU * 0040 00000 0 000000 DAC *-* 0041 00001 -0 01 00000 JMP* *-1 0042 * 0043 000002 O$LH EQU * 0044 000002 O$ME EQU * 0045 00002 0 000000 DAC *-* 0046 00003 0 12 00002 IRS *-1 0047 00004 -0 01 00002 JMP* *-2 0048 * 0049 * SOURCE INPUT 0050 000005 I$AA EQU *
* F4$DUM - DEC 10 2006 - VERSION 1 PAGE 2
0051 000005 I$CA EQU * 0052 000005 I$PA EQU * 0053 000005 I$MA EQU * 0054 000005 C$68 EQU * 0055 00005 0 000000 DAC *-* DUMMY SOURCE INPUT 0056 00006 -0 01 00013 JMP* SI 0057 * 0058 * OBJECT OUTPUT 0059 000007 O$PB EQU * 0060 000007 O$AB EQU * 0061 000007 O$MB EQU * 0062 000007 O$MS EQU * 0063 00007 0 000000 DAC *-* DUMMY OBJECT OUTPUT 0064 00010 -0 01 00014 JMP* OO 0065 * 0066 * LISTING OUTPUT 0067 000011 O$LA EQU * 0068 000011 C$86 EQU * 0069 000011 O$MA EQU * 0070 00011 0 000000 DAC *-* DUMMY LISTING OUTPUT 0071 00012 -0 01 00015 JMP* LL 0072 * 0073 * JUMP TABLE TO APPROPRIATE DUMMY DRIVER IN F4-IOS 0074 00013 0 000000 SI XAC F4$DUI POINTER TO DUMMY SOURCE INPUT DEVICE DRIVER 0075 00014 0 000000 OO XAC F4$DUO POINTER TO DUMMY OBJECT OUTPUT DEVICE DRIVER 0076 00015 0 000000 LL XAC F4$DUS POINTER TO DUMMY LISTING OUTPUT DEVICE DRIVER 0077 * 0078 * PURPOSE OF INI ROUTINE IS TWOFOLD: 0079 * - INITIALIZE THE MEMORY BOUNDARIES BEING USED BY THE F4 COMPILER CODE 0080 * AND I/O DRIVERS TO DETERMINE THE SPACE FOR THE DATA POOL 0081 * - INITIALIZE AND LINK THE DATA POOL TO THE F4 COMPILER VIA SECTOR 0 0082 * 0083 000016 DP EQU * START OF DATA POOL 0084 * 0085 00016 0 000000 SIZE DAC *-* 0086 00017 0 02 00016 LDA SIZE GET RETURN ADDRESS 0087 00020 0 07 00057 SUB N1 MINUS 1 0088 00021 0 04 00016 STA SIZE = CALLING ADDRESS 0089 00022 0 02 00051 LDA NOP 0090 00023 -0 04 00016 STA* SIZE REPLACE CALL BY NOP 0091 00024 0 02 00050 NEXT LDA MTOP MEMORY BOUNDARY 0092 00025 0 07 00052 SUB CTOP MINUS CODE LENGTH 0093 00026 0 07 00056 SUB O103 ='103 0094 00027 0 04 00113 STA LO SAVE DATAPOOL SIZE 0095 00030 -0 02 00050 LDA* MTOP CONTENT MEM BOUNDARY 0096 00031 000201 IAB => B = CONTENT MEM BOUNDARY 0097 00032 0 02 00055 LDA PAT PATTERN 0098 00033 -0 04 00050 STA* MTOP STORE PATTERN 0099 00034 -0 02 00050 LDA* MTOP AND TRY TO GET IT BACK 0100 00035 101040 SNZ
* F4$DUM - DEC 10 2006 - VERSION 1 PAGE 3
0101 00036 -0 01 00016 JMP* SIZE MEMORY SIZE = MTOP 0102 00037 000201 IAB 0103 00040 -0 04 00050 STA* MTOP RESTORE CONTENT MEM BOUNDARY 0104 00041 0 02 00050 LDA MTOP 0105 00042 0 06 00054 ADD M4K INCREASE MEM BOUNDARY WITH 4K 0106 00043 0 04 00050 STA MTOP 0107 00044 0 05 00053 ERA UPP 16K?/20K? 0108 00045 100040 SZE 0109 00046 0 01 00024 JMP NEXT NO 0110 * 0111 * THE ADAPTION PROCESS STOPS HERE WHEN MTOP = 16K 0112 * THE DATA POOL SIZE (LO) IS ADAPTED THEN FOR THE MTOP = 12K 0113 * FOR A 16K MACHINE THE UPPER 4K IS NOT USED FOR THE DATAPOOL. 0114 * TO USE THAT UPPER 4K, THE VALUE OF 'UPP' HAS TO CHANCE TO '50000 0115 * 0116 00047 -0 01 00016 JMP* SIZE YES; STOP IF MTOP = UPP 0117 * 0118 * WORKSPACE 0119 * 0120 00050 020000 MTOP OCT 20000 MINIMUM MEMORY TOP (8K INIT) 0121 00051 101000 NOP NOP NOP OPERATION 0122 00052 0 000016 CTOP DAC DP CODE TOP 0123 00053 040000 UPP OCT 40000 16K (20K => '50000) 0124 00054 010000 M4K OCT 10000 4K 0125 00055 012525 PAT OCT 12525 MEMORY PATTREN 0126 00056 000103 O103 OCT 103 ='103 0127 00057 000001 N1 OCT 1 0128 * 0129 * 0130 * THE FOLLOWING TABLE LINKS THE DATA POOL VIA SECTOR 0 TO THE F4 COMPILER 0131 * 0132 * 0133 ABS 0134 ORG '100 0135 00100 1 000012 DAC DP-4,1 (100) 0136 00101 1 000013 DAC DP-3,1 (101) 0137 00102 1 000014 DAC DP-2,1 (102) 0138 00103 1 000015 DAC DP-1,1 (103) 0139 00104 1 000016 DAC DP,1 (104) 0140 00105 1 000017 DAC DP+1,1 (105) 0141 00106 1 000020 DAC DP+2,1 (106) 0142 00107 1 000021 DAC DP+3,1 (107) 0143 00110 1 000022 DAC DP+4,1 (110) 0144 00111 1 000023 DAC DP+5,1 (111) 0145 00112 1 000024 DAC DP+6,1 (112) 0146 00113 0 000025 LO DAC DP+7 (113) DATA POOL SIZE 0147 * 0148 END C$68 000005 C$86 000011 CTOP 000052 DP 000016
* F4$DUM - DEC 10 2006 - VERSION 1 PAGE 4
DUM 000000 I$AA 000005 I$CA 000005 I$MA 000005 I$PA 000005 LL 000015 LO 000113A M4K 000054 MTOP 000050 N1 000057 NEXT 000024 NOP 000051 O$AB 000007 O$LA 000011 O$LH 000002 O$MA 000011 O$MB 000007 O$ME 000002 O$MS 000007 O$PB 000007 O103 000056 OO 000014 PAT 000055 SI 000013 SIZE 000016 UPP 000053 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71
| Previous File | Multiple Pages | Next File |