TITLE "AUTOMATIC DISASSEMBLY OF decus-8-83.bin BY D8TAPE"
////////////////////////////////////////////////////////////////////////////////
/
/   Automatic Disassembly of decus-8-83.bin
/   Generated 2010 02 19 00:10:22
/   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
/
/   1025 locations used, 0527 code and 0276 data
////////////////////////////////////////////////////////////////////////////////

*0006
    CLA                     /                                       @@0006=7200
C0007,  5600                / JMP I L0000                           

*4200
    TLS                     / Load the TTO from the content of AC4  @@4200=6046
    PLS                     / Clear the punch flag, clear the bunc  @@4201=6026
L4202,
    JMS I C4352             / long call to S4666                    @@4202=4752
L4203,
    JMS I C4353             / long call to S4674                    @@4203=4753
    JMS I C4354             / long call to S4701                    @@4204=4754
L4205,
    TAD   C4355             /                                       @@4205=1355
    DCA   D4357             /                                       @@4206=3357
    TAD   D4360             /                                       @@4207=1360
    DCA   D4361             /                                       @@4210=3361
    TAD   D4362             /                                       @@4211=1362
    DCA   D4363             /                                       @@4212=3363
L4213,
    TAD I D4363             /                                       @@4213=1763
    DCA   S4337             /                                       @@4214=3337
    KRS                     / Read keyboard buffer static. This is  @@4215=6034
    TAD I D4361             /                                       @@4216=1761
    SNA CLA                 /                                       @@4217=7650
    JMP I S4337             / long jump to L0000                    @@4220=5737
    ISZ   D4361             /                                       @@4221=2361
    ISZ   D4363             /                                       @@4222=2363
    ISZ   D4357             /                                       @@4223=2357
    JMP   L4213             /                                       @@4224=5213
    JMP   L4203             /                                       @@4225=5203
    JMS I C4365             / long call to S4513                    @@4226=4765
    DCA   D4366             /                                       @@4227=3366
L4230,
    TAD I D4366             /                                       @@4230=1766
    JMS   S4305             /                                       @@4231=4305
    JMP   L4202             /                                       @@4232=5202
    JMS I C4365             / long call to S4513                    @@4233=4765
    DCA I D4366             /                                       @@4234=3766
    ISZ   D4366             /                                       @@4235=2366
    JMP   L4202             /                                       @@4236=5202
    ISZ   D4366             /                                       @@4237=2366
    TAD   D4366             /                                       @@4240=1366
    JMS   S4305             /                                       @@4241=4305
    JMP   L4230             /                                       @@4242=5230
    JMS I C4365             / long call to S4513                    @@4243=4765
    DCA   D4361             /                                       @@4244=3361
    JMS I C4365             / long call to S4513                    @@4245=4765
    CIA                     /                                       @@4246=7041
    DCA   D4363             /                                       @@4247=3363
L4250,
    JMS I C4352             / long call to S4666                    @@4250=4752
    TAD   D4361             /                                       @@4251=1361
    JMS   S4305             /                                       @@4252=4305
    TAD   C4367             /                                       @@4253=1367
    JMS I C4354             / long call to S4701                    @@4254=4754
    TAD   C4370             /                                       @@4255=1370
    DCA   D4357             /                                       @@4256=3357
L4257,
    TAD I D4361             /                                       @@4257=1761
    JMS   S4305             /                                       @@4260=4305
    TAD   D4361             /                                       @@4261=1361
    TAD   D4363             /                                       @@4262=1363
    SNA CLA                 /                                       @@4263=7650
    JMP   L4202             /                                       @@4264=5202
    ISZ   D4361             /                                       @@4265=2361
    ISZ   D4357             /                                       @@4266=2357
    JMP   L4257             /                                       @@4267=5257
    JMP   L4250             /                                       @@4270=5250
    JMS I C4365             / long call to S4513                    @@4271=4765
    DCA   D4361             /                                       @@4272=3361
    JMS I C4352             / long call to S4666                    @@4273=4752
