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-laser.asm
diff --git
a/lib/iolib/src/o$la-laser.asm
b/lib/iolib/src/o$la-laser.asm
index 843a36f32bacf248da28f059b6d35b7a11e2eadf..6b9d70221bf35e6a1cca3b1a94c60f739134f49f 100644
(file)
--- a/
lib/iolib/src/o$la-laser.asm
+++ b/
lib/iolib/src/o$la-laser.asm
@@
-7,7
+7,7
@@
* REVISIONS:
* 1.0 (2005-02-04)
* 1.1 (2006-04-03) - GET IT SMALLER
* REVISIONS:
* 1.0 (2005-02-04)
* 1.1 (2006-04-03) - GET IT SMALLER
-*
+*
1.2 (2007-01-15) - SOME FINE TUNING
* AUTHOR
*
* PHILIPP HACHTMANN
* AUTHOR
*
* PHILIPP HACHTMANN
@@
-127,6
+127,7
@@
O$LH DAC ** INIT HEADING
LDA HBUP
STA P2 POINTER TO TARGET
LDA LNW LINE LENGTH
LDA HBUP
STA P2 POINTER TO TARGET
LDA LNW LINE LENGTH
+ SUB PGSL LENGTH OF PAGE NUMBERING
TCA
STA CNT
HL1 LDA* P1
TCA
STA CNT
HL1 LDA* P1
@@
-193,7
+194,10
@@
P1 DEC 0 POINTER 1
P2 DEC 0 POINTER 2
LINE DEC -40 NEG LINES LEFT ON PAGE
PGS BCI 5, PAGE XXX
P2 DEC 0 POINTER 2
LINE DEC -40 NEG LINES LEFT ON PAGE
PGS BCI 5, PAGE XXX
+PGSL DEC 5 LENGTH OF ABOVE
+PGLN DEC -5 NEGATIVE OF ABOVE, ATTENTION!
PGSP DAC PGS POINTER TO PGS
PGSP DAC PGS POINTER TO PGS
+RS DEC 0 RIGHT DISTANCE FOR PAGE NUMBERING (2-CHAR WORDS)
*
*
************************************************************
*
*
************************************************************
@@
-305,17
+309,15
@@
ZZZ LLR 8 SHIFT UP AGAIN
ADD ='40000 SET INDEX BIT
STA P1 TO WRITE POINTER
LDA PGSP PAGE NUMBER BUFFER ADDRESS
ADD ='40000 SET INDEX BIT
STA P1 TO WRITE POINTER
LDA PGSP PAGE NUMBER BUFFER ADDRESS
- ADD
=5
ADD PAGE NUMBERING LENGTH
+ ADD
PGSL
ADD PAGE NUMBERING LENGTH
ADD ='40000 SET INDEX BIT
STA P2 TO READ POINTER
ADD ='40000 SET INDEX BIT
STA P2 TO READ POINTER
- LDA =-5
- STA 0
+ LDX PGLN
PP1 LDA* P2
STA* P1
IRS 0
JMP PP1
JMP* LNNR RETURN
PP1 LDA* P2
STA* P1
IRS 0
JMP PP1
JMP* LNNR RETURN
-RS DEC 0 RIGHT DISTANCE FOR PAGE NUMBERING (2-CHAR WORDS)
*
*
MDG DAC ** MAKE DIGIT FROM A
*
*
MDG DAC ** MAKE DIGIT FROM A