projects
/
h316.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
.gitignore again
[h316.git]
/
lib
/
hachti
/
src
/
pl$txt.asm
diff --git
a/lib/hachti/src/pl$txt.asm
b/lib/hachti/src/pl$txt.asm
index d100b3f692454b9033594b87937088cbb942df39..20efde0c88980fe5cd2df52fcdc8a8f5d96e38db 100644
(file)
--- a/
lib/hachti/src/pl$txt.asm
+++ b/
lib/hachti/src/pl$txt.asm
@@
-1,7
+1,19
@@
* PLOTTER TEXT OUTPUT
*
* PLOTTER TEXT OUTPUT
*
+* PHILIPP HACHTMANN
+* 06.11.2008
*
*
*
*
+* USAGE:
+*
+* CALL PL$TXT
+* DAC STACK POINTER TO INITIALIZED STACK
+* DAC TEXT POINTER TO TEXT
+* DAC LENGTH POINTER TO TEXT LENGTH
+* DAC 0 ZERO FOR FORTRAN IV COMPATIBILITY
+*
+* CALL PL$NL
+*
SUBR PL$TXT,FPTX
SUBR PL$TNL,NEWL
*
SUBR PL$TXT,FPTX
SUBR PL$TNL,NEWL
*
@@
-60,9
+72,6
@@
FPTX DAC ** FORTRAN TEXT OUTPUT ROUTINE
LDA TWDH
JMP* FPTX RETURN TO CALLER
*
LDA TWDH
JMP* FPTX RETURN TO CALLER
*
-* TXTP DAC TXTT
-* TXTT BCI 10,Philipp VOID
-* DAC 0
********************************************************************************
*
*
********************************************************************************
*
*
@@
-91,7
+100,7
@@
TEGO LGR 8 TAKE DOWN UPPER CHARACTER
ANA ='177 MASK OUT PARITY BIT
JST PLG DRAW GLYPH
ADD TWDH
ANA ='177 MASK OUT PARITY BIT
JST PLG DRAW GLYPH
ADD TWDH
- STA TWDH
+ STA TWDH
ACCOUNT FOR TEXT WIDTH
*
IRS BLEN INCREMENT CHARACTER COUNTER
SKP
*
IRS BLEN INCREMENT CHARACTER COUNTER
SKP
@@
-102,7
+111,7
@@
TEGO LGR 8 TAKE DOWN UPPER CHARACTER
*
JST PLG LIKE ABOVE
ADD TWDH
*
JST PLG LIKE ABOVE
ADD TWDH
- STA TWDH
+ STA TWDH
ACCOUNT FOR TEXT WIDTH
*
*
IRS BLEN
*
*
IRS BLEN
@@
-119,7
+128,7
@@
SDA2 DAC **
DAC ZERO
DAC *
*
DAC ZERO
DAC *
*
- JMP* TXIN THAT'S IT,
WE GO HOME.
+ JMP* TXIN THAT'S IT,
RETURN
*
*
*
*
*
*