Directory of image this file is from
This file as a plain text file
*20 //DOCALC /A FRAMEWORK FOR BRINGING IN 2 FILES, /DOING SOMETHING, & STORING 1 OUTPUT FILE. /F1: DATA DF6, PBK QN7,DF16 (INFILE) /F2: DATA DF7, PBK QN7,DF17 (INFILE) /F3: DATA DF10. PBK QN7,DF20 (OUTFILE) LMODE SEGMNT 5 *20 /TYPE NAME. D0, BEG, LIF 4 MESOUT MM0 /SYSTTST /ASK FOR INUNITS & OUTUNITS. D00, LIF 4 INUNITS LIF 4 OUTUNITS /GET FILE NAMES. D1, LIF 4 MESOUT MM1 /2 INPUT, 1 OUTPUT FILES LIF 4 TABSET 0 /TABLE 0 LDF 5 /WHICH DF 3400 /START LO FOR NAMES KP3, 3 /NUM OF NAMES LIF 4 INTABLE /GET NAMES 0 LIF 4 TABINI 0 /BRING IN FIRST ENSEMBLE FILE & PUT DATA /IN DF6 & PBLOCK IN DF16, QN7. LDF 4 LDA I 7116 STA WORD1 /PBLOCK LDA I 4406 STA WORD2 /DATA LIF 4 TABGET 0 JMP WARN JMP WARN /NOW GET SECOND FILE. PUT DATA IN DF7 & /PBLOCK IN QN7 OF DF17. LDF 4 LDA I 7117 STA WORD1 /PBLOCK LDA I 4407 STA WORD2 /DATA LIF 4 TABGET 0 JMP WARN JMP WARN /AT THIS POINT, FILES ARE IN MEMORY. /NOW FOLLOWS SPECIALIZED CODING. /********************************* /************************************ /ALL DUN WITH CALCULATIONS, NOW STORE /FINAL FILES. LDF 4 LDA I 7120 STA WORD1 /PBLOCK LDA I 4410 STA WORD2 /DATA LIF 4 TABPUT 0 JMP WARN JMP WARN /ALL DUN, DEASSIGN & RECYCLE. LIF 4 DEASS JMP BEG /*** END PROGRAM /END MAIN PROGRAMMING, SUBROUTINES FOLLOW. /FPP SUBROUTINES. NORM=JMP . FMUL P42 /MULFAC FMUL P43 /UV\V FDIV ADSCL /ADC FACTOR JMP 0 /LEAVE UNNORM=JMP . FDIV P42 /MULFAC FDIV P43 /UV\V FMUL ADSCL /ADC FACTOR JMP 0 /LEAVE FIXFAC=JMP . FIX FAC JMP 0 /LEAVE /END FPP SUBROUTINES. /ROUTINE TO WARN OF INPUT OR OUTPUT /FILE IRREGULARITY. WARN, LIF 4 MESOUT MM2 /FILE HANDLING ERROR JMP BEG /RECYCLE /END WARN. /MESSAGES. MM0, TEXT %NAME% 4543 MM1, TEXT %ENTER 2 INPUT & 1 OUTPUT FILENAME.% 4543 MM2, TEXT %FILE HANDLING ERROR % 4543 /END MESSAGES. /CONSTANTS & BUFFERS. FPTEMP, 0 0 0 FP2, 2 2000 0 ADSCL, 10 3770 KM1, -1 KP1, 1 /END CONSTANTS & BUFFERS. AAEND5, 0 //END DOCALC.