F4$INI, F4$DUM, O$LH, O$ME, I$AA, I$CA, I$PA, I$MA, C$6TO8, O$PB, O$AB, O$MB, O$LA, C$8TO6, O$MA

* 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