L4274,
    HLT                     /                                       @@4274=7402
    JMP I D4361             / long jump to L4377                    @@4275=5761
    JMS I C4365             / long call to S4513                    @@4276=4765
L4277,
    DCA   D4361             /                                       @@4277=3361
    JMS I C4352             / long call to S4666                    @@4300=4752
    TAD   D4371             /                                       @@4301=1371
    CLL RAR                 /                                       @@4302=7110
    TAD   D4372             /                                       @@4303=1372
    JMP   L4274             /                                       @@4304=5274

////////////////////////////////////////////////////////////////////////////////
/
/   SUBROUTINE:  S4305
/
/   Called from:
/   4231 4241 4252 4260 4340 
/   Total 0005 (5) calls
////////////////////////////////////////////////////////////////////////////////
S4305,
    0                       / return area
    DCA   D4374             /                                       @@4306=3374
    TAD   C4375             /                                       @@4307=1375
    JMS I C4354             / long call to S4701                    @@4310=4754
    TAD   C4370             /                                       @@4311=1370
    DCA   D4373             /                                       @@4312=3373
L4313,
    TAD   D4374             /                                       @@4313=1374
    CLL RAL                 /                                       @@4314=7104
    RTL                     /                                       @@4315=7006
    DCA   D4374             /                                       @@4316=3374
    TAD   D4374             /                                       @@4317=1374
    RAL                     /                                       @@4320=7004
    AND   C4356             /                                       @@4321=0356
    TAD   C4376             /                                       @@4322=1376
    JMS I C4354             / long call to S4701                    @@4323=4754
    ISZ   D4373             /                                       @@4324=2373
    JMP   L4313             /                                       @@4325=5313
    JMP I S4305             / return                                @@4326=5705
    TAD   D4372             /                                       @@4327=1372
    JMS   S4337             /                                       @@4330=4337
    DCA   D4372             /                                       @@4331=3372
    JMP   L4202             /                                       @@4332=5202
    TAD   D4371             /                                       @@4333=1371
    JMS   S4337             /                                       @@4334=4337
    DCA   D4371             /                                       @@4335=3371
    JMP   L4202             /                                       @@4336=5202

////////////////////////////////////////////////////////////////////////////////
/
/   SUBROUTINE:  S4337
/
/   Called from:
/   4330 4334 
/   Total 0002 (2) calls
////////////////////////////////////////////////////////////////////////////////
S4337,
    0                       / return area
    JMS   S4305             /                                       @@4340=4305
    JMS I C4352             / long call to S4666                    @@4341=4752
    JMS I C4353             / long call to S4674                    @@4342=4753
    JMS I C4354             / long call to S4701                    @@4343=4754
    KRS                     / Read keyboard buffer static. This is  @@4344=6034
    TAD   C4364             /                                       @@4345=1364
    SZA CLA                 /                                       @@4346=7640
    JMP   L4205             /                                       @@4347=5205
    JMS I C4365             / long call to S4513                    @@4350=4765
    JMP I S4337             / return                                @@4351=5737
C4352,
C4352,  4666                / JMS I C4266                           
C4353,
C4353,  4674                / JMS I L4274                           
C4354,
C4354,  4701                / JMS I C4301                           
C4355,  7764                / SMA SZA SNL CLA OSR                   
C4356,  0007                / AND   C0007                           
D4357,  0000                / AND   L0000                           
D4360,  4377                / JMS   C4377                           
D4361,  4377                / JMS   C4377                           
D4362,  4751                / JMS I C4351                           
D4363,  4751                / JMS I C4351                           
C4364,  7467                / SCA MQL DVI +                         
C4365,
C4365,  4513                / JMS I C0113                           
D4366,  0000                / AND   L0000                           
C4367,  0255                / AND   C4255                           
C4370,  7774                / SPA SNA SZL CLA OSR                   
D4371,  0000                / AND   L0000                           
D4372,  0000                / AND   L0000                           
D4373,  0000                / AND   L0000                           
D4374,  0000                / AND   L0000                           
C4375,  0240                / AND   C4240                           
C4376,  0260                / AND   C4260                           
C4377,  7467                / SCA MQL DVI +                         
C4400,  7461                / SCA MQL                               
    SZA SNL HLT             /                                       @@4401=7462
    SNA SZL OSR HLT         /                                       @@4402=7476
