File: LIST.LS of Tape: Various/System-Tapes/sys-3
(Source file text)
EXTERN ABS EXTERN ALOG EXTERN AMAX1 EXTERN AMIN1 EXTERN EXP EXTERN FLOAT EXTERN FMU EXTERN GRAPH EXTERN INPUT EXTERN LINREG EXTERN LSAFTA EXTERN MEAN EXTERN MEANTD EXTERN PRINT EXTERN ROOTS EXTERN SQRT JA #ST #XR, ORG .+10 TEXT +MAIN + #RET, SETX #XR SETB #BASE JA .+3 #BASE, ORG .+6 ORG #BASE+30 FNOP JA #RET FNOP #GOBAK, 0;0 DMU, ORG .+0003 DMUS, ORG .+0003 DTAUD, ORG .+0003 DTD, ORG .+0003 DTDM, ORG .+0003 ERR, ORG .+0003 I, ORG .+0003 J, ORG .+0003 K, ORG .+0003 KET, ORG .+0003 L, ORG .+0003 LINT, ORG .+0003 LMAX, ORG .+0003 LMIN, ORG .+0003 MU, ORG .+0003 TAUD, ORG .+0003 TDM, ORG .+0003 TMAX, ORG .+0003 #TMP, ORG .+0011 #LIT, 0000 0000 0000 0001 2000 0000 0002 2000 0000 0002 3000 0000 0003 2000 0000 0003 2400 0000 0003 3000 0000 0004 2400 0000 0011 3100 0000 0000 0000 0000 0001 2000 0000 0002 2000 0000 0002 3000 0000 0004 3530 2436 0012 3720 0000 0000 JA ADENT-0003 0000 JA AF-0041 0000 JA AF0-0003 0000 JA ANF-0041 0000 JA ANFM-0003 0000 JA A0-0003 0000 JA DAF-0041 0000 JA DANF-0041 0000 JA DANFM-0003 0000 JA DETA-0041 0000 JA DPH-0041 0000 JA DT-0003 0000 JA DY-0003 0000 JA EMU-0041 0000 JA ETA-0041 0000 JA ETA0-0003 0000 JA FREQ-0003 0000 JA NB-0003 0000 JA PH-0041 0000 JA T-0003 0000 JA TDI-0003 0000 JA TDP-0003 0000 JA X-0003 0000 JA XL-0003 0000 JA Y-0003 0000 JA YL-0003 NB, ORG .+2260 X, ORG .+2260 Y, ORG .+2260 #LBL=. COMMON ACCUR DDMU1, ORG .+0003 DDMU2, ORG .+0003 DCHI, ORG .+0003 ERRMU, ORG .+0003 COMMON FRERUN IF, ORG .+0003 JR, ORG .+0003 INIT, ORG .+0003 LS, ORG .+0003 COMMON INI ANF, ORG .+0454 DANF, ORG .+0454 PH, ORG .+0454 DPH, ORG .+0454 AF, ORG .+0454 DAF, ORG .+0454 ETA, ORG .+0454 DETA, ORG .+0454 EMU, ORG .+0454 T, ORG .+0036 DT, ORG .+0036 ANFM, ORG .+0036 DANFM, ORG .+0036 COMMON LINE A, ORG .+0003 B, ORG .+0003 DA, ORG .+0003 DB, ORG .+0003 SA, ORG .+0003 SB, ORG .+0003 SAB, ORG .+0003 TD, ORG .+0003 AMU, ORG .+0003 RR, ORG .+0003 RMSD, ORG .+0003 CHI, ORG .+0003 COMMON PARAM IDENT, ORG .+0003 HANG, ORG .+0003 HI, ORG .+0003 HF, ORG .+0003 DK, ORG .+0003 NP, ORG .+0003 PI, ORG .+0003 SQHI, ORG .+0003 DKHI, ORG .+0003 I0DH, ORG .+0003 H0AL, ORG .+0003 COMMON REGRES XL, ORG .+0036 YL, ORG .+0036 DY, ORG .+0036 COMMON STEER MR, ORG .+0003 ADENT, ORG .+0036 MF, ORG .+0003 FREQ, ORG .+0036 I0, ORG .+0003 COMMON TESPAR A0M, ORG .+0003 DA0M, ORG .+0003 AMU0, ORG .+0003 AF0, ORG .+0036 ETA0, ORG .+0036 A0, ORG .+0036 TDI, ORG .+0036 TDP, ORG .+0036 ORG #LBL #ST, BASE #BASE SETB #BASE SETX #XR LDX 0002,0 LDX 0003,0 LDX 0004,0 LDX 0005,0 LDX 0006,0 LDX 0007,0 LDX 0010,0 LDX 0011,0 LDX 0012,0 LDX 0013,0 LDX 0014,0 LDX 0015,0 #100, JA .+0004 5011 6351 LDX 0016,0 #110, JA .+0006 5006 6160 5661 5140 LDX 0017,0 #130, JA .+0005 5050 0166 5151 LDX 0020,0 #200, JA .+0025 5057 5757 2470 4715 2540 1605 0701 2411 2640 4141 4141 4141 4141 4141 4141 4141 4757 6110 6151 LDX 0021,0 #410, JA .+0040 5061 3054 4712 7540 4754 6111 6354 4740 4040 4030 7547 5406 6756 6354 4740 4053 5755 4754 0667 5663 5447 4040 4024 0420 7540 4754 0761 6056 6354 5751 LDX 0022,0 #420, JA .+0033 5061 3054 4740 0175 4754 0761 6056 6354 4740 4002 7547 5407 6160 5663 5447 4040 4040 0115 2575 4754 0761 6056 6354 5757 5100 LDX 0023,0 #430, JA .+0036 5061 3054 4715 0501 1640 0411 1607 1405 2405 1520 5640 7540 2404 1540 7540 4754 0761 6056 6354 4740 5357 5540 4754 0761 6056 6354 5757 5100 LDX 0024,0 EXTERN #READO TRAP3 #READO JA #LIT+0017 JA #100+2 EXTERN #RSVO TRAP3 #RSVO FSTA MF EXTERN #RENDO TRAP3 #RENDO LDX 0025,0 EXTERN #READO TRAP3 #READO JA #LIT+0017 JA #110+2 FLDA #LIT+0003 FSTA I FLDA MF FSTA #DOTMP+0000 #G0001, FLDA I ATX 7 EXTERN #RSVO TRAP3 #RSVO FSTA FREQ-0003,7 FLDA I FADD #LIT+0003 FSTA I FSUB #DOTMP+0000 JLE #G0001 EXTERN #RENDO TRAP3 #RENDO LDX 0026,0 EXTERN #READO TRAP3 #READO JA #LIT+0017 JA #100+2 EXTERN #RSVO TRAP3 #RSVO FSTA MR EXTERN #RENDO TRAP3 #RENDO LDX 0027,0 EXTERN #READO TRAP3 #READO JA #LIT+0017 JA #130+2 FLDA #LIT+0003 FSTA I FLDA MR FSTA #DOTMP+0003 #G0002, FLDA I ATX 7 EXTERN #RSVO TRAP3 #RSVO FSTA ADENT-0003,7 FLDA I FADD #LIT+0003 FSTA I FSUB #DOTMP+0003 JLE #G0002 EXTERN #RENDO TRAP3 #RENDO LDX 0030,0 EXTERN #READO TRAP3 #READO JA #LIT+0017 JA #100+2 EXTERN #RSVO TRAP3 #RSVO FSTA I0 EXTERN #RENDO TRAP3 #RENDO LDX 0031,0 JSR INPUT LDX 0032,0 JSR PRINT JA .+0004 JA #LIT+0003 LDX 0033,0 FLDA #LIT+0003 FSTA I FLDA MF FSTA #DOTMP+0006 #G0003, LDX 0034,0 FLDA I FSTA IF LDX 0035,0 FLDA #LIT+0003 FSTA J FLDA MR FSTA #DOTMP+0011 #G0004, LDX 0036,0 FLDA J ATX 7 FLDA J FMUL #LIT+0025 FADD I ATX 6 FLDA AF-0041,6 FSTA AF0-0003,7 LDX 0037,0 FLDA J ATX 7 FLDA J FMUL #LIT+0025 FADD I ATX 6 FLDA ETA-0041,6 FSTA ETA0-0003,7 LDX 0040,0 FLDA J FMUL #LIT+0025 FADD I ATX 7 FLDA ETA-0041,7 FMUL DK FMUL NP FSTA TAUD LDX 0041,0 FLDA J FMUL #LIT+0025 FADD I ATX 7 FLDA DETA-0041,7 FMUL DK FMUL NP FSTA DTAUD LDX 0042,0 FLDA TAUD FNEG FSTA #TMP+0000 JSR EXP JA .+0004 JA #TMP+0000 FNEG FADD #LIT+0036 FSTA KET LDX 0043,0 FLDA J ATX 7 FLDA J FMUL #LIT+0025 FADD I ATX 6 FLDA AF-0041,6 FMUL TAUD FSTA #TMP+0000 FLDA #TMP+0000 FDIV T-0003,7 FDIV KET FDIV I0DH FSTA #TMP+0000 JSR ABS JA .+0004 JA #TMP+0000 FSTA #TMP+0000 JSR ALOG JA .+0004 JA #TMP+0000 FMUL H0AL FSTA #TMP+0000 FLDA I0 FMUL TAUD FDIV NP FNEG FADD #TMP+0000 FSTA YL-0003,7 LDX 0044,0 FLDA J ATX 7 FLDA J FMUL #LIT+0025 FADD I ATX 6 FLDA DAF-0041,6 FDIV AF-0041,6 FSTA #BASE FLDA #LIT+0006 EXTERN #EXPII JSA #EXPII FSTA #TMP+0000 FLDA #LIT+0036 FDIV TAUD FSTA #TMP+0003 FLDA TAUD FNEG FSTA #TMPX+0000 JSR EXP JA .+0004 JA #TMPX+0000 FDIV KET FADD #TMP+0003 FSTA #TMP+0003 FLDA I0 FDIV NP EXTERN #FIX JSA #FIX FNEG FADD #TMP+0003 FMUL DTAUD FSTA #BASE FLDA #LIT+0006 EXTERN #EXPII JSA #EXPII FADD #TMP+0000 FSTA #TMP+0000 JSR SQRT JA .+0004 JA #TMP+0000 FMUL H0AL FSTA DY-0003,7 LDX 0045,0 FLDA J ATX 7 FLDA T-0003,7 FSTA XL-0003,7 LDX 0046,0 #50, FLDA J FADD #LIT+0003 FSTA J FSUB #DOTMP+0011 JLE #G0004 LDX 0047,0 JSR LINREG JA .+0004 JA MR LDX 0050,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #420+2 FLDA A EXTERN #RSVO TRAP3 #RSVO FLDA B EXTERN #RSVO TRAP3 #RSVO FLDA AMU EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0051,0 FLDA #LIT+0003 FSTA J FLDA MR FSTA #DOTMP+0014 #G0005, LDX 0052,0 FLDA J ATX 7 FLDA J FMUL #LIT+0025 FADD I ATX 6 FLDA ETA-0041,6 FDIV #LIT+0047 FDIV AMU FSTA #TMP+0000 FLDA #TMP+0000 FSUB T-0003,7 FSTA TDI-0003,7 LDX 0053,0 FLDA J ATX 7 FLDA J FMUL #LIT+0025 FADD I ATX 6 FLDA DETA-0041,6 FDIV #LIT+0047 FDIV AMU FSTA #BASE FLDA #LIT+0006 EXTERN #EXPII JSA #EXPII FSTA #TMP+0000 FLDA DT-0003,7 FSTA #BASE FLDA #LIT+0006 EXTERN #EXPII JSA #EXPII FADD #TMP+0000 FSTA TDP-0003,7 LDX 0054,0 FLDA J ATX 7 XTA 7 FMUL #LIT+0011 ALN 0 STARTD FADD #LIT+0155 FSTA #G0006 STARTF JSR SQRT JA .+0004 #G0006, JA . FSTA DTD LDX 0055,0 FLDA J ATX 7 FLDA #LIT+0036 FDIV TDP-0003,7 FSTA TDP-0003,7 LDX 0056,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #410+2 FLDA J EXTERN #RSVO TRAP3 #RSVO FLDA J ATX 7 FLDA TDI-0003,7 EXTERN #RSVO TRAP3 #RSVO FLDA DTD EXTERN #RSVO TRAP3 #RSVO FLDA TDP-0003,7 EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0057,0 #30, FLDA J FADD #LIT+0003 FSTA J FSUB #DOTMP+0014 JLE #G0005 LDX 0060,0 JSR MEANTD JA .+0006 JA TDM JA DTDM LDX 0061,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #430+2 FLDA TDM EXTERN #RSVO TRAP3 #RSVO FLDA DTDM EXTERN #RSVO TRAP3 #RSVO EXTERN #RENDO TRAP3 #RENDO LDX 0062,0 EXTERN #NE EXTERN #EXIT JSR #EXIT LDX 0063,0 FLDA #LIT+0003 FMUL #LIT+0025 FADD I ATX 7 FLDA EMU-0041,7 FSTA AMU0 LDX 0064,0 JSR PRINT JA .+0004 JA #LIT+0006 LDX 0065,0 FLDA #LIT+0033 FSTA TMAX LDX 0066,0 FLDA #LIT+0003 FSTA J FLDA MR FSTA #DOTMP+0017 #G0007, LDX 0067,0 #51, FLDA J ATX 7 XTA 7 FMUL #LIT+0011 ALN 0 STARTD FADD #LIT+0147 FSTA #G0010 STARTF JSR AMAX1 JA .+0006 JA TMAX #G0010, JA . FSTA TMAX FLDA J FADD #LIT+0003 FSTA J FSUB #DOTMP+0017 JLE #G0007 LDX 0070,0 FLDA #LIT+0017 FMUL MR FNEG FADD #LIT+0030 FDIV #LIT+0006 EXTERN #FIX JSA #FIX FSTA LINT LDX 0071,0 FLDA #LIT+0011 FMUL MR FADD LINT FSTA LMAX LDX 0072,0 FLDA #LIT+0003 FSTA L FLDA LINT FSTA #DOTMP+0022 #G0011, LDX 0073,0 FLDA L ATX 7 FLDA TMAX FSUB #LIT+0036 FSTA #TMP+0000 FLDA L FSUB #LIT+0003 FMUL #TMP+0000 FSTA #TMP+0000 FLDA LINT FSUB #LIT+0003 FSTA #TMP+0003 JSR FLOAT JA .+0004 JA #TMP+0003 FSTA #TMP+0003 FLDA #TMP+0000 FDIV #TMP+0003 FADD #LIT+0036 FSTA X-0003,7 LDX 0074,0 FLDA L ATX 7 FLDA A FMUL X-0003,7 FADD B FSTA Y-0003,7 LDX 0075,0 FLDA L ATX 7 FLDA #LIT+0017 FSTA NB-0003,7 LDX 0076,0 #52, FLDA L FADD #LIT+0003 FSTA L FSUB #DOTMP+0022 JLE #G0011 LDX 0077,0 FLDA #LIT+0003 FSTA J FLDA MR FSTA #DOTMP+0025 #G0012, LDX 0100,0 FLDA J FSUB #LIT+0003 FMUL #LIT+0011 FADD LINT FADD #LIT+0003 FSTA K LDX 0101,0 FLDA K ATX 7 FLDA J ATX 6 FLDA T-0003,6 FSTA X-0003,7 LDX 0102,0 FLDA K ATX 7 FLDA J FMUL #LIT+0025 FADD I ATX 6 FLDA ETA-0041,6 FADD DETA-0041,6 FSTA Y-0003,7 LDX 0103,0 FLDA K ATX 7 FLDA #LIT+0006 FSTA NB-0003,7 LDX 0104,0 FLDA K FADD #LIT+0003 ATX 7 FLDA J ATX 6 FLDA T-0003,6 FSTA X-0003,7 LDX 0105,0 FLDA K FADD #LIT+0003 ATX 7 FLDA J FMUL #LIT+0025 FADD I ATX 6 FLDA ETA-0041,6 FSUB DETA-0041,6 FSTA Y-0003,7 LDX 0106,0 FLDA K FADD #LIT+0003 ATX 7 FLDA #LIT+0006 FSTA NB-0003,7 LDX 0107,0 FLDA K FADD #LIT+0006 ATX 7 FLDA J ATX 6 FLDA T-0003,6 FSTA X-0003,7 LDX 0110,0 FLDA K FADD #LIT+0006 ATX 7 FLDA J FMUL #LIT+0025 FADD I ATX 6 FLDA ETA-0041,6 FSTA Y-0003,7 LDX 0111,0 FLDA K FADD #LIT+0006 ATX 7 FLDA #LIT+0003 FSTA NB-0003,7 LDX 0112,0 #53, FLDA J FADD #LIT+0003 FSTA J FSUB #DOTMP+0025 JLE #G0012 LDX 0113,0 FLDA #LIT+0003 FSTA INIT LDX 0114,0 FLDA #LIT+0003 FMUL #LIT+0025 FADD I ATX 7 FLDA DAF-0041,7 FDIV #LIT+0052 FSTA #BASE FLDA #LIT+0041 EXTERN #EXPIR JSA #EXPIR FSTA DCHI LDX 0115,0 FLDA #LIT+0003 FSTA J FLDA MR FSTA #DOTMP+0030 #G0013, LDX 0116,0 FLDA J FSTA JR LDX 0117,0 FLDA J FMUL #LIT+0025 FADD I ATX 7 FLDA EMU-0041,7 FSTA AMU0 LDX 0120,0 JSR LSAFTA LDX 0121,0 #55, FLDA J FADD #LIT+0003 FSTA J FSUB #DOTMP+0030 JLE #G0013 LDX 0122,0 FLDA #LIT+0000 FSTA INIT LDX 0123,0 FLDA #LIT+0003 FMUL #LIT+0025 FADD I ATX 7 FLDA EMU-0041,7 FSTA AMU0 LDX 0124,0 #60, LDX 0125,0 FLDA #LIT+0003 FSTA LS LDX 0126,0 FLDA #LIT+0003 EXTERN #EQ JSA #EQ FSTA ERR LDX 0127,0 JSR AMIN1 JA .+0006 JA AMU JA AMU0 FSTA MU LDX 0130,0 FLDA AMU FSUB AMU0 FSTA #TMP+0000 JSR ABS JA .+0004 JA #TMP+0000 FSTA DMU LDX 0131,0 #61, FLDA MU FSUB #LIT+0033 JLE #96 LDX 0132,0 #62, JSR ROOTS JA .+0006 JA MU JA DMU LDX 0133,0 FLDA MU FSUB DMU FSTA MU LDX 0134,0 FLDA #LIT+0044 FMUL DMU FSTA DMU LDX 0135,0 FLDA ERRMU JNE #61 LDX 0136,0 FLDA DMU FDIV #LIT+0044 FADD MU FSTA MU LDX 0137,0 JSR FMU JA .+0004 JA MU FSTA MU LDX 0140,0 JSR MEAN LDX 0141,0 JSR PRINT JA .+0004 JA #LIT+0011 LDX 0142,0 FLDA #LIT+0003 FSTA J FLDA MR FSTA #DOTMP+0033 #G0014, LDX 0143,0 FLDA LMAX FADD J FSTA K LDX 0144,0 FLDA K ATX 7 FLDA J ATX 6 FLDA T-0003,6 FSTA X-0003,7 LDX 0145,0 FLDA K ATX 7 FLDA J ATX 6 FLDA ETA0-0003,6 FSTA Y-0003,7 LDX 0146,0 FLDA K ATX 7 FLDA #LIT+0011 FSTA NB-0003,7 LDX 0147,0 #63, FLDA J FADD #LIT+0003 FSTA J FSUB #DOTMP+0033 JLE #G0014 LDX 0150,0 FLDA LMAX FADD MR FSTA LMAX LDX 0151,0 #70, LDX 0152,0 FLDA #LIT+0000 FSTA LS LDX 0153,0 FLDA #LIT+0003 EXTERN #EQ JSA #EQ FSTA ERR LDX 0154,0 FLDA AMU FSTA MU LDX 0155,0 JSR SQRT JA .+0004 JA SA FDIV #LIT+0047 FSTA DMUS LDX 0156,0 FLDA DMUS FDIV #LIT+0044 FSTA DMU LDX 0157,0 FLDA DMU FDIV #LIT+0041 FNEG FADD MU FSTA MU LDX 0160,0 #71, FLDA MU FSUB DMU FSTA MU LDX 0161,0 FLDA MU FSUB #LIT+0033 JLE #97 LDX 0162,0 #72, FLDA #LIT+0044 FMUL DMU FSTA DMU LDX 0163,0 JSR ROOTS JA .+0006 JA MU JA DMU LDX 0164,0 FLDA ERRMU JNE #71 LDX 0165,0 JSR FMU JA .+0004 JA MU FSTA MU LDX 0166,0 JSR PRINT JA .+0004 JA #LIT+0014 LDX 0167,0 #80, LDX 0170,0 FLDA LMAX FADD #LIT+0003 FSTA LMIN LDX 0171,0 FLDA LMAX FADD LINT FSTA LMAX LDX 0172,0 FLDA LMIN FSTA L FLDA LMAX FSTA #DOTMP+0036 #G0015, LDX 0173,0 FLDA L ATX 7 FLDA TMAX FSUB #LIT+0036 FSTA #TMP+0000 FLDA L FSUB LMIN FMUL #TMP+0000 FSTA #TMP+0000 FLDA LINT FSUB #LIT+0003 FSTA #TMP+0003 JSR FLOAT JA .+0004 JA #TMP+0003 FSTA #TMP+0003 FLDA #TMP+0000 FDIV #TMP+0003 FADD #LIT+0036 FSTA X-0003,7 LDX 0174,0 FLDA L ATX 7 FLDA A FMUL X-0003,7 FADD B FSTA Y-0003,7 LDX 0175,0 FLDA L ATX 7 FLDA #LIT+0022 FSTA NB-0003,7 LDX 0176,0 #81, FLDA L FADD #LIT+0003 FSTA L FSUB #DOTMP+0036 JLE #G0015 LDX 0177,0 FLDA #LIT+0003 FSTA J FLDA MR FSTA #DOTMP+0041 #G0016, LDX 0200,0 FLDA LMAX FADD J FSTA K LDX 0201,0 FLDA K ATX 7 FLDA J ATX 6 FLDA T-0003,6 FSTA X-0003,7 LDX 0202,0 FLDA K ATX 7 FLDA J ATX 6 FLDA ETA0-0003,6 FSTA Y-0003,7 LDX 0203,0 FLDA K ATX 7 FLDA #LIT+0014 FSTA NB-0003,7 LDX 0204,0 #82, FLDA J FADD #LIT+0003 FSTA J FSUB #DOTMP+0041 JLE #G0016 LDX 0205,0 FLDA LMAX FADD MR FSTA LMAX LDX 0206,0 JA #20 LDX 0207,0 #96, FLDA ERR JNE #90 LDX 0210,0 FLDA #LIT+0003 FMUL #LIT+0025 FADD I ATX 7 FLDA EMU-0041,7 FDIV #LIT+0025 FSTA MU LDX 0211,0 FLDA #LIT+0003 FSTA ERR LDX 0212,0 JA #62 LDX 0213,0 #97, FLDA ERR JNE #90 LDX 0214,0 FLDA #LIT+0003 FMUL #LIT+0025 FADD I ATX 7 FLDA EMU-0041,7 FDIV #LIT+0025 FSTA MU LDX 0215,0 FLDA #LIT+0003 FSTA ERR LDX 0216,0 JA #72 LDX 0217,0 #90, LDX 0220,0 EXTERN #WRITO TRAP3 #WRITO JA #LIT+0014 JA #200+2 EXTERN #RENDO TRAP3 #RENDO LDX 0221,0 #20, JSR GRAPH JA .+0012 JA X JA Y JA NB JA LMAX LDX 0222,0 #10, FLDA I FADD #LIT+0003 FSTA I FSUB #DOTMP+0006 JLE #G0003 LDX 0223,0 EXTERN #NE EXTERN #EXIT JSR #EXIT #DOTMP, ORG .+0044 #TMPX, ORG .+0006