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$