C4403,  7477                / SCA MQL LSR +                         
    SZA SNL OSR             /                                       @@4404=7464
    SNA SZL OSR             /                                       @@4405=7474
C4406,  7455                / SCA ASR +                             
    SNA OSR HLT             /                                       @@4407=7456
C4410,  7475                / SCA MQL ASR +                         
    SNA SZL HLT             /                                       @@4411=7472
    SZA SNL                 /                                       @@4412=7460
    DCA   D4550             /                                       @@4413=3350
    HLT                     /                                       @@4414=7402
    LAS                     /                                       @@4415=7604
    AND   C4575             /                                       @@4416=0375
    SZA CLA                 /                                       @@4417=7640
    TAD   C4560             /                                       @@4420=1360
    TAD   C4565             /                                       @@4421=1365
    DCA   D4573             /                                       @@4422=3373
    TAD   D4573             /                                       @@4423=1373
    DCA I C4574             /                                       @@4424=3774
    HLT                     /                                       @@4425=7402
    LAS                     /                                       @@4426=7604
    CIA                     /                                       @@4427=7041
    DCA   D4551             /                                       @@4430=3351
    JMS I C4552             / long call to S4715                    @@4431=4752
L4432,
    HLT                     /                                       @@4432=7402
    LAS                     /                                       @@4433=7604
    DCA   D4553             /                                       @@4434=3353
    HLT                     /                                       @@4435=7402
    LAS                     /                                       @@4436=7604
    DCA   D4554             /                                       @@4437=3354
    TAD   C4555             /                                       @@4440=1355
    DCA   D4556             /                                       @@4441=3356
    STL                     /                                       @@4442=7120
    TAD   D4553             /                                       @@4443=1353
    JMS   S4466             /                                       @@4444=4266
    TAD   C4557             /                                       @@4445=1357
    DCA   D4556             /                                       @@4446=3356
L4447,
    TAD I D4553             /                                       @@4447=1753
    JMS   S4466             /                                       @@4450=4266
    TAD   D4553             /                                       @@4451=1353
    CIA                     /                                       @@4452=7041
    TAD   D4554             /                                       @@4453=1354
    SNA CLA                 /                                       @@4454=7650
    JMP   L4460             /                                       @@4455=5260
    ISZ   D4553             /                                       @@4456=2353
    JMP   L4447             /                                       @@4457=5247
L4460,
    ISZ   D4551             /                                       @@4460=2351
    JMP   L4432             /                                       @@4461=5232
    TAD   D4550             /                                       @@4462=1350
    JMS   S4466             /                                       @@4463=4266
    JMS I C4552             / long call to S4715                    @@4464=4752
    JMP I C4561             / long jump to L4202                    @@4465=5761

////////////////////////////////////////////////////////////////////////////////
/
/   SUBROUTINE:  S4466
/
/   Called from:
/   4444 4450 4463 
/   Total 0003 (3) calls
////////////////////////////////////////////////////////////////////////////////
S4466,
    0                       / return area
    DCA   D4562             /                                       @@4467=3362
    TAD   D4562             /                                       @@4470=1362
    RTR                     /                                       @@4471=7012
    RTR                     /                                       @@4472=7012
    RTR                     /                                       @@4473=7012
    AND   D4556             /                                       @@4474=0356
    JMS   S4504             /                                       @@4475=4304
    JMS I D4573             / long call to S0000                    @@4476=4773
    TAD   D4562             /                                       @@4477=1362
    AND   C4557             /                                       @@4500=0357
    JMS   S4504             /                                       @@4501=4304
    JMS I D4573             / long call to S0000                    @@4502=4773
    JMP I S4466             / return                                @@4503=5666

