* 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
*
SUBR O$AH,OSAH INITIALISE HEADING
SUBR O$LL,OSAL TYPE A COMPLETE LINE WITH CR/LF, HEADING ETC.
SUBR O$HH,OSAH INITIALISE HEADING
- SUBR O$AP,T1 TYPE A LINE, NO CR
+ SUBR O$AP,T1 TYPE A LINE, NO CR
SUBR O$AC,T20 RETURN THE CARRIAGE
SUBR O$AF,T30 ADVANCE TO NEXT LINE
SUBR O$AE,FF EJECT PAGE
**********************************************************************
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 CARRIAGE RETURN
+ LDA C13 CARRIAGE RETURN
OTA 4
JMP *-1
OTA 4