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 625a9e317e7073af06f9b3ed15a2f3d2f5609af3..7c87266791e4854d7e122c08f43f24e564281bf2 100644
(file)
--- a/
lib/iolib/src/o$al.asm
+++ b/
lib/iolib/src/o$al.asm
@@
-5,7
+5,10
@@
* ASR TYPING ROUTINES
*
* REVISIONS:
* ASR TYPING ROUTINES
*
* REVISIONS:
-* 1.0 (5.2.2005)
+* 1.0 (05.02.2005) - FIRST STABLE VERSION
+* 1.1 (10.02.2005) - ADDED FORGOTTEN ASR START SEQUENCE
+* 1.2 (25.07.2005) - CORRECTED ASR START SEQUENCE
+* 1.2.1 (27.07.2005) - RECORRECTED START SEQUENCE
*
* AUTHOR
*
*
* AUTHOR
*
@@
-19,7
+22,7
@@
*
* RESTRICTIONS
*
*
* RESTRICTIONS
*
-* THESE ARE NOT THE ORIGINAL
+* THESE ARE NOT THE ORIGINAL
ROUTINES
*
*
* STORAGE
*
*
* STORAGE
@@
-96,6
+99,7
@@
HL1 LDA* P1
JMP* OSAH RETURN
********************************************************************************
*
JMP* OSAH RETURN
********************************************************************************
*
+*
NP DAC ** PREPARE NEW PAGE
LDA PGS LOAD LINES PER PAGE
TCA NEGATE
NP DAC ** PREPARE NEW PAGE
LDA PGS LOAD LINES PER PAGE
TCA NEGATE
@@
-123,6
+127,7
@@
SP1 JST T30 LINE FEED
*
**** FORM FEED ROUTINE
FF DAC **
*
**** FORM FEED ROUTINE
FF DAC **
+ JST ASUP OUTPUT MODE
LDA SFF
TCA
STA CNT
LDA SFF
TCA
STA CNT
@@
-134,6
+139,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,
@@
-149,6
+162,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
+ JST ASUP START TTY
LDA* T1
ADD WIDH
ADD ='40000
LDA* T1
ADD WIDH
ADD ='40000
@@
-200,7
+214,8
@@
T14 DAC **
********************************************************************************
*
T20 DAC **
********************************************************************************
*
T20 DAC **
- LDA =13
+ JST ASUP START TTY
+ LDA =13 CARRIAGE RETURN
OTA 4
JMP *-1
OTA 4
OTA 4
JMP *-1
OTA 4
@@
-210,8
+225,9
@@
T20 DAC **
********************************************************************************
*
T30 DAC **
********************************************************************************
*
T30 DAC **
- LDA =10
- OTA 4
+ JST ASUP START TTY
+ LDA =10 LINE FEED
+ OTA 4
JMP *-1
JMP* T30
*
JMP *-1
JMP* T30
*