projects
/
h316.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
ldc2: Cosmetic fixes and support for compiler orverride
[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 9566dfadb61a7efbbc086740a539b990af81ab04..20efde0c88980fe5cd2df52fcdc8a8f5d96e38db 100644
(file)
--- a/
lib/hachti/src/pl$txt.asm
+++ b/
lib/hachti/src/pl$txt.asm
@@
-72,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
********************************************************************************
*
*
********************************************************************************
*
*
@@
-103,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
@@
-114,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
@@
-131,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
*
*
*
*
*
*