1               /DIGITAL-8-4-U-RIM
   2               /RIM PUNCH 33 LOW MEMORY
   3               *7441
   4 007441  7402  BEG,    HLT             /ENTRY FOR LEADER DATA BLOCK
   5 007442  7604          LAS             /SET INITIAL ADDRESS
   6 007443  3322          DCA IA
   7 007444  7402          HLT
   8 007445  7604          LAS             /SET FINAL ADDRESS
   9 007446  3323          DCA FA
  10 007447  4276          JMS LTS         /GO TO L/T SUBROUTINE
  11 007450  1322  PADD,   TAD IA          /PUNCH ADDRESS
  12 007451  4306          JMS SHFT
  13 007452  1326          TAD CH7
  14 007453  4314          JMS PUN
  15 007454  1322          TAD IA
  16 007455  0325          AND SL6
  17 007456  4314          JMS PUN
  18 007457  1722  PCON,   TAD I IA        /PUNCH CONTENTS
  19 007460  4306          JMS SHFT
  20 007461  4314          JMS PUN
  21 007462  1722          TAD I IA
  22 007463  0325          AND SL6
  23 007464  4314          JMS PUN
  24 007465  1322          TAD IA
  25 007466  7041          CIA
  26 007467  1323          TAD FA
  27 007470  7650          SNA CLA         /TEST FOR END
  28 007471  5275          JMP .+4 
  29 007472  2322          ISZ IA
  30 007473  5250          JMP PADD
  31 007474  4276          JMS LTS         /ENTRY FOR L/T
  32 007475  5241          JMP BEG
  33 007476  0000  LTS,    0               /L/T SUBROUTINE
  34 007477  1327          TAD M101
  35 007500  3324          DCA CTR
  36 007501  1330  MORE,   TAD C200
  37 007502  4314          JMS PUN
  38 007503  2324          ISZ CTR
  39 007504  5301          JMP MORE        /MORE L-T CODES
  40 007505  5676          JMP I LTS
  41 007506  0000  SHFT,   0               /SHIFT RIGHT
  42 007507  7012          RTR 
  43 007510  7012          RTR 
  44 007511  7012          RTR 
  45 007512  0325          AND SL6
  46 007513  5706          JMP I SHFT
  47 007514  0000  PUN,    0               /PUNCH SUBROUTINE
  48 007515  6046          TLS
  49 007516  6041          TSF 
  50 007517  5316          JMP .-1
  51 007520  7200          CLA 
  52 007521  5714          JMP I PUN
  53 007522  0000  IA,     0
  54 007523  0000  FA,     0
  55 007524  0000  CTR,    0
  56 007525  0077  SL6,    77
  57 007526  0100  CH7,    100
  58 007527  7677  M101,   -101
  59 007530  0200  C200,   200
  60               $

BEG     7441
C200    7530
CH7     7526
CTR     7524
FA      7523
IA      7522
LTS     7476
M101    7527
MORE    7501
PADD    7450
PCON    7457 unreferenced
PUN     7514
SHFT    7506
SL6     7525