
/SIX OCTAL DIGIT PRINT SUBROUTINE
OCT6    0
        DAC OCTS   /SAVE DATA
        LAC (240
        JMS TYPE
       LAC (240
       JMS TYPE
      LAC OCTS       /GET DATA
       AND (700000
       CLL!RTL
       RTL
       TAD (260
       JMS TYPE
       LAC OCTS     /GET 2ND DIGIT
       SWHA
       AND (70
       CLL!RAR
       RTR
       TAD (260
       JMS TYPE
       LAC OCTS     /GET 3RD DIGIT
       SWHA
       AND (7
       TAD (260
       JMS TYPE
       LAC OCTS           /GET 4TH DIGIT
       SWHA
       AND (700000
       CLL!RTL
       RTL
       TAD (260
       JMS TYPE
       LAC OCTS          /GET 5TH DIGIT
       AND (70
       CLL!RAR
       RTR
       TAD (260
       JMS TYPE
       LAC OCTS          /GET 6TH DIGIT
       AND (7
       TAD (260
       JMS TYPE
       JMP* OCT6
OCTS   0
 `