* ASR TYPING ROUTINES
*
* REVISIONS:
-* 1.0 (5.2.2005) - FIRST STABLE VERSION
-* 1.1 (10.2.2005) - ADDED FORGOTTEN OCP COMMANDS
+* 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
*
*
* RESTRICTIONS
*
-* THESE ARE NOT THE ORIGINAL
+* THESE ARE NOT THE ORIGINAL ROUTINES
*
*
* STORAGE
*
**** FORM FEED ROUTINE
FF DAC **
+ JST ASUP OUTPUT MODE
LDA SFF
TCA
STA CNT
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,
*** AB HIER ABGESCHRIEBENER CODE!
T1 DAC **
STX XR
- OCP '104 START TTY
+ JST ASUP START TTY
LDA* T1
ADD WIDH
ADD ='40000
********************************************************************************
*
T20 DAC **
- OCP '104 START TTY
- LDA =13
+ JST ASUP START TTY
+ LDA =13 CARRIAGE RETURN
OTA 4
JMP *-1
OTA 4
********************************************************************************
*
T30 DAC **
- OCP '104 START TTY
- LDA =10
- OTA 4
+ JST ASUP START TTY
+ LDA =10 LINE FEED
+ OTA 4
JMP *-1
JMP* T30
*