/DIGITAL-8-4-U-RIM /RIM PUNCH 33 LOW MEMORY *7441 BEG, HLT /ENTRY FOR LEADER DATA BLOCK LAS /SET INITIAL ADDRESS DCA IA HLT LAS /SET FINAL ADDRESS DCA FA JMS LTS /GO TO L/T SUBROUTINE PADD, TAD IA /PUNCH ADDRESS JMS SHFT TAD CH7 JMS PUN TAD IA AND SL6 JMS PUN PCON, TAD I IA /PUNCH CONTENTS JMS SHFT JMS PUN TAD I IA AND SL6 JMS PUN TAD IA CIA TAD FA SNA CLA /TEST FOR END JMP .+4 ISZ IA JMP PADD JMS LTS /ENTRY FOR L/T JMP BEG LTS, 0 /L/T SUBROUTINE TAD M101 DCA CTR MORE, TAD C200 JMS PUN ISZ CTR JMP MORE /MORE L-T CODES JMP I LTS SHFT, 0 /SHIFT RIGHT RTR RTR RTR AND SL6 JMP I SHFT PUN, 0 /PUNCH SUBROUTINE TLS TSF JMP .-1 CLA JMP I PUN IA, 0 FA, 0 CTR, 0 SL6, 77 CH7, 100 M101, -101 C200, 200 $