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]
/
lib
/
iolib
/
src
/
o$la.asm
diff --git
a/lib/iolib/src/o$la.asm
b/lib/iolib/src/o$la.asm
index 29da760da0135dc16fdf38481444678ff34c1382..31cd28ec0073a66d8d6d788e9cf5b5a61d676d08 100644
(file)
--- a/
lib/iolib/src/o$la.asm
+++ b/
lib/iolib/src/o$la.asm
@@
-5,7
+5,8
@@
* LINE PRINTER ROUTINES
*
* REVISIONS:
* LINE PRINTER ROUTINES
*
* REVISIONS:
-* 1.0 (2005-02.04)
+* 1.0 (2005-02-04)
+* 1.1 (2006-04-03) - GET IT SMALLER
*
* AUTHOR
*
*
* AUTHOR
*
@@
-89,13
+90,11
@@
********************************************************************************
*
REL RELOCATEABLE MODE
********************************************************************************
*
REL RELOCATEABLE MODE
+ ORG 0
*
* CONFIGURATION
*
* CONFIGURATION
-SKP1 DEC 1 EMPTY LINES BEFORE HEADING
-SKP2 DEC 3 EMPTY LINES BETWEEN HEADING AND TEXT
LPP DEC 60 DATA LINES PER PAGE (WITHOUT HEADING ETC.)
LNW DEC 60 LINE LENGTH IN 2-CHAR WORDS
LPP DEC 60 DATA LINES PER PAGE (WITHOUT HEADING ETC.)
LNW DEC 60 LINE LENGTH IN 2-CHAR WORDS
-RS DEC 1 RIGHT DISTANCE FOR PAGE NUMBERING (2-CHAR WORDS)
*
*
O$LA DAC **
*
*
O$LA DAC **
@@
-147,6
+146,8
@@
HL1 LDA* P1
*
*
*
*
*
*
+SKP1 DEC 0 EMPTY LINES BEFORE HEADING
+SKP2 DEC 3 EMPTY LINES BETWEEN HEADING AND TEXT
NP DAC ** PREPARE NEW PAGE
LDA SKP1 SPACES BEFORE HEADING
SNZ SPACING REQUIRED?
NP DAC ** PREPARE NEW PAGE
LDA SKP1 SPACES BEFORE HEADING
SNZ SPACING REQUIRED?
@@
-187,9
+188,6
@@
FF DAC **
XR DEC 0 THE CALLER'S X REGISTER
CNT DEC 0
HBP DAC HBUF
XR DEC 0 THE CALLER'S X REGISTER
CNT DEC 0
HBP DAC HBUF
-HBUF BCI 20,
- BCI 20,
- BCI 20,
P1 DEC 0 POINTER 1
P2 DEC 0 POINTER 2
LINE DEC -40 NEG LINES LEFT ON PAGE
P1 DEC 0 POINTER 1
P2 DEC 0 POINTER 2
LINE DEC -40 NEG LINES LEFT ON PAGE
@@
-309,6
+307,7
@@
PP1 LDA* P2
IRS 0
JMP PP1
JMP* LNNR RETURN
IRS 0
JMP PP1
JMP* LNNR RETURN
+RS DEC 1 RIGHT DISTANCE FOR PAGE NUMBERING (2-CHAR WORDS)
*
*
MDG DAC ** MAKE DIGIT FROM A
*
*
MDG DAC ** MAKE DIGIT FROM A
@@
-330,6
+329,10
@@
LNR DAC ** DIGIT SERVICE
IRS LNR TALLY RETURN ADDRESS
NOFL IRS LNR TALLY RETURN ADDRESS
JMP* LNR
IRS LNR TALLY RETURN ADDRESS
NOFL IRS LNR TALLY RETURN ADDRESS
JMP* LNR
+*
+HBUF BCI 20,
+ BCI 20,
+ BCI 20,
*
FIN WRITE OUT LITERALS
*
*
FIN WRITE OUT LITERALS
*