:SV,1 :SE,1,1G :ST,5,TSTED,AS :ST,5,TSTEDR,AS :ST,5,TSTAS,AS :ST,5,TSTFT,AS :ST,5,TSTFT4,AS :ST,5,TSTAL,AS :ST,5,TASMB,AS :ST,5,TFTN,AS :ST,5,TFTN4,AS :ST,5,TALGOL,AS :ST,5,JOB1,AS :ST,5,JOB2,AS :ST,5,JOB3,AS :ST,5,TJOB1,AS :ST,5,TJOB2,AS :ST,5,TJOB3,AS :ST,5,SHUTDN,AS :TE,* A DIR. LIST SHOULD BE PRODUCED. :DL,,XX :SV,0 :TR :SV,1 :TE,* USE EDIT TO MOD. TASMB. :MS,TASMB,EDIT :TE,* ENTER THE FOLLOWING EDIT COMMANDS: :TE,* /D,6 :TE,* /E :RU,EDIT,1,2,2 :TE,* EDIT EXECUTED! SAVE SOURCE BY :TE,* ENTERING THE FOLLOWING FMGR COMMANDS: :TE,* :LS,NN,XXXX :TE,* :PU,TASMB :TE,* :SA,LS,TASMB :SV,0 :TR :SV,1 :TE,* USE EDITR TO MODIFY TFTN4. :TE,* ENTER THE FOLLOWING EDITR COMMANDS: :TE,* /TFTN4 :TE,* /6 :TE,* /- :TE,* /ERTFTN4 :RU,EDITR :TE,* EDITR EXECUTED! :SV,0 :TR :SV,1 :TE,* PROCESS AND RUN TASMB. :LG,1 :MS,TASMB,ASMB :RU,ASMB,2,,64,99 :RU,LOADR,99 :RU,TASMB,1P :OF,TASMB,8 :TE,* ASSEMBLER EXECUTED! :SV,0 :TR :SV,1 :TE,* PROCESS AND RUN TFTN. :LG,1 :MS,TFTN,FTN :RU,FTN,2,,64,99 :RU,LOADR,99 :RU,TFTN,1G :OF,TFTN,8 :TE,* FORTRAN EXECUTED! :SV,0 :TR :SV,1 :TE,* PROCESS AND RUN TFTN4. :LG,1 :MS,TFTN4,FTN4 :RU,FTN4,2,,64,99 :RU,LOADR,99 :RU,TFTN4,1P :OF,TFTN4,8 :TE,* FORTRAN IV EXECUTED! :SV,0 :TR :SV,1 :TE,* PROCESS AND RUN TALGOL. :LG,1 :MS,TALGOL,ALGOL :RU,ALGOL,2,,64,99 :RU,LOADR,99 :RU,TALGOL,1P :OF,TALGOL,8 :TE,* ALGOL EXECUTED! :SV,0 :TR ASMB,R,B,L NAM TASMB ENT TASMB EXT CLRIO,RMPAR,PRTN,EXEC EXT .DIO.,.DTA.,.IAY.,.IIO. ********* THIS LINE SHOULD HAVE BEEN DELETED WITH EDIT ******** * * TASMB TEST TAPE * 25154-18008 * * IB BSS 5 LP DEF L L BSS 35 TASMB JSB CLRIO DEF *+1 JSB RMPAR DEF *+2 IBP DEF IB CLA,INA STA IA CLB JSB .DIO. DEF F0 DEF *+2 JSB .DTA. CLA,INA CLB JSB .DIO. DEF F1 DEF *+2 JSB .DTA. CLA,INA CLB,INB JSB .DIO. OCT 0 DEF *+4 JSB .IAY. DEF IB O5 OCT 5 CLA,INA CLB JSB .DIO. DEF F2 DEF *+2 JSB .DTA. CLA,INA CLB,INB JSB .DIO. OCT 0 DEF *+3 JSB .IIO. DEF IA CLA,INA CLB JSB .DIO. DEF F3 DEF *+2 JSB .DTA. CLA,INA CLB,INB JSB .DIO. DEF F4 DEF D CLA,INA STA Q C LDA Q ADA M1 ADA LP STA S JSB .IIO. DEF S,I LDA Q INA STA Q CMA,INA ADA O43 SSA,RSS JMP C D CLA,INA STA I P LDA IB CLB JSB .DIO. DEF F5 DEF M CLA,INA STA Q N LDA Q ADA M1 ADA LP STA S JSB .IIO. DEF S,I LDA Q INA STA Q CMA,INA ADA O43 SSA,RSS JMP N JSB .DTA. M LDA I INA STA I CMA,INA ADA IA SSA,RSS JMP P JSB PRTN DEF *+2 DEF IB JSB EXEC DEF O6 DEF O6 O6 OCT 6 O43 OCT 43 M1 OCT -1 IA BSS 1 Q BSS 1 S BSS 1 I BSS 1 SUP F0 ASC 11,(/," HP ASSEMBLER",/) F1 ASC 9,(" OUTPUT LUN? _") F2 ASC 12,(" NUMBER OF LINES? _") F3 ASC 14,(" ENTER A DATA STRING: _") F4 ASC 3,(35A2) F5 ASC 4,(X,35A2) END TASMB END$ FTN,B,L PROGRAM TFTN C C TFTN TEST PROGRAM C 25154-18009 C DIMENSION IBUF(5),LINE(35) CALL RMPAR(IBUF) 5 FORMAT(/," HP FORTRAN",/) 10 FORMAT(" OUTPUT LUN? _") 20 FORMAT(" NUMBER OF LINES? _") 30 FORMAT(" ENTER A DATA STRING: _") 40 FORMAT(35A2) 50 FORMAT(X,35A2) IA=1 WRITE(1,5) WRITE(1,10) READ(1,*)IBUF WRITE(1,20) READ(1,*)IA WRITE(1,30) READ(1,40)(LINE(L),L=1,35) DO 100 I=1,IA II=IBUF(1) WRITE(II,50)(LINE(L),L=1,35) 100 CONTINUE CALL PRTN(IBUF) END END$ FTN4,B,L PROGRAM TFTN4 C C TFTN4 TEST PROGRAM C 25154-18010 CCCCCCCCC THIS LINE SHOULD BE DELETED BY EDITR CCCCCCCCCC C DIMENSION IBUF(5),LINE(35) CALL RMPAR(IBUF) 5 FORMAT(/," HP FORTRAN 4",/) 10 FORMAT(" OUTPUT LUN? _") 20 FORMAT(" NUMBER OF LINES? _") 30 FORMAT(" ENTER A DATA STRING: _") 40 FORMAT(35A2) 50 FORMAT(X,35A2) IA=1 WRITE(1,5) WRITE(1,10) READ(1,*)IBUF WRITE(1,20) READ(1,*)IA WRITE(1,30) READ(1,40)(LINE(L),L=1,35) DO 100 I=1,IA II=IBUF(1) WRITE(II,50)(LINE(L),L=1,35) 100 CONTINUE CALL PRTN(IBUF) END END$ HPAL,B,L,"TALGOL" & & TALGOL TEST TAPE & 25154-18011 & BEGIN INTEGER ARRAY IBUF[1:5]; INTEGER ARRAY LINE[1:35]; INTEGER IA,Z,Y,II; PROCEDURE RMPAR(I);INTEGER I;CODE; PROCEDURE PRTN(J);INTEGER J;CODE; FORMAT F0(/," HP ALGOL",/); FORMAT F1(" OUTPUT LUN? _"); FORMAT F2(" NUMBER OF LINES? _"); FORMAT F3(" ENTER A DATA STRING: _"); FORMAT F4(35A2); FORMAT F5(X,35A2); RMPAR(IBUF[1]); II_IBUF[1]; IA_1; WRITE(1,F0); WRITE(1,F1); READ(1,*,II); WRITE(1,F2); READ(1,*,IA); WRITE(1,F3); READ(1,F4,FOR Z_1 TO 35 DO LINE[Z]); FOR Y_1 STEP 1 UNTIL IA DO WRITE(II,F5,FOR Z_1 TO 35 DO LINE[Z]); IBUF[1]_II; PRTN(IBUF[1]); END$ :JO,JOB1 :SV,1 :LG,1 :MS,TJOB1,FTN4 :RU,FTN4,2,64,64,99 :RU,LOADR,99,64 :RU,TJOB1 :OF,TJOB1 :SV,0 :EO :JO,JOB2 :SV,1 :LG,1 :MS,TJOB2,FTN4 :RU,FTN4,2,64,64,99 :RU,LOADR,99,64 :RU,TJOB2 :OF,TJOB2 :SV,0 :EO :JO,JOB3 :SV,1 :LG,1 :MS,TJOB3,FTN4 :RU,FTN4,2,64,64,99 :RU,LOADR,99,64 :RU,TJOB3 :OF,TJOB3 :SV,0 :EO FTN4,B,L PROGRAM TJOB1 DIMENSION IT(5) CALL EXEC(11,IT,IY) WRITE(6,10) 10 FORMAT(X,"THIS IS JOB 1.",/,X,"THE TIME IS:") WRITE(6,20)IY,IT(5),IT(4),IT(3),IT(2),IT(1) 20 FORMAT(6(5X,I4)) END END$ FTN4,B,L PROGRAM TJOB2 DIMENSION IT(5) CALL EXEC(11,IT,IY) WRITE(6,10) 10 FORMAT(X,"THIS IS JOB 2.",/,X,"THE TIME IS:") WRITE(6,20)IY,IT(5),IT(4),IT(3),IT(2),IT(1) 20 FORMAT(6(5X,I4)) END END$ FTN4,B,L PROGRAM TJOB3 DIMENSION IT(5) CALL EXEC(11,IT,IY) WRITE(6,10) 10 FORMAT(X,"THIS IS JOB 3.",/,X,"THE TIME IS:") WRITE(6,20)IY,IT(5),IT(4),IT(3),IT(2),IT(1) 20 FORMAT(6(5X,I4)) END END$ :SV,1 :LG,0 :LS,0 :PU,JOB1 :PU,JOB2 :PU,JOB3 :PU,TJOB1 :PU,TJOB2 :PU,TJOB3 :PU,TALGOL :PU,TFTN4 :PU,TFTN :PU,TASMB :PU,TSTAL :PU,TSTFT4 :PU,TSTFT :PU,TSTAS :PU,TSTEDR :PU,TSTED :PU,SETUP :PU,SHUTDN :PK :SV,0 :EX :XE,JOB1 :XE,JOB2 :XE,JOB3