ToCS

            SOB program   {jump to program}
            SOB Int1       {jump to Int1}
            SOB Int2       {jump to Int2}
            SOB Int3       {jump to Int3}
            SOB Int4       {jump to Int4}
            program: POB asciiCode
                     OUT 2
                     SOB program
                     STP
            Int1:
                     POB one
                     OUT 2
                     RFI
            Int2:
                     POB two
                     OUT 2
                     RFI
            Int3:
                     POB three
                     OUT 2
                     RFI
            Int4:
                     POB four
                     OUT 2
                     RFI

            asciiCode: RST 46
            one: RST 49
            two: RST 50
            three: RST 51
            four: RST 52
            stp: RST 0