projects
/
h316.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
*** empty log message ***
[h316.git]
/
programs
/
tools
/
src
/
binal.asm
diff --git
a/programs/tools/src/binal.asm
b/programs/tools/src/binal.asm
index 87de4f5e050e45c153ceb46a5a2771b1243f39b3..b93caff6c1f4bc63e1b26e465863345955674380 100644
(file)
--- a/
programs/tools/src/binal.asm
+++ b/
programs/tools/src/binal.asm
@@
-102,12
+102,13
@@
*
************************************************************************
*
*
************************************************************************
*
- SUBR LSTART,BO3S BEGINNING OF THIRD STAGE LOADER
+ SUBR BINAL,ANF
+ SUBR LSTART,BO3S BEGINNING OF THIRD STAGE LOADER
*
REL RELOCATABLE MODE
ORG 0
*
*
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
CRA
HLT
STA ALOC FIRST LOCATION TO PUNCH
@@
-390,7
+391,7
@@
SWRD DAC **
B2AD DAC BO2S START ADDRESS OF SECOND STAGE LOADER
B3AD DAC BO3S START ADDRESS OF THIRD STAGE LOADER
*
B2AD DAC BO2S START ADDRESS OF SECOND STAGE LOADER
B3AD DAC BO3S START ADDRESS OF THIRD STAGE LOADER
*
-LDRL DEC
1
00 LEADER LENGTH
+LDRL DEC
3
00 LEADER LENGTH
SZE SZE INSTRUCTION FOR FILL IN
SNZ SNZ INSTRUCTION FOR FILL IN
*
SZE SZE INSTRUCTION FOR FILL IN
SNZ SNZ INSTRUCTION FOR FILL IN
*