*
************************************************************************
*
- 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
* 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
*