////////////////////////////////////////////////////////////////////////////////
/
/   SUBROUTINE:  S4504
/
/   Called from:
/   4475 4501 
/   Total 0002 (2) calls
////////////////////////////////////////////////////////////////////////////////
S4504,
    0                       / return area
    DCA   D4563             /                                       @@4505=3363
    TAD   D4563             /                                       @@4506=1363
    TAD   D4550             /                                       @@4507=1350
    DCA   D4550             /                                       @@4510=3350
    TAD   D4563             /                                       @@4511=1363
    JMP I S4504             / return                                @@4512=5704

////////////////////////////////////////////////////////////////////////////////
/
/   SUBROUTINE:  S4513
/
/   Called from:
/   4226 4233 4243 4245 4271 4276 4350 4611 
/   Total 0010 (8) calls
////////////////////////////////////////////////////////////////////////////////
S4513,
    0                       / return area
    TAD   C4564             /                                       @@4514=1364
    JMS I C4565             / long call to S4701                    @@4515=4765
    DCA   D4563             /                                       @@4516=3363
    TAD   C4566             /                                       @@4517=1366
    DCA   D4562             /                                       @@4520=3362
L4521,
    JMS I C4567             / long call to S4674                    @@4521=4767
    JMS I C4565             / long call to S4701                    @@4522=4765
    KRS                     / Read keyboard buffer static. This is  @@4523=6034
    TAD   C4570             /                                       @@4524=1370
    SNA CLA                 /                                       @@4525=7650
    JMP   L4546             /                                       @@4526=5346
    KRS                     / Read keyboard buffer static. This is  @@4527=6034
    AND   C4571             /                                       @@4530=0371
    TAD   C4572             /                                       @@4531=1372
    SZA CLA                 /                                       @@4532=7640
    JMP   L4521             /                                       @@4533=5321
    TAD   D4563             /                                       @@4534=1363
    CLL RAL                 /                                       @@4535=7104
    RTL                     /                                       @@4536=7006
    DCA   D4563             /                                       @@4537=3363
    KRS                     / Read keyboard buffer static. This is  @@4540=6034
    TAD   C4572             /                                       @@4541=1372
    TAD   D4563             /                                       @@4542=1363
    DCA   D4563             /                                       @@4543=3363
    ISZ   D4562             /                                       @@4544=2362
    JMP   L4521             /                                       @@4545=5321
L4546,
    TAD   D4563             /                                       @@4546=1363
    JMP I S4513             / return                                @@4547=5713
D4550,  0000                / AND   L0000                           
D4551,  0000                / AND   L0000                           
C4552,
C4552,  4715                / JMS I C4515                           
D4553,  0000                / AND   L0000                           
D4554,  0000                / AND   L0000                           
C4555,  0177                / AND   C0177                           
D4556,  0077                / AND   C0077                           
C4557,  0077                / AND   C0077                           
C4560,  0006                / AND   C0006                           
C4561,
C4561,  4202                / JMS   C4402                           
D4562,  0000                / AND   L0000                           
D4563,  0000                / AND   L0000                           
C4564,  0240                / AND   C4440                           
C4565,
C4565,  4701                / JMS I C4501                           
C4566,  7774                / SPA SNA SZL CLA OSR                   
C4567,
C4567,  4674                / JMS I C4474                           
C4570,  7403                / SCL +                                 
C4571,  0270                / AND   C4470                           
C4572,  7520                / SMA SNL                               
D4573,  0000                / AND   L0000                           
C4574,  4746                / JMS I L4546                           
C4575,  0001                / AND   C0001                           
C4576,  0000                / AND   L0000                           
C4577,  0000                / AND   L0000                           
C4600,  0000                / AND   L0000                           
C4601,  0000                / AND   L0000                           
D4602,  0000                / AND   L0000                           
C4603,  0000                / AND   L0000                           
C4604,  0000                / AND   L0000                           
    JMS   S4643             /                                       @@4605=4243
    TAD   C4750             /                                       @@4606=1350
