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$
                                                                                                                                                    