projects
/
h316.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed dependencies in Makefile
[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 7c87266791e4854d7e122c08f43f24e564281bf2..51c48009e7953c80fdbe79408bd72813d1d87312 100644
(file)
--- a/
lib/iolib/src/o$al.asm
+++ b/
lib/iolib/src/o$al.asm
@@
-9,6
+9,7
@@
* 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.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
*
*
* AUTHOR
*
@@
-37,7
+38,7
@@
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$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
SUBR O$AC,T20 RETURN THE CARRIAGE
SUBR O$AF,T30 ADVANCE TO NEXT LINE
SUBR O$AE,FF EJECT PAGE
@@
-50,13
+51,6
@@
**********************************************************************
REL RELOCATABLE MODE
*********************************************
**********************************************************************
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
*
OSAL DAC **
STX XR
@@
-78,6
+72,7
@@
BUF1 DAC ** ADDRESS OF LINE BUFFER
JMP* OSAL RETURN
*
*
JMP* OSAL RETURN
*
*
+XR DEC 0 SAVED X REGISTER
OSAH DAC ** INIT HEADING
STX XR
LDA* OSAH
OSAH DAC ** INIT HEADING
STX XR
LDA* OSAH
@@
-100,6
+95,8
@@
HL1 LDA* P1
********************************************************************************
*
*
********************************************************************************
*
*
+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
NP DAC ** PREPARE NEW PAGE
LDA PGS LOAD LINES PER PAGE
TCA NEGATE
@@
-122,10
+119,12
@@
SP1 JST T30 LINE FEED
IRS CNT DEC COUNTER, SKIP IF READY
JMP SP1 NOT READY
JMP* NP
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
*
********************************************************************************
*
**** FORM FEED ROUTINE
+SFF DEC 4 SKIPS TO SIMULATE FORM FEED
FF DAC **
JST ASUP OUTPUT MODE
LDA SFF
FF DAC **
JST ASUP OUTPUT MODE
LDA SFF
@@
-147,7
+146,6
@@
ASUP DAC **
JMP* ASUP
*
*
JMP* ASUP
*
*
-XR DEC 0 SAVED X REGISTER
CNT DEC 0
HBUF BCI 20,
BCI 20,
CNT DEC 0
HBUF BCI 20,
BCI 20,
@@
-159,20
+157,23
@@
LINE DEC -40 NEG LINES LEFT ON PAGE
*
********************************************************************************
*
*
********************************************************************************
*
-*** 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
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
STA T6
IRS T1
LDA WIDH
TCA
STA 0
T3 LDA* T6
- CAS
='120240
+ CAS
CS1
JMP *+2
*
JMP T8
JMP *+2
*
JMP T8
@@
-189,13
+190,14
@@
T10 IRS 0
JMP *+2
JMP* T1
LDA* T6
JMP *+2
JMP* T1
LDA* T6
- CAS
='120240
+ CAS
CS1
JMP *+2
JMP T10
LDA T12
STA 0
JMP *+2
JMP T10
LDA T12
STA 0
- LDA
='120240
+ LDA
CS1
JMP T4
JMP T4
+CS1 OCT 120240
T12 *** **
*
T14 DAC **
T12 *** **
*
T14 DAC **
@@
-213,9
+215,10
@@
T14 DAC **
*
********************************************************************************
*
*
********************************************************************************
*
+C13 DEC 13
T20 DAC **
JST ASUP START TTY
T20 DAC **
JST ASUP START TTY
- LDA
=
13 CARRIAGE RETURN
+ LDA
C
13 CARRIAGE RETURN
OTA 4
JMP *-1
OTA 4
OTA 4
JMP *-1
OTA 4