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
/
i$pa.asm
diff --git
a/lib/iolib/src/i$pa.asm
b/lib/iolib/src/i$pa.asm
index a5e3033dd295f33fd6bf848132737f6a505eae03..e56f2470b65f561073cbae1ecff75a04556d9027 100644
(file)
--- a/
lib/iolib/src/i$pa.asm
+++ b/
lib/iolib/src/i$pa.asm
@@
-38,8
+38,8
@@
* CALL I$PA
* DAC (BUFFER ADDRESS)
*
* CALL I$PA
* DAC (BUFFER ADDRESS)
*
-* I$PI - CONFIGURE
O
$PA
-* CALL
O
$PI
+* I$PI - CONFIGURE
I
$PA
+* CALL
I
$PI
* DEC (NUMBER OF WORDS IN DATA BUFFER)
* DEC (NUMBER OF TABS IN FOLLOWING TABLE, IF ANY)
* DEC TAB (1)
* DEC (NUMBER OF WORDS IN DATA BUFFER)
* DEC (NUMBER OF TABS IN FOLLOWING TABLE, IF ANY)
* DEC TAB (1)
@@
-49,7
+49,11
@@
* . .
* DEC TAB (N)
*
* . .
* DEC TAB (N)
*
-*
+* NOTICE
+*
+* THE CHARACTER SEQUENCE 'ABS' HAS BEEN REPLACED BY 'DBS' BECAUSE THE
+* ASSEMBLER SHOWED STRANGE BEHAVIOUR
+*
********************************************************************************
*
* EXPORTED LABELS
********************************************************************************
*
* EXPORTED LABELS
@@
-136,7
+140,7
@@
NAC JST NSRT INSERT IN CHARACTER POSITION
TAB CRA CLEAR A-REGISTER
SUB NTAB TAB COUNT
SNZ NZ, SKIP
TAB CRA CLEAR A-REGISTER
SUB NTAB TAB COUNT
SNZ NZ, SKIP
- JMP NOTB Z, NO T
A
BS
+ JMP NOTB Z, NO T
D
BS
*
STA 0 INDEX REGISTER
LDA TABL TAB TABLE LINK
*
STA 0 INDEX REGISTER
LDA TABL TAB TABLE LINK
@@
-215,10
+219,10
@@
TABI BSZ 1 TABLE POINTER
* CHANGEABLE PARAMETERS
LIM DEC 80 BUFFER LIMIT (DEFAULT IS 80)
NTAB DEC 4 TAB COUNT (DEFAULT IS 4)
* CHANGEABLE PARAMETERS
LIM DEC 80 BUFFER LIMIT (DEFAULT IS 80)
NTAB DEC 4 TAB COUNT (DEFAULT IS 4)
-TABL DAC T
ABS TAB TABLE LINK (DEFAULT IS TA
BS)
+TABL DAC T
DBS TAB TABLE LINK (DEFAULT IS TD
BS)
*
* DAP-16 TAB SETTINGS
*
* DAP-16 TAB SETTINGS
-T
A
BS DEC 6 OPERATION FIELD
+T
D
BS DEC 6 OPERATION FIELD
DEC 12 VARIABLE FIELD
DEC 30 COMMENTS FIELD
DEC 73 IDENTIFICATION FIELD
DEC 12 VARIABLE FIELD
DEC 30 COMMENTS FIELD
DEC 73 IDENTIFICATION FIELD