* 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
+* 1.3 (03.04.2006) - SOME SORTING TO GET IT SMALLER
*
* AUTHOR
*
*
* RESTRICTIONS
*
-* THESE ARE NOT THE ORIGINAL
+* THESE ARE NOT THE ORIGINAL ROUTINES
*
*
* STORAGE
**********************************************************************
REL RELOCATABLE MODE
*********************************************
-* CONFIGURATION
-HDS DEC 1 EMPTY LINES BEFORE HEADING
-SPC DEC 2 EMPTY LINES BETWEEN HEADING AND TEXT
-PGS DEC 50 DATA LINES PER PAGE (WITHOUT HEADING ETC.)
-WIDH DEC 36 (2-CHAR) WORDS PER LINE
-SFF DEC 4 SKIPS TO SIMULATE FORM FEED
-*
*
OSAL DAC **
STX XR
JMP* OSAL RETURN
*
*
+XR DEC 0 SAVED X REGISTER
OSAH DAC ** INIT HEADING
STX XR
LDA* OSAH
********************************************************************************
*
*
+PGS DEC 50 DATA LINES PER PAGE (WITHOUT HEADING ETC.)
+HDS DEC 1 EMPTY LINES BEFORE HEADING
NP DAC ** PREPARE NEW PAGE
LDA PGS LOAD LINES PER PAGE
TCA NEGATE
IRS CNT DEC COUNTER, SKIP IF READY
JMP SP1 NOT READY
JMP* NP
+SPC DEC 2 EMPTY LINES BETWEEN HEADING AND TEXT
*
********************************************************************************
*
**** FORM FEED ROUTINE
+SFF DEC 4 SKIPS TO SIMULATE FORM FEED
FF DAC **
JST ASUP OUTPUT MODE
LDA SFF
JMP* ASUP
*
*
-XR DEC 0 SAVED X REGISTER
CNT DEC 0
HBUF BCI 20,
BCI 20,
*
********************************************************************************
*
-*** AB HIER ABGESCHRIEBENER CODE!
+*** FROM HERE COPIED ORIGINAL HONEYWELL CODE!
+*
+WIDH DEC 36 (2-CHAR) WORDS PER LINE
+CC4 OCT 40000
T1 DAC **
STX XR
JST ASUP START TTY
LDA* T1
ADD WIDH
- ADD ='40000
+ ADD CC4
STA T6
IRS T1
LDA WIDH
TCA
STA 0
T3 LDA* T6
- CAS ='120240
+ CAS CS1
JMP *+2
*
JMP T8
JMP *+2
JMP* T1
LDA* T6
- CAS ='120240
+ CAS CS1
JMP *+2
JMP T10
LDA T12
STA 0
- LDA ='120240
+ LDA CS1
JMP T4
+CS1 OCT 120240
T12 *** **
*
T14 DAC **
*
********************************************************************************
*
+C13 DEC 13
T20 DAC **
JST ASUP START TTY
- LDA =13
+ LDA C13 CARRIAGE RETURN
OTA 4
JMP *-1
OTA 4
*
T30 DAC **
JST ASUP START TTY
- LDA =10
- OTA 4
+ LDA =10 LINE FEED
+ OTA 4
JMP *-1
JMP* T30
*