Directory of image this file is from
This file as a plain text file

[LAP6+13L
[SEE LD 77
[FREE META
[   7 FOR MODEL 37
[   I FOR INKTRONIC
[   L FOR LOWER CASE 37
[   EOL FOR MODEL 33
[STORE IN BLOCK 7D+17
[REQUIRES LAP6A-1OL
[CONFIGURATION SET AT END OF PROGRAM
[
[
$3
[RE-WRITE TELETYPE
#1E WRC 7A
3|7D+35
[READ MSDISPLY CHARACTER GRID
RDC 7A
2|7D+4
[CHANGE CURSOR PATTERN
ADD 2C
STC 1157
ADD 2D
STC 1160
[RE-WRITE MSDISPLY
WRC 7A
2|7D+4
[RETURN TO LAP6
RCG 7A
7|7D
$20
[SAVE PARAMETER
STC 2C
[READ IN TELETYPE BLOCK
RDC 7A
3|7D+35
ADD 2C
[DECODE PARAMETER
SHD i
"7;
JMP 1B  [MODEL 37
SHD i
"
;
JMP 1C  [MODEL 33
SHD i
"L;
JMP 1H  [LOWER CASE 37
SAE i
"0I;
JMP 15 [INVALID--RETURN--NO ACTION
[INKTRONIC
#1A SET i1
2B-1
JMP 1F
JMP 1Y
[CHANGE INSTRUCTIONS
LDA i
OPR i13
STC 1575
ADD 2G [=SCR 1
STC 1574
ADD 1F-1 [=JMP 17
STC 1576
COM
STC 2C
ADD 2E
STA i
#2D 0
JMP 1E
[MODEL 37
#1B SET i1
2A-1
JMP 1F
JMP 1Y
LDA i
#2E 7303
STA i
#2C 0
LDA i
7313
STC 2D
#2F SET i1
1676-1  [8U-1
SET i2
-77
[CALCULATE PARITY BIT
[CHANGE TO 10 BIT CODE
#3A SET i17
-7
LDA i1
BCL i
2400
STA 1
#2G SCR 1  [CONSTANT
STC p+2
SRO i
WORD
COM
XSK i17
JMP p-4
BCL i
-400
BSE 1
STA 1
XSK i2
JMP 3A
[CHANGE SPEED TO 15 CPS
LDA i
-315
STC 1576
[ALTER INSTRUCTIONS
JMP 1G
[MODEL 33
#1C SET i1
2B-1
JMP 1F
JMP 1Y
[SET-UP 11 BIT CODES
SET i1
1676-1
SET i2
-77
LDA i1
BSE i
3400
STA 1
XSK i2
JMP p-5
[CHANGE SPEED TO 10 CPS
LDA i
-435
STC 1576
COM
STC 2D
LDA i
3614
STC 2C
[ALTER INSTRUCTIONS
#1G LDA i
SET i12
STC 1575
LDA i
ATR
STC 1574
JMP 1E
[LOWER CASE 37
#1H SET i1
2A-1
JMP 1F
SET i2
-32
SET i1
1722-1
LDA i1
BSE i
100
STA 1
XSK i2
JMP p-5
LDA i
0377
STC 2C
LDA i
1373
STC 2D
JMP 2F
[CHANGE TO UPPER CASE
#1Y SET 17
0
SET i1
1722-1
SET i2
-32
LDA i1
BCL i
100
STA 1
XSK i2
JMP p-5
JMP 17
[CHANGE PERTINENT CODES
#1F LDA i1
STC 1515 [LF
LDA i1
STC 1713
LDA i1
STC 1714
LDA i1
STC 1717
LDA i1
STC 1760
LDA i1
STC 1763
LDA i1
STC 1765
LDA i1
STC 1766
LDA i1
STC 1767
JMP 0
[TABLE FOR MODEL 37
#2A 1024
1322
1740
1770
1752
1600
3276
1300
1116
[TABLE FOR 33 AND INKTRONIC
#2B 3424
3514
3516
3670
3512
3510
3600
3674
3566
[LAP6 CONFIGURATION SET
7A=00  [UNIT
7D=300 [FIRST BLOCK
[END LAP6 CHANGE
[FREE META TO USE
[MODEL 37, 33 OR INKTRONIC
[LAP6+13L
[MJM 3-3-71