C4607,  3002                / DCA   C0002                           
    JMS   S4653             /                                       @@4610=4253
    JMS I C4731             / long call to S4513                    @@4611=4731
L4612,
    DCA I D4726             /                                       @@4612=3726
    TAD I D4726             /                                       @@4613=1726
    DCA   D4733             /                                       @@4614=3333
    TAD I D4733             /                                       @@4615=1733
    DCA I D4730             /                                       @@4616=3730
    TAD   D4734             /                                       @@4617=1334
    DCA I D4733             /                                       @@4620=3733
    JMP I D4735             / long jump to L4202                    @@4621=5735
D4622,  0000                / AND   L0000                           
    DCA I C4736             /                                       @@4623=3736
    RAL                     /                                       @@4624=7004
    DCA I C4737             /                                       @@4625=3737
    STA                     / AC = 7777 (-0001)                     @@4626=7240
    TAD   D4622             /                                       @@4627=1222
    DCA   D4622             /                                       @@4630=3222
    JMP I C4775             / long jump to L5016                    @@4631=5775
L4632,
    JMS   S4643             /                                       @@4632=4243
    TAD   D4622             /                                       @@4633=1222
    CIA                     /                                       @@4634=7041
    JMS   S4653             /                                       @@4635=4253
    TAD I D4730             /                                       @@4636=1730
    DCA I D4622             /                                       @@4637=3622
    DCA I D4726             /                                       @@4640=3726
D4641,  1222                / TAD   D4622                           
    JMP I C4740             / long jump to L4277                    @@4642=5740

////////////////////////////////////////////////////////////////////////////////
/
/   SUBROUTINE:  S4643
/
/   Called from:
/   4605 4632 4757 5076 
/   Total 0004 (4) calls
////////////////////////////////////////////////////////////////////////////////
S4643,
    0                       / return area
    TAD   D4725             /                                       @@4644=1325
    DCA   D4726             /                                       @@4645=3326
    TAD   D4727             /                                       @@4646=1327
    DCA   D4730             /                                       @@4647=3330
    TAD   C4741             /                                       @@4650=1341
    DCA   D4732             /                                       @@4651=3332
    JMP I S4643             / return                                @@4652=5643

////////////////////////////////////////////////////////////////////////////////
/
/   SUBROUTINE:  S4653
/
/   Called from:
/   4610 4635 5077 
/   Total 0003 (3) calls
////////////////////////////////////////////////////////////////////////////////
S4653,
    0                       / return area
    DCA   S4643             /                                       @@4654=3243
L4655,
    TAD   S4643             /                                       @@4655=1243
    TAD I D4726             /                                       @@4656=1726
    SNA CLA                 /                                       @@4657=7650
    JMP I S4653             / return                                @@4660=5653
    ISZ   D4726             /                                       @@4661=2326
    ISZ   D4730             /                                       @@4662=2330
    ISZ   D4732             /                                       @@4663=2332
    JMP   L4655             /                                       @@4664=5255
    HLT                     /                                       @@4665=7402

////////////////////////////////////////////////////////////////////////////////
/
/   SUBROUTINE:  S4666
/
/   Called from:
/   4202 4250 4273 4300 4341 5046 
/   Total 0006 (6) calls
////////////////////////////////////////////////////////////////////////////////
S4666,
    0                       / return area
    TAD   C4742             /                                       @@4667=1342
    JMS   S4701             /                                       @@4670=4301
    TAD   C4743             /                                       @@4671=1343
    JMS   S4701             /                                       @@4672=4301
    JMP I S4666             / return                                @@4673=5666

////////////////////////////////////////////////////////////////////////////////
/
/   SUBROUTINE:  S4674
/
/   Called from:
/   4203 4342 4521 
/   Total 0003 (3) calls
////////////////////////////////////////////////////////////////////////////////
S4674,
    0                       / return area
