1               /DIGITAL-8-4-U-RIM
   2               /RIM PUNCH 33 LOW MEMORY
   3               *41
   4 000041  7402  BEG,    HLT             /ENTRY FOR LEADER DATA BLOCK
   5 000042  7604          LAS             /SET INITIAL ADDRESS
   6 000043  3122          DCA IA
   7 000044  7402          HLT
   8 000045  7604          LAS             /SET FINAL ADDRESS
   9 000046  3123          DCA FA
  10 000047  4076          JMS LTS         /GO TO L/T SUBROUTINE
  11 000050  1122  PADD,   TAD IA          /PUNCH ADDRESS
  12 000051  4106          JMS SHFT
  13 000052  1126          TAD CH7
  14 000053  4114          JMS PUN
  15 000054  1122          TAD IA
  16 000055  0125          AND SL6
  17 000056  4114          JMS PUN
  18 000057  1522  PCON,   TAD I IA        /PUNCH CONTENTS
  19 000060  4106          JMS SHFT
  20 000061  4114          JMS PUN
  21 000062  1522          TAD I IA
  22 000063  0125          AND SL6
  23 000064  4114          JMS PUN
  24 000065  1122          TAD IA
  25 000066  7041          CIA
  26 000067  1123          TAD FA
  27 000070  7650          SNA CLA         /TEST FOR END
  28 000071  5075          JMP .+4 
  29 000072  2122          ISZ IA
  30 000073  5050          JMP PADD
  31 000074  4076          JMS LTS         /ENTRY FOR L/T
  32 000075  5041          JMP BEG
  33 000076  0000  LTS,    0               /L/T SUBROUTINE
  34 000077  1127          TAD M101
  35 000100  3124          DCA CTR
  36 000101  1130  MORE,   TAD C200
  37 000102  4114          JMS PUN
  38 000103  2124          ISZ CTR
  39 000104  5101          JMP MORE        /MORE L-T CODES
  40 000105  5476          JMP I LTS
  41 000106  0000  SHFT,   0               /SHIFT RIGHT
  42 000107  7012          RTR 
  43 000110  7012          RTR 
  44 000111  7012          RTR 
  45 000112  0125          AND SL6
  46 000113  5506          JMP I SHFT
  47 000114  0000  PUN,    0               /PUNCH SUBROUTINE
  48 000115  6046          TLS
  49 000116  6041          TSF 
  50 000117  5116          JMP .-1
  51 000120  7200          CLA 
  52 000121  5514          JMP I PUN
  53 000122  0000  IA,     0
  54 000123  0000  FA,     0
  55 000124  0000  CTR,    0
  56 000125  0077  SL6,    77
  57 000126  0100  CH7,    100
  58 000127  7677  M101,   -101
  59 000130  0200  C200,   200
  60               $

BEG     0041
C200    0130
CH7     0126
CTR     0124
FA      0123
IA      0122
LTS     0076
M101    0127
MORE    0101
PADD    0050
PCON    0057 unreferenced
PUN     0114
SHFT    0106
SL6     0125