*
************************************************************************
*
- SUBR LSTART,BO3S BEGINNING OF THIRD STAGE LOADER
+ SUBR BINAL,ANF
+ SUBR LSTART,BO3S BEGINNING OF THIRD STAGE LOADER
*
REL RELOCATABLE MODE
ORG 0
*
- STA STRT SAVE AUTO START LOCATION
+ANF STA STRT SAVE AUTO START LOCATION
CRA
HLT
STA ALOC FIRST LOCATION TO PUNCH
B2AD DAC BO2S START ADDRESS OF SECOND STAGE LOADER
B3AD DAC BO3S START ADDRESS OF THIRD STAGE LOADER
*
-LDRL DEC 300 LEADER LENGTH
+LDRL DEC 100 LEADER LENGTH
SZE SZE INSTRUCTION FOR FILL IN
SNZ SNZ INSTRUCTION FOR FILL IN
*
* COMPLETE THE PAUS ROUTINE
LDA PJ1
STA J1
+ LDA PJ2
+ STA J2
CRA
STA PAUS
STA JH
TDAT OCT '11
*
*
-LWRD OCT 66
+LWRD OCT 66 CAN'T BE INITIALLY ZERO!
INA '1001 CLEAR A AND INPUT
JMP *-1
ICA
*******************
* THE ATTIC OF THE THIRD STAGE LOADER
PJ1 JMP* PAUS LAST LOCATION THAT WILL BE LOADED FROM TAPE!
+PJ2 OCP '101 STOP READER
PAUS DAC ** WILL BE INITIALIZED TO ZERO BEFORE PUNCHING
+J2 DAC ** BECOMES OCP '101 ON START OF LOAD
JH HLT BECOMES CLEARED ON START OF LOAD
J1 DAC ** BECOMES JMP* PAUS ON START OF LOAD
*