L4675,
    KSF                     / Skip if keyboard flag is a 1.         @@4675=6031
    JMP   L4675             /                                       @@4676=5275
    KRB                     / Clear AC, clear keyboard flag, and r  @@4677=6036
    JMP I S4674             / return                                @@4700=5674

////////////////////////////////////////////////////////////////////////////////
/
/   SUBROUTINE:  S4701
/
/   Called from:
/   4204 4254 4310 4323 4343 4515 4522 4670 4672 5074 
/   Total 0012 (10) calls
////////////////////////////////////////////////////////////////////////////////
S4701,
    0                       / return area
L4702,
    TSF                     / Skip if teleprinter flag is a 1.      @@4702=6041
    JMP   L4702             /                                       @@4703=5302
    TLS                     / Load the TTO from the content of AC4  @@4704=6046
    CLA CLL                 / AC = 0000                             @@4705=7300
    JMP I S4701             / return                                @@4706=5701
C4707,
C4707,  0000                / AND   L0000                           
L4710,
    PSF                     / Skip if punch flag is a 1             @@4710=6021
    JMP   L4710             /                                       @@4711=5310
    PLS                     / Clear the punch flag, clear the bunc  @@4712=6026
    CLA CLL                 / AC = 0000                             @@4713=7300
    JMP I C4707             / long jump to L0000                    @@4714=5707

////////////////////////////////////////////////////////////////////////////////
/
/   SUBROUTINE:  S4715
/
/   Called from:
/   4431 4464 
/   Total 0002 (2) calls
////////////////////////////////////////////////////////////////////////////////
S4715,
    0                       / return area
    TAD   C4744             /                                       @@4716=1344
    DCA   D4747             /                                       @@4717=3347
L4720,
    TAD   C4745             /                                       @@4720=1345
    JMS I D4746             / long call to S0000                    @@4721=4746
    ISZ   D4747             /                                       @@4722=2347
    JMP   L4720             /                                       @@4723=5320
    JMP I S4715             / return                                @@4724=5715
D4725,  4576                / JMS I C0176                           
D4726,  4576                / JMS I C0176                           
D4727,  4765                / JMS I C4765                           
D4730,  4765                / JMS I C4765                           
C4731,
C4731,  4513                / JMS I C0113                           
D4732,  0000                / AND   L0000                           
D4733,  0000                / AND   L0000                           
D4734,  4402                / JMS I C0002                           
C4735,
D4735,  4202                / JMS   D4602                           
C4736,  4372                / JMS   D4772                           
C4737,  4371                / JMS   D4771                           
C4740,
C4740,  4277                / JMS   C4677                           
C4741,  7771                / CLA MQA SCA MQL NMI                   
C4742,  0215                / AND   C4615                           
C4743,  0212                / AND   L4612                           
C4744,  7634                / SZL CLA OSR                           
C4745,  0200                / AND   C4600                           
D4746,  0000                / AND   L0000                           
D4747,  0000                / AND   L0000                           
C4750,  4622                / JMS I D4622                           
C4751,  4233                / JMS   C4633                           
C4752,  4226                / JMS   C4626                           
C4753,  4237                / JMS   C4637                           
C4754,  4605                / JMS I C4605                           
C4755,  4327                / JMS   D4727                           
    JMS   D4733             /                                       @@4756=4333
    JMS   S4643             /                                       @@4757=4243
C4760,  4271                / JMS   C4671                           
C4761,  4276                / JMS   C4676                           
C4762,  4632                / JMS I L4632                           
C4763,  4776                / JMS I C4776                           
C4764,  4413                / JMS I AI3                             
C4765,  0000                / AND   L0000                           
C4766,  0000                / AND   L0000                           
C4767,  0000                / AND   L0000                           
C4770,  0000                / AND   L0000                           
D4771,  0000                / AND   L0000                           
D4772,  0000                / AND   L0000                           
C4773,  0000                / AND   L0000                           
C4774,  5066                / JMP   C0066                           
C4775,
C4775,  5016                / JMP   AI6                             
    JMP I C4777             / long jump to L5000                    @@4776=5777
