TITLE "AUTOMATIC DISASSEMBLY OF decus-8-38b.bin BY D8TAPE"
////////////////////////////////////////////////////////////////////////////////
/
/   Automatic Disassembly of decus-8-38b.bin
/   Generated 2010 02 19 00:10:21
/   Generated by d8tape version 0.351
/   Visit http://www.pdp12.org/pdp8/software/index.html for updates
/
/   Symbol format:
/       AIx   -- Auto-index variables (address range 001x)
/       Caaaa -- Constants (non-unique)
/       Daaaa -- Data (read/write variables)
/       Kvvvv -- Program-wide unique constants
/       Laaaa -- Labels for control flow targets
/       Saaaa -- Subroutines
/
/   Where:
/       aaaa is the definition address
/       vvvv is the value of the constant
/       x    is the last digit of the address 001x for auto-index variables
/
/   0056 locations used, 0022 code and 0034 data
////////////////////////////////////////////////////////////////////////////////

*4130
C4130,  4775                / JMS I C4175                           
    DCA   D4170             /                                       @@4131=3370
L4132,
C4132,  4407                / JMS I C0007                           
C4133,  6371                / 6371                                  
    JMP I D4170             / long jump to L0000                    @@4134=5770
C4135,  0011                / AND   AI1                             
    JMP   L4171             /                                       @@4136=5371
C4137,  0000                / AND   L0000                           
    JMP I C4177             / long jump to L4202                    @@4140=5777
C4141,  4407                / JMS I C0007                           
C4142,  6371                / 6371                                  
C4143,  0012                / AND   AI2                             
C4144,  6770                / 6770                                  
    JMP   L4171             /                                       @@4145=5371
C4146,  0000                / AND   L0000                           
    TAD   C4167             /                                       @@4147=1367
    TAD   D4170             /                                       @@4150=1370
    DCA   D4170             /                                       @@4151=3370
    JMP I C4177             / long jump to L4202                    @@4152=5777
    TAD   C4167             /                                       @@4153=1367
    TAD   D4170             /                                       @@4154=1370
    DCA   D4170             /                                       @@4155=3370
    TAD   D4170             /                                       @@4156=1370
C4157,  4776                / JMS I C4176                           
    JMP   L4132             /                                       @@4160=5332
C4161,
C4161,  0000                / AND   L0000                           
L4162,
C4162,  4405                / JMS I C0005                           
C4163,  1061                / TAD   C0061                           
    SNA CLA                 /                                       @@4164=7650
    JMP   L4162             /                                       @@4165=5362
    JMP I C4161             / long jump to L0000                    @@4166=5761
C4167,  0004                / AND   C0004                           
D4170,  0000                / AND   L0000                           
L4171,
C4171,  0000                / AND   L0000                           
C4172,  0000                / AND   L0000                           
C4173,  0000                / AND   L0000                           
C4174,  0000                / AND   L0000                           
C4175,  4513                / JMS I C0113                           
C4176,  4305                / JMS   C4105                           
C4177,
C4177,  4202                / JMS   C4002                           

*5155
C5155,  7473                / SCA MQL SHL +                         

*5170
C5170,  4141                / JMS   C0141                           
C5171,  4130                / JMS   C0130                           
C5172,  4153                / JMS   C0153                           

*5761
    CLA                     /                                       @@5761=7200
C5762,  4161                / JMS   C0161                           

$