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 / ......................... $$$$$$$$$$$$$$$$$$$$$$$$