Directory of image this file is from
This file as a plain text file
START,
* START
/ END OF INTIALISATION CONT. FROM 2ND. PAGE
PART2, TAD I LZ0PTR
DCA Z0PTR
DCA FL1
DCA FL2
DCA FL3
DCA FL4
DCA FL5
DCA FL6
JMP I PT2AI
PT2AI, PART2A
/ MAIN PROG. OF ERSAF
ESAFSR, 0
CLA
TAD LDHI
DCA I IHI
TAD LDHI
IAC
DCA I ILO
TAD I Z0PTR
SPA
CIA
SPA
TAD NM1
JMP I PT3I
PT3I, PART3
IHI, LPHI
ILO, LPLO
NM1, -1
PART4, TAD Z0PTR /INIT FOR STATE UPDATE
DCA ZPTR
TAD I LA0PTR
DCA APTR
TAD I LCHANS
CIA
DCA COUNT
NEXT, TAD I LERROR /UPDATE STATE
DCA 45
DCA 46
SMUL
ZPTR, 0
JMP I PT4AI
PT5I, PART5
PART6, LADD2
APTR, 0
ISZ FL4
TAD 44
DCA I APTR
TAD 45
ISZ APTR
DCA I APTR
ISZ APTR
TAD ZPTR
JMS INCPTR
DCA ZPTR
ISZ COUNT
JMP NEXT
JMP I ESAFSR
AFSR, 0
TAD Z0PTR
CLL CIA
TAD ZBOT
SZL
JMP SETTOP
CMA
TAD ZBOT
SETRET, DCA Z0PTR
TAD I LINPUT
DCA I Z0PTR
TAD I LA0PTR
MQL
TAD I LCHANS
JMP PART7
SETTOP, CLA
TAD ZTOP
JMP SETRET
INCPTR, 0
CLL CMA
TAD ZTOP
SZL
JMP RESET
CIA
TAD ZTOP
JMP I INCPTR
RESET, CLA
TAD ZBOT
JMP I INCPTR
LINPUT, 0
LOPUT, 0
LZ0PTR, 0
LA0PTR, 0
LCHANS, 0
LOFLAG, 0
LERROR, 0
LDHI, 0
Z0PTR, 0
COUNT, 0
ZTOP, 0
ZBOT, 0
SUMEDI, SUMMED
LFL1M1, FL1-1
NM6A, -6
FL1, 0
FL2, 0
FL3, 0
FL4, 0
FL5, 0
FL6, 0
/ DEPOSIT OUTPUTS BEFORE RETURNING.
PART8, DCA I LOPUT
TAD NM6A
DCA COUNT
TAD LFL1M1
DCA 10
ROUND, TAD I 10
DCA I LOFLAG
ISZ LOFLAG
ISZ COUNT
JMP ROUND
TAD I SUMEDI
DCA I LOPUT
TAD Z0PTR
DCA I LZ0PTR
JMP I AFSR
/..................
/ 2ND.
*START+177
/ COMPLETION OF INIT.
PART7, CIA
DCA COUNTA
MQA
DCA APTRA
TAD I Z0PTRI
DCA ZPTRA
DCA SUMHI
DCA SUMMED
DCA SUMLO
AGAIN, TAD I APTRA
DCA 45
DCA 46
SMUL
ZPTRA, 0
TAD 45
MQL
TAD 45
SPA CLA
CMA
SHL
SH1, 0
DCA 44
TAD 46
MQL
TAD 45
SHL
SH2, 0
DCA 45
CLA MQA
DCA 46
LADD3
SUMHI
ISZ I FL5I
TAD 44
DCA SUMHI
TAD 45
DCA SUMMED
TAD 46
DCA SUMLO
ISZ APTRA
ISZ APTRA
TAD ZPTRA
JMS I INCPRI
DCA ZPTRA
ISZ COUNTA
JMP AGAIN
JMS L3TO2
IAC
DCA I FL6I
TAD SUMMED
JMP I PART8I
PART8I, PART8
L3TO2, 0
TAD SUMMED
RAL /S BIT IN L
CLA RAL /S BIT IN B(11)
TAD SUMHI
SNA
JMP NOLIM
SPA CLA
JMP NEGLIM
CLA CMA CLL RAR
DCA SUMMED
CMA
JMP LIMON
NEGLIM, CLA CLL CML RAR
DCA SUMMED
LIMON, DCA SUMLO
JMP I L3TO2
NOLIM, CLA
ISZ L3TO2
JMP I L3TO2
PART2A, JMP I INITSR
INITSR, 0
TAD NM6
DCA COUNTA
DCA ARG
TAD TABM1
DCA 10
MORE, ISZ ARG
GETAD
ARG, 0
DCA I 10
ISZ COUNTA
JMP MORE
TAD I LZ0PRI
IAC
DCA COUNTA
TAD I COUNTA
DCA I TOPI
ISZ COUNTA
TAD I COUNTA
DCA I BOTI
DCA SUMHI
DCA SUMMED
DCA SUMLO
JMP I PART2I
PART2I, PART2
APTRA, 0
SUMHI, 0
SUMMED, 0
SUMLO, 0
COUNTA, 0
Z0PTRI, Z0PTR
LZ0PRI, LZ0PTR
INCPRI, INCPTR
TABM1, LINPUT-1
BOTI, ZBOT
TOPI, ZTOP
FL2I, FL2
FL5I, FL5
FL6I, FL6
NM6, -6
/.....................
* START2
PART3, DCA PMUL
CLA CLL CMA RAL /-2
TAD PDTC
DCA PZTC
TAD I LPLO
MQL
TAD I LPHI
LSR
PDTC, 7
CLL CMA
TAD I LPHI
DCA I LPHI
MQA
CIA STL
TAD I LPLO
SNL
ISZ I LPHI
NOP
DCA I LPLO
TAD PMUL
MQL MUY
PMUL, 0
LSR
PZTC, 5
TAD I LPHI
DCA I LPHI
MQA
TAD I LPLO
DCA I LPLO
TAD I LPLO
SZL
ISZ I LPHI
MQL
TAD I LPHI
NMI
SNA CLA
JMP ZERO /NMI[0] GIVES AC=0
CLA SCA
CIA
TAD LIM
CIA
SMA
CLA
ZERO, TAD LIM
DCA L
JMP I PART4I
PART4I, PART4
LPHI, 0
LPLO, 0
LIM, 30
/ PART4A TO SCALE AND LIMIT DELTA-A
PART5, TAD 46
MQL
TAD 45
NMI
DCA 44
MQA
DCA 45
TAD 44
SNA CLA
JMP I PT4BI /[44]=0,EXIT WITH 0 IN 44 & 45
CLA SCA
TAD J
CMA IAC
TAD L
TAD U
CMA IAC
SPA
JMP LIMDEL
TAD U
DCA USHIFT
TAD 45
MQL
TAD 44
ASR
USHIFT, 0
LIMRET, DCA 44
MQA
DCA 45
JMP I PT6I
LIMDEL, CLA
ISZ I FL3I
MQL
TAD 44
SPA CLA
IAC
TAD N3777
ASR
U, 0
JMP LIMRET
J, 0
L, 0
FL3I, FL3
PT6I, PART6
N3777, 3777
/ BITS FOR BLIPIFYING ESAF & AF
ESAF, 10
BLOTNT
INSAF
CLA CLL CMA RAL /-2
JMS I INTSRI
JMS I SAFSRI
JMS I AFSRI
INEND
AF, 6
BLOTNT
INAF
JMS I INTSRI
JMS I AFSRI
INEND
INTSRI, INITSR
SAFSRI, ESAFSR
AFSRI, AFSR
/ ....................
* START2+200
INSAF, ACUM; 6 /N
CLL RAL
CIA
DCA COUNTB
GETAD; 4 /COEFF STORE
JMS CLEAR
INAF, AUGACM; 3
1 /TOP
CIA
AUGACM;3
2 /BOT
DCA COUNTB
AUGACM; 3
2
JMS CLEAR
INEND
CLEAR, 0
CIA
CMA
DCA 10
DCA I 10
ISZ COUNTB
JMP .-2
JMP I CLEAR
COUNTB, 0
/ SUM AND DIFF BLOCKS
SUM, 4 /INPUT1, INPUT2, OUTPUT = I/P1+I/P2
BLOUT
TAD NIL
DCA THING
DCA 54
GETAD; 2
DCA .+2
LADD1
0
IAC
PUT; 4
TAD 44
JMS I THING
PUT; 3
INEND
DIFF, 4 /INPUT1, INPUT2, OUTPUT =I/P1 - I/P2
TAD LINV
DCA THING
JMP CALC
LINVSR, 0
TAD N4000
SNA
IAC
TAD N4000
CIA
JMP I LINVSR
NILSR, 0
JMP I NILSR
NIL, NILSR
LINV, LINVSR
THING, NILSR
N4000, 4000
/ .........................
$$$$$$$$$$$$$$$$$$$$$$$$