*20 NOLIST SEGMNT 3 *200 JMP QAINIT TX ASW JMP QARFSH SNS 0 JMP DD CQ, JMP QAINIT TY ASW JMP QARFSH LDH ASW+4000 STH TX+4011 JMP DECD STC U0 LDH ASW+1 STH TX+12 JMP DECD STC U1 LDH ASW+4001 STH TX+4012 JMP DECD STC U2 LDH ASW+2 STH TX+13 JMP DECD STC U3 JMP UAS STA MAX1+2000 LDH ASW+3 STH TX+4014 JMP DECD STC U0 LDH ASW+4003 STH TX+15 JMP DECD STC U1 LDH ASW+4 STH TX+4015 JMP DECD STC U2 LDH ASW+4004 STH TX+16 JMP DECD STC U3 JMP UAS STA MIN2+2000 LDH ASW+4005 STH TX+17 JMP DECD STC U0 LDH ASW+6 STH TX+4017 JMP DECD STC U1 LDH ASW+4006 STH TX+20 JMP DECD STC U2 LDH ASW+7 STH TX+4020 JMP DECD STC U3 JMP UAS STA MAX2+2000 LDH ASW+10 STH TX+22 JMP DECD STC U0 LDH ASW+4010 STH TX+4022 JMP DECD STC U1 LDH ASW+11 STH TX+23 JMP DECD STC U2 LDH ASW+4011 STH TX+4023 JMP DECD STC U3 JMP UAS STA MIN3+2000 LDH ASW+4012 STH TX+4024 JMP DECD STC U0 LDH ASW+13 STH TX+25 JMP DECD STC U1 LDH ASW+4013 STH TX+4025 JMP DECD STC U2 LDH ASW+14 STH TX+26 JMP DECD STC U3 JMP UAS STA MAX3+2000 LDH ASW+15 STH TX+4027 JMP DECD STC U0 LDH ASW+4015 STH TX+30 JMP DECD STC U1 LDH ASW+16 STH TX+4030 JMP DECD STC U2 LDH ASW+4016 STH TX+31 JMP DECD STC U3 JMP UAS STA MIN4+2000 LDH ASW+4017 STH TX+32 JMP DECD STC U0 LDH ASW+20 STH TX+4032 JMP DECD STC U1 LDH ASW+4020 STH TX+33 JMP DECD STC U2 LDH ASW+21 STH TX+4033 JMP DECD STC U3 JMP UAS STA MAX4+2000 DD, LIF 2 JMP 1000 DECD, STA I UT, 0 BCL I 17 SAE I 60 JMP CQ LDA UT BCL I 60 JMP UAS, LDA I U0, 0 MUL I 12 ADD U1 MUL I 12 ADD U2 STA UT ADA I 3463 LDA UT MUL I 12 FLO I ADD UFK ADD U3 JMP UFK, 4000 U1, 0 U2, 0 U3, 0 TX, TEXT ZPERIODS SET TO: 1-0980 1019-1244 1245-1470 1529-1630 SET RS0 TO PRINT AVERAGES SET SS0 TO RESET PERIODS SET SS1 FOR 75 TRIAL AVERAGES\Z TY, TEXT ZMAX1=<4 MIN2=<4 MAX2=<4 MIN3=<4 MAX3=<4 MIN4=<4 MAX4=<4\Z ASW, 0 NOLIST PMODE *12 NSA, 0 0 0 *16 NSB, 0 0 0 NSSA, 0 0 0 NSSB, 0 0 0 MIN4, 2771 MAX3, 2676 MIN3, 2335 MAX2, 2334 MIN2, 1773 MAX1, 1724 FC5, 12 3720 0 *64 MAX4, 3136 W1, 27 0 0 W2, 27 0 0 W3, 27 0 0 W4, 27 0 0 S1, 0 0 0 S2, 0 0 0 S3, 0 0 0 S4, 0 0 0 SX1, 0 0 0 SX2, 0 0 0 SX3, 0 0 0 SX4, 0 0 0 SX5, 0 0 0 SX6, 0 0 0 SXX1, 0 0 0 SXX2, 0 0 0 SXX3, 0 0 0 SXX4, 0 0 0 SXX5, 0 0 0 SXX6, 0 0 0 F25, 5 3100 0 FC1, 0 3727 0244 FC2, 7776 3473 3106 FC3, 7776 3473 3106 FC4, 7775 3207 1260 *40 EX1, 0 AC1H, 0 AC1L, 0 OVER1, 0 EXP, 0 HORD, 0 LORD, 0 OVER2, 0 EXP1, 0 QUOL, 0 *61 FLAG, 0 5 *5 2400 2200 0600 *44 EXPONT, 0 HORDER, 0 LORDER, 0 *52 FPAC1, 0 0 0 SWIT1, 0 SWIT2, 0 CHAR, 0 DSWIT, 0 *1767 PRCHAR, 0 TAD SWIT2 SNA CLA JMP I PRCHAR TAD LFED JMS I OPUT JMP I PRCHAR OPUT, OUT LFED, 0212 *600 /FLOATING POINT ROUTINE /LINE 622-2770 /IN 600-2764 NOLIST FPNT, 0 CLA CLL DCA OVER1 DCA OVER2 TAD I FPNT DCA JUMP TAD JUMP AND PAGENO SNA CLA JMP .+3 TAD MASK5 AND FPNT DCA ADDR TAD MASK7 AND JUMP TAD ADDR DCA ADDR TAD INDRCT AND JUMP SNA CLA JMP LOOPO1 TAD I ADDR DCA ADDR LOOPO1, ISZ FPNT TAD I ADDR DCA EX1 TAD ADDR DCA SAVE ISZ SAVE TAD I SAVE DCA AC1H ISZ SAVE TAD I SAVE DCA AC1L TAD JUMP CLL RTL RTL AND MASK3 TAD TABLE DCA JUMP2 TAD I JUMP2 DCA JUMP2 JMP I JUMP2 JUMP, 0 JUMP2, 0 GO2, 0 ADDR, 0 SAVE, 0 MASK3, 0017 MASK5, 7600 MASK7, 0177 PAGENO, 0200 INDRCT, 0400 TABLE, .+1 EXIT FLAD FLSU FLMY FLDV FLGT FLPT NORF FLGT, TAD EX1 DCA EXP TAD AC1H DCA HORD TAD AC1L DCA LORD JMP FPNT+1 FLPT, TAD EXP DCA I ADDR ISZ ADDR TAD HORD DCA I ADDR ISZ ADDR TAD LORD DCA I ADDR JMP FPNT+1 FLAD, JMS I ALGN JMP FPNT+1 JMS I UNORM CLL TAD OVER1 TAD OVER2 DCA OVER2 RAL TAD AC1L TAD LORD DCA LORD RAL TAD AC1H TAD HORD DCA HORD JMS I NORM JMP FPNT+1 FLSU, JMS I OPMINS JMP FLAD OPMINS, MINUS2 EXIT, TAD JUMP AND MASK3 SNA JMP I FPNT TAD ACON6 DCA JUMP2 TAD I JUMP2 DCA JUMP2 TAD FPNT DCA GO2 JMS I JUMP2 TAD GO2 DCA FPNT JMP FPNT+1 ACON6, TABLE6-1 FLMY, CLA IAC TAD EX1 TAD EXP DCA EXP JMS I MULT JMP FPNT+1 MULT, DMULT NORM, DNORM ALGN, ALIGN UNORM, DUNORM NORF, JMS I NORM JMP FPNT+1 *1000 ACMINS, 0 CLL CLA TAD OVER2 CMA IAC DCA OVER2 TAD LORD CMA SZL CLL IAC DCA LORD TAD HORD CMA SZL CLL IAC DCA HORD JMP I ACMINS ALIGN, 0 TAD HORD SZA CLA JMP .+4 TAD LORD SNA CLA JMP NOHERE TAD AC1H SZA CLA JMP .+4 TAD AC1L SNA CLA JMP I ALIGN TAD EX1 CMA IAC TAD EXP SNA JMP DONE SMA CMA IAC DCA AMOUNT TAD AMOUNT TAD TEST2 SMA CLA JMP .+6 JMS OUTGO SZL TAD TAG2 TAD TAG1 JMP NOGO JMS OUTGO SNL TAD TAG2 TAD TAG1 DCA TEST3 TAD AMOUNT CMA IAC TAD I TEST3 DCA I TEST3 ISZ TEST3 TAD TEST3 DCA TEST4 ISZ TEST4 TAD TEST4 DCA TEST5 ISZ TEST5 SHIFT, CLL TAD I TEST3 SPA CML RAR DCA I TEST3 TAD I TEST4 RAR DCA I TEST4 TAD I TEST5 RAR DCA I TEST5 ISZ AMOUNT JMP SHIFT DONE, ISZ ALIGN JMP I ALIGN OUTGO, 0 TAD EX1 CMA IAC TAD EXP RAL CLA JMP I OUTGO NOGO, DCA TEST3 TAD I TEST3 DCA EXP ISZ TEST3 TAD I TEST3 DCA HORD ISZ TEST3 TAD I TEST3 DCA LORD JMP I ALIGN NOHERE, TAD EX1 DCA EXP JMP DONE AMOUNT, 0 TEST2, 0030 TEST3, 0 TEST4, 0 TEST5, 0 TAG1, EXP TAG2, EX1-EXP RETN2, FPNT+1 ERROR1, TAD GOOF DCA EXP TAD GOOF DCA HORD CMA DCA LORD ISZ FLAG JMP I RETN2 GOOF, 3777 SQUARE, 0 JMS I 0007 FPUT FPAC1 FMPY FPAC1 FEXT JMP I SQUARE EXIT6, 0 JMP I EXIT6 *1200 DIVI, 0 CLA CLL TAD HORD SPA CLL CML RAR DCA HORD TAD LORD RAR DCA LORD TAD OVER2 RAR DCA OVER2 CLL ISZ EXP NOP JMP I DIVI DMULT, 0 CLA CLL TAD SMACLA DCA SNSWIT JMS SIGN TAD AC1L DCA I MP2PT TAD LORD JMS I MP4PT CLA TAD I MP5PT DCA OVER2 TAD HORD DCA I MP2PT TAD AC1L JMS I MP4PT TAD OVER2 DCA OVER2 RAL TAD I MP5PT DCA D RAL DCA KEEP TAD AC1H DCA I MP2PT TAD LORD JMS I MP4PT TAD OVER2 DCA OVER2 RAL TAD I MP5PT TAD D DCA D RAL TAD KEEP DCA KEEP TAD HORD DCA I MP2PT TAD AC1H JMS I MP4PT TAD D DCA LORD RAL TAD I MP5PT TAD KEEP DCA HORD JMS I NORMF DCA OVER2 ISZ SGN JMP I DMULT JMS I MINS JMP I DMULT FLDV, TAD AC1H SZA CLA JMP .+4 TAD AC1H SNA CLA JMP I ERROR TAD EX1 CMA IAC TAD EXP IAC DCA EXP TAD SPACLA DCA SNSWIT JMS SIGN JMS I DIVIDE TAD I MP5PT TAD AC1H SZL CLA IAC DCA AC1L DCA AC1H ISZ SGN JMS I MINS JMP I .+1 FLAD+2 SIGN, 0 TAD REST DCA SGN TAD HORD SMA CLA JMP .+3 JMS I MINS ISZ SGN TAD AC1H SNSWIT, SMA CLA JMP I SIGN JMS I MINS2 ISZ SGN NOP JMP I SIGN MP4PT, MP4 MP2PT, MP2 MP5PT, MP5 NORMF, DNORM DIVIDE, DUBDIV SPACLA, SPA CLA SMACLA, SMA CLA RETURN, FPNT+1 SGN, 0 REST, 7776 D, 0 KEEP, 0 MINS2, MINUS2 RAR2, DIV2 MINS, ACMINS ERROR, ERROR1 *1400 MINUS2, 0 CLA CLL TAD OVER1 CMA IAC DCA OVER1 TAD AC1L CMA SZL CLL IAC DCA AC1L TAD AC1H CMA SZL CLL IAC DCA AC1H JMP I MINUS2 DIV2, 0 CLA CLL TAD AC1H SPA CLL CML RAR DCA AC1H TAD AC1L RAR DCA AC1L TAD OVER1 RAR DCA OVER1 CLL JMP I DIV2 MP4, 0 DCA MP1 DCA MP5 TAD THIR DCA MP3 CLL TAD MP1 RAR DCA MP1 TAD MP5 SNL JMP .+3 CLL TAD MP2 RAR DCA MP5 ISZ MP3 JMP MP4+6 TAD MP1 RAR CLL JMP I MP4 MP5, 0 MP1, 0 MP3, 0 THIR, 7764 MP2, 0 DUBDIV, 0 CLA CLL DCA QUOL TAD MIF DCA MP3 JMP DVX DV3, TAD LORD RAL DCA LORD TAD HORD RAL DCA HORD DVX, TAD AC1L TAD LORD DCA MP2 RAL TAD HORD TAD AC1H SNL JMP DV2-1 DCA HORD TAD MP2 DCA LORD CLA DV2, TAD QUOL RAL DCA QUOL TAD OVER2 RAL DCA OVER2 ISZ MP3 JMP DV3 TAD QUOL DCA LORD TAD HORD CLL RTL DCA MP5 TAD OVER2 DCA HORD DCA OVER2 TAD MP5 JMP I DUBDIV MIF, 7751 TABLE6, SQUARE SQROOT EXIT6 EXIT6 EXIT6 EXIT6 EXIT6 EXIT6 EXIT6 EXIT6 EXIT6 EXIT6 EXIT6 EXIT6 EXIT6 DUNORM, 0 JMS DIV2 JMS I RAR1 ISZ EX1 NOP JMP I DUNORM RAR1, DIVI *1600 DNORM, 0 CLA CLL DCA AMT1 DCA SIGN1 TAD HORD SPA ISZ SIGN1 SZA CLA JMP GO6 TAD LORD SZA CLA JMP GO6 TAD OVER2 SNA CLA JMP EXIT2 GO6, TAD SIGN1 SZA CLA JMS I NEG LOP, TAD HORD RAL CLL SPA CLA JMP EXIT1 TAD OVER2 CLL RAL DCA OVER2 TAD LORD RAL DCA LORD TAD HORD RAL DCA HORD ISZ AMT1 JMP LOP EXIT1, TAD AMT1 CMA IAC TAD EXP DCA EXP TAD SIGN1 SZA CLA JMS I NEG JMP I DNORM EXIT2, DCA EXP JMP I DNORM NEG, ACMINS SIGN1, 0 AMT1, 0 SQROOT, 0 DCA FLAG1 JMS I 007 FPUT FPAC1 FEXT TAD HORD SPA CLA JMP SQEND1 TAD EXP CLL SPA CML RAR DCA ITER1 SZL ISZ ITER1 NOP TAD SQCON1 DCA ITER1+1 DCA ITER1+2 TAD FPAC1+1 SZA CLA JMP CLCU TAD FPAC1+2 SNA CLA JMP SQEND CLCU, JMS I 0007 FGET FPAC1 FDIV ITER1 FADD ITER1 FEXT CLA CMA TAD EXP DCA EXP TAD EXP CMA IAC TAD ITER1 SZA CLA JMP ROOTGO TAD HORD CMA IAC TAD ITER1+1 SZA CLA JMP ROOTGO TAD LORD CMA IAC TAD ITER1+2 SMA CMA IAC IAC SPA CLA JMP ROOTGO TAD FLAG1 DCA FLAG JMP I SQROOT ROOTGO, JMS I 0007 FPUT ITER1 FEXT JMP CLCU SQEND1, JMS I NEG ISZ FLAG1 JMP SQROOT+2 SQEND, DCA EXP JMP I SQROOT ITER1, 0 0 0 SQCON1, 3015 FLAG1, 0 *2000 DECONV, 0 CLA DCA HORDER DCA LORDER DCA SIGNNN DCA DNUMBR JMS INPUT TAD PLUS SNA JMP DECON TAD MINUS SZA JMP .+4 CLA CMA DCA SIGNNN DECON, JMS INPUT CLA TAD CHAR TAD MIN9 SMA JMP I DECONV TAD PLUS12 SPA JMP I DECONV DCA DIGIT TAD HORDER AND MASK SZA JMP DECON ISZ DSWIT ISZ DNUMBR JMS MULT10 JMP DECON MULT10, 0 TAD LORDER DCA LTEMP TAD HORDER DCA HTEMP DCA REMAIN JMS MULT2 JMS MULT2 JMS DUBLAD JMS MULT2 TAD DIGIT DCA LTEMP DCA HTEMP JMS DUBLAD TAD REMAIN JMP I MULT10 LTEMP, 0 HTEMP, 0 DIGIT, 0 REMAIN, 0 SIGNNN, 0 DNUMBR, 0 MULT2, 0 CLA CLL TAD LORDER RAL DCA LORDER TAD HORDER RAL DCA HORDER TAD REMAIN RAL DCA REMAIN JMP I MULT2 DUBLAD, 0 CLA CLL TAD LORDER TAD LTEMP DCA LORDER RAL TAD HORDER TAD HTEMP DCA HORDER RAL TAD REMAIN DCA REMAIN JMP I DUBLAD MSIGN, 0 CLA CLL ISZ SIGNNN JMP I MSIGN TAD LORDER CMA IAC DCA LORDER TAD HORDER CMA SZL IAC DCA HORDER JMP I MSIGN MINUS, 253-255 PLUS, -253 MIN9, -272 PLUS12, 272-260 MASK, 7600 INPUT, 0 CLA KSF JMP .-1 KRB DCA CHAR TAD CHAR JMS I OUTPUT TAD CHAR SNA JMP INPUT+1 TAD MRBOUT SNA JMP I RESTRT TAD MINCR SNA CLA JMS I PRINT TAD CHAR JMP I INPUT PRINT, PRCHAR OUTPUT, OUT RESTRT, FLINTP+1 MRBOUT, -377 MINCR, 377-215 *2200 FLOUTP, 0 JMS I 2377 JMS 2217 TAD 2324 JMS I 2376 JMS OUT JMS I FEXPPT CLA SNA CLA JMP I FLOUTP TAD CARRTN JMS OUT TAD LNFEED JMS OUT JMP I FLOUTP FOUTCN, 0 CLA CLL TAD HORDER SPA CLA CLA CML TAD SPLUS SZL TAD SMINUS DCA I 15 NOP NOP NOP CLA CLL TAD HORDER SMA CLA JMP FGO1 CMA DCA I SNPT JMS I MSNPT FGO1, CLA CMA TAD EXPONT DCA EXPONT DCA BEXP FGO2, TAD EXPONT SMA JMP FGO3 TAD FOUR SMA CLA JMP FGO4 JMS I 7 FMPY I TENPT FEXT CLA CMA TAD BEXP DCA BEXP JMP FGO2 FGO3, JMS I 7 FMPY CCC10 FEXT ISZ BEXP JMP FGO2 FGO4, DCA I DPT JMS I M2PT JMS I M10PT SKP FGO5A, JMS DIVTWO ISZ EXPONT JMP FGO5A SNA JMP FGO7 FGO6, DCA I 15 TAD MINUS7 DCA EXPONT FGO6A, JMS I M10PT DCA I 15 ISZ EXPONT JMP FGO6A JMP I FOUTCN FGO7, CLA CMA TAD BEXP DCA BEXP TAD HORDER SZA CLA JMP .+4 TAD LORDER SNA CLA DCA BEXP CLA CMA JMP FGO6+1 BEXP, 0 MINUS7, 7772 FOUR, 0004 SPLUS, 240 SMINUS, 255-240 PERIOD, 256 MSNPT, MSIGN SNPT, SIGNNN DPT, DIGIT M10PT, MULT10 M2PT, MULT2 FEXPPT, FEXC TENPT, TEN CARRTN, 0215 LNFEED, 0212 CHE, 305 OUT, 0 TSF JMP .-1 TLS CLA JMP I OUT OUTDG, 0 TAD C260 JMS OUT JMP I OUTDG C260, 0260 DIVTWO, 0 CLL RAR DCA OUT TAD HORDER RAR DCA HORDER TAD LORDER RAR DCA LORDER TAD OUT JMP I DIVTWO CCC10, 7775 3146 3147 0 TGO EDIT *2400 FLINTP, 0 CLA CMA DCA PRSW DCA DSWIT JMS I DPCVPT CLA TAD CHAR TAD PER SZA CLA JMP FIGO1 TAD PRSW SNA CLA JMP FIGO2 DCA I DPN DCA PRSW JMP I DPCSPT FIGO1, TAD PRSW SNA CLA FIGO2, TAD I DPN CMA IAC DCA SEXP JMS I MSGNPT FIGO3, TAD C27 DCA EXPONT JMS I 7 FNOR FPUT FPAC1 FEXT TAD CHAR TAD MINUSE SZA CLA JMP ENDFI JMS I DPCVPT JMS I MSGNPT TAD HORDER SPA IAC SZA CLA JMP EXCESS TAD LORDER TAD SEXP DCA SEXP ENDFI, JMS I 7 FGET FPAC1 FEXT TAD SEXP SNA JMP I FLINTP SMA CLA JMP FIGO4 JMS I 7 FMPY I PCPC10 FEXT ISZ SEXP JMP ENDFI+3 JMP I FLINTP FIGO4, JMS I 7 FMPY TEN FEXT CLA CMA TAD SEXP DCA SEXP JMP ENDFI+3 EXCESS, TAD C3777 DCA EXPONT TAD C3777 DCA HORDER JMP I FLINTP TEN, 0004 2400 0000 PCPC10, CCC10 MINUSE, -305 C27, 0027 PER, -256 PRSW, 0 SEXP, 0 C3777, 3777 DPCVPT, DECONV DPCSPT, DECON MSGNPT, MSIGN DPN, DNUMBR FEXC, 0 CLA CLL TAD EXPONT SPA CMA IAC CML DCA EXPONT TAD C253 SZL TAD C255 JMS I DGPT DCA HORDER TAD EXPONT ISZ HORDER TAD M144 SMA JMP .-3 TAD C144 DCA EXPONT CMA TAD HORDER SZA JMS I DGPT DCA HORDER TAD EXPONT ISZ HORDER TAD M12 SMA JMP .-3 TAD C12 DCA LORDER CLA CMA TAD HORDER JMS I DGPT TAD LORDER JMS I DGPT JMP I FEXC C253, 0253-260 C255, 255-253 M144, 7634 C144, 0144 M12, 7766 C12, 0012 DGPT, OUTDG FADD=1000 FSUB=2000 FMPY=3000 FDIV=4000 FGET=5000 FPUT=6000 FNOR=7000 FEXT=0000 SQRE=1 SQRT=2 *2600 EDIT, 0 DCA SAC TAD 62 CMA IAC DCA COUNT1 TAD M8 DCA COUNT2 TAD SAD1 DCA 15 JMP I EDIT TGO, 0 DCA 44 TAD SAD1 DCA 15 TAD I 15 JMS I OUT1 TAD 62 SNA CLA JMP EFORM ISZ TGO ISZ TGO TRYAGN, TAD 44 SPA JMP MINSS TAD SAC CMA IAC TAD 62 SPA JMP ERR SNA JMP G01 CMA IAC DCA CNTR TAD SPCE JMS OUTT ISZ CNTR JMP .-3 G01, TAD 44 CIA SNA JMP G02 DCA CNTR JMS GET JMS OUTT ISZ CNTR JMP .-3 G02, TAD SAC SNA CLA JMP .+3 TAD PERID JMS I OUT1 JMS GET JMS OUTT JMP .-2 ERR, TAD SAC SMA CLA JMP ERGO TAD CHX JMS OUTT JMP .-2 ERGO, CLA CMA TAD SAC DCA SAC JMP TRYAGN MINSS, CLA TAD 62 CIA TAD SAC SNA JMP G03 DCA CNTR TAD SPCE JMS OUTT ISZ CNTR JMP .-3 G03, TAD PERID JMS I OUT1 JMS OUTT ISZ 44 JMP .-2 JMP G02+5 OUTT, 0 JMS I OUT2 ISZ COUNT1 JMP I OUTT TAD CHEE JMP I TGO EFORM, JMS I OUT2 TAD PERID JMS I OUT1 TAD M7 DCA COUNT1 JMS GET JMS OUTT JMP .-2 GET, 0 ISZ COUNT2 JMP .+4 CLA CMA DCA COUNT2 JMP I GET TAD I 15 JMP I GET COUNT1, 0 COUNT2, 0 CNTR, 0 SAC, 0 SPCE, 240-260 PERID, 256 CHEE, 305 CHX, 330-260 M8, -10 M7, -7 OUT1, 2344 OUT2, 2352 SAD1, BUFFER-1 BUFFER, 0 LIST /QANDA NOT LISTED /LINES 2770-3650 /IN 7000-7777 *7000 NOLIST LMODE QAINIT, LDA I 2 ADD STA I QAB, 0 ADD QAL+3 STC 1 LDA 1 ADD QAQ+1 STC QAG-3 LDA I 1 STC QARFSH-1 STC 6 QACA,SET 3 QARFSH-1 SET 4 QAG-3 SET 1 4 JMP QAT 16 LDH I 4 QAD, JMP QAO JMP .+6 JMP QAE SAE I 43 JMP QAD JMP QACA+4 STH 3 LDH I 4 ADA I -60 COM STC 6 STH I 3 XSK I 6 JMP .-2 LDH I 3 JMP QAD QAE, STH 3 SET I 4 0 QARFSH, LDA I 277 /VERT COORD, TOP LINE STC QAH-1 SET I 3 0 SET 5 QARFSH-1 QAG, SET 1 3 JMP QAT JMP .+7 LDH I 3 LDA I BCL I STC QAM+2 ADD QAW JMP QAM LDH I 3 LDA I BSE I STC QAM+2 ADD QAW+1 QAM, STC QAP+3 MSC I 4 BSE I 200 MSC 4 SET I 1 100 LDA I -40 ADM I 0 QAH, LDH I 3 JMP QAO+1 JMP QAZ JMP QAJ SHD I 4300 JMP QAG JMP QAP JMP QAH JMP QAP SRO I 0 JMP QAF QAI, LDH I 5 JMP QAO+1 JMP QAH JMP QAH JMP QAI-4 QAJ, JMP GETKBD AZE I JMP QAB SET I 2 QAY SHD 2 JMP QAK+4 SHD I 2 JMP QAN XSK 6 JMP QARFSH SHD I 2 JMP QAL SHD I 2 JMP QAK SHD I 2 JMP QACA SHD I 2 JMP QARFSH SHD I 2 JMP QAL SHD I 2 JMP QARFSH STC .+5 JMP QAO JMP QAQ JMP QAQ LDA I 0 STH 4 JMP QARFSH QAL, LDH 4 JMP QAO+1 JMP QARFSH -6002 LDH 2 SAE I 37 JMP QAQ SET 5 4 SET 3 4 JMP .+2 LDH I 5 LDH I 3 JMP QAO+1 NOP CLR STH 5 AZE JMP .-7 JMP QAQ QAN, XSK 6 JMP QAK+4 JMP QAO JMP QARFSH JMP QAE+1 JMP QAN+2 QAO, LDH I 4 SHD I 7400 JMP SAE I 34 XSK I XSK I JMP QAP, ROL 1 ADD QAX+4 STC 2 ADD QAU ADD QAU ADD 1 STC 1 ADD 5 COM ADD 4 AZE CLR STC QAI-2 ADD QAH-1 DSC 2 DSC I 2 JMP QAQ, LDA I -4000 ADM 4 JMP QARFSH QAT, LDH I 1 SHD I 600 JMP SAE I 10 XSK I XSK I JMP QAZ, LDH I 3 LDA I 40 JMP QAI-4 QAK, LDH I 4 AZE I JMP QAQ JMP QAX LDA I 1 ADM QAB JMP QAB QAV, 101 101 4477 7744 5177 2651 4136 2241 4177 3641 4577 4145 4477 4044 4136 2645 1077 7710 7741 41 4142 4076 1077 4324 177 301 3077 7730 3077 7706 4177 7741 4477 3044 4276 376 4477 3146 5121 4651 4040 4077 177 7701 176 7402 677 7701 1463 6314 0770 7007 4543 6151 4177 0 0 0 0 7741 QAY, 4543 7476 3634 3747 0 0 7500 0 7\0 70 QAX, JMP QAO+1 JMP QAQ JMP QAQ JMP QARFSH QAV 0 5166 526 0 0 3600 41 4100 36 2050 50 404 437 500 6 404 404 1 0 601 4030 4536 3651 2101 177 4523 2151 4122 2651 2414 477 5172 651 1506 4225 4443 6050 5126 2651 5122 3651 2200 0 4601 0 QAU, 2 0 1212 1212 QAW, NOP ADD QAU 4020 2055 QAF, DSC I 6\0 JMP QAI GETKBD, LDA 0 STC QAEXIT+6 ADD 1 STC QAEXIT+3 ADD 2 STC QAEXIT+5 STC QAEXIT+1 KST JMP IOB 6036 STA I QATY, 0 ADA I -237 APO JMP QACNTR SET I 1 QACHAR-1 SET I 2 -7 LDA QATY SAE I 1 JMP .+2 JMP QAEXIT XSK I 2 JMP .-4 ADA I -337 APO JMP QALEGL SAE I 1 JMP .+7 LDA I 334 JMP QATPE LDA I 37 JMP QAEXIT+2 SAE I 1 JMP QAEXIT JMP QAEXIT+2 QALEGL, LDA QATY JMP QATPE ADD QATY BCL I 7700 JMP QAEXIT+2 QACNTR, SAE I 7755 JMP QACKLF LDA I 43 STC QAEXIT+1 LDA I 215 JMP QATPE LDA I 212 JMP QATPE JMP QAEXIT QACKLF, SAE I 7752 JMP .+4 LDA I 45 JMP QACNTR+5 SAE I 7751 JMP QAEXIT LDA I 47 JMP QAEXIT+2 QAEXIT, LDA I 0 SET I 1 0 SET I 2 0 JMP QATPE, IOB 6046 LDA 0 STC .+4 IOB 6041 JMP .-2 JMP 0 QACHAR, 243 244 245 247 300 336 337 40 36 LIST /MAIN PROGRAM FOLLOWS /LINES 3665- /IN 4020-4777 /SOME SUBROUTINES IN 3000-3377 SEGMNT 2 *20 LDF 0 PDP PMODE STA DCA USEC JMP I ZB ZB, YB LMODE ST, LDA I 7747 STC C25 LDA I 7761 STC USEC LDA I 5 STA F25+2000 LDA I 3100 STA F25+2001 SET I 16 2777 LIF 3 JMP 200 TLP, XSK I 16 CLR ADD 16 STC TPWD RDE 10 TPWD, 0 SET I 15 1376 LP, XSK I 15 SKP JMP TLP CLR ADD 15 ADD AD STC IX IX, 0 PDP PMODE DCA T NGR, TAD T TAD M6654 SZL CLA JMP I DNTST TAD MIN CIA TAD T SPA CLA JMP LPR TAD MAX CMA TAD T SMA CLA JMP NGP ISZ I GROUP JMP LPR NGP, TAD GROUP SNA JMP LPR TAD GJ DCA GJP GJP, 0 JMP G1 JMP G2 JMP G3 DCA GROUP JMP NGR G1, TAD MIN2 DCA MIN TAD MAX2 DCA MAX ISZ GROUP JMP NGR G2, TAD MIN3 DCA MIN TAD MAX3 DCA MAX ISZ GROUP JMP NGR G3, TAD MIN4 DCA MIN TAD MAX4 DCA MAX ISZ GROUP JMP NGR G0, TAD MAX1 DCA MAX IAC DCA GROUP DCA 1 DCA 2 DCA 3 DCA 4 IAC DCA MIN LPR, LINC LMODE JMP LP DA, A USEC, 7761 GROUP, 0 MIN, 0 MAX, 0 T, 0 M6654, 1123 AD, 2001 DNTST, NTST PMODE GJ, JMP GJP *4200 A, TAD 1 DCA W1+2 TAD 2 DCA W2+2 TAD 3 DCA W3+2 TAD 4 DCA W4+2 JMS I 7 FGET W1 FNOR FDIV FC1 FPUT S1 FADD SX1 FPUT SX1 FGET S1 SQRE FADD SXX1 FPUT SXX1 FGET W2 FNOR FDIV FC2 FPUT S2 FADD SX2 FPUT SX2 FGET S2 SQRE FADD SXX2 FPUT SXX2 FGET W3 FNOR FDIV FC3 FPUT S3 FADD SX3 FPUT SX3 FGET S3 SQRE FADD SXX3 FPUT SXX3 FGET W4 FNOR FDIV FC4 FPUT S4 FADD SX4 FPUT SX4 FGET S4 SQRE FADD SXX4 FPUT SXX4 FGET S2 FSUB S1 FPUT S2 FADD SX5 FPUT SX5 FGET S2 SQRE FADD SXX5 FPUT SXX5 FGET S3 FSUB S1 FPUT S3 FADD SX6 FPUT SX6 FGET S3 SQRE FADD SXX6 FPUT SXX6 FEXT JMS I DAT ISZ C25 JMP I ALPR TLS TAD DM25 DCA C25 JMP I MNAU DAT, AT C25, 0 DM25, 7747 ALPR, G0 MNAU, MAU *4400 MAU, JMS I DCR JMS I STAT JMS I 7 FGET XBAR FPUT TD FGET SIG FPUT TD1 FGET SX2 FPUT SX1 FGET SXX2 FPUT SXX1 FEXT JMS I STAT JMS I 7 FGET XBAR FPUT TD2 FGET SIG FPUT TD3 FGET SX3 FPUT SX1 FGET SXX3 FPUT SXX1 FEXT JMS I STAT JMS I 7 FGET XBAR FPUT TD4 FGET SIG FPUT TD5 FEXT JMS RT JMS I DCR JMS I 7 FGET SX4 FPUT SX1 FGET SXX4 FPUT SXX1 FEXT JMS I STAT JMS I 7 FGET SX5 FPUT SX1 FGET SXX5 FPUT SXX1 FEXT JMS I STAT JMS I 7 FGET SX6 FPUT SX1 FGET SXX6 FPUT SXX1 FEXT JMS I STAT JMS RT1 JMS I DCR CLA TAD I NUC IAC SZA CLA JMP I DB JMP I NAU RT, 0 JMS I 7 FGET TD3 FADD TD1 SQRT FPUT DMN FGET TD2 FSUB TD FDIV DMN FEXT CLA STL IAC RAL JMS I 6 JMP I RT RT1, 0 JMS I 7 FGET TD5 FADD TD1 SQRT FPUT DMN FGET TD4 FSUB TD FDIV DMN FEXT CLA STL IAC RAL JMS I 6 JMP I RT1 MSP, SP NUC, USEC NAU, AU DB, B DCR, CR STAT, OST XBAR, 0 0 0 SIG, 0 0 0 DMN, 0 0 0 TD, 0 0 0 TD1, 0 0 0 TD2, 0 0 0 TD3, 0 0 0 TD4, 0 0 0 TD5, 0 0 0 *4600 CR, 0 CLA TAD S215 JMS P CLA TAD S212 JMS P JMP I CR S215, 215 S212, 212 SP, 0 CLA TAD S240 JMS P JMS P JMS P JMP I SP S240, 240 P, 0 TSF JMP .-1 TLS JMP I P OST, 0 CLL LAS RAL SNL JMP I OST JMS I 7 FGET SX1 FDIV F25 FPUT XBAR1 FEXT CLA STL IAC RAL JMS I 6 JMS SP JMS I 7 FGET SX1 SQRE FPUT SX1 FGET F25 FMPY SXX1 FSUB SX1 FPUT SX1 FGET F25 FMPY F25 FSUB F25 FMPY F25 FPUT SIG1 FGET SX1 FDIV SIG1 FPUT SIG1 SQRT FEXT CLA STL IAC RAL JMS I 6 JMS SP CLA MV1, TAD XBAR1 DCA I XBAR2 ISZ MV1 ISZ XBAR2 ISZ N7 JMP .-5 TAD MV2 DCA MV1 TAD XBAR3 DCA XBAR2 TAD N7A DCA N7 JMP I OST N7, -7 N7A, -7 XBAR3, XBAR XBAR2, XBAR MV2, TAD XBAR1 XBAR1, 0 0 0 SIG1, 0 0 0 YB, DCA NSA DCA NSA+1 DCA NSA+2 DCA NTSTFL JMS I 7 FGET NSA FPUT NSSA FPUT NSB FPUT NSSB FEXT JMS I CZ B, DCA SX1 DCA SX1+1 DCA SX1+2 JMS I 7 FGET SX1 FPUT SX2 FPUT SX3 FPUT SX4 FPUT SX5 FPUT SX6 FPUT SXX1 FPUT SXX2 FPUT SXX3 FPUT SXX4 FPUT SXX5 FPUT SXX6 FEXT ISZ I DUSEC JMP I BNGR LINC LMODE JMP ST PMODE CZ, CZE DUSEC, USEC BNGR, G0 NTST, TAD NTSTFL SZA CLA JMP I BA IAC DCA NTSTFL JMP I BNGR NTSTFL, 0 BA, A *5000 LMODE SNS 1 JMP CA LDA I 7 STA F25+2000 LDA I 2260 STA F25+2001 LDA I 7665 STC C25 LDA I 7773 STC USEC CA, LDA C25 STC DM25 PDP PMODE TAD MAX1 DCA W1+2 TAD MIN2 CIA TAD MAX2 IAC DCA W2+2 TAD MIN3 CIA TAD MAX3 IAC DCA W3+2 TAD MIN4 CIA TAD MAX4 IAC DCA W4+2 JMS I 7 FGET W1 FNOR FDIV FC5 FPUT FC1 FGET W2 FNOR FDIV FC5 FPUT FC2 FGET W3 FNOR FDIV FC5 FPUT FC3 FGET W4 FNOR FDIV FC5 FPUT FC4 FEXT LINC LMODE JMP TLP PMODE TTS, 0 JMS I 7 FGET S2 FADD S1 FPUT S1 FGET S3 FADD S4 FPUT S4 FEXT JMP I TTS *3400 X1A, 0 0 0 X1B, 0 0 0 X2A, 0 0 0 X2B, 0 0 0 CZE, 0 DCA NFL TAD DNCTR DCA NCTR TAD DNCTS DCA NCTS DCA X1A DCA X1A+1 DCA X1A+2 DCA X1A+3 DCA X1A+4 DCA X1A+5 DCA X1A+6 DCA X1A+7 DCA X1A+10 DCA X1A+11 DCA X1A+12 DCA X1A+13 JMP I CZE NFL, 0 NCTR, 0 NCTS, 0 DNCTR, 7665 DNCTS, 7437 AT, 0 JMS I 7 FGET S2 FADD NSA FPUT NSA FGET S2 SQRE FADD NSSA FPUT NSSA FGET S3 FADD NSB FPUT NSB FGET S3 SQRE FADD NSSB FPUT NSSB FEXT TAD NFL SZA CLA JMP ALT TAD X1A DCA S1 TAD X1A+1 DCA S1+1 TAD X1A+2 DCA S1+2 TAD X1B DCA S4 TAD X1B+1 DCA S4+1 TAD X1B+2 DCA S4+2 JMS I DTTS TAD S1 DCA X1A TAD S1+1 DCA X1A+1 TAD S1+2 DCA X1A+2 TAD S4 DCA X1B TAD S4+1 DCA X1B+1 TAD S4+2 DCA X1B+2 ISZ NCTR JMP I AT IAC DCA NFL JMP I AT DTTS, TTS ALT, TAD X2A DCA S1 TAD X2A+1 DCA S1+1 TAD X2A+2 DCA S1+2 TAD X2B DCA S4 TAD X2B+1 DCA S4+1 TAD X2B+2 DCA S4+2 JMS I DTTS TAD S1 DCA X2A TAD S1+1 DCA X2A+1 TAD S1+2 DCA X2A+2 TAD S4 DCA X2B TAD S4+1 DCA X2B+1 TAD S4+2 DCA X2B+2 ISZ NCTS JMP I AT DCA NFL JMP I AT *3600 AU, TAD U375 DCA W1+2 TAD U225 DCA W2+2 TAD U150 DCA W3+2 JMS I 7 FGET W1 FNOR FPUT SX1 FGET W2 FNOR FPUT SX2 FGET W3 FNOR FPUT SX3 FMPY SX2 FMPY SX1 FPUT SX4 FEXT TAD I DX1A DCA S1 TAD I DX1A1 DCA S1+1 TAD I DX1A2 DCA S1+2 TAD I DX2A DCA S4 TAD I DX2A1 DCA S4+1 TAD I DX2A2 DCA S4+2 JMS AV TAD I DX1B DCA S1 TAD I DX1B1 DCA S1+1 TAD I DX1B2 DCA S1+2 TAD I DX2B DCA S4 TAD I DX2B1 DCA S4+1 TAD I DX2B2 DCA S4+2 JMS I 7 FGET NSB FPUT NSA FGET NSSB FPUT NSSA FEXT JMS AV JMP I AW AW, YB DX1A, X1A DX1A1, X1A+1 DX1A2, X1A+2 DX2A, X2A DX2A1, X2A+1 DX2A2, X2A+2 DX1B, X1B DX1B1, X1B+1 DX1B2, X1B+2 DX2B, X2B DX2B1, X2B+1 DX2B2, X2B+2 AV, 0 JMS I 7 FGET NSA SQRE FPUT NSA FGET SX1 FMPY NSSA FSUB NSA FDIV SX4 SQRT FPUT NSSA FGET S1 FDIV SX3 FPUT S1 FGET S4 FDIV SX2 FSUB S1 FDIV NSSA FEXT JMS I NCR CLA CLL IAC RTL JMS I 6 JMS I NCR JMP I AV NCR, CR U375, 567 U225, 341 U150, 226