C4777,
C4777,  5000                / JMP   L0000                           
L5000,
    CLA CLL                 / AC = 0000                             @@5000=7300
    TAD   C5107             /                                       @@5001=1307
    DCA I C5113             /                                       @@5002=3713
    TAD   C5110             /                                       @@5003=1310
    DCA I C5114             /                                       @@5004=3714
    TAD   C5111             /                                       @@5005=1311
    DCA I C5115             /                                       @@5006=3715
    TAD   C5112             /                                       @@5007=1312
    DCA I C5116             /                                       @@5010=3716
    TAD   C5121             /                                       @@5011=1321
    DCA I C5122             /                                       @@5012=3722
    TAD   C5117             /                                       @@5013=1317
    DCA I C5120             /                                       @@5014=3720
    JMP I C5131             / long jump to L4202                    @@5015=5731
L5016,
    TAD   C5123             /                                       @@5016=1323
    DCA I C5113             /                                       @@5017=3713
    TAD   C5124             /                                       @@5020=1324
    DCA I C5114             /                                       @@5021=3714
    TAD   C5125             /                                       @@5022=1325
    DCA I C5115             /                                       @@5023=3715
    TAD   C5126             /                                       @@5024=1326
    DCA I C5116             /                                       @@5025=3716
    TAD   C5127             /                                       @@5026=1327
    DCA I C5120             /                                       @@5027=3720
    TAD   C5130             /                                       @@5030=1330
    DCA I C5122             /                                       @@5031=3722
    JMP I C5131             / long jump to L4202                    @@5032=5731

////////////////////////////////////////////////////////////////////////////////
/
/   SUBROUTINE:  S5033
/
/   Called from:
/   5170 
/   Total 0001 (1) calls
////////////////////////////////////////////////////////////////////////////////
S5033,
    0                       / return area
    TAD I C5132             /                                       @@5034=1732
    DCA   D5147             /                                       @@5035=3347
C5036,  1044                / TAD   C0044                           
    DCA   D5135             /                                       @@5037=3335
C5040,  1045                / TAD   C0045                           
    DCA   D5136             /                                       @@5041=3336
C5042,  1046                / TAD   C0046                           
    DCA   D5140             /                                       @@5043=3340
C5044,  1047                / TAD   C0047                           
    DCA   D5137             /                                       @@5045=3337
    JMS I C5141             / long call to S4666                    @@5046=4741
C5047,  4406                / JMS I C0006                           
    TAD   D5135             /                                       @@5050=1335
C5051,  3044                / DCA   C0044                           
    TAD   D5136             /                                       @@5052=1336
C5053,  3045                / DCA   C0045                           
    TAD   D5140             /                                       @@5054=1340
C5055,  3046                / DCA   C0046                           
    TAD   D5137             /                                       @@5056=1337
C5057,  3047                / DCA   C0047                           
    STA                     / AC = 7777 (-0001)                     @@5060=7240
    TAD   D5147             /                                       @@5061=1347
    DCA I C5134             /                                       @@5062=3734
    TAD I C5134             /                                       @@5063=1734
    DCA I C5133             /                                       @@5064=3733
    JMP   L5000             /                                       @@5065=5200
    TAD I C5144             /                                       @@5066=1744
    DCA   D5137             /                                       @@5067=3337
    TAD I D5137             /                                       @@5070=1737
    SZA CLA                 /                                       @@5071=7640
    JMP I S5033             / return                                @@5072=5633
    TAD   C5142             /                                       @@5073=1342
    JMS I C5143             / long call to S4701                    @@5074=4743
    JMP   L5016             /                                       @@5075=5216
    JMS I C5145             / long call to S4643                    @@5076=4745
    JMS I C5146             / long call to S4653                    @@5077=4746
    TAD   C5150             /                                       @@5100=1350
    DCA I C5151             /                                       @@5101=3751
    TAD   D5147             /                                       @@5102=1347
    JMP I C5152             / long jump to L4612                    @@5103=5752
    TAD   C5131             /                                       @@5104=1331
    DCA I C5151             /                                       @@5105=3751
    JMP I C5153             / long jump to L4632                    @@5106=5753
