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$al.asm
diff --git
a/lib/iolib/src/o$al.asm
b/lib/iolib/src/o$al.asm
index 99d5b944f01873777727e69737d6556eb1f64fde..9456d99a8eab8d0cc32002e53482bee8b82449e3 100644
(file)
--- a/
lib/iolib/src/o$al.asm
+++ b/
lib/iolib/src/o$al.asm
@@
-6,7
+6,7
@@
*
* REVISIONS:
* 1.0 (5.2.2005) - FIRST STABLE VERSION
*
* REVISIONS:
* 1.0 (5.2.2005) - FIRST STABLE VERSION
-* 1.1 (10.2.2005) - ADDED FORGOTTEN
OCP COMMANDS
+* 1.1 (10.2.2005) - ADDED FORGOTTEN
ASR START SEQUENCE
*
* AUTHOR
*
*
* AUTHOR
*
@@
-136,6
+136,14
@@
FF1 OTA 4 SEND LINE FEED
JMP* FF RETURN
*
*
JMP* FF RETURN
*
*
+* ASR START ROUTINE
+ASUP DAC **
+ SKS '104
+ JMP *-1
+ OCP '104
+ JMP* ASUP
+*
+*
XR DEC 0 SAVED X REGISTER
CNT DEC 0
HBUF BCI 20,
XR DEC 0 SAVED X REGISTER
CNT DEC 0
HBUF BCI 20,
@@
-151,7
+159,7
@@
LINE DEC -40 NEG LINES LEFT ON PAGE
*** AB HIER ABGESCHRIEBENER CODE!
T1 DAC **
STX XR
*** AB HIER ABGESCHRIEBENER CODE!
T1 DAC **
STX XR
-
OCP '104
START TTY
+
JST ASUP
START TTY
LDA* T1
ADD WIDH
ADD ='40000
LDA* T1
ADD WIDH
ADD ='40000
@@
-203,7
+211,7
@@
T14 DAC **
********************************************************************************
*
T20 DAC **
********************************************************************************
*
T20 DAC **
-
OCP '104
START TTY
+
JST ASUP
START TTY
LDA =13
OTA 4
JMP *-1
LDA =13
OTA 4
JMP *-1
@@
-214,7
+222,7
@@
T20 DAC **
********************************************************************************
*
T30 DAC **
********************************************************************************
*
T30 DAC **
-
OCP '104
START TTY
+
JST ASUP
START TTY
LDA =10
OTA 4
JMP *-1
LDA =10
OTA 4
JMP *-1