C5107,  5154                / JMP   C0154                           
C5110,  5170                / JMP   C0170                           
C5111,  5204                / JMP   C5004                           
C5112,  5213                / JMP   C5013                           
C5113,  4360                / JMS   C5160                           
C5114,  4362                / JMS   C5162                           
C5115,  4725                / JMS I C5125                           
C5116,  4727                / JMS I C5127                           
C5117,  0017                / AND   AI7                             
C5120,  4734                / JMS I C5134                           
C5121,  5774                / JMP I C5174                           
C5122,  4641                / JMS I C5041                           
C5123,  4377                / JMS   C5177                           
C5124,  4751                / JMS I C5151                           
C5125,  4576                / JMS I C0176                           
C5126,  4765                / JMS I C5165                           
C5127,  4402                / JMS I C0002                           
C5130,  1222                / TAD   C5022                           
C5131,
C5131,  4202                / JMS   C5002                           
C5132,  5600                / JMP I L5000                           
C5133,  4622                / JMS I C5022                           
C5134,  5661                / JMP I C5061                           
D5135,  0000                / AND   L0000                           
D5136,  0000                / AND   L0000                           
D5137,  0000                / AND   L0000                           
D5140,  0000                / AND   L0000                           
C5141,
C5141,  4666                / JMS I C5066                           
C5142,  0336                / AND   D5136                           
C5143,
C5143,  4701                / JMS I C5101                           
C5144,  4730                / JMS I C5130                           
C5145,
C5145,  4643                / JMS I C5043                           
C5146,
C5146,  4653                / JMS I C5053                           
D5147,  0000                / AND   L0000                           
C5150,  5104                / JMP   C0104                           
C5151,  4735                / JMS I D5135                           
C5152,
C5152,  4612                / JMS I C5012                           
C5153,
C5153,  4632                / JMS I C5032                           
C5154,  7467                / SCA MQL DVI +                         
C5155,  7461                / SCA MQL                               
    SZA SNL HLT             /                                       @@5156=7462
    SNA SZL OSR HLT         /                                       @@5157=7476
C5160,  7477                / SCA MQL LSR +                         
    SZA SNL OSR             /                                       @@5161=7464
    SNA SZL OSR             /                                       @@5162=7474
C5163,  7455                / SCA ASR +                             
    SNA OSR HLT             /                                       @@5164=7456
C5165,  7475                / SCA MQL ASR +                         
C5166,  7463                / SCA MQL SCL +                         
    SZA SNL                 /                                       @@5167=7460
    JMS   S5033             /                                       @@5170=4233
C5171,  4226                / JMS   C5026                           
C5172,  4237                / JMS   C5037                           
C5173,  4605                / JMS I C5005                           
C5174,  4327                / JMS   C5127                           
C5175,  4333                / JMS   C5133                           
C5176,  4243                / JMS   C5043                           
C5177,  5076                / JMP   C0076                           
C5200,  4276                / JMS   C5276                           
C5201,  4632                / JMS I C5232                           
C5202,  5016                / JMP   AI6                             
C5203,  4413                / JMS I AI3                             
C5204,  0000                / AND   L0000                           
C5205,  0000                / AND   L0000                           
C5206,  0000                / AND   L0000                           
C5207,  0000                / AND   L0000                           
C5210,  0000                / AND   L0000                           
C5211,  0000                / AND   L0000                           
C5212,  0000                / AND   L0000                           
C5213,  0000                / AND   L0000                           
C5214,  0000                / AND   L0000                           
C5215,  0000                / AND   L0000                           
C5216,  0000                / AND   L0000                           
C5217,  0000                / AND   L0000                           
C5220,  0000                / AND   L0000                           
C5221,  0000                / AND   L0000                           

*5767
C5767,  5033                / JMP   C0033                           

$
