0000: START 0000: STRT EQU * 0000: LH 13,X'000A' 0004: BCR R15,R13 0006: DC XL10'028017484FD800000000' 0010: DC XL16'003400340000158C158C000000000000' 0020: DC XL16'00000000000049300000000000004930' 0030: DC XL16'00000000000019280000000000001928' 0040: DC XL16'00000001900004560000000000001838' 0050: DC XL16'00000000000016600000000000001660' 0060: DC XL16'0000000000001BE80000000000001BE8' 0070: DC XL16'00000000000000000000000000000000' 0080: DC XL16'00000000000000000000000000000000' 0090: DC XL16'00000000000000000000000000000000' 00A0: DC XL16'000000004550D2DE0000000000000000' 00B0: DC XL16'00000000000000000000000000000000' 00C0: DC XL16'00000000000000000000000000000000' 00D0: DC XL16'00000000000000000000000000000000' 00E0: DC XL16'00000000000000000000000000000000' 00F0: DC XL16'00000000000000000000000000000000' 0100: DC XL16'00000000000000000000000000000000' 0110: DC XL16'00000000000000000000000000000000' 0120: DC XL16'00000000000000000000000000000000' 0130: DC XL16'00000000000000000000000000000000' 0140: DC XL16'00000000000000000000000000000000' 0150: DC XL16'00000000000000000000000000000000' 0160: DC XL16'00000000000000000000000000000000' 0170: DC XL16'00000000000000000000000000000000' 0180: DC XL16'00000000000000000000000000000000' 0190: DC XL16'00000000000000000000000000000000' 01A0: DC XL16'00000000000000000000000000000000' 01B0: DC XL16'00000000000000000000000000000000' 01C0: DC XL16'00000000000000000000000000000000' 01D0: DC XL16'00000000000000000000000000000000' 01E0: DC XL16'00000000000000000000000000000000' 01F0: DC XL16'00000000000000000000000000000000' 0200: DC XL16'00000000000000000000000000000000' 0210: DC XL16'00000000000000000000000000000000' 0220: DC XL16'00000000000000000000000000000000' 0230: DC XL16'00000000000000000000000000000000' 0240: DC XL16'00000000000000000000000000000000' 0250: DC XL16'00000000000000000000000000000000' 0260: DC XL16'00000000000000000000000000000000' 0270: DC XL16'00000000000000000000000000000000' 0280: DC XL16'F440F240009B0000009D0000FF6B0002' 0290: DC XL16'0000000A000000280000000700000000' 02A0: DC XL16'00000000009A0A000AC809A809280000' 02B0: DC XL16'0908000033C000001404A3030000F040' 02C0: DC XL16'00005CF0000000020000002700000908' 02D0: DC XL16'00005C50000000000000028000000000' 02E0: DC XL16'00000000E2E85BE2E3C44390C0010007' 02F0: DC XL16'0014046E000000000000000000000005' 0300: DC XL16'08000000006C006C04080558049A0000' 0310: DC XL16'186603C800000100FF0F1FFF1F0000C8' 0320: DC XL16'00000000000000000000000000001D32' 0330: DC XL16'00002710000000000000000000000000' 0340: DC XL16'00000000000000000408053800000000' 0350: DC XL16'3D000000000055400000000000000000' 0360: DC XL16'00000000000000000000606000000000' 0370: DC XL16'052C006000001F200000000000000334' 0380: DC XL16'0000070000010000000000004632493C' 0390: DC XL16'42004158000000000000000000000000' 03A0: DC XL16'00000000000000000000000000000000' 03B0: DC XL16'00000000000000000000000000000000' 03C0: DC XL16'00000000000000000000000000000000' 03D0: DC XL16'00000000000000000000000000000000' 03E0: DC XL16'00000000000000000000000000000000' 03F0: DC XL16'00000000000000000000000000000000' 0400: DC XL14'000000000000000000005C500000' 040E: DC XL16'000000000000000060F8000067400000' 041E: DC XL16'0000000000000000000000000000FFFF' * SAVE USER REGISTERS 042E: SSTM R0,R15,X'028'(,R14) 0432: TM X'02BA',64 FLOATING POINT INSTALLED? 0436: BCR R14,R5 0438: NC X'015'(3,R14),X'015'(R14) 043E: BCR R8,R5 0440: STD 0,X'0A8'(,R14) 0444: STD 2,X'0B0'(,R14) 0448: STD 4,X'0B8'(,R14) 044C: STD 6,X'0C0'(,R14) 0450: BCR R15,R5 * RESTORE USER REGISTERS 0452: SLM R0,R15,X'028'(,R3) 0456: TM X'02BA',64 FLOATING POINT INSTALLED? 045A: BCR R14,R5 045C: LD 0,X'0A8'(,R3) 0460: LD 2,X'0B0'(,R3) 0464: LD 4,X'0B8'(,R3) 0468: LD 6,X'0C0'(,R3) 046C: BCR R15,R5 * 046E: BCT 3,X'996'(,R1) 0472: CR R14,R6 0474: CVD 5,X'990'(,R1) 0478: BALR R8,R0 047A: MR R10,R4 047C: MR R14,R10 047E: CR R15,R8 0480: BALR R1,R10 0482: BALR R14,R10 0484: DR R7,R0 0486: A 0,X'05EA'(R8) 048A: BALR R14,R10 048C: BALR R14,R0 048E: BALR R14,R0 0490: BALR R14,R0 0492: BALR R14,R0 0494: BALR R14,R0 0496: DC XL16'25250000000000000000000000000000' 04A6: DC XL16'00000000000000000000000000000000' 04B6: DC XL16'00000000000000000000000000000000' 04C6: DC XL16'00000000000000000000000000000000' 04D6: DC XL16'00000000000000000000000000000000' 04E6: DC XL16'00000000000000000000000000000000' 04F6: DC XL16'00000000000000000000000000000000' 0506: DC XL16'00000000000000000000000000000000' 0516: DC XL4'00000000' 051A: L 3,X'0DC'(,R11) 051E: LTR R3,R3 0520: BCR R7,R3 0522: LH 3,X'00E'(,R2) 0526: BCR R15,R3 0528: BALR R14,R10 052A: DC XL16'25250000000000000000000000000000' 053A: DC XL16'00000000000000000000000000000000' 054A: DC XL16'00000000000000000000000000000000' 055A: DC XL16'00000000000000000000000000000000' 056A: DC XL16'00000000000000000000000000000000' 057A: DC XL6'000000000000' 0580: BALR R3,R0 0582: AI X'0406',1 0586: OI X'006'(R14),16 058A: OI X'074'(R11),1 058E: L 14,X'050'(,R11) 0592: NI X'005'(R14),247 0596: BCR R15,R15 * 0598: BALR R3,R0 059A: NI X'02B6',247 059E: SR R2,R2 05A0: L 5,X'02F4' 05A4: LTR R5,R5 05A6: BC 7,X'014'(,R3) 05AA: SVC R0,R4 05AC: BCR R15,R3 * 05AE: BC 5,X'022'(,R3) 05B2: LA 2,X'0001'(R2) 05B6: AR R5,R5 05B8: BC 15,X'014'(,R3) 05BC: XR R1,R1 05BE: LA 2,X'100'(R2,R2) 05C2: LA 5,X'0002' 05C6: LM R8,R11,X'02CC' 05CA: BALR R3,R0 05CC: NI X'02B6',247 05D0: L 7,X'02D0' 05D4: LA 7,X'0074'(R7) 05D8: BC 15,X'077C' 05DC: DC XL4'00000000' * 05E0: BALR R3,R0 05E2: CLI X'0053',105 05E6: BC 13,X'014'(,R3) 05EA: LA 0,X'0021' 05EE: SR R1,R1 05F0: LH 3,X'0310' 05F4: BCR R15,R3 05F6: AI X'028E',255 05FA: BC 4,X'0DE'(,R3) 05FE: SR R2,R2 0600: IC 2,X'018'(,R14) 0604: SR R7,R7 0606: SR R8,R8 0608: SR R9,R9 060A: SR R4,R4 060C: TM X'40E'(R5),2 0610: BC 1,X'03E'(,R3) 0614: LA 5,X'04A8'(R5) 0618: BCT 6,X'02A'(,R3) 061C: BC 15,X'094'(,R3) 0620: TM X'000'(R5),128 0624: BC 8,X'064'(,R3) 0628: MVI X'420'(R5),0 062C: C 14,X'420'(,R5) 0630: BC 7,X'07A'(,R3) 0634: LH 9,X'0000'(R5) 0638: N 9,X'31E'(,R3) 063C: CR R2,R9 063E: BC 7,X'07A'(,R3) 0642: BC 15,X'0A6'(,R3) 0646: TM X'000'(R5),79 064A: BC 8,X'072'(,R3) 064E: LR R4,R5 0650: BC 15,X'032'(,R3) 0654: CH 2,X'0000'(R5) 0658: BC 8,X'0A6'(,R3) 065C: LH 9,X'414'(,R5) 0660: LA 9,X'0001'(R9) 0664: STH 9,X'414'(,R5) 0668: CR R9,R8 066A: BC 13,X'032'(,R3) 066E: LR R8,R9 0670: LR R7,R5 0672: BC 15,X'032'(,R3) 0676: LTR R5,R4 0678: BC 7,X'09C'(,R3) 067C: LR R5,R7 067E: MVC X'42C'(4,R5),X'0DA'(R3) 0684: BC 15,X'0AE'(,R3) 0688: ST 5,X'42C'(,R5) 068C: AI X'42E'(R5),2 0690: LM R8,R9,X'02CC' 0694: XC X'414'(2,R5),X'414'(R5) 069A: OI X'006'(R14),2 069E: MVC X'408'(1,R5),X'000'(R14) 06A4: ST 14,X'420'(,R5) 06A8: STM R0,R14,X'430'(,R5) 06AC: ST 5,X'46C'(,R5) 06B0: NI X'40E'(R5),253 06B4: NI X'40D'(R5),247 06B8: BCR R15,R15 06BA: DC XL4'00000000' 06BE: BCR R7,R8 06C0: OI X'006'(R14),4 06C4: BCR R15,R15 * 06C6: BALR R3,R0 06C8: NC X'474'(8,R15),X'474'(R15) 06CE: BC 8,X'02E'(,R3) 06D2: TM X'02FE',32 06D6: BC 1,X'21E'(,R3) 06DA: LA 1,X'0408'(R15) 06DE: O 1,X'0A8'(,R3) 06E2: L 0,X'478'(,R15) 06E6: SVC R0,R8 06E8: LA 1,X'0408'(R15) 06EC: O 1,X'0AC'(,R3) 06F0: L 0,X'474'(,R15) 06F4: SVC R0,R8 06F6: SVC R0,R2 06F8: NI X'417'(R15),254 06FC: L 14,X'420'(,R15) 0700: LA 14,X'0000'(R14) 0704: LTR R14,R14 0706: BC 8,X'046'(,R3) 070A: NI X'006'(R14),253 070E: SSM X'02EE',0 0712: AI X'028E',1 0716: BC 13,X'058'(,R3) 071A: OI X'40E'(R15),2 071E: SVC R0,R4 0720: L 4,X'0A4'(,R3) 0724: SR R5,R5 0726: DIAG X'104'(R4),15 072A: BC 2,X'046'(,R3) 072E: BC 4,X'05E'(,R3) 0732: LR R14,R5 0734: LA 14,X'0000'(R14) 0738: ST 14,X'420'(,R15) 073C: SR R2,R2 073E: IC 2,X'018'(,R14) 0742: LH 4,X'234'(,R3) 0746: BALR R3,R4 0748: SSM X'02EC',0 074C: MVC X'408'(1,R15),X'000'(R14) 0752: OI X'006'(R14),2 0756: NI X'006'(R14),251 075A: NI X'000'(R15),127 075E: CH 2,X'000'(,R15) 0762: BC 8,X'002'(,R15) 0766: BC 15,X'030'(,R3) 076A: DC XL4'00000006' 076E: SPM R0,R8 0770: SRL R0,X'0000' 0774: SSK R0,R0 0776: DC XL2'0000' * 0778: LA 7,X'47C'(,R15) 077C: BALR R3,R0 077E: CH 2,X'176'(,R3) 0782: BC 4,X'15C'(,R3) 0786: CH 2,X'178'(,R3) 078A: BC 2,X'15C'(,R3) 078E: CH 2,X'17A'(,R3) 0792: BC 4,X'13E'(,R3) 0796: STH 5,X'006'(,R7) 079A: SLL R5,X'0008' 079E: STH 5,X'004'(,R7) 07A2: LA 6,X'0288' 07A6: LR R5,R2 07A8: SH 5,X'17A'(,R3) 07AC: SR R4,R4 07AE: D 4,X'0294' 07B2: LA 4,X'0001'(R4) 07B6: STC 4,X'00E'(,R7) 07BA: AH 5,X'0002'(R6) 07BE: SR R4,R4 07C0: D 4,X'0298' 07C4: AH 5,X'0000'(R6) 07C8: STH 5,X'00C'(,R7) 07CC: STC 4,X'00A'(,R7) 07D0: LR R6,R1 07D2: LA 1,X'02A8' 07D6: ST 1,X'020'(,R7) 07DA: LA 1,X'010'(,R7) 07DE: ST 15,X'000'(,R7) 07E2: MVI X'000'(R7),2 07E6: MVI X'00B'(R7),0 07EA: MVI X'0B5'(R3),11 07EE: NI X'000'(R1),252 07F2: AI X'0B4'(R3),255 07F6: BC 8,X'0AC'(,R3) 07FA: BAL 5,X'120'(,R3) 07FE: BC 15,X'0F2'(,R3) 0802: BAL 5,X'104'(,R3) 0806: BC 15,X'0F2'(,R3) 080A: TM X'013'(R7),128 080E: BC 14,X'09E'(,R3) 0812: MVC X'00C'(2,R7),X'224'(R15) 0818: BC 15,X'074'(,R3) 081C: LR R0,R2 081E: SLL R0,X'0010' 0822: IC 0,X'180'(,R3) 0826: BC 15,X'0C8'(,R3) 082A: HPR X'0900',9 082E: BC 15,X'06C'(,R3) 0832: DC XL2'0000' 0834: L 15,X'0314' 0838: SH 15,X'0348' 083C: LH 2,X'0000'(R15) 0840: SLL R2,X'0010' 0844: OR R0,R2 0846: BALR R3,R0 0848: O 0,X'0A8'(,R3) 084C: L 14,X'420'(,R15) 0850: LA 14,X'0000'(R14) 0854: LH 4,X'0B4'(,R3) 0858: BAL 3,X'0004'(R4) 085C: LA 2,X'001C' 0860: TM X'417'(R15),1 0864: BC 14,X'0778' 0868: ST 0,X'028'(,R14) 086C: BC 15,X'06C6' 0870: LR R1,R6 0872: CH 2,X'000C' 0876: BC 7,X'100'(,R3) 087A: HPR X'0CCC',0 087E: BC 15,X'0002' 0882: LH 4,X'00C'(,R7) 0886: TM X'013'(R7),128 088A: BC 14,X'114'(,R3) 088E: STH 4,X'224'(,R15) 0892: AH 4,X'028C' 0896: STH 4,X'00C'(,R7) 089A: OI X'00C'(R7),128 089E: SVC R0,R0 08A0: TM X'002'(R1),128 08A4: BC 1,X'12C'(,R3) 08A8: SVC R0,R1 08AA: TM X'002'(R1),119 08AE: BC 7,X'13A'(,R3) 08B2: CH 2,X'000'(,R15) 08B6: BCR R8,R5 08B8: BC 15,X'004'(,R5) 08BC: LA 6,X'0284' 08C0: MVI X'007'(R7),4 08C4: MVC X'004'(2,R7),X'17C'(R3) 08CA: LR R5,R2 08CC: SR R4,R4 08CE: D 4,X'0290' 08D2: SLL R4,X'0002' 08D6: BC 15,X'034'(,R3) 08DA: LA 0,X'0022' 08DE: CLI X'008'(R14),0 08E2: BC 7,X'0BE'(,R3) 08E6: HPR X'0822',8 08EA: BC 15,X'168'(,R3) 08EE: DC XL2'0000' 08F0: SSM X'0100',0 08F4: DC XL2'000B' 08F6: SSK R9,R8 08F8: DC XL2'0100' 08FA: SPM R0,R0 08FC: XR R2,R12 08FE: HDR R0,R0 0900: DC XL2'0000' 0902: SUR R15,R15 * Device control table starts @ 908 0904: DC XL16'00000000000000000000000000000000' 0914: DC XL16'01200080134C0DE81D881DF800000000' 0924: DC XL16'00000001000001600000000000000000' 0934: DC XL16'0480040A14B40E00202824D000000000' 0944: DC XL16'00000002000001700000000000000000' 0954: DC XL16'04200C1614D80E18202824D000000000' 0964: DC XL16'00000003000000020000000000000000' 0974: DC XL16'0440000913940EF41D881DF800000000' 0984: DC XL16'000000040DA801430000000000000000' 0994: DC XL16'0408000515440F0C202824D000000000' 09A4: DC XL16'00000005000000010000000000000000' 09B4: DC XL16'0820000213700F241D881DF800000000' 09C4: DC XL16'00000006000001100000000000000000' 09D4: DC XL16'0880040014000F3C202824D000000000' 09E4: DC XL16'00000007000001300000000000000000' 09F4: DC XL16'0802000014480F54202824D000000000' 0A04: DC XL16'00000008000001200000000000000000' 0A14: DC XL16'0801000014240F6C202824D000000000' 0A24: DC XL16'000000090DA801410000000000000000' 0A34: DC XL16'0808000014FC0F84202824D000000000' 0A44: DC XL16'0000000A000001500000000000000000' 0A54: DC XL16'0240000414900F9C202824D000000000' 0A64: DC XL16'0000000B000000030000000000000000' 0A74: DC XL16'0220000613B80FB41D881DF800000000' 0A84: DC XL16'0000000C000001310000000000000000' 0A94: DC XL16'0202000014480FCC202824D000000000' 0AA4: DC XL16'0000000D0DA801420000000000000000' 0AB4: DC XL16'0208000015200FE4202824D000000000' 0AC4: DC XL16'0000000E000003000100800000000000' 0AD4: DC XL16'2010000013280FFC2CF02DF000000000' 0AE4: DC XL16'8000000F000003010000800000000000' 0AF4: DC XL16'20100000132810142CF02DF000000000' 0B04: DC XL16'80000010000003020000800000000000' 0B14: DC XL16'201000001328102C2CF02DF000000000' 0B24: DC XL16'80000011000003030000800000000000' 0B34: DC XL16'20100000132810442CF02DF000000000' 0B44: DC XL16'80000012000004400000800000000000' 0B54: DC XL16'204000001568105C3AF03D8800000000' 0B64: DC XL16'80000013000004410000800000000000' 0B74: DC XL5'2040000015' 0B79: DC XL1'68' 0B7A: LPR R7,R4 0B7C: AER R15,R0 0B7E: DER R8,R8 0B80: DC XL4'00000000' 0B84: SSM X'0014',0 0B88: DC XL2'0000' 0B8A: SPM R4,R2 0B8C: DC XL2'0000' 0B8E: SSM X'0000',0 0B92: DC XL2'0000' 0B94: LDPR R4,R0 0B96: DC XL2'0000' 0B98: CLR R6,R8 0B9A: LPR R8,R12 0B9C: AER R15,R0 0B9E: DER R8,R8 0BA0: DC XL4'00000000' 0BA4: SSM X'0015',0 0BA8: DC XL2'0000' 0BAA: SPM R0,R0 0BAC: DC XL2'0000' 0BAE: SSM X'0000',0 0BB2: DC XL2'0000' 0BB4: LDPR R2,R0 0BB6: DC XL2'0000' 0BB8: CLR R6,R8 0BBA: LPR R10,R4 0BBC: AER R15,R0 0BBE: DER R8,R8 0BC0: DC XL4'00000000' 0BC4: SSM X'0016',0 0BC8: DC XL2'0000' 0BCA: SPM R0,R1 0BCC: DC XL2'0000' 0BCE: SSM X'0000',0 0BD2: DC XL2'0000' 0BD4: LDPR R2,R0 0BD6: DC XL2'0000' 0BD8: CLR R6,R8 0BDA: LPR R11,R12 0BDC: AER R15,R0 0BDE: DER R8,R8 0BE0: DC XL4'00000000' 0BE4: SSM X'0017',0 0BE8: DC XL2'0000' 0BEA: SPM R0,R2 0BEC: DC XL2'0000' 0BEE: SSM X'0000',0 0BF2: DC XL2'0000' 0BF4: LDPR R2,R0 0BF6: DC XL2'0000' 0BF8: CLR R6,R8 0BFA: LPR R13,R4 0BFC: AER R15,R0 0BFE: DER R8,R8 0C00: DC XL4'00000000' 0C04: SSM X'0018',0 0C08: DC XL2'0000' 0C0A: SPM R0,R3 0C0C: DC XL2'0000' 0C0E: SSM X'0000',0 0C12: DC XL2'0000' 0C14: LDPR R2,R0 0C16: DC XL2'0000' 0C18: CLR R6,R8 0C1A: LPR R14,R12 0C1C: AER R15,R0 0C1E: DER R8,R8 0C20: DC XL4'00000000' 0C24: SSM X'0019',0 0C28: DC XL2'0000' 0C2A: SPM R1,R0 0C2C: DC XL2'0000' 0C2E: SSM X'0000',0 0C32: DC XL2'0000' 0C34: LDPR R8,R0 0C36: DC XL2'0000' 0C38: CLR R6,R8 0C3A: LNR R0,R4 0C3C: AER R15,R0 0C3E: DER R8,R8 0C40: DC XL4'00000000' 0C44: SSM X'001A',0 0C48: DC XL2'0000' 0C4A: SPM R1,R1 0C4C: DC XL2'0000' 0C4E: SSM X'0000',0 0C52: DC XL2'0000' 0C54: LDPR R8,R0 0C56: DC XL2'0000' 0C58: CLR R6,R8 0C5A: LNR R1,R12 0C5C: AER R15,R0 0C5E: DER R8,R8 0C60: DC XL4'00000000' 0C64: SSM X'001B',0 0C68: DC XL2'0000' 0C6A: SPM R1,R2 0C6C: DC XL2'0000' 0C6E: SSM X'0000',0 0C72: DC XL2'0000' 0C74: LDPR R8,R0 0C76: DC XL2'0000' 0C78: CLR R6,R8 0C7A: LNR R3,R4 0C7C: AER R15,R0 0C7E: DER R8,R8 0C80: DC XL4'00000000' 0C84: SSM X'001C',0 0C88: DC XL2'0000' 0C8A: SPM R2,R0 0C8C: DC XL2'0000' 0C8E: SSM X'0000',0 0C92: DC XL2'0000' 0C94: LPR R1,R0 0C96: DC XL2'000A' 0C98: CLR R6,R8 0C9A: LNR R4,R12 0C9C: AER R15,R0 0C9E: DER R8,R8 0CA0: DC XL10'000000000000001D0000' 0CAA: SPM R2,R1 0CAC: DC XL2'0000' 0CAE: SSM X'0000',0 0CB2: DC XL2'0000' 0CB4: LPR R1,R0 0CB6: DC XL2'000A' 0CB8: CLR R6,R8 0CBA: LNR R6,R8 0CBC: AER R15,R0 0CBE: DER R8,R8 0CC0: DC XL10'000000000000001E0000' 0CCA: SPM R2,R2 0CCC: DC XL2'0000' 0CCE: SSM X'0000',0 0CD2: DC XL2'0000' 0CD4: LPR R1,R0 0CD6: DC XL2'000A' 0CD8: CLR R6,R8 0CDA: LNR R8,R4 0CDC: AER R15,R0 0CDE: DER R8,R8 0CE0: DC XL10'000000000000001F0000' 0CEA: SPM R3,R0 0CEC: DC XL2'0000' 0CEE: SSM X'0000',0 0CF2: DC XL2'0000' 0CF4: LPR R4,R0 0CF6: DC XL2'000E' 0CF8: CLR R6,R8 0CFA: LNR R10,R0 0CFC: AER R15,R0 0CFE: DER R8,R8 0D00: DC XL10'00000000000000200000' 0D0A: SPM R3,R1 0D0C: DC XL2'0000' 0D0E: SSM X'0000',0 0D12: DC XL2'0000' 0D14: LPR R4,R0 0D16: DC XL2'000E' 0D18: CLR R6,R8 0D1A: LNR R11,R12 0D1C: AER R15,R0 0D1E: DER R8,R8 0D20: DC XL10'00000000000000210000' 0D2A: SPM R3,R2 0D2C: DC XL2'0000' 0D2E: SSM X'0000',0 0D32: DC XL2'0000' 0D34: LPR R4,R0 0D36: DC XL2'000E' 0D38: CLR R6,R8 0D3A: LNR R13,R8 0D3C: AER R15,R0 0D3E: DER R8,R8 0D40: DC XL14'0000000000000022000001000000' 0D4E: SSM X'0000',0 0D52: DC XL2'0000' 0D54: LPR R8,R0 0D56: DC XL2'0006' 0D58: LCR R13,R12 0D5A: LNR R15,R4 0D5C: LDPR R2,R8 0D5E: HDR R13,R0 0D60: DC XL14'0000000000000023000001010000' 0D6E: SSM X'0000',0 0D72: DC XL2'0000' 0D74: LPR R8,R0 0D76: DC XL2'0006' 0D78: LCR R13,R12 0D7A: LTR R1,R0 0D7C: LDPR R2,R8 0D7E: HDR R13,R0 0D80: DC XL14'0000000000000024000001020000' 0D8E: SSM X'0000',0 0D92: DC XL2'0000' 0D94: LPR R8,R0 0D96: DC XL2'0006' 0D98: LCR R13,R12 0D9A: LTR R2,R12 0D9C: LDPR R2,R8 0D9E: HDR R13,R0 0DA0: DC XL16'00000000000000250000014000000000' 0DB0: DC XL8'0000000000000000' 0DB8: NR R6,R12 0DBA: LTR R4,R8 0DBC: LDPR R2,R8 0DBE: HDR R13,R0 0DC0: DC XL16'00000000000000260000000000000000' 0DD0: DC XL16'00000000000000000000000000000000' 0DE0: DC XL16'00000000000000000000000000000000' 0DF0: DC XL16'00000000000000000000000000000000' 0E00: OC X'5D3'(231,R13),X'3F1'(R12) 0E06: STH 4,X'6E6'(,R13) 0E0A: CLC X'6F1'(230,R12),X'040'(R4) 0E10: DC XL8'0000000000000000' 0E18: OC X'5D3'(231,R13),X'3F2'(R12) 0E1E: STH 4,X'6E6'(,R13) 0E22: CLC X'6F1'(230,R12),X'040'(R4) 0E28: DC XL16'00000000000000000000000000000000' 0E38: DC XL16'00000000000000000000000000000000' 0E48: DC XL16'00000000000000000000000000000000' 0E58: DC XL16'00000000000000000000000000000000' 0E68: DC XL16'00000000000000000000000000000000' 0E78: DC XL16'00000000000000000000000000000000' 0E88: DC XL16'00000000000000000000000000000000' 0E98: DC XL16'00000000000000000000000000000000' 0EA8: DC XL16'00000000000000000000000000000000' 0EB8: DC XL16'00000000000000000000000000000000' 0EC8: DC XL16'00000000000000000000000000000000' 0ED8: DC XL16'00000000000000000000000000000000' 0EE8: DC XL12'000000000000000000000000' 0EF4: OC X'5D3'(231,R13),X'3F1'(R12) 0EFA: STH 4,X'6E6'(,R13) 0EFE: CLC X'6F1'(230,R12),X'040'(R4) 0F04: DC XL8'0000000000000000' 0F0C: OC X'5D3'(231,R13),X'3F2'(R12) 0F12: STH 4,X'6E6'(,R13) 0F16: CLC X'6F1'(230,R12),X'040'(R4) 0F1C: DC XL16'00000000000000000000000000000000' 0F2C: DC XL16'00000000000000000000000000000000' 0F3C: DC XL16'00000000000000000000000000000000' 0F4C: DC XL16'00000000000000000000000000000000' 0F5C: DC XL16'00000000000000000000000000000000' 0F6C: DC XL16'00000000000000000000000000000000' 0F7C: DC XL16'00000000000000000000000000000000' 0F8C: DC XL16'00000000000000000000000000000000' 0F9C: DC XL16'00000000000000000000000000000000' 0FAC: DC XL16'00000000000000000000000000000000' 0FBC: DC XL16'00000000000000000000000000000000' 0FCC: DC XL16'00000000000000000000000000000000' 0FDC: DC XL16'00000000000000000000000000000000' 0FEC: DC XL16'00000000000000000000000000000000' 0FFC: DC XL16'000000000000000000000000009A0000' 100C: DC XL16'0000009B000000000000000000000000' 101C: DC XL16'00000000000000000000000000000000' 102C: DC XL16'00000000000000000000000000000000' 103C: DC XL16'00000000000000000000000000000000' 104C: DC XL16'00000000000000000000000000000000' 105C: DC XL16'00000000000000000000000000000000' 106C: DC XL16'00000000000000000000000000000000' 107C: DC XL16'00000000000000000000000000000000' 108C: DC XL16'00000000000000000000000000000000' 109C: DC XL16'00000000000000000000000000000000' 10AC: DC XL16'00000000000000000000000000000000' 10BC: DC XL16'00000000000000000000000000000000' 10CC: DC XL16'00000000000000000000000000000000' 10DC: DC XL16'00000000000000000000000000000000' 10EC: DC XL16'00000000000000000000000000000000' 10FC: DC XL16'00000000000000000000000000000000' 110C: DC XL16'00000000000000000000000000000000' 111C: DC XL16'00000000000000000000000000000000' 112C: DC XL16'00000000000000000000000000000000' 113C: DC XL16'00000000000000000000000000000000' 114C: DC XL16'00000000000000000000000000000000' 115C: DC XL16'0000C3C3000000000000000000000000' 116C: DC XL16'0000000000000000000000000000C3C3' 117C: DC XL16'00000000000000000000000000000000' 118C: DC XL16'00000000000000000000C3C300000000' 119C: DC XL16'00000000000000000000000000000000' 11AC: DC XL16'000000000000C3C30000000000000000' 11BC: DC XL16'00000000000000000000000000000000' 11CC: DC XL16'0000C3C3000000000000000000000000' 11DC: DC XL16'0000000000000000000000000000C3C3' 11EC: DC XL16'00000000000000000000000000000000' 11FC: DC XL10'00000000000000000000' 1206: DIAG X'0000',131 120A: DC XL16'00000000000000000000000000000000' 121A: DC XL8'0000000000000000' 1222: DIAG X'0000',131 1226: DC XL16'00000000000000000000000000000000' 1236: DC XL8'0000000000000000' 123E: DIAG X'0000',131 1242: DC XL16'00000000000000000000000000000000' 1252: DC XL16'00000000000000000000000000000000' 1262: DC XL16'00000000000000000000000000000000' 1272: DC XL16'00000000000000000000000000000000' 1282: DC XL16'00000000000000000000000000000000' 1292: DC XL16'00000000000000000000000000000000' 12A2: DC XL16'00000000000000000000000000000000' 12B2: DC XL16'00000000000000000000000000000000' 12C2: DC XL16'00000000000000000000000000000000' 12D2: DC XL16'00000000000000000000000000000000' 12E2: DC XL16'00000000000000000000000000000000' 12F2: DC XL16'00000000000000000000000000000000' 1302: DC XL16'00000000000000000000000000000000' 1312: DC XL16'00000000000000000000000000000000' 1322: DC XL16'00000000000000000000000000000000' 1332: DC XL16'00000000000000000000000000000000' 1342: DC XL8'0000000000000000' 134A: LCR R2,R8 134C: DC XL16'00000000000000000000000000000000' 135C: DC XL16'00000000000000000000000000000000' 136C: DC XL2'0000' 136E: LCR R4,R12 1370: DC XL16'00000000000000000000000000000000' 1380: DC XL16'00000000000000000000000000000000' 1390: DC XL2'0000' 1392: LCR R7,R0 1394: DC XL16'00000000000000000000000000000000' 13A4: DC XL16'00000000000000000000000000000000' 13B4: DC XL2'0000' 13B6: LCR R9,R4 13B8: DC XL16'00000000000000000000000000000000' 13C8: DC XL16'00000000000000000000000000000000' 13D8: DC XL2'0000' 13DA: LCR R11,R8 13DC: DC XL16'00000000000000000000000000000000' 13EC: DC XL16'00000000000000000000000000000000' 13FC: DC XL2'0000' 13FE: LCR R13,R12 1400: DC XL16'00000000000000000000000000000000' 1410: DC XL16'00000000000000000000000000000000' 1420: DC XL2'0000' 1422: NR R0,R0 1424: DC XL16'00000000000000000000000000000000' 1434: DC XL16'00000000000000000000000000000000' 1444: DC XL2'0000' 1446: NR R2,R4 1448: DC XL16'00000000000000000000000000000000' 1458: DC XL16'00000000000000000000000000000000' 1468: DC XL2'0000' 146A: NR R4,R8 146C: DC XL16'00000000000000000000000000000000' 147C: DC XL16'00000000000000000000000000000000' 148C: DC XL2'0000' 148E: NR R6,R12 1490: DC XL16'00000000000000000000000000000000' 14A0: DC XL16'00000000000000000000000000000000' 14B0: DC XL2'0000' 14B2: NR R9,R0 14B4: DC XL16'00000000000000000000000000000000' 14C4: DC XL16'00000000000000000000000000000000' 14D4: DC XL2'0000' 14D6: NR R11,R4 14D8: DC XL16'00000000000000000000000000000000' 14E8: DC XL16'00000000000000000000000000000000' 14F8: DC XL2'0000' 14FA: NR R13,R8 14FC: DC XL16'00000000000000000000000000000000' 150C: DC XL16'00000000000000000000000000000000' 151C: DC XL2'0000' 151E: NR R15,R12 1520: DC XL16'00000000000000000000000000000000' 1530: DC XL16'00000000000000000000000000000000' 1540: DC XL2'0000' 1542: CLR R2,R0 1544: DC XL16'00000000000000000000000000000000' 1554: DC XL16'00000000000000000000000000000000' 1564: DC XL2'0000' 1566: CLR R4,R4 1568: DC XL16'00000000000000000000000000000000' 1578: DC XL16'00000000000000000000000000000000' 1588: DC XL2'0000' 158A: CLR R6,R8 158C: SSM X'0000',0 1590: SSM X'0000',0 1594: SSM X'0000',0 1598: SSM X'0000',0 159C: SSM X'0000',0 15A0: SSM X'0000',0 15A4: SSM X'0000',0 15A8: SSM X'0000',0 15AC: SSM X'0000',0 15B0: SSM X'0000',0 15B4: SSM X'0000',0 15B8: SSM X'0000',0 15BC: SSM X'0000',0 15C0: SSM X'0000',0 15C4: SSM X'0000',0 15C8: SSM X'0000',0 15CC: SSM X'0000',0 15D0: SSM X'0000',0 15D4: SSM X'0000',0 15D8: SSM X'0000',0 15DC: SSM X'0000',0 15E0: SSM X'0000',0 15E4: SSM X'0000',0 15E8: SSM X'0000',0 15EC: SSM X'0000',0 15F0: SSM X'0000',0 15F4: SSM X'0000',0 15F8: SSM X'0000',0 15FC: SSM X'0000',0 1600: SSM X'0000',0 1604: SSM X'0000',0 1608: SSM X'0000',0 160C: SSM X'0000',0 1610: SSM X'0000',0 1614: SSM X'0000',0 1618: SSM X'0000',0 161C: SSM X'0000',0 1620: SSM X'0000',0 1624: SSM X'0000',0 1628: SSM X'0000',0 162C: SSM X'0000',0 1630: SSM X'0000',0 1634: SSM X'0000',0 1638: SSM X'0000',0 163C: SSM X'0000',0 1640: SSM X'0000',0 1644: SSM X'0000',0 1648: SSM X'0000',0 164C: SSM X'0000',0 1650: SSM X'0000',0 1654: SSM X'0000',0 1658: SSM X'0000',0 165C: DC XL4'00000000' * Supervisor call interrupt handler. 1660: BALR R3,R0 1662: MVC X'023'(5,R14),X'0053' 1668: OI X'02B6',16 166C: LH 6,X'0E4'(,R3) 1670: BALR R5,R6 SAVE USER REGISTERS 1672: OI X'02B8',128 1676: LA 4,X'0CA'(,R3) 167A: BALR R3,R4 * 167C: SR R2,R2 167E: IC 2,X'0053' GET THE SVC CODE 1682: STC 2,X'018'(,R14) 1686: LTR R2,R2 1688: BC 7,X'094'(,R3) 168C: OI X'036'(R11),192 1690: LA 5,X'000'(R1,R12) 1694: MVI X'001'(R5),0 1698: LA 0,X'0011' 169C: NI X'002'(R5),128 16A0: BC 8,X'08A'(,R3) 16A4: L 8,X'010'(,R5) 16A8: LH 8,X'000'(R12,R8) 16AC: TM X'034'(R11),32 16B0: BC 14,X'040'(,R3) 16B4: TM X'003'(R5),16 16B8: BC 1,X'090'(,R3) 16BC: LM R6,R7,X'048'(,R11) 16C0: CR R8,R7 16C2: BC 8,X'05A'(,R3) 16C6: LA 7,X'0020'(R7) 16CA: BCT 6,X'044'(,R3) 16CE: LA 0,X'0012' 16D2: BC 15,X'08A'(,R3) 16D6: LR R6,R8 16D8: NI X'036'(R11),191 16DC: TM X'01C'(R8),96 16E0: LA 0,X'0013' 16E4: BC 7,X'08A'(,R3) 16E8: LA 7,X'0001' 16EC: PACK X'079'(1,R3),X'000'(1,R14) 16F2: SLL R7,X'0000' 16F6: STC 7,X'07F'(,R3) 16FA: TM X'004'(R8),0 16FE: LA 0,X'0014' 1702: BC 1,X'090'(,R3) 1706: LH 2,X'090'(,R11) 170A: BCR R15,R2 170C: ST 14,X'004'(,R5) 1710: CLI X'0053',20 1714: BC 11,X'0A8'(,R3) 1718: AR R2,R2 171A: AH 2,X'02F2' 171E: LH 2,X'0000'(R2) 1722: BCR R15,R2 1724: LH 3,X'0AE'(,R3) 1728: BCR R15,R3 * 172A: BALR R14,R0 172C: LM R0,R1,X'028'(,R14) GET USER'S R0/R1 1730: LH 12,X'031C' 1734: BALR R13,R12 1736: LR R12,R7 1738: L 13,X'014'(,R14) 173C: LA 13,X'000'(,R13) 1740: LM R5,R11,X'02C0' 1744: BCR R15,R3 1746: SPM R2,R14 * SUPERVISOR ENTRY POINT AFTER IPL. (IDLE LOOP???) USING *,R15 1748: LA 14,X'068'(,R15) 174C: NI X'02B6',8 1750: SSM X'02EC',0 ENABLE ALL INTERRUPTS 1754: SSM X'02EE',0 DISABLE ALL INTERRUPTS 1758: LA 2,X'0408' 175C: SR R3,R3 175E: DIAG X'000'(R2),15 1762: BC 4,X'016'(,R15) COND CODE 1, LOOP TO DIAG 1766: BC 2,X'082'(,R15) COND COD 2, GO WAIT FOR INTERRUPT 176A: TM X'02B8',128 176E: BC 1,X'03E'(,R15) -> 1786 1772: L 14,X'0314' GET PTR TO LAST ACTIVE TCB? 1776: CR R3,R14 SAME AS SELECTED TCB? 1778: BC 8,X'04E'(,R15) YES, -> 1796 177C: LTR R14,R14 NO LAST ACTIVE TCB? 177E: BC 8,X'03E'(,R15) YES, -> 1786 1782: BAL 5,X'042E' SAVE PROGRAM REGISTERS TO TCB 1786: NI X'02B8',127 178A: ST 3,X'0314' SAVE PTR TO LAST ACTIVE TCB 178E: L 13,X'014'(,R3) 1792: BAL 5,X'0452' LOAD PROGRAM REGISTERS FROM TCB 1796: ST 3,X'0000'(R2) 179A: LA 14,X'0000'(R3) SET R14 TO CURRENT TCB 179E: TM X'00E'(R14),192 17A2: BC 8,X'062'(,R15) -> 17AA 17A6: BAL 5,X'090'(,R15) -> 17D8 17AA: TM X'00F'(R14),160 17AE: BC 7,X'06E'(,R15) -> 17B6 17B2: LPSW X'020'(R14),0 GOTO PSW @ R14 + 20 17B6: TM X'00F'(R14),128 17BA: BC 14,X'07A'(,R15) -> 17C2 17BE: HPR X'007C',124 17C2: NI X'00F'(R14),95 17C6: LPSW X'020'(R14),1 GOTO PSW @ R14 + 20, IMMED 1 = ? * 17CA: SSM X'02EC',0 ENABLE INTERRUPTS 17CE: BC 15,X'086'(,R15) WAIT FOR INTERRUPT * 17D2: DC XL6'000000000000' * 17D8: TM X'00E'(R14),64 17DC: BC 14,X'0BC'(,R15) -> 1804 17E0: TM X'00F'(R14),1 17E4: BC 14,X'0B4'(,R15) -> 17FC 17E8: TM X'025'(R14),128 17EC: BC 14,X'0B4'(,R15) -> 17FC 17F0: TM X'006'(R14),128 17F4: BCR R14,R5 17F6: NI X'006'(R14),127 17FA: BCR R15,R15 17FC: LA 2,X'0A54' 1800: BC 15,X'0C4'(,R15) -> 180C 1804: NI X'00E'(R14),127 1808: LA 2,X'0A0F' 180C: STH 2,X'084'(,R14) 1810: LM R2,R3,X'020'(,R14) 1814: TM X'00E'(R14),1 1818: BC 1,X'0DC'(,R15) -> 1824 181C: STM R2,R3,X'08C'(,R14) 1820: OI X'00E'(R14),1 1824: N 2,X'0318' 1828: LA 3,X'084'(,R14) 182C: STM R2,R3,X'020'(,R14) 1830: BCR R15,R5 1832: DC XL6'000000000000' * PROGRAM EXCEPTION INTERRUPT HANDLER 1838: BALR R2,R0 USING *,R2 183A: LA 0,X'002E' 183E: LH 12,X'0CE'(,R2) 1842: TM X'02B6',136 1846: BCR R7,R12 1848: TM X'0041',4 184C: BC 7,X'022'(,R2) 1850: TM X'02B6',16 1854: BC 1,X'02C'(,R2) 1858: BC 15,X'066'(,R2) 185C: MVC X'023'(5,R14),X'0043' 1862: IC 0,X'0043' 1866: BALR R2,R0 1868: STM R6,R12,X'0A4'(,R2) 186C: LH 4,X'09C'(,R2) 1870: BAL 3,X'004'(,R4) 1874: LTR R13,R13 1876: BC 7,X'03C'(,R2) 187A: TM X'02FE',32 187E: BC 1,X'038'(,R2) 1882: CLI X'008'(R14),12 1886: BC 7,X'038'(,R2) 188A: MVC X'026'(2,R14),X'09E'(R2) 1890: BAL 5,X'042E' 1894: OI X'02B8',128 1898: STM R0,R1,X'028'(,R14) 189C: BC 15,X'096'(,R2) 18A0: HPR X'0800',8 18A4: CH 0,X'120'(,R2) 18A8: BC 2,X'082'(,R2) 18AC: L 1,X'018'(,R14) 18B0: LA 4,X'074'(,R14) 18B4: LTR R0,R0 18B6: BC 7,X'056'(,R2) 18BA: LA 4,X'07C'(,R14) 18BE: LA 6,X'0020' 18C2: L 3,X'0000'(R4) 18C6: AR R3,R12 18C8: BC 11,X'080'(,R2) 18CC: LA 6,X'0028' 18D0: TM X'000'(R4),96 18D4: BC 7,X'080'(,R2) 18D8: OI X'000'(R4),32 18DC: STM R0,R1,X'008'(,R3) 18E0: OI X'00E'(R14),128 18E4: BC 15,X'092'(,R2) 18E8: LR R0,R6 18EA: STH 0,X'086'(,R14) 18EE: ST 1,X'088'(,R14) 18F2: OI X'00E'(R14),64 18F6: OI X'0A4'(R14),128 18FA: OI X'006'(R14),128 18FE: LM R6,R12,X'0A4'(,R2) 1902: BCR R15,R15 1904: XR R2,R12 1906: SSK R3,R4 1908: BAS 8,X'0000'(R4) 190C: DC XL16'00000000000000000000000000000000' 191C: DC XL12'000000000000000000000000' 1928: BALR R15,R0 192A: ST 3,X'05A'(,R15) 192E: CLI X'0033',224 1932: BC 8,X'022'(,R15) 1936: CLI X'0033',239 193A: BC 8,X'032'(,R15) 193E: MVC X'01D'(1,R15),X'0033' 1944: HPR X'0600',6 1948: BC 15,X'01A'(,R15) 194C: L 3,X'02D0' 1950: OI X'02F5',128 1954: NI X'005'(R14),247 1958: BC 15,X'04E'(,R15) 195C: TM X'0034',64 1960: BC 1,X'014'(,R15) 1964: L 3,X'0034' 1968: SH 3,X'060'(,R15) 196C: CLI X'000'(R3),156 1970: BC 7,X'014'(,R15) 1974: OI X'0034',48 1978: L 3,X'05A'(,R15) 197C: LH 15,X'0008' 1980: LPSW X'0030',0 1984: DC XL12'00000000000F000400000000' * SVC #4 = Yield? 1990: OI X'005'(R14),8 1994: BCR R15,R15 * 1996: LA 0,X'0027' 199A: AR R1,R12 199C: OI X'02B6',192 19A0: TM X'002'(R1),128 19A4: BCR R1,R15 19A6: TM X'000'(R1),128 19AA: BC 1,X'034'(,R2) 19AE: L 3,X'004'(,R1) 19B2: LA 3,X'0000'(R3) 19B6: CR R14,R3 19B8: BC 7,X'048'(,R2) 19BC: OI X'000'(R1),4 19C0: XI X'004'(R1),4 19C4: OI X'005'(R14),4 19C8: BCR R15,R15 19CA: TM X'000'(R1),4 19CE: BC 1,X'04A'(,R2) 19D2: LR R3,R14 19D4: SR R3,R13 19D6: ST 3,X'004'(,R1) 19DA: BC 15,X'026'(,R2) 19DE: BCTR R0,R0 19E0: LH 2,X'0310' 19E4: BCR R15,R2 19E6: CLC X'00C'(2,R14),X'0290' 19EC: BCR R8,R15 19EE: OI X'005'(R14),2 19F2: BCR R15,R15 19F4: DC XL4'00000000' 19F8: L 3,X'014'(,R14) 19FC: LTR R3,R3 19FE: BC 8,X'028'(,R2) 1A02: TM X'0CC'(R3),4 1A06: BC 1,X'028'(,R2) 1A0A: TM X'0CC'(R3),16 1A0E: BC 14,X'028'(,R2) 1A12: L 3,X'024'(,R14) 1A16: SH 3,X'17C'(,R2) 1A1A: ST 3,X'024'(,R14) 1A1E: BCR R15,R15 1A20: TM X'02C'(R14),1 1A24: BC 14,X'03C'(,R2) 1A28: LH 12,X'10A'(,R11) 1A2C: LTR R12,R12 1A2E: BCR R8,R15 1A30: BALR R13,R12 1A32: BCR R15,R15 1A34: TM X'035'(R11),64 1A38: BC 1,X'048'(,R2) 1A3C: N 0,X'1E4'(,R2) 1A40: LR R3,R1 1A42: SLL R3,X'0004' 1A46: SRL R3,X'001D' 1A4A: LR R4,R1 1A4C: SRL R4,X'001D' 1A50: LA 1,X'000'(,R1) 1A54: LTR R1,R1 1A56: BC 7,X'068'(,R2) 1A5A: LR R1,R14 1A5C: BC 15,X'06A'(,R2) 1A60: AR R1,R12 1A62: LR R8,R0 1A64: L 7,X'06C'(R4,R1) 1A68: NR R7,R8 1A6A: EX 0,X'144'(R3,R2) 1A6E: EX 0,X'164'(R3,R2) 1A72: EX 0,X'14A'(R3,R2) 1A76: EX 0,X'152'(R4,R2) 1A7A: NR R7,R8 1A7C: BC 7,X'180'(,R2) 1A80: L 10,X'06C'(,R1) 1A84: LTR R9,R4 1A86: BC 7,X'096'(,R2) 1A8A: EX 0,X'15A'(R3,R2) 1A8E: L 7,X'0A0'(R9,R11) 1A92: EX 0,X'162'(R3,R2) 1A96: ST 7,X'0A0'(R9,R11) 1A9A: L 7,X'06C'(R9,R1) 1A9E: EX 0,X'162'(R3,R2) 1AA2: ST 7,X'06C'(R9,R1) 1AA6: LTR R9,R9 1AA8: BC 8,X'0BA'(,R2) 1AAC: SR R9,R9 1AAE: EX 0,X'15A'(R3,R2) 1AB2: NR R10,R0 1AB4: LTR R9,R0 1AB6: EX 0,X'17A'(R3,R2) 1ABA: BCR R8,R15 1ABC: LA 8,X'1B6'(,R2) 1AC0: BALR R8,R8 1AC2: LR R10,R5 1AC4: AH 10,X'08C'(,R11) 1AC8: EX 0,X'16A'(R3,R2) 1ACC: EX 0,X'172'(R3,R2) 1AD0: L 13,X'0A0'(,R11) 1AD4: XR R13,R12 1AD6: ST 13,X'0A0'(,R11) 1ADA: AI X'000'(R10),0 1ADE: BC 8,X'0C8'(,R2) 1AE2: ST 1,X'1EC'(,R2) 1AE6: LR R13,R12 1AE8: LR R0,R5 1AEA: SRL R0,X'0005' 1AEE: LR R1,R0 1AF0: SLL R0,X'0003' 1AF4: LA 6,X'0018' 1AF8: SR R6,R0 1AFA: SRL R13,X'000'(,R6) 1AFE: STC 13,X'11B'(,R2) 1B02: LA 0,X'0068'(R1) 1B06: SLL R0,X'0010' 1B0A: AH 0,X'088'(,R11) 1B0E: SR R1,R1 1B10: DIAG X'010F',15 1B14: BC 4,X'118'(,R2) 1B18: BC 2,X'136'(,R2) 1B1C: NI X'004'(R1),254 1B20: XC X'068'(4,R1),X'068'(R1) 1B26: AI X'000'(R10),255 1B2A: BC 7,X'118'(,R2) 1B2E: XC X'000'(2,R10),X'000'(R10) 1B34: L 1,X'1EC'(,R2) 1B38: BC 15,X'0C8'(,R2) 1B3C: BC 8,X'07E'(,R2) 1B40: BCR R8,R15 1B42: BCR R8,R15 1B44: BCR R0,R9 1B46: BC 15,X'088'(,R2) 1B4A: L 7,X'0A4'(,R11) 1B4E: L 7,X'0A0'(,R11) 1B52: BC 15,X'096'(,R2) 1B56: BC 15,X'0A2'(,R2) 1B5A: OR R7,R0 1B5C: XR R0,R7 1B5E: XR R7,R0 1B60: LR R0,R7 1B62: AI X'002'(R10),1 1B66: AI X'002'(R10),255 1B6A: BC 15,X'0C8'(,R2) 1B6E: BC 7,X'0C8'(,R2) 1B72: XR R9,R10 1B74: DC XL2'0002' 1B76: BCR R0,R9 1B78: CR R1,R14 1B7A: BC 8,X'18A'(,R2) 1B7E: ST 7,X'028'(,R14) 1B82: OI X'004'(R1),1 1B86: L 3,X'024'(,R1) 1B8A: SH 3,X'17C'(,R2) 1B8E: ST 3,X'024'(,R1) 1B92: LR R0,R7 1B94: LR R9,R7 1B96: L 12,X'1E8'(,R2) 1B9A: LH 5,X'08C'(,R11) 1B9E: BAL 7,X'1CC'(,R2) 1BA2: AI X'000'(R5),1 1BA6: NR R0,R12 1BA8: ST 0,X'068'(,R1) 1BAC: BCR R15,R15 1BAE: SR R5,R5 1BB0: L 12,X'1E8'(,R2) 1BB4: LA 7,X'1CC'(,R2) 1BB8: BALR R7,R7 1BBA: BALR R8,R8 1BBC: LTR R9,R9 1BBE: BC 7,X'1C0'(,R2) 1BC2: BCR R15,R15 1BC4: LTR R9,R9 1BC6: SLL R9,X'0001' 1BCA: BC 11,X'1D8'(,R2) 1BCE: BALR R7,R7 1BD0: SRL R12,X'0001' 1BD4: LA 5,X'004'(,R5) 1BD8: BC 15,X'1CC'(,R2) 1BDC: DC XL4'FFFF0000' 1BE0: SSM X'0000',0 1BE4: DC XL4'00000000' 1BE8: BALR R12,R0 1BEA: MVC X'024'(4,R14),X'0064' 1BF0: BAL 3,X'148'(,R12) 1BF4: C 6,X'16A'(,R12) 1BF8: BC 4,X'01E'(,R12) 1BFC: OI X'02F5',4 1C00: L 7,X'02D0' 1C04: NI X'005'(R7),247 1C08: LH 7,X'0332' 1C0C: LR R10,R15 1C0E: LH 2,X'0310' 1C12: LA 15,X'032'(,R12) 1C16: L 8,X'15E'(,R12) 1C1A: SR R9,R9 1C1C: DIAG X'180'(R8),15 1C20: BC 4,X'032'(,R12) 1C24: BC 2,X'08C'(,R12) 1C28: L 1,X'01C'(,R9) 1C2C: N 1,X'166'(,R12) 1C30: LR R5,R1 1C32: SR R5,R6 1C34: BC 13,X'072'(,R12) 1C38: C 5,X'16A'(,R12) 1C3C: BC 13,X'05E'(,R12) 1C40: S 5,X'16A'(,R12) 1C44: BC 15,X'04E'(,R12) 1C48: C 5,X'162'(,R12) 1C4C: BC 2,X'072'(,R12) 1C50: CR R5,R7 1C52: BC 11,X'032'(,R12) 1C56: LR R7,R5 1C58: BC 15,X'032'(,R12) 1C5C: NI X'01C'(R9),127 1C60: LR R14,R9 1C62: SR R0,R0 1C64: L 1,X'018'(,R9) 1C68: TM X'005'(R9),16 1C6C: BCR R14,R2 1C6E: NI X'005'(R9),239 1C72: BC 15,X'032'(,R12) 1C76: LH 4,X'032C' 1C7A: LR R15,R10 1C7C: ST 6,X'0328' 1C80: STH 7,X'032C' 1C84: STR R5,R1 1C86: STR R7,R4 1C88: AH 4,X'0B8'(,R12) 1C8C: CH 4,X'0332' 1C90: STH 4,X'0B8'(,R12) 1C94: BCR R4,R15 1C96: SR R4,R4 1C98: STH 4,X'0B8'(,R12) 1C9C: L 11,X'0374' 1CA0: BCR R15,R11 1CA2: DC XL2'0000' 1CA4: STC 0,X'0A0'(,R2) 1CA8: TM X'0A0'(R2),2 1CAC: BC 14,X'010'(,R2) 1CB0: M 0,X'0B4'(,R2) 1CB4: BAL 3,X'08E'(,R2) 1CB8: LR R5,R6 1CBA: AR R5,R1 1CBC: ST 5,X'01C'(,R14) 1CC0: LTR R1,R1 1CC2: BCR R8,R15 1CC4: OI X'01C'(R14),128 1CC8: TM X'0A0'(R2),1 1CCC: BC 14,X'030'(,R2) 1CD0: OI X'005'(R14),16 1CD4: STR R5,R0 1CD6: BCR R4,R15 1CD8: CR R1,R5 1CDA: BCR R11,R15 1CDC: STR R5,R1 1CDE: ST 6,X'0A8'(,R11) 1CE2: STH 1,X'0AC'(,R11) 1CE6: STR R1,R4 1CE8: BCR R15,R15 1CEA: BAL 3,X'048'(,R2) 1CEE: ST 6,X'02C'(,R14) 1CF2: LTR R1,R1 1CF4: BC 7,X'040'(,R2) 1CF8: SR R8,R8 1CFA: LR R9,R6 1CFC: D 8,X'07E'(,R2) 1D00: LR R5,R9 1D02: SR R4,R4 1D04: M 4,X'076'(,R2) 1D08: LR R1,R5 1D0A: LR R9,R8 1D0C: SR R8,R8 1D0E: D 8,X'07A'(,R2) 1D12: LR R5,R9 1D14: SR R4,R4 1D16: M 4,X'072'(,R2) 1D1A: AR R1,R5 1D1C: LR R9,R8 1D1E: SR R8,R8 1D20: D 8,X'06E'(,R2) 1D24: AR R1,R9 1D26: CVD 1,X'028'(,R14) 1D2A: MVC X'028'(4,R14),X'064'(R13) 1D30: BCR R15,R15 1D32: STR R5,R0 1D34: LH 6,X'032C' 1D38: SR R6,R5 1D3A: LA 6,X'0000'(R6) 1D3E: A 6,X'0328' 1D42: BCR R15,R3 1D44: DC XL6'00000000001C' 1D4A: SPM R0,R12 1D4C: SPM R15,R0 1D4E: X 14,X'FFF'(,R7) 1D52: DC XL2'FFFF' 1D54: BALR R2,R6 1D56: M 0,X'0000' 1D5A: STR R14,R8 1D5C: DC XL16'00000064000027100000EA600036EE80' 1D6C: DC XL4'00000000' 1D70: OI X'004'(R14),8 1D74: OI X'006'(R1),128 1D78: OI X'074'(R11),2 1D7C: NI X'005'(R9),247 1D80: BCR R15,R15 1D82: DC XL6'000000000000' 1D88: AR R4,R7 1D8A: AR R4,R10 1D8C: SR R10,R10 1D8E: IC 10,X'003'(,R8) 1D92: SLL R10,X'0004' 1D96: STM R2,R5,X'100'(,R10) 1D9A: AI X'002'(R8),0 1D9E: BCR R8,R13 1DA0: TM X'103'(R10),1 1DA4: LA 0,X'0016' 1DA8: BC 1,X'2CA'(,R11) 1DAC: TM X'107'(R10),1 1DB0: LA 0,X'0017' 1DB4: BC 1,X'2CA'(,R11) 1DB8: CLI X'003'(R8),3 1DBC: BCR R4,R13 1DBE: TM X'003'(R1),8 1DC2: BC 8,X'052'(,R12) 1DC6: TM X'100'(R10),2 1DCA: BC 8,X'052'(,R12) 1DCE: MVC X'109'(3,R10),X'101'(R10) 1DD4: MVC X'104'(2,R10),X'106'(R10) 1DDA: TM X'10B'(R10),1 1DDE: LA 0,X'0016' 1DE2: BC 1,X'2CA'(,R11) 1DE6: TM X'107'(R10),1 1DEA: LA 0,X'0017' 1DEE: BC 1,X'2CA'(,R11) 1DF2: BCR R15,R13 1DF4: DC XL4'00000000' 1DF8: SR R9,R9 1DFA: IC 9,X'003'(,R8) 1DFE: SLL R9,X'0004' 1E02: LA 9,X'100'(,R9) 1E06: LR R13,R0 1E08: MVC X'00A'(2,R13),X'006'(R9) 1E0E: NI X'00A'(R13),31 1E12: TM X'007'(R8),255 1E16: BC 7,X'05A'(,R12) 1E1A: TM X'006'(R8),2 1E1E: BC 1,X'086'(,R12) 1E22: TM X'003'(R1),16 1E26: BC 8,X'04E'(,R12) 1E2A: TM X'003'(R1),128 1E2E: BC 8,X'04E'(,R12) 1E32: TM X'01C'(R8),2 1E36: BC 1,X'04E'(,R12) 1E3A: TM X'01C'(R1),3 1E3E: BC 8,X'04E'(,R12) 1E42: BC 15,X'086'(,R12) 1E46: TM X'01C'(R8),2 1E4A: BC 8,X'36C'(,R11) 1E4E: NI X'01C'(R8),253 1E52: SR R9,R9 1E54: TM X'003'(R1),16 1E58: BC 8,X'074'(,R12) 1E5C: TM X'01C'(R8),2 1E60: BC 8,X'074'(,R12) 1E64: OI X'01C'(R8),2 1E68: BC 15,X'086'(,R12) 1E6C: IC 9,X'003'(,R8) 1E70: SLL R9,X'0001' 1E74: LH 9,X'0DC'(R9,R12) 1E78: LH 13,X'100'(,R12) 1E7C: BCR R15,R13 1E7E: OI X'01C'(R8),2 1E82: LM R2,R3,X'0E4'(,R12) 1E86: AR R2,R1 1E88: SR R2,R7 1E8A: TM X'003'(R1),16 1E8E: BC 8,X'0AE'(,R12) 1E92: TM X'01C'(R1),3 1E96: BC 14,X'0AE'(,R12) 1E9A: L 2,X'014'(,R1) 1E9E: L 2,X'000'(,R2) 1EA2: LA 3,X'0006' 1EA6: TM X'003'(R1),16 1EAA: BC 14,X'0C6'(,R12) 1EAE: LA 0,X'0014' 1EB2: MVI X'004'(R1),0 1EB6: DIAG X'0000',14 1EBA: STC 0,X'004'(,R1) 1EBE: LH 11,X'0F0'(,R12) 1EC2: BC 15,X'1AC'(,R11) 1EC6: L 5,X'00C'(,R1) 1ECA: AR R5,R7 1ECC: LM R2,R5,X'000'(,R5) 1ED0: BC 15,X'0AE'(,R12) 1ED4: ALR R14,R4 1ED6: ALR R14,R4 1ED8: ALR R14,R4 1EDA: ALR R14,R12 1EDC: SPM R0,R0 1EDE: DC XL10'001400000006FFFFFF4D' 1EE8: BCT 3,X'0040'(R2) 1EEC: SSK R0,R8 1EEE: DC XL2'004D' 1EF0: ALR R12,R6 1EF2: BALR R4,R0 1EF4: DC XL4'FFFFFF4D' 1EF8: STC 0,X'0040' 1EFC: DC XL4'00000000' * 1F00: SR R10,R10 1F02: IC 10,X'021'(,R14) GET INTERRUPT CODE 1F06: TM X'00E'(R14),1 IS IT ODD? 1F0A: BC 8,X'012'(,R12) NO 1F0E: IC 10,X'08D'(,R14) 1F12: SRL R10,X'0004' 1F16: SLL R10,X'0002' 1F1A: L 7,X'00B0'(R10) 1F1E: BCR R15,R13 1F20: LH 12,X'0392' 1F24: BALR R13,R12 1F26: TM X'006'(R11),128 1F2A: BCR R2,R15 1F2C: CLI X'01B'(R8),0 1F30: BC 8,X'01E'(,R12) 1F34: AI X'002'(R8),0 1F38: BC 8,X'01E'(,R12) 1F3C: AI X'01A'(R8),255 1F40: CLI X'01B'(R8),0 1F44: BC 7,X'01E'(,R12) 1F48: LH 6,X'010'(,R8) 1F4C: NI X'000'(R6),127 1F50: L 1,X'008'(,R8) 1F54: LTR R1,R1 1F56: BC 7,X'060'(,R11) 1F5A: CLI X'002'(R8),1 1F5E: BC 7,X'058'(,R11) 1F62: LH 6,X'016'(,R8) 1F66: LH 6,X'002'(,R6) 1F6A: MVZ X'053'(1,R11),X'003'(R8) 1F70: LA 6,X'000'(,R6) 1F74: MVI X'000'(R6),255 1F78: LH 11,X'038C' 1F7C: BC 15,X'1A2'(,R11) 1F80: TM X'00C'(R8),14 1F84: BC 8,X'098'(,R11) 1F88: TM X'00D'(R8),8 1F8C: BC 8,X'098'(,R11) 1F90: LH 5,X'000'(,R8) 1F94: L 9,X'008'(,R5) 1F98: LA 1,X'000'(,R1) 1F9C: LA 9,X'000'(,R9) 1FA0: CR R9,R1 1FA2: BC 8,X'092'(,R11) 1FA6: LTR R9,R9 1FA8: BC 8,X'092'(,R11) 1FAC: MVI X'01B'(R8),1 1FB0: BCR R15,R15 1FB2: LR R8,R5 1FB4: ST 1,X'008'(,R8) 1FB8: LH 6,X'010'(,R8) 1FBC: NI X'000'(R6),127 1FC0: OI X'007'(R8),255 1FC4: MVI X'01B'(R1),255 1FC8: TM X'003'(R1),16 1FCC: BC 8,X'0B4'(,R11) 1FD0: MVI X'027'(R1),141 1FD4: TM X'00C'(R8),16 1FD8: BC 8,X'0D2'(,R11) 1FDC: TM X'01D'(R8),64 1FE0: BC 8,X'0D2'(,R11) 1FE4: NI X'01D'(R8),191 1FE8: XC X'008'(4,R8),X'008'(R8) 1FEE: BC 15,X'058'(,R11) 1FF2: L 14,X'004'(,R1) 1FF6: LA 14,X'000'(,R14) 1FFA: LH 12,X'031C' 1FFE: BALR R13,R12 2000: LH 12,X'104'(,R11) 2004: LR R0,R12 2006: SR R4,R4 2008: LR R3,R7 200A: STM R3,R4,X'004'(,R12) 200E: NI X'01C'(R8),248 2012: LA 1,X'000'(,R1) 2016: LA 6,X'0040' 201A: LH 11,X'038E' 201E: LH 12,X'016'(,R8) 2022: BCR R15,R12 2024: LA 14,X'0000'(R8) 2028: TM X'003'(R1),8 202C: BC 1,X'032'(,R12) 2030: TM X'00C'(R8),14 2034: BC 8,X'026'(,R12) 2038: TM X'00D'(R8),8 203C: BC 8,X'026'(,R12) 2040: ST 1,X'008'(,R8) 2044: LR R6,R8 2046: LH 8,X'000'(,R8) 204A: STH 6,X'00E'(,R8) 204E: MVZ X'02F'(1,R12),X'003'(R8) 2054: STM R2,R5,X'0200' 2058: BCR R15,R13 205A: TM X'01C'(R8),7 205E: BC 8,X'042'(,R12) 2062: TM X'01C'(R8),5 2066: BC 8,X'026'(,R12) 206A: LA 6,X'428'(,R12) 206E: MVZ X'04F'(1,R12),X'003'(R8) 2074: LA 6,X'000'(,R6) 2078: TM X'00C'(R8),14 207C: BC 8,X'082'(,R12) 2080: TM X'00D'(R8),8 2084: BC 8,X'082'(,R12) 2088: LH 4,X'000'(,R8) 208C: LA 10,X'004'(,R6) 2090: MVC X'075'(1,R12),X'00C'(R8) 2096: NI X'075'(R12),252 209A: LA 10,X'000'(,R10) 209E: LH 5,X'012'(,R4) 20A2: LA 5,X'018'(,R5) 20A6: STH 8,X'002'(,R10) 20AA: TM X'000'(R6),255 20AE: BCR R4,R15 20B0: BC 8,X'408'(,R12) 20B4: TM X'00C'(R8),14 20B8: BC 8,X'1E0'(,R12) 20BC: TM X'00D'(R8),8 20C0: BC 8,X'1E0'(,R12) 20C4: OC X'008'(4,R4),X'008'(R4) 20CA: BCR R7,R15 20CC: CLI X'001'(R6),255 20D0: BC 7,X'0D0'(,R12) 20D4: MVI X'000'(R10),0 20D8: MVI X'001'(R10),4 20DC: L 2,X'1DC'(,R12) 20E0: LA 3,X'0001' 20E4: AR R2,R1 20E6: ST 1,X'008'(,R8) 20EA: MVI X'01B'(R8),2 20EE: STH 8,X'00E'(,R4) 20F2: LR R8,R4 20F4: BC 15,X'40C'(,R12) 20F8: CLI X'001'(R10),2 20FC: BC 7,X'0F6'(,R12) 2100: MVI X'1D8'(R12),2 2104: LR R2,R5 2106: A 2,X'1D8'(,R12) 210A: CLI X'00E'(R6),0 210E: BC 8,X'0EE'(,R12) 2112: LA 3,X'00A0' 2116: LA 3,X'008'(,R3) 211A: BC 15,X'0BE'(,R12) 211E: TM X'019'(R1),128 2122: BC 1,X'108'(,R12) 2126: TM X'000'(R10),255 212A: BCR R1,R15 212C: BC 4,X'1AA'(,R12) 2130: MVI X'1D8'(R12),1 2134: LR R9,R2 2136: N 9,X'420'(,R12) 213A: SRL R2,X'0018' 213E: STC 2,X'001'(,R5) 2142: LR R2,R5 2144: A 2,X'1D8'(,R12) 2148: STH 3,X'002'(,R2) 214C: AI X'002'(R2),4 2150: MVC X'000'(1,R2),X'00C'(R8) 2156: OC X'000'(1,R2),X'019'(R1) 215C: TM X'000'(R2),8 2160: BC 1,X'14A'(,R12) 2164: BCTR R3,R0 2166: EX 3,X'1D0'(,R12) 216A: LA 3,X'005'(,R3) 216E: BC 15,X'0BE'(,R12) 2172: CLI X'002'(R6),255 2176: BC 7,X'196'(,R12) 217A: MVI X'002'(R6),0 217E: TM X'000'(R10),255 2182: BC 4,X'1AA'(,R12) 2186: XC X'00E'(2,R6),X'00E'(R6) 218C: LR R2,R9 218E: SH 2,X'198'(,R12) 2192: LH 6,X'1D6'(,R12) 2196: LA 9,X'008'(,R3) 219A: SH 9,X'002'(,R5) 219E: STH 9,X'00A'(,R6) 21A2: LR R0,R6 21A4: LR R9,R5 21A6: LA 9,X'008'(,R9) 21AA: BCTR R3,R0 21AC: EX 3,X'1D0'(,R12) 21B0: ST 1,X'008'(,R8) 21B4: SR R6,R6 21B6: LH 11,X'038E' 21BA: BC 15,X'36C'(,R11) 21BE: LA 3,X'0004' 21C2: TM X'001'(R2),4 21C6: BC 8,X'0BE'(,R12) 21CA: OI X'000'(R2),16 21CE: BC 15,X'0BE'(,R12) 21D2: ST 1,X'008'(,R8) 21D6: MVC X'014'(1,R1),X'000'(R10) 21DC: XC X'000'(4,R10),X'000'(R10) 21E2: LH 0,X'1D6'(,R12) 21E6: MVI X'01A'(R1),2 21EA: OI X'01C'(R8),2 21EE: LH 11,X'038E' 21F2: LH 12,X'016'(,R8) 21F6: BCR R15,R12 21F8: MVC X'004'(1,R2),X'000'(R9) 21FE: LA 14,X'0000'(R8) 2202: DC XL2'0000' 2204: SPM R0,R0 2206: DC XL2'0014' 2208: STM R2,R3,X'008'(,R6) 220C: TM X'00C'(R8),4 2210: BC 8,X'34A'(,R12) 2214: TM X'00D'(R8),40 2218: BC 8,X'32E'(,R12) 221C: LH 9,X'012'(,R8) 2220: CLI X'008'(R6),99 2224: BC 7,X'21A'(,R12) 2228: N 2,X'420'(,R12) 222C: MVC X'01C'(192,R9),X'000'(R2) 2232: XC X'018'(4,R9),X'018'(R9) 2238: SR R6,R6 223A: LH 11,X'32C'(,R12) 223E: BC 15,X'36C'(,R11) 2242: MVI X'27F'(R12),0 2246: MVI X'283'(R12),0 224A: MVI X'27B'(R12),9 224E: SR R5,R5 2250: XC X'001'(7,R6),X'001'(R6) 2256: IC 5,X'008'(,R6) 225A: STC 5,X'001'(,R6) 225E: TM X'001'(R6),6 2262: BC 4,X'408'(,R12) 2266: NI X'008'(R6),123 226A: TM X'008'(R6),120 226E: BC 8,X'408'(,R12) 2272: SRL R5,X'0003' 2276: TM X'001'(R6),128 227A: BC 1,X'2D2'(,R12) 227E: STC 5,X'005'(,R6) 2282: L 4,X'018'(,R9) 2286: LA 5,X'01C'(,R9) 228A: LA 4,X'001'(,R4) 228E: LR R3,R5 2290: AR R3,R4 2292: AI X'006'(R6),1 2296: CLI X'000'(R3),7 229A: BC 7,X'27A'(,R12) 229E: SR R3,R4 22A0: SR R4,R4 22A2: CLI X'000'(R3),9 22A6: BC 0,X'2CA'(,R12) 22AA: BC 0,X'29A'(,R12) 22AE: BC 7,X'28E'(,R12) 22B2: MVI X'002'(R6),8 22B6: AI X'004'(R6),255 22BA: BC 2,X'262'(,R12) 22BE: BC 4,X'30E'(,R12) 22C2: NI X'008'(R6),131 22C6: OI X'008'(R6),8 22CA: AI X'006'(R6),255 22CE: BC 8,X'2BE'(,R12) 22D2: TM X'007'(R6),1 22D6: BC 8,X'2BE'(,R12) 22DA: NI X'008'(R6),247 22DE: OI X'008'(R6),16 22E2: AI X'006'(R6),255 22E6: AI X'006'(R6),0 22EA: BC 8,X'2CA'(,R12) 22EE: MVI X'004'(R6),19 22F2: ST 4,X'018'(,R9) 22F6: BC 15,X'408'(,R12) 22FA: MVI X'005'(R6),192 22FE: STC 5,X'27B'(,R12) 2302: NI X'27B'(R12),15 2306: TM X'27B'(R12),14 230A: BC 7,X'2EE'(,R12) 230E: MVI X'27B'(R12),9 2312: OI X'008'(R6),64 2316: TM X'001'(R6),96 231A: BC 8,X'324'(,R12) 231E: MVI X'27F'(R12),128 2322: TM X'27B'(R12),7 2326: BC 14,X'25A'(,R12) 232A: NI X'27B'(R12),7 232E: OI X'008'(R6),64 2332: BC 15,X'25A'(,R12) 2336: OI X'01C'(R8),2 233A: LH 11,X'32C'(,R12) 233E: LH 12,X'016'(,R8) 2342: ST 1,X'008'(,R8) 2346: OI X'015'(R1),2 234A: BCR R15,R12 234C: MVI X'283'(R12),128 2350: BC 15,X'25A'(,R12) 2354: CH 3,X'820'(R12,R8) 2358: DC XL2'001B' 235A: STC 2,X'001'(,R6) 235E: CLI X'001'(R6),17 2362: BC 7,X'408'(,R12) 2366: OI X'008'(R6),224 236A: NI X'008'(R6),231 236E: BC 15,X'408'(,R12) 2372: TM X'00C'(R8),2 2376: BC 8,X'3B4'(,R12) 237A: MVC X'001'(1,R6),X'008'(R6) 2380: CLI X'008'(R6),3 2384: BC 8,X'408'(,R12) 2388: TM X'008'(R6),1 238C: BC 8,X'3A8'(,R12) 2390: OI X'008'(R6),16 2394: TM X'008'(R6),4 2398: BC 1,X'408'(,R12) 239C: TM X'017'(R1),128 23A0: BC 1,X'408'(,R12) 23A4: LH 5,X'3A6'(,R12) 23A8: BCTR R3,R0 23AA: LR R4,R2 23AC: SLL R4,X'000D' 23B0: SRL R4,X'000D' 23B4: TM X'001'(R6),16 23B8: BC 1,X'398'(,R12) 23BC: EX 3,X'3A0'(,R12) 23C0: OI X'017'(R1),128 23C4: BC 15,X'408'(,R12) 23C8: TR X'000'(1,R4),X'000'(R5) 23CE: ADR R14,R8 23D0: MVI X'008'(R6),11 23D4: OI X'01C'(R8),1 23D8: BC 15,X'408'(,R12) 23DC: TM X'00C'(R8),8 23E0: BC 8,X'3C0'(,R12) 23E4: BC 15,X'408'(,R12) 23E8: SR R2,R2 23EA: LR R4,R3 23EC: STC 3,X'007'(,R6) 23F0: SRL R3,X'0010' 23F4: TM X'008'(R6),3 23F8: BC 14,X'3D8'(,R12) 23FC: MVI X'007'(R6),1 2400: D 2,X'004'(,R6) 2404: N 4,X'41C'(,R12) 2408: N 3,X'424'(,R12) 240C: OR R4,R3 240E: ST 4,X'00C'(,R6) 2412: LH 9,X'012'(,R8) 2416: CLC X'013'(1,R9),X'001'(R6) 241C: BC 8,X'408'(,R12) 2420: MVC X'002'(1,R6),X'008'(R6) 2426: MVC X'008'(1,R6),X'013'(R9) 242C: OI X'01C'(R8),1 2430: LM R2,R3,X'008'(,R6) 2434: MVI X'000'(R6),1 2438: SR R4,R4 243A: SR R5,R5 243C: BC 15,X'026'(,R12) 2440: HDR R5,R0 2442: DC XL12'00000000E000000FFFFF0000' 244E: SLR R15,R15 2450: DC XL16'FF000000000000000000000000000000' 2460: DC XL16'FF000000000000000000000000000000' 2470: DC XL16'FF000000000000000000000000000000' 2480: DC XL16'FF000000000000000000000000000000' 2490: DC XL16'FF000000000000000000000000000000' 24A0: DC XL16'FF000000000000000000000000000000' 24B0: DC XL16'FF000000000000000000000000000000' 24C0: DC XL16'FF000000000000000000000000000000' 24D0: BC 0,X'450'(,R2) 24D4: LA 1,X'000'(,R1) 24D8: MVC X'818'(1,R12),X'01C'(R8) 24DE: NI X'818'(R12),7 24E2: NI X'01C'(R8),248 24E6: L 4,X'00C'(,R1) 24EA: AR R4,R7 24EC: CH 0,X'5EA'(,R12) 24F0: BC 4,X'532'(,R12) 24F4: MVZ X'02D'(1,R12),X'003'(R8) 24FA: LA 9,X'0200' 24FE: LR R13,R0 2500: CLI X'818'(R12),2 2504: BC 8,X'060'(,R12) 2508: MVC X'00A'(2,R13),X'006'(R9) 250E: NI X'00A'(R13),31 2512: LA 9,X'5CC'(,R12) 2516: SR R5,R5 2518: IC 5,X'003'(,R8) 251C: SRL R5,X'0004' 2520: SLL R5,X'0001' 2524: AR R9,R5 2526: BC 0,X'522'(,R12) 252A: MVC X'000'(2,R9),X'00A'(R13) 2530: LH 9,X'5C8'(,R12) 2534: MVZ X'06D'(1,R12),X'003'(R8) 253A: LA 9,X'000'(,R9) 253E: MVI X'000'(R9),255 2542: TM X'003'(R1),16 2546: BC 1,X'08A'(,R12) 254A: TM X'007'(R8),255 254E: BC 7,X'4CE'(,R12) 2552: TM X'006'(R8),2 2556: BC 1,X'548'(,R12) 255A: TM X'003'(R1),16 255E: BC 14,X'162'(,R12) 2562: TM X'006'(R8),7 2566: BC 8,X'162'(,R12) 256A: TM X'01D'(R8),128 256E: BC 1,X'0B0'(,R12) 2572: TM X'818'(R12),2 2576: BC 1,X'0B0'(,R12) 257A: MVC X'12C'(4,R12),X'00C'(R1) 2580: L 2,X'00C'(,R1) 2584: AR R2,R7 2586: TM X'004'(R2),64 258A: BC 14,X'10A'(,R12) 258E: TM X'006'(R8),3 2592: BC 7,X'10A'(,R12) 2596: OI X'01D'(R8),128 259A: LA 2,X'008'(,R2) 259E: CLI X'000'(R2),8 25A2: BC 7,X'0E2'(,R12) 25A6: L 2,X'0000'(R2) 25AA: LA 2,X'000'(,R2) 25AE: BC 15,X'0F0'(,R12) 25B2: SR R2,R7 25B4: TM X'818'(R12),2 25B8: BC 8,X'0F0'(,R12) 25BC: OI X'01C'(R8),2 25C0: ST 2,X'00C'(,R1) 25C4: AR R2,R7 25C6: LM R2,R3,X'000'(,R2) 25CA: BC 15,X'58E'(,R12) 25CE: TM X'818'(R12),2 25D2: BC 8,X'10A'(,R12) 25D6: OI X'027'(R1),142 25DA: NI X'01D'(R8),127 25DE: TM X'818'(R12),2 25E2: BC 8,X'120'(,R12) 25E6: MVC X'00C'(4,R1),X'12C'(R12) 25EC: BC 15,X'55C'(,R12) 25F0: MVC X'01F'(4,R1),X'12C'(R12) 25F6: BC 15,X'130'(,R12) 25FA: DC XL6'000000000000' 2600: TM X'003'(R1),16 2604: BC 8,X'162'(,R12) 2608: TM X'006'(R8),7 260C: BC 8,X'162'(,R12) 2610: TM X'818'(R12),2 2614: BC 1,X'55C'(,R12) 2618: TM X'01C'(R1),1 261C: BC 8,X'162'(,R12) 2620: MVC X'12C'(4,R12),X'00C'(R1) 2626: TM X'01C'(R1),3 262A: BC 1,X'56C'(,R12) 262E: BC 15,X'548'(,R12) 2632: CLI X'818'(R12),2 2636: BC 8,X'4CE'(,R12) 263A: TM X'818'(R12),5 263E: BC 7,X'17A'(,R12) 2642: TM X'003'(R1),8 2646: BC 8,X'4B4'(,R12) 264A: TM X'00C'(R8),16 264E: BC 8,X'1B8'(,R12) 2652: CLI X'818'(R12),1 2656: BC 7,X'19A'(,R12) 265A: MVC X'001'(1,R9),X'008'(R9) 2660: MVC X'008'(1,R9),X'002'(R9) 2666: BC 15,X'1B0'(,R12) 266A: AI X'006'(R9),255 266E: BC 8,X'36C'(,R11) 2672: LM R4,R5,X'008'(,R9) 2676: N 5,X'0318' 267A: AR R4,R5 267C: ST 4,X'008'(,R9) 2680: MVI X'000'(R9),0 2684: BC 15,X'58E'(,R12) 2688: CLI X'00C'(R8),0 268C: BC 7,X'3CA'(,R12) 2690: LR R4,R8 2692: LH 8,X'00E'(,R4) 2696: LA 10,X'004'(,R9) 269A: MVI X'01B'(R8),0 269E: MVC X'1DB'(1,R12),X'00C'(R8) 26A4: NI X'1DB'(R12),252 26A8: LA 10,X'000'(,R10) 26AC: LH 5,X'012'(,R4) 26B0: LA 5,X'018'(,R5) 26B4: OC X'008'(4,R4),X'008'(R4) 26BA: BC 8,X'204'(,R12) 26BE: CLI X'006'(R4),144 26C2: BC 7,X'226'(,R12) 26C6: CLI X'001'(R10),4 26CA: BC 7,X'204'(,R12) 26CE: MVI X'000'(R9),1 26D2: BCR R15,R15 26D4: MVI X'001'(R9),255 26D8: OC X'008'(4,R8),X'008'(R8) 26DE: BC 8,X'388'(,R12) 26E2: L 1,X'008'(,R8) 26E6: TM X'008'(R8),112 26EA: BC 7,X'388'(,R12) 26EE: EX 0,X'22C'(,R12) 26F2: BC 15,X'252'(,R12) 26F6: XC X'008'(4,R4),X'008'(R4) 26FC: XC X'008'(4,R8),X'008'(R8) 2702: CLI X'001'(R10),4 2706: BC 7,X'26E'(,R12) 270A: MVI X'001'(R10),2 270E: MVI X'001'(R9),0 2712: CLI X'014'(R1),1 2716: BC 8,X'252'(,R12) 271A: MVI X'001'(R10),1 271E: BC 15,X'388'(,R12) 2722: LR R0,R12 2724: LH 12,X'031C' 2728: BALR R13,R12 272A: LR R12,R0 272C: L 4,X'00C'(,R1) 2730: AR R4,R7 2732: LM R2,R3,X'000'(,R4) 2736: LH 11,X'038C' 273A: BC 15,X'1AC'(,R11) 273E: CLI X'001'(R10),2 2742: BC 7,X'2BC'(,R12) 2746: MVI X'001'(R10),1 274A: MVC X'003'(1,R9),X'001'(R5) 2750: L 2,X'004'(,R5) 2754: SRL R2,X'0008' 2758: STC 2,X'008'(,R9) 275C: SRL R2,X'0008' 2760: STC 2,X'004'(,R9) 2764: SRL R2,X'0008' 2768: STC 2,X'00C'(,R9) 276C: LA 15,X'340'(,R12) 2770: TM X'000'(R5),8 2774: BC 8,X'252'(,R12) 2778: MVI X'002'(R9),255 277C: LH 8,X'00E'(,R9) 2780: LTR R8,R8 2782: BCR R8,R15 2784: LH 11,X'038C' 2788: BC 15,X'1A2'(,R11) 278C: TM X'00C'(R8),4 2790: BC 8,X'2F8'(,R12) 2794: L 2,X'00C'(,R1) 2798: AR R2,R7 279A: TM X'000'(R2),128 279E: BC 1,X'2F8'(,R12) 27A2: TM X'000'(R2),6 27A6: BC 4,X'2F8'(,R12) 27AA: SR R3,R3 27AC: IC 3,X'000'(,R2) 27B0: SRL R3,X'0003' 27B4: STC 3,X'2E9'(,R12) 27B8: CLI X'003'(R9),0 27BC: BC 11,X'2F8'(,R12) 27C0: LA 6,X'0008' 27C4: OI X'01A'(R1),1 27C8: CLI X'006'(R4),16 27CC: BC 8,X'388'(,R12) 27D0: BC 2,X'204'(,R12) 27D4: CLI X'006'(R4),12 27D8: BC 7,X'204'(,R12) 27DC: MVI X'000'(R10),255 27E0: STM R0,R15,X'348'(,R12) 27E4: LA 15,X'340'(,R12) 27E8: STH 8,X'002'(,R10) 27EC: TM X'00C'(R8),8 27F0: BC 1,X'33A'(,R12) 27F4: TM X'019'(R1),128 27F8: BC 7,X'33A'(,R12) 27FC: XC X'002'(2,R10),X'002'(R10) 2802: ST 1,X'008'(,R8) 2806: BC 15,X'36C'(,R11) 280A: MVI X'019'(R1),0 280E: BCR R0,R0 2810: LM R0,R15,X'008'(,R15) 2814: BC 15,X'388'(,R12) 2818: DC XL16'00000000000000000000000000000000' 2828: DC XL16'00000000000000000000000000000000' 2838: DC XL16'00000000000000000000000000000000' 2848: DC XL16'00000000000000000000000000000000' 2858: OC X'008'(4,R4),X'008'(R4) 285E: BC 7,X'3C6'(,R12) 2862: LA 6,X'0003' 2866: LA 10,X'010'(,R9) 286A: SH 10,X'3C8'(,R12) 286E: LH 8,X'002'(,R10) 2872: LTR R8,R8 2874: BC 8,X'3C2'(,R12) 2878: OC X'008'(4,R8),X'008'(R8) 287E: BC 7,X'3C2'(,R12) 2882: CLI X'001'(R9),255 2886: BC 8,X'2B4'(,R12) 288A: CLI X'000'(R10),255 288E: BC 7,X'2B4'(,R12) 2892: BCT 6,X'39A'(,R12) 2896: BCR R15,R15 2898: DC XL2'0004' 289A: TM X'00C'(R8),2 289E: BC 8,X'418'(,R12) 28A2: TM X'00D'(R8),64 28A6: BC 8,X'418'(,R12) 28AA: TM X'818'(R12),1 28AE: BC 8,X'3F0'(,R12) 28B2: MVC X'008'(1,R9),X'000'(R4) 28B8: MVI X'000'(R9),0 28BC: BC 15,X'58E'(,R12) 28C0: TM X'008'(R9),4 28C4: BC 1,X'36C'(,R11) 28C8: NI X'009'(R9),7 28CC: LM R2,R3,X'008'(,R9) 28D0: BCTR R3,R0 28D2: CLI X'008'(R9),2 28D6: BC 7,X'36C'(,R11) 28DA: STC 3,X'40F'(,R12) 28DE: TR X'000'(1,R2),X'718'(R12) 28E4: BC 15,X'36C'(,R11) 28E8: TM X'00C'(R8),4 28EC: BC 8,X'456'(,R12) 28F0: TM X'00D'(R8),144 28F4: BC 7,X'47A'(,R12) 28F8: TM X'006'(R8),1 28FC: BC 1,X'1B0'(,R12) 2900: MVC X'008'(1,R9),X'004'(R9) 2906: IC 6,X'002'(,R9) 290A: CLI X'004'(R9),0 290E: BC 8,X'36C'(,R11) 2912: MVI X'000'(R9),0 2916: AI X'006'(R9),254 291A: BC 7,X'58E'(,R12) 291E: MVI X'004'(R9),0 2922: BC 15,X'58E'(,R12) 2926: TM X'00D'(R8),8 292A: BC 1,X'36C'(,R11) 292E: TM X'008'(R9),4 2932: BC 1,X'36C'(,R11) 2936: TM X'008'(R9),32 293A: BC 1,X'36C'(,R11) 293E: TM X'00E'(R8),2 2942: BC 1,X'3F8'(,R12) 2946: BC 15,X'36C'(,R11) 294A: TM X'818'(R12),3 294E: BC 7,X'48A'(,R12) 2952: TM X'006'(R8),1 2956: BC 1,X'49E'(,R12) 295A: CLI X'818'(R12),0 295E: BC 8,X'36C'(,R11) 2962: LA 6,X'0008' 2966: TM X'818'(R12),4 296A: BC 1,X'36C'(,R11) 296E: OI X'01C'(R8),7 2972: MVC X'008'(1,R9),X'000'(R4) 2978: OI X'008'(R9),6 297C: MVI X'000'(R9),0 2980: BC 15,X'58E'(,R12) 2984: CLI X'00C'(R8),0 2988: BC 7,X'36C'(,R11) 298C: XC X'008'(4,R8),X'008'(R8) 2992: LH 8,X'00E'(,R8) 2996: MVI X'01B'(R8),0 299A: BC 15,X'36C'(,R11) 299E: TM X'003'(R1),16 29A2: BC 1,X'548'(,R12) 29A6: CLI X'00C'(R8),0 29AA: BC 7,X'51A'(,R12) 29AE: LH 5,X'00E'(,R8) 29B2: MVC X'006'(2,R5),X'006'(R8) 29B8: XC X'008'(4,R8),X'008'(R8) 29BE: LR R8,R5 29C0: MVI X'01B'(R8),0 29C4: LH 5,X'5C8'(,R12) 29C8: MVZ X'501'(1,R12),X'003'(R8) 29CE: LA 5,X'000'(,R5) 29D2: LA 5,X'004'(,R5) 29D6: MVC X'513'(1,R12),X'00C'(R8) 29DC: NI X'513'(R12),252 29E0: LA 5,X'000'(,R5) 29E4: XC X'000'(4,R5),X'000'(R5) 29EA: MVI X'057'(R12),240 29EE: BC 15,X'042'(,R12) 29F2: MVI X'057'(R12),0 29F6: LR R13,R0 29F8: MVC X'00A'(2,R13),X'000'(R9) 29FE: ST 7,X'004'(,R13) 2A02: LA 9,X'608'(,R12) 2A06: TM X'00C'(R8),16 2A0A: BC 1,X'542'(,R12) 2A0E: LA 9,X'5E4'(,R12) 2A12: LH 13,X'5F4'(,R12) 2A16: BCR R15,R13 2A18: TM X'003'(R1),16 2A1C: BC 8,X'582'(,R12) 2A20: TM X'818'(R12),2 2A24: BC 8,X'564'(,R12) 2A28: OI X'027'(R1),142 2A2C: NI X'01C'(R8),253 2A30: BC 15,X'36C'(,R11) 2A34: TM X'01C'(R1),2 2A38: BC 8,X'582'(,R12) 2A3C: L 2,X'014'(,R1) 2A40: ST 2,X'00C'(,R1) 2A44: AR R2,R7 2A46: LM R2,R3,X'000'(,R2) 2A4A: OI X'01C'(R8),2 2A4E: BC 15,X'58E'(,R12) 2A52: OI X'01C'(R8),2 2A56: LM R2,R3,X'5DC'(,R12) 2A5A: AR R2,R1 2A5C: SR R2,R7 2A5E: TM X'003'(R1),16 2A62: BC 14,X'5A6'(,R12) 2A66: LA 0,X'0014' 2A6A: MVI X'004'(R1),0 2A6E: DIAG X'0000',14 2A72: STC 0,X'004'(,R1) 2A76: LH 11,X'5E8'(,R12) 2A7A: BC 15,X'1AC'(,R11) 2A7E: TM X'00C'(R8),4 2A82: BC 8,X'4CE'(,R12) 2A86: TM X'018'(R8),32 2A8A: BC 8,X'4CE'(,R12) 2A8E: SR R6,R6 2A90: NI X'018'(R8),251 2A94: BC 15,X'000'(,R12) 2A98: HDR R5,R0 2A9A: DC XL16'00000000000000000000000000000000' 2AAA: DC XL2'0000' 2AAC: SPM R0,R0 2AAE: DC XL6'001400000006' 2AB4: SP X'F4D'(16,R15),X'632'(16,R4) 2ABA: DC XL2'0040' 2ABC: SPM R0,R0 2ABE: DC XL2'004D' 2AC0: ADR R7,R14 2AC2: DC XL2'0140' 2AC4: STC 0,X'4FB'(,R9) 2AC8: SSM X'50F'(R9),24 2ACC: STH 0,X'770'(,R4) 2AD0: DC XL2'B36C' 2AD2: SR R6,R6 2AD4: BC 15,X'36C'(,R11) 2AD8: DC XL12'FF00004D000000400060004D' 2AE4: ADR R12,R6 2AE6: DC XL4'0120BDB1' 2AEA: MVN X'1C1'(146,R10),X'1E1'(R15) 2AF0: SLL R11,X'999'(,R13) 2AF4: HPR X'9E9'(R15),201 2AF8: DC XL2'BBB2' 2AFA: MVC X'2C2'(147,R10),X'2E2'(R15) 2B00: SRA R11,X'A9A'(,R13) 2B04: AH R12,X'AEA'(,R15) 2B08: DC XL2'BEB4' 2B0A: NC X'4C4'(149,R10),X'4E4'(R15) 2B10: SRDL R11,X'C9C'(,R13) 2B14: DC XL2'ACCC' 2B16: MP X'FB0'(15,R11),X'090'(13,R13) 2B1C: DC XL4'A0C0F0E0' 2B20: SRL R11,X'898'(,R13) 2B24: DC XL2'A8C8' 2B26: ZAP X'00B5'(15),X'595'(9,R13) 2B2C: DC XL4'A5C5F5E5' 2B30: SLDL R3,X'919'(,R5) 2B34: CDR R4,R9 2B36: CE 6,X'01B3'(R9) 2B3A: MVZ X'3C3'(148,R10),X'3E3'(R15) 2B40: SLA R3,X'A1A'(,R5) 2B44: ADR R4,R10 2B46: AE 6,X'0234'(R10) 2B4A: OC X'6C6'(151,R10),X'6E6'(R15) 2B50: SRDA R3,X'031C' 2B54: MDR R4,R12 2B56: ME 6,X'07B7'(R12) 2B5A: XC X'7C7'(152,R10),X'7E7'(R15) 2B60: SLDA R3,X'818'(,R5) 2B64: LDR R4,R8 2B66: LE 6,X'D35'(R8,R3) 2B6A: CL 1,X'545'(R5,R2) 2B6E: DC XL2'7565' 2B70: BASR R8,R5 2B72: D 1,X'D4D'(R13,R2) 2B76: DE 6,X'B33'(R13,R3) 2B7A: DC XL2'5313' 2B7C: LDCR R4,R3 2B7E: DC XL4'73630B83' 2B82: S 1,X'B4B'(R11,R2) 2B86: SE 6,X'E36'(R11,R3) 2B8A: O 1,X'646'(R6,R2) 2B8E: DC XL4'76660E86' 2B92: AL 1,X'E4E'(R14,R2) 2B96: AU 6,X'F37'(R14,R3) 2B9A: X 1,X'747'(R7,R2) 2B9E: DC XL6'77670F875F1F' 2BA4: SWR R4,R15 2BA6: SU 6,X'0531'(R15) 2BAA: DC XL2'5111' 2BAC: LNDR R4,R1 2BAE: DC XL2'7161' 2BB0: ISK R8,R1 2BB2: TRT X'DCD'(158,R10),X'DED'(R15) 2BB8: BCTR R3,R2 2BBA: DC XL2'5212' 2BBC: LTDR R4,R2 2BBE: DC XL2'7262' 2BC0: SVC R8,R2 2BC2: DC XL2'DB9B' 2BC4: SH R12,X'BEB'(,R15) 2BC8: M 11,X'414'(R6,R5) 2BCC: HDR R4,R4 2BCE: DC XL4'74640C84' 2BD2: ED X'ECE'(159,R10),X'EEE'(R15) 2BD8: SPM R3,R0 2BDA: ST 1,X'040'(,R2) 2BDE: STE 6,X'0880' 2BE2: EDMK X'FCF'(160,R10),X'FEF'(R15) 2BE8: STH 5,X'06A'(,R6) 2BEC: DC XL4'F0C0D070' 2BF0: ZAP X'898'(13,R13),X'888'(9,R14) 2BF6: DC XL2'A8B8' 2BF8: UNPK X'393'(13,R13),X'383'(4,R14) 2BFE: SSRS R11,X'B4B'(,R7) 2C02: S 9,X'B8B'(R11,R6) 2C06: SH R11,X'4C4'(,R15) 2C0A: NC X'484'(149,R14),X'4B4'(R10) 2C10: ME 4,X'C9C'(R12,R5) 2C14: MD 8,X'CBC'(R12,R10) 2C18: MVO X'191'(13,R13),X'181'(2,R6) 2C1E: DC XL2'A1B1' 2C20: CE 4,X'990'(R9,R5) 2C24: CD 8,X'0B0'(,R10) 2C28: DC XL2'F5C5' 2C2A: CLC X'585'(150,R14),X'5B5'(R10) 2C30: DE 4,X'D9D'(R13,R5) 2C34: DD 8,X'DBD'(R13,R10) 2C38: PACK X'292'(13,R13),X'282'(3,R14) 2C3E: SSFS R11,X'A4A'(,R7) 2C42: A 9,X'08A'(R10,R14) 2C46: AH R11,X'7C7'(,R15) 2C4A: XC X'787'(152,R14),X'7B7'(R10) 2C50: SU 4,X'F9F'(R15,R5) 2C54: SW 8,X'FBF'(R15,R10) 2C58: DC XL2'F6C6' 2C5A: OC X'686'(151,R14),X'6B6'(R10) 2C60: AU 4,X'E9E'(R14,R5) 2C64: AW 8,X'EBE'(R14,R10) 2C68: CP X'999'(13,R13),X'989'(10,R14) 2C6E: HPR X'808'(R3),185 2C72: LR R5,R8 2C74: LDR R4,R8 2C76: LD 7,X'303'(R8,R3) 2C7A: LCR R5,R3 2C7C: LDCR R4,R3 2C7E: DC XL2'6373' 2C80: SER R0,R11 2C82: SR R13,R11 2C84: SDR R12,R11 2C86: DC XL2'EBFB' 2C88: HER R0,R4 2C8A: NR R5,R4 2C8C: HDR R4,R4 2C8E: DC XL2'6474' 2C90: MER R0,R12 2C92: MR R13,R12 2C94: MDR R12,R12 2C96: DC XL2'ECFC' 2C98: LNER R0,R1 2C9A: LNR R5,R1 2C9C: LNDR R4,R1 2C9E: DC XL2'E171' 2CA0: CER R0,R9 2CA2: CR R1,R0 2CA4: CDR R0,R0 2CA6: LDPR R3,R0 2CA8: DC XL2'3505' 2CAA: CLR R5,R5 2CAC: DC XL4'25456575' 2CB0: DER R0,R13 2CB2: DR R13,R13 2CB4: DDR R12,R13 2CB6: DC XL2'EDFD' 2CB8: LTER R0,R2 2CBA: LTR R5,R2 2CBC: LTDR R4,R2 2CBE: DC XL2'6272' 2CC0: AER R0,R10 2CC2: AR R13,R10 2CC4: ADR R12,R10 2CC6: DC XL4'EAFA3707' 2CCA: XR R5,R7 2CCC: DC XL4'27476777' 2CD0: SUR R0,R15 2CD2: SLR R13,R15 2CD4: SWR R12,R15 2CD6: DC XL4'EFFF3606' 2CDA: OR R5,R6 2CDC: DC XL4'26466676' 2CE0: AUR R0,R14 2CE2: ALR R13,R14 2CE4: AWR R12,R14 2CE6: DC XL10'EEFE0000000000000000' 2CF0: STM R2,R5,X'00F0' 2CF4: LH 9,X'012'(,R8) 2CF8: SLL R5,X'0001' 2CFC: SRL R5,X'0011' 2D00: LR R6,R5 2D02: LH 4,X'012'(,R9) 2D06: CLI X'00F0',1 2D0A: BC 7,X'02A'(,R12) 2D0E: LA 0,X'001A' 2D12: TM X'003'(R1),2 2D16: BC 8,X'2CA'(,R11) 2D1A: TM X'01C'(R8),7 2D1E: BC 8,X'03E'(,R12) 2D22: BC 4,X'046'(,R12) 2D26: LH 5,X'010'(,R9) 2D2A: BC 15,X'048'(,R12) 2D2E: TM X'00FB',192 2D32: BC 8,X'048'(,R12) 2D36: LR R5,R4 2D38: NI X'00F6',223 2D3C: CLR R5,R4 2D3E: BC 11,X'05C'(,R12) 2D42: XR R5,R4 2D44: XR R4,R5 2D46: XR R5,R4 2D48: OI X'00F6',32 2D4C: SR R5,R4 2D4E: TM X'003'(R1),16 2D52: BC 1,X'08C'(,R12) 2D56: LA 3,X'019A' 2D5A: TM X'00F'(R8),4 2D5E: BC 8,X'076'(,R12) 2D62: LA 3,X'032E' 2D66: CR R6,R3 2D68: LA 0,X'0018' 2D6C: BC 2,X'2CA'(,R11) 2D70: CLI X'00FA',6 2D74: LA 0,X'0019' 2D78: BC 2,X'2CA'(,R11) 2D7C: TM X'01C'(R8),7 2D80: BC 7,X'0AA'(,R12) 2D84: TM X'00FC',128 2D88: BC 8,X'0AA'(,R12) 2D8C: TM X'003'(R1),16 2D90: BC 1,X'0A8'(,R12) 2D94: MVI X'00F0',8 2D98: SR R6,R6 2D9A: STH 5,X'00F8' 2D9E: TM X'01C'(R8),7 2DA2: BC 7,X'0EA'(,R12) 2DA6: TM X'003'(R1),16 2DAA: BC 1,X'0EA'(,R12) 2DAE: TM X'003'(R1),2 2DB2: BC 1,X'0EA'(,R12) 2DB6: TM X'018'(R8),3 2DBA: BC 7,X'0EA'(,R12) 2DBE: LTR R5,R5 2DC0: BC 8,X'0EA'(,R12) 2DC4: CLI X'00F0',8 2DC8: BC 8,X'0EA'(,R12) 2DCC: TM X'00FB',192 2DD0: BC 7,X'0EA'(,R12) 2DD4: MVI X'00F0',8 2DD8: BCR R15,R13 2DDA: OI X'018'(R8),2 2DDE: MVN X'00FF'(1),X'001'(R1) 2DE4: TM X'00F0',10 2DE8: BCR R7,R13 2DEA: MVI X'00FF',0 2DEE: BCR R15,R13 2DF0: BC 0,X'004'(,R12) 2DF4: LH 9,X'012'(,R8) 2DF8: TM X'006'(R8),128 2DFC: BC 8,X'016'(,R12) 2E00: XC X'012'(2,R9),X'012'(R9) 2E06: LTR R1,R1 2E08: BC 8,X'5C6'(,R11) 2E0C: L 4,X'00C'(,R1) 2E10: AR R4,R7 2E12: MVC X'363'(1,R12),X'01C'(R8) 2E18: NI X'363'(R12),7 2E1C: NI X'01C'(R8),248 2E20: TM X'006'(R8),4 2E24: BC 8,X'06E'(,R12) 2E28: TM X'363'(R12),7 2E2C: BC 4,X'06E'(,R12) 2E30: TM X'00B'(R4),192 2E34: BC 7,X'06E'(,R12) 2E38: CLI X'363'(R12),7 2E3C: BC 7,X'05A'(,R12) 2E40: MVC X'012'(2,R9),X'010'(R9) 2E46: BC 15,X'06E'(,R12) 2E4A: MVC X'012'(2,R9),X'00C'(R4) 2E50: TM X'012'(R9),128 2E54: BC 8,X'06E'(,R12) 2E58: XC X'012'(2,R9),X'012'(R9) 2E5E: TM X'007'(R8),255 2E62: BC 7,X'152'(,R12) 2E66: TM X'006'(R8),2 2E6A: BC 1,X'0FC'(,R12) 2E6E: TM X'003'(R1),16 2E72: BC 14,X'0BC'(,R12) 2E76: TM X'006'(R8),7 2E7A: BC 8,X'0BC'(,R12) 2E7E: TM X'363'(R12),2 2E82: BC 1,X'26C'(,R12) 2E86: TM X'01C'(R1),1 2E8A: BC 14,X'0BC'(,R12) 2E8E: TM X'01C'(R1),3 2E92: BC 14,X'13C'(,R12) 2E96: L 2,X'014'(,R1) 2E9A: AR R2,R7 2E9C: L 2,X'000'(,R2) 2EA0: LA 3,X'0006' 2EA4: OI X'01C'(R8),2 2EA8: BC 15,X'14A'(,R12) 2EAC: TM X'006'(R8),16 2EB0: BC 8,X'16A'(,R12) 2EB4: CLI X'363'(R12),7 2EB8: BC 8,X'334'(,R12) 2EBC: TM X'003'(R1),2 2EC0: BC 1,X'0D8'(,R12) 2EC4: OI X'00C'(R4),128 2EC8: LM R2,R5,X'000'(,R4) 2ECC: TM X'003'(R1),16 2ED0: BC 14,X'0F4'(,R12) 2ED4: LA 0,X'0014' 2ED8: MVI X'004'(R1),0 2EDC: DIAG X'0000',14 2EE0: STC 0,X'004'(,R1) 2EE4: LH 11,X'038C' 2EE8: BC 15,X'1AC'(,R11) 2EEC: TM X'003'(R1),16 2EF0: BC 8,X'136'(,R12) 2EF4: TM X'363'(R12),2 2EF8: BC 8,X'118'(,R12) 2EFC: NI X'363'(R12),253 2F00: OI X'027'(R1),142 2F04: BC 15,X'26C'(,R12) 2F08: TM X'01C'(R1),2 2F0C: BC 8,X'136'(,R12) 2F10: L 2,X'014'(,R1) 2F14: AR R2,R7 2F16: L 2,X'000'(,R2) 2F1A: LA 3,X'0006' 2F1E: OI X'01C'(R8),2 2F22: BC 15,X'0DC'(,R12) 2F26: MVC X'370'(16,R12),X'00F0' 2F2C: OI X'01C'(R8),2 2F30: L 2,X'390'(,R12) 2F34: AR R2,R1 2F36: SR R3,R3 2F38: SR R2,R7 2F3A: LM R4,R5,X'008'(,R4) 2F3E: BC 15,X'0DC'(,R12) 2F42: TM X'003'(R1),16 2F46: BC 1,X'0FC'(,R12) 2F4A: MVC X'37A'(1,R12),X'017'(R1) 2F50: LA 9,X'39C'(,R12) 2F54: LH 13,X'3A0'(,R12) 2F58: BCR R15,R13 2F5A: TM X'363'(R12),6 2F5E: BC 1,X'34C'(,R12) 2F62: L 2,X'368'(,R12) 2F66: LR R5,R2 2F68: TM X'363'(R12),3 2F6C: BC 7,X'1AE'(,R12) 2F70: TM X'00C'(R4),128 2F74: MVZ X'00C'(1,R4),X'384'(R12) 2F7A: BC 1,X'28C'(,R12) 2F7E: TM X'018'(R8),1 2F82: BC 1,X'212'(,R12) 2F86: TM X'000'(R4),9 2F8A: BC 14,X'26C'(,R12) 2F8E: TM X'018'(R8),2 2F92: BC 8,X'274'(,R12) 2F96: OI X'01C'(R8),1 2F9A: BC 15,X'140'(,R12) 2F9E: CLI X'363'(R12),1 2FA2: BC 7,X'1C2'(,R12) 2FA6: TM X'015'(R1),128 2FAA: BC 1,X'152'(,R12) 2FAE: BC 15,X'26C'(,R12) 2FB2: CLI X'363'(R12),2 2FB6: BC 8,X'152'(,R12) 2FBA: TM X'38B'(R12),255 2FBE: BC 1,X'2E6'(,R12) 2FC2: CLC X'38A'(2,R12),X'364'(R12) 2FC8: BC 8,X'2E6'(,R12) 2FCC: SLL R2,X'000E' 2FD0: SRL R2,X'000E' 2FD4: LR R3,R2 2FD6: SR R9,R9 2FD8: IC 9,X'38A'(,R12) 2FDC: AR R2,R9 2FDE: TM X'000'(R4),9 2FE2: BC 14,X'20C'(,R12) 2FE6: AH 3,X'376'(,R12) 2FEA: SH 3,X'386'(,R12) 2FEE: CLR R2,R3 2FF0: BC 13,X'2E6'(,R12) 2FF4: EX 0,X'20C'(,R12) 2FF8: BC 15,X'180'(,R12) 2FFC: XC X'000'(2,R2),X'38B'(R12) 3002: AI X'36E'(R12),255 3006: BC 8,X'26C'(,R12) 300A: AH 5,X'35C'(,R12) 300E: SR R2,R2 3010: IC 2,X'37E'(,R12) 3014: LA 2,X'001'(,R2) 3018: STC 2,X'37E'(,R12) 301C: CLI X'37E'(R12),40 3020: BC 13,X'244'(,R12) 3024: MVI X'37E'(R12),1 3028: IC 2,X'37A'(,R12) 302C: LA 2,X'001'(,R2) 3030: STC 2,X'37A'(,R12) 3034: LR R2,R5 3036: ST 2,X'368'(,R12) 303A: LA 3,X'0001' 303E: SR R2,R7 3040: LM R4,R5,X'378'(,R12) 3044: BC 15,X'0DC'(,R12) 3048: CLI X'001'(R1),2 304C: BC 13,X'0D8'(,R12) 3050: TM X'003'(R1),32 3054: BC 8,X'0D8'(,R12) 3058: NI X'018'(R8),251 305C: TM X'018'(R8),2 3060: BC 1,X'29E'(,R12) 3064: OI X'018'(R8),2 3068: CLI X'00F0',8 306C: BC 8,X'0D8'(,R12) 3070: LH 9,X'010'(,R8) 3074: TM X'000'(R9),128 3078: BC 8,X'0D8'(,R12) 307C: XC X'008'(4,R8),X'008'(R8) 3082: LTR R8,R8 3084: LH 12,X'02EA' 3088: BALR R13,R12 308A: BC 15,X'2B2'(,R11) 308E: MVI X'00B'(R4),0 3092: BC 15,X'36C'(,R11) 3096: TM X'006'(R4),64 309A: BC 1,X'30A'(,R12) 309E: BC 15,X'0D4'(,R12) 30A2: TM X'018'(R8),1 30A6: BC 1,X'2F6'(,R12) 30AA: LM R2,R3,X'000'(,R4) 30AE: AR R2,R7 30B0: STM R2,R3,X'368'(,R12) 30B4: NI X'36E'(R12),31 30B8: TM X'000'(R4),9 30BC: BC 4,X'0D8'(,R12) 30C0: BC 1,X'2F6'(,R12) 30C4: CLI X'007'(R4),1 30C8: BC 8,X'2F6'(,R12) 30CC: OI X'018'(R8),1 30D0: MVC X'378'(8,R12),X'008'(R4) 30D6: TM X'000'(R4),9 30DA: BC 1,X'0D8'(,R12) 30DE: L 2,X'368'(,R12) 30E2: BC 15,X'24A'(,R12) 30E6: OI X'01C'(R8),3 30EA: L 2,X'380'(,R12) 30EE: BC 15,X'32A'(,R12) 30F2: TM X'00B'(R4),64 30F6: BC 8,X'322'(,R12) 30FA: MVC X'370'(16,R12),X'000'(R4) 3100: MVC X'37A'(1,R12),X'017'(R1) 3106: NI X'018'(R8),251 310A: LM R2,R5,X'370'(,R12) 310E: BC 15,X'0DC'(,R12) 3112: L 2,X'398'(,R12) 3116: OI X'01C'(R8),6 311A: SR R3,R3 311C: SR R7,R7 311E: SR R10,R10 3120: BC 15,X'148'(,R12) 3124: MVC X'370'(16,R12),X'000'(R4) 312A: MVI X'37B'(R12),64 312E: MVC X'010'(2,R9),X'35F'(R12) 3134: OI X'01C'(R8),7 3138: BC 15,X'316'(,R12) 313C: CLI X'363'(R12),7 3140: BC 7,X'334'(,R12) 3144: MVI X'363'(R12),0 3148: BC 15,X'172'(,R12) 314C: DC XL8'0100000000000000' 3154: SVC R0,R0 3156: DC XL12'000000000000000000000000' 3162: LNER R6,R1 3164: DC XL12'000000000000000000000000' 3170: STR R0,R0 3172: LNER R7,R10 3174: DC XL12'000000010000000000000000' 3180: SPM R0,R0 3182: DC XL4'00140E00' 3186: LNER R7,R4 3188: DC XL2'0E00' 318A: LNER R4,R14 318C: DC XL2'E240' 318E: SPM R4,R13 3190: STC 0,X'0040' 3194: SPM R8,R0 3196: DC XL2'514D' 3198: AWR R12,R8 319A: BCR R4,R0 319C: DC XL2'0000' 319E: SSK R4,R13 31A0: LPER R15,R2 31A2: SVC R4,R0 31A4: LPR R0,R0 31A6: DC XL2'A04D' 31A8: LPER R9,R6 31AA: SVC R4,R0 31AC: DC XL4'0020004F' 31B0: LPER R4,R8 31B2: SSK R1,R1 31B4: DC XL4'0008004F' 31B8: LPER R4,R8 31BA: SSK R1,R2 31BC: DC XL4'0002004D' 31C0: AWR R12,R8 31C2: BCR R4,R0 31C4: DC XL4'0000024D' 31C8: LPER R10,R2 31CA: LDCR R4,R0 31CC: DC XL4'00000000' 31D0: MVI X'123'(R12),16 31D4: MVI X'0B9'(R12),0 31D8: LA 2,X'100'(,R12) 31DC: MVC X'122'(1,R12),X'01C'(R8) 31E2: NI X'122'(R12),7 31E6: NI X'01C'(R8),248 31EA: TM X'006'(R8),2 31EE: BC 1,X'06C'(,R12) 31F2: TM X'007'(R8),255 31F6: BC 7,X'064'(,R12) 31FA: TM X'006'(R8),36 31FE: BC 1,X'0A4'(,R12) 3202: TM X'006'(R8),48 3206: BC 7,X'0C0'(,R12) 320A: CLI X'122'(R12),2 320E: BC 7,X'0A4'(,R12) 3212: CLI X'014'(R1),0 3216: BC 7,X'052'(,R12) 321A: CLI X'000'(R4),15 321E: BC 8,X'0A4'(,R12) 3222: MVI X'123'(R12),80 3226: LA 9,X'0DC'(,R12) 322A: LH 13,X'0E0'(,R12) 322E: LA 0,X'008'(,R2) 3232: BCR R15,R13 3234: CLI X'122'(R12),2 3238: BC 8,X'042'(,R12) 323C: LR R9,R0 323E: MVC X'008'(12,R2),X'000'(R9) 3244: LA 9,X'0002' 3248: LR R4,R1 324A: LA 4,X'000'(,R4) 324E: A 4,X'118'(,R12) 3252: ST 4,X'000'(,R2) 3256: LA 4,X'000'(,R2) 325A: SR R10,R10 325C: SR R7,R7 325E: EX 9,X'114'(,R12) 3262: MVI X'123'(R12),32 3266: SR R7,R7 3268: LH 11,X'11C'(,R12) 326C: BC 15,X'1AC'(,R11) 3270: NI X'018'(R8),251 3274: TM X'003'(R1),8 3278: BC 8,X'0B4'(,R12) 327C: LH 9,X'0350' 3280: MVI X'070'(R9),255 3284: MVI X'123'(R12),64 3288: BC 0,X'2B2'(,R11) 328C: BC 15,X'36C'(,R11) 3290: TM X'003'(R1),8 3294: BC 8,X'596'(,R11) 3298: LH 9,X'0350' 329C: MVI X'070'(R9),255 32A0: MVI X'123'(R12),48 32A4: BC 15,X'596'(,R11) 32A8: DC XL8'0000000C00000045' 32B0: STC 0,X'0040' 32B4: LNER R0,R1 32B6: DC XL16'004500000040CE00004D000000400060' 32C6: DC XL2'004D' 32C8: LTER R7,R0 32CA: DC XL2'0120' 32CC: BCR R0,R0 32CE: BCR R0,R0 32D0: DC XL2'0000' 32D2: LTER R13,R0 32D4: LDPR R0,R0 32D6: DC XL14'0006000000000000000000000000' 32E4: OI X'01C'(R8),0 32E8: SPM R0,R0 32EA: DC XL2'0014' 32EC: BCT 3,X'F80'(R2,R3) 32F0: DC XL16'00000000000000000000000000000000' 3300: DC XL16'00000000000000000000000000000000' 3310: DC XL16'00000000000000000000000000000000' 3320: DC XL16'00000000000000000000000000000000' 3330: DC XL16'00000000000000000000000000000000' 3340: DC XL16'00000000000000000000000000000000' 3350: DC XL8'0000000000000000' 3358: BC 0,X'004'(,R12) 335C: LA 2,X'2A0'(,R12) 3360: LR R3,R8 3362: TM X'01C'(R8),8 3366: BC 1,X'016'(,R12) 336A: LA 3,X'002'(,R3) 336E: TM X'000'(R3),2 3372: BC 8,X'022'(,R12) 3376: LA 2,X'390'(,R12) 337A: MVC X'26A'(1,R12),X'01C'(R8) 3380: NI X'26A'(R12),7 3384: NI X'01C'(R8),248 3388: TM X'00D'(R8),32 338C: BC 1,X'47E'(,R12) 3390: TM X'006'(R8),2 3394: BC 1,X'184'(,R12) 3398: TM X'007'(R8),255 339C: BC 7,X'05C'(,R12) 33A0: TM X'006'(R8),48 33A4: BC 7,X'238'(,R12) 33A8: CLI X'26A'(R12),2 33AC: BC 7,X'066'(,R12) 33B0: LA 0,X'0A0'(,R2) 33B4: LA 9,X'26C'(,R12) 33B8: LH 13,X'266'(,R12) 33BC: BCR R15,R13 33BE: CLI X'26A'(R12),5 33C2: BC 11,X'1BA'(,R12) 33C6: CLI X'26A'(R12),1 33CA: BC 8,X'0E8'(,R12) 33CE: CLI X'26A'(R12),3 33D2: BC 7,X'1DE'(,R12) 33D6: TM X'0AD'(R2),2 33DA: BC 14,X'0FE'(,R12) 33DE: LA 9,X'0004' 33E2: LA 4,X'018'(,R2) 33E6: SR R10,R10 33E8: NI X'01C'(R8),248 33EC: EX 9,X'0E4'(,R12) 33F0: TM X'003'(R1),8 33F4: BC 8,X'0D2'(,R12) 33F8: LH 9,X'0350' 33FC: LR R3,R8 33FE: TM X'01C'(R8),8 3402: BC 1,X'0B2'(,R12) 3406: LA 3,X'002'(,R3) 340A: TM X'000'(R3),2 340E: BC 8,X'0BE'(,R12) 3412: LH 9,X'0352' 3416: TM X'00D'(R8),32 341A: BC 8,X'0CE'(,R12) 341E: TM X'01C'(R8),7 3422: BC 7,X'0D2'(,R12) 3426: MVI X'070'(R9),0 342A: MVI X'038'(R2),8 342E: MVC X'050'(4,R2),X'038'(R2) 3434: LH 11,X'268'(,R12) 3438: BC 15,X'1AC'(,R11) 343C: OI X'01C'(R8),0 3440: NI X'01C'(R8),248 3444: L 4,X'00C'(,R1) 3448: AR R4,R7 344A: ST 4,X'038'(,R2) 344E: LA 1,X'000'(,R1) 3452: BC 15,X'098'(,R12) 3456: L 9,X'038'(,R2) 345A: L 9,X'000'(,R9) 345E: TM X'003'(R1),8 3462: BC 8,X'130'(,R12) 3466: LH 9,X'0350' 346A: LR R3,R8 346C: TM X'01C'(R8),8 3470: BC 1,X'120'(,R12) 3474: LA 3,X'002'(,R3) 3478: TM X'000'(R3),2 347C: BC 8,X'12C'(,R12) 3480: LH 9,X'0352' 3484: LA 9,X'073'(,R9) 3488: CLC X'0AE'(4,R2),X'000'(R9) 348E: BC 8,X'0E8'(,R12) 3492: L 4,X'00C'(,R1) 3496: AR R4,R7 3498: ST 4,X'038'(,R2) 349C: LA 9,X'0001' 34A0: LA 4,X'000'(,R2) 34A4: BC 15,X'08E'(,R12) 34A8: TM X'003'(R1),32 34AC: BC 8,X'164'(,R12) 34B0: NI X'018'(R8),251 34B4: CLI X'001'(R1),2 34B8: BC 2,X'1DE'(,R12) 34BC: LA 9,X'0003' 34C0: LA 4,X'010'(,R2) 34C4: BC 15,X'08E'(,R12) 34C8: LA 9,X'0005' 34CC: CLI X'26A'(R12),4 34D0: BC 8,X'1A4'(,R12) 34D4: LA 9,X'0006' 34D8: BC 15,X'1A4'(,R12) 34DC: LR R9,R0 34DE: MVC X'0A0'(12,R2),X'000'(R9) 34E4: L 9,X'0A4'(,R2) 34E8: S 9,X'054'(,R2) 34EC: ST 9,X'038'(,R2) 34F0: CLI X'26A'(R12),4 34F4: BC 11,X'170'(,R12) 34F8: LA 9,X'0002' 34FC: LR R4,R1 34FE: LA 4,X'000'(,R4) 3502: A 4,X'29C'(,R12) 3506: ST 4,X'008'(,R2) 350A: LA 4,X'008'(,R2) 350E: BC 15,X'08E'(,R12) 3512: TM X'015'(R1),8 3516: BC 8,X'058'(,R12) 351A: CLI X'26A'(R12),6 351E: BC 7,X'214'(,R12) 3522: LA 6,X'0011' 3526: TM X'015'(R1),32 352A: BC 1,X'1DE'(,R12) 352E: CLI X'0BD'(R2),19 3532: BC 7,X'150'(,R12) 3536: NI X'01C'(R8),248 353A: TM X'003'(R1),8 353E: BC 8,X'20C'(,R12) 3542: LH 9,X'0350' 3546: LR R3,R8 3548: TM X'01C'(R8),8 354C: BC 1,X'1FC'(,R12) 3550: LA 3,X'002'(,R3) 3554: TM X'000'(R3),2 3558: BC 8,X'208'(,R12) 355C: LH 9,X'0352' 3560: MVI X'070'(R9),255 3564: LA 0,X'0A0'(,R2) 3568: BC 15,X'36C'(,R11) 356C: LA 6,X'0011' 3570: L 9,X'038'(,R2) 3574: TM X'000'(R9),128 3578: BC 8,X'1DE'(,R12) 357C: CLI X'0BD'(R2),18 3580: BC 8,X'1DE'(,R12) 3584: LA 9,X'0005' 3588: LA 4,X'0040'(R2) 358C: BC 15,X'08E'(,R12) 3590: TM X'003'(R1),8 3594: BC 8,X'596'(,R11) 3598: LH 9,X'0350' 359C: LR R3,R8 359E: TM X'01C'(R8),8 35A2: BC 1,X'252'(,R12) 35A6: LA 3,X'002'(,R3) 35AA: TM X'000'(R3),2 35AE: BC 8,X'25E'(,R12) 35B2: LH 9,X'0352' 35B6: MVI X'070'(R9),255 35BA: BC 15,X'596'(,R11) 35BE: STC 0,X'632'(,R4) 35C2: DC XL14'0000F044004D000000400C00004D' 35D0: HER R4,R0 35D2: SVC R4,R0 35D4: DC XL4'0100004D' 35D8: HER R9,R12 35DA: SVC R4,R0 35DC: DC XL12'0020004F35360C110008004F' 35E8: HER R10,R8 35EA: DC XL2'0C12' 35EC: SVC R0,R0 35EE: DC XL2'004D' 35F0: LCER R13,R14 35F2: DC XL2'0C40' 35F4: SPM R0,R0 35F6: DC XL2'0014' 35F8: LCR R0,R0 35FA: DC XL2'35F8' 35FC: LDPR R0,R0 35FE: DC XL6'000100003600' 3604: LDPR R0,R0 3606: DC XL2'0006' 3608: AR R0,R0 360A: DC XL6'36A500000005' 3610: OR R0,R0 3612: DC XL2'36AC' 3614: STD 0,X'0004' 3618: BCR R0,R0 361A: DC XL2'36AA' 361C: STH 0,X'0006' 3620: OR R0,R0 3622: DC XL2'36B2' 3624: STD 0,X'0004' 3628: AR R0,R0 362A: DC XL2'3628' 362C: STD 0,X'0000' 3630: DC XL8'0000363000000000' 3638: BCR R0,R0 363A: DC XL2'36B0' 363C: STH 0,X'0006' 3640: AI X'6A5'(R3),0 3644: STH 0,X'0005' 3648: DC XL8'0000364800000008' 3650: SPM R0,R0 3652: DC XL2'36B6' 3654: LDPR R0,R0 3656: DC XL2'0018' 3658: BCR R0,R0 365A: DC XL2'3688' 365C: STD 0,X'0006' 3660: LNER R0,R0 3662: DC XL2'3690' 3664: STD 0,X'0005' 3668: SSK R0,R0 366A: DC XL2'3660' 366C: STH 0,X'0000' 3670: DC XL12'000000000000000000000000' 367C: STH 0,X'0000' 3680: LTR R0,R0 3682: DC XL2'3690' 3684: STD 0,X'0008' 3688: DC XL16'00000000000000000000000000000000' 3698: DC XL16'00000000000000000000000000000000' 36A8: DC XL16'00000000000000000000000000000000' 36B8: DC XL16'00000000000000000000000000000000' 36C8: DC XL16'00000000000000000000000000000000' 36D8: DC XL14'0000000000000000000000000000' 36E6: BCR R0,R0 36E8: LCR R0,R0 36EA: DC XL2'36E8' 36EC: LDPR R0,R0 36EE: DC XL6'0001000036F0' 36F4: LDPR R0,R0 36F6: DC XL2'0006' 36F8: AR R0,R0 36FA: DC XL6'379500000005' 3700: OR R0,R0 3702: DC XL2'379C' 3704: STD 0,X'0004' 3708: BCR R0,R0 370A: DC XL2'379A' 370C: STH 0,X'0006' 3710: OR R0,R0 3712: DC XL2'37A2' 3714: STD 0,X'0004' 3718: AR R0,R0 371A: DC XL2'3718' 371C: STD 0,X'0000' 3720: DC XL8'0000372000000000' 3728: BCR R0,R0 372A: DC XL2'37A0' 372C: STH 0,X'0006' 3730: AI X'795'(R3),0 3734: STH 0,X'0005' 3738: DC XL8'0000373800000008' 3740: SPM R0,R0 3742: DC XL2'37A6' 3744: LDPR R0,R0 3746: DC XL2'0018' 3748: BCR R0,R0 374A: DC XL2'3778' 374C: STD 0,X'0006' 3750: LNER R0,R0 3752: DC XL2'3780' 3754: STD 0,X'0005' 3758: SSK R0,R0 375A: DC XL2'3750' 375C: STH 0,X'0000' 3760: DC XL12'000000000000000000000000' 376C: STH 0,X'0000' 3770: LTR R0,R0 3772: DC XL2'3780' 3774: STD 0,X'0008' 3778: DC XL16'00000000000000000000000000000000' 3788: DC XL16'00000000000000000000000000000000' 3798: DC XL16'00000000000000000000000000000000' 37A8: DC XL16'00000000000000000000000000000000' 37B8: DC XL16'00000000000000000000000000000000' 37C8: DC XL14'0000000000000000000000000000' 37D6: MVI X'6D0'(R12),1 37DA: CLI X'006'(R8),74 37DE: BC 8,X'4D4'(,R12) 37E2: TM X'006'(R8),2 37E6: BC 1,X'528'(,R12) 37EA: TM X'007'(R8),255 37EE: BC 7,X'544'(,R12) 37F2: TM X'006'(R8),48 37F6: BC 7,X'238'(,R12) 37FA: TM X'26A'(R12),4 37FE: BC 1,X'4F2'(,R12) 3802: TM X'26A'(R12),2 3806: BC 1,X'4BE'(,R12) 380A: LH 12,X'016'(,R8) 380E: BCR R15,R12 3810: BCR R0,R12 3812: HPR X'600'(R6),102 3816: MVI X'6D0'(R12),32 381A: CLC X'4D0'(3,R12),X'0BE'(R2) 3820: BC 8,X'5A4'(,R12) 3824: BC 15,X'544'(,R12) 3828: SSK R0,R0 382A: STH 0,X'202'(,R9) 382E: DC XL2'C6D0' 3830: OI X'008'(R8),128 3834: OI X'01C'(R8),4 3838: LR R9,R0 383A: MVC X'0A0'(12,R2),X'000'(R9) 3840: LH 6,X'010'(,R8) 3844: OI X'000'(R6),128 3848: BCR R15,R15 384A: MVI X'6D0'(R12),3 384E: TM X'006'(R8),4 3852: BC 1,X'502'(,R12) 3856: HPR X'700'(R7),119 385A: OI X'01C'(R8),1 385E: LR R9,R0 3860: MVC X'0A0'(12,R2),X'000'(R9) 3866: BAL 13,X'6F2'(,R12) 386A: LR R4,R9 386C: BC 0,X'514'(,R12) 3870: BC 0,X'518'(,R12) 3874: LH 11,X'268'(,R12) 3878: MVI X'6D0'(R12),5 387C: BC 15,X'1AC'(,R11) 3880: LR R9,R0 3882: MVC X'0A0'(12,R2),X'000'(R9) 3888: BAL 13,X'6F2'(,R12) 388C: LA 9,X'0002' 3890: LA 4,X'058'(,R2) 3894: MVI X'6D0'(R12),21 3898: BC 15,X'08E'(,R12) 389C: MVI X'6D0'(R12),48 38A0: LA 0,X'0A0'(,R2) 38A4: MVC X'014'(6,R1),X'0BE'(R2) 38AA: LA 9,X'574'(,R12) 38AE: LH 13,X'266'(,R12) 38B2: BCR R15,R13 38B4: TM X'003'(R1),32 38B8: BC 8,X'0E8'(,R12) 38BC: NI X'018'(R8),251 38C0: CLI X'001'(R1),2 38C4: BC 2,X'676'(,R12) 38C8: BC 15,X'0E8'(,R12) 38CC: SSM X'004D',198 38D0: DC XL4'00000040' 38D4: ME 0,X'004D' 38D8: HER R4,R0 38DA: SVC R4,R0 38DC: DC XL4'0008004F' 38E0: LER R11,R4 38E2: SVC R1,R2 38E4: DC XL4'0020004F' 38E8: LER R11,R4 38EA: SVC R1,R1 38EC: DC XL4'0001004D' 38F0: CER R13,R12 38F2: DC XL4'FF000000' 38F6: LPR R4,R13 38F8: AER R1,R2 38FA: SVC R0,R0 38FC: MVI X'6D1'(R12),64 3900: L 3,X'038'(,R2) 3904: LA 5,X'088'(,R2) 3908: CR R3,R5 390A: BC 2,X'5C4'(,R12) 390E: LA 5,X'060'(,R2) 3912: CR R3,R5 3914: BC 4,X'5C4'(,R12) 3918: BC 15,X'544'(,R12) 391C: L 5,X'0000'(R3) 3920: LA 5,X'0000'(R5) 3924: MVC X'67E'(2,R12),X'006'(R3) 392A: A 5,X'67C'(,R12) 392E: ST 5,X'680'(,R12) 3932: MVI X'6D1'(R12),65 3936: L 3,X'0000'(R3) 393A: LA 3,X'0000'(R3) 393E: MVC X'67E'(2,R12),X'0D0'(R2) 3944: S 3,X'67C'(,R12) 3948: MVC X'67D'(3,R12),X'0CD'(R2) 394E: A 3,X'67C'(,R12) 3952: LA 5,X'0D2'(,R2) 3956: LA 13,X'0003' 395A: C 3,X'680'(,R12) 395E: MVI X'6D1'(R12),66 3962: BC 11,X'620'(,R12) 3966: XC X'000'(1,R3),X'000'(R5) 396C: LA 3,X'0001'(R3) 3970: LA 5,X'0001'(R5) 3974: BCT 13,X'602'(,R12) 3978: SR R6,R6 397A: L 3,X'038'(,R2) 397E: TM X'004'(R3),64 3982: BC 8,X'676'(,R12) 3986: BAL 13,X'704'(,R12) 398A: MVC X'098'(5,R2),X'0C6'(R2) 3990: LA 5,X'0078'(R2) 3994: L 3,X'0A4'(,R2) 3998: LA 3,X'0000'(R3) 399C: TM X'000'(R3),16 39A0: BC 1,X'662'(,R12) 39A4: MVC X'000'(8,R5),X'088'(R2) 39AA: TM X'000'(R3),128 39AE: BC 8,X'65E'(,R12) 39B2: OI X'000'(R5),128 39B6: LA 5,X'0008'(R5) 39BA: BAL 13,X'728'(,R12) 39BE: LA 9,X'0001' 39C2: LA 4,X'0060'(R2) 39C6: MVI X'6D1'(R12),80 39CA: BC 15,X'08E'(,R12) 39CE: BC 15,X'1DE'(,R12) 39D2: DC XL10'00000000000000000000' 39DC: BAL 13,X'704'(,R12) 39E0: MVC X'098'(4,R2),X'092'(R2) 39E6: MVI X'09C'(R2),1 39EA: BAL 13,X'756'(,R12) 39EE: TM X'004'(R3),64 39F2: BC 8,X'6A6'(,R12) 39F6: LA 5,X'0080'(R2) 39FA: BAL 13,X'728'(,R12) 39FE: LA 9,X'0001' 3A02: LA 4,X'0060'(R2) 3A06: MVI X'6D1'(R12),96 3A0A: NI X'018'(R8),251 3A0E: BC 15,X'08E'(,R12) 3A12: LA 3,X'0D6'(,R2) 3A16: LH 5,X'012'(,R8) 3A1A: STH 3,X'016'(,R5) 3A1E: MVC X'0D6'(24,R2),X'0BE'(R2) 3A24: BC 15,X'0E8'(,R12) 3A28: DC XL2'0000' 3A2A: BCR R0,R0 3A2C: LH 9,X'0350' 3A30: TM X'002'(R8),2 3A34: BC 8,X'6E4'(,R12) 3A38: LH 9,X'0352' 3A3C: TM X'003'(R1),8 3A40: BC 1,X'6F0'(,R12) 3A44: LA 13,X'004'(,R13) 3A48: BCR R15,R13 3A4A: L 9,X'0A4'(,R2) 3A4E: LA 9,X'0000'(R9) 3A52: S 9,X'054'(,R2) 3A56: ST 9,X'038'(,R2) 3A5A: BCR R15,R13 3A5C: XC X'090'(16,R2),X'090'(R2) 3A62: MVC X'093'(1,R2),X'0C3'(R2) 3A68: TM X'0C4'(R2),64 3A6C: BC 8,X'71C'(,R12) 3A70: MVI X'092'(R2),1 3A74: MVC X'095'(1,R2),X'0C4'(R2) 3A7A: NI X'095'(R2),31 3A7E: BCR R15,R13 3A80: L 3,X'0A4'(,R2) 3A84: LA 3,X'0000'(R3) 3A88: CLI X'000'(R3),8 3A8C: BC 7,X'740'(,R12) 3A90: MVC X'000'(8,R5),X'000'(R3) 3A96: BCR R15,R13 3A98: XC X'000'(8,R5),X'000'(R5) 3A9E: MVC X'000'(4,R5),X'0A4'(R2) 3AA4: MVI X'000'(R5),8 3AA8: MVI X'004'(R5),64 3AAC: BCR R15,R13 3AAE: L 3,X'038'(,R2) 3AB2: L 5,X'000'(,R3) 3AB6: LA 5,X'0000'(R5) 3ABA: AH 5,X'006'(,R3) 3ABE: SH 5,X'00AA'(R2) 3AC2: ST 5,X'0078'(R2) 3AC6: MVC X'078'(1,R2),X'0C1'(R2) 3ACC: MVC X'07E'(2,R2),X'0AA'(R2) 3AD2: MVC X'07C'(2,R2),X'004'(R3) 3AD8: BCR R15,R13 3ADA: DC XL16'00000000000000000000000000000000' 3AEA: DC XL6'000000000000' 3AF0: MVI X'1DF'(R12),0 3AF4: TM X'003'(R1),16 3AF8: BC 1,X'01C'(,R12) 3AFC: TM X'01C'(R8),16 3B00: BC 1,X'01C'(,R12) 3B04: TM X'01C'(R8),7 3B08: BC 7,X'182'(,R12) 3B0C: SLL R10,X'0009' 3B10: TM X'003'(R1),8 3B14: BC 8,X'158'(,R12) 3B18: LH 6,X'0350' 3B1C: TM X'070'(R6),255 3B20: BC 8,X'0A8'(,R12) 3B24: BCR R4,R15 3B26: STM R1,R3,X'078'(,R6) 3B2A: STH 8,X'084'(,R6) 3B2E: TM X'07C'(R6),9 3B32: BC 1,X'06C'(,R12) 3B36: TM X'07C'(R6),3 3B3A: BC 4,X'054'(,R12) 3B3E: SR R10,R10 3B40: MVI X'083'(R6),1 3B44: MVC X'066'(2,R6),X'082'(R6) 3B4A: NI X'066'(R6),31 3B4E: SRL R3,X'0010' 3B52: SR R2,R2 3B54: D 2,X'064'(,R6) 3B58: STH 3,X'080'(,R6) 3B5C: NI X'07D'(R6),15 3B60: STH 4,X'076'(,R6) 3B64: SRL R5,X'0008' 3B68: STC 5,X'077'(,R6) 3B6C: SRL R5,X'0008' 3B70: STC 5,X'074'(,R6) 3B74: SRL R5,X'0008' 3B78: STC 5,X'073'(,R6) 3B7C: NI X'073'(R6),127 3B80: TM X'00C'(R8),16 3B84: BC 1,X'0A8'(,R12) 3B88: LH 9,X'012'(,R8) 3B8C: MVC X'012'(2,R9),X'073'(R6) 3B92: TR X'07C'(1,R6),X'1FA'(R12) 3B98: LM R1,R3,X'078'(,R6) 3B9C: LH 8,X'084'(,R6) 3BA0: L 14,X'004'(,R1) 3BA4: TM X'00C'(R8),16 3BA8: BC 8,X'0E4'(,R12) 3BAC: SRL R3,X'0010' 3BB0: STM R2,R3,X'030'(,R6) 3BB4: OI X'034'(R6),32 3BB8: MVI X'070'(R6),1 3BBC: LH 4,X'012'(,R8) 3BC0: MVC X'028'(1,R6),X'013'(R4) 3BC6: MVC X'02C'(4,R6),X'00C'(R6) 3BCC: LA 6,X'028'(,R6) 3BD0: BC 15,X'150'(,R12) 3BD4: LA 0,X'001E' 3BD8: CLI X'083'(R6),0 3BDC: BC 8,X'2CA'(,R11) 3BE0: CLI X'07C'(R6),29 3BE4: BC 8,X'0FC'(,R12) 3BE8: MVI X'070'(R6),1 3BEC: MVI X'004'(R6),0 3BF0: CLI X'07C'(R6),8 3BF4: BC 8,X'150'(,R12) 3BF8: MVI X'004'(R6),64 3BFC: TM X'07C'(R6),96 3C00: BC 8,X'188'(,R12) 3C04: L 4,X'20C'(,R12) 3C08: AR R4,R1 3C0A: ST 4,X'050'(,R6) 3C0E: MVI X'077'(R6),0 3C12: TM X'082'(R6),64 3C16: BC 8,X'12E'(,R12) 3C1A: OI X'050'(R6),128 3C1E: STM R2,R3,X'058'(,R6) 3C22: NC X'05C'(4,R6),X'04C'(R6) 3C28: MVI X'05C'(R6),64 3C2C: SRL R3,X'0010' 3C30: AH 2,X'05E'(,R6) 3C34: STM R2,R3,X'068'(,R6) 3C38: MVI X'068'(R6),6 3C3C: LA 6,X'038'(,R6) 3C40: AR R6,R10 3C42: ST 6,X'00A0' 3C46: BCR R15,R13 3C48: LR R0,R13 3C4A: AR R4,R10 3C4C: LH 12,X'1F8'(,R12) 3C50: BALR R13,R12 3C52: LH 12,X'01E'(,R13) 3C56: LR R13,R0 3C58: TM X'00C'(R8),16 3C5C: BC 8,X'182'(,R12) 3C60: LH 6,X'0350' 3C64: ST 4,X'030'(,R6) 3C68: MVI X'030'(R6),8 3C6C: BC 15,X'0CC'(,R12) 3C70: AER R15,R0 3C72: ST 4,X'00A0' 3C76: BCR R15,R13 3C78: LA 4,X'0004' 3C7C: CLI X'083'(R6),4 3C80: BC 2,X'198'(,R12) 3C84: IC 4,X'083'(,R6) 3C88: TM X'082'(R6),128 3C8C: BC 8,X'1A6'(,R12) 3C90: MVI X'1DF'(R12),32 3C94: SR R3,R3 3C96: CLI X'07C'(R6),14 3C9A: BC 8,X'1B2'(,R12) 3C9E: LA 4,X'0001' 3CA2: LA 5,X'018'(,R6) 3CA6: SRL R3,X'0010' 3CAA: CLI X'07C'(R6),29 3CAE: BC 7,X'1D6'(,R12) 3CB2: S 2,X'014'(,R6) 3CB6: A 3,X'014'(,R6) 3CBA: CLI X'070'(R6),0 3CBE: BC 8,X'1D6'(,R12) 3CC2: AI X'076'(R6),255 3CC6: STC 4,X'070'(,R6) 3CCA: STM R2,R3,X'000'(,R5) 3CCE: OI X'004'(R5),0 3CD2: BCTR R4,R0 3CD4: LTR R4,R4 3CD6: BC 8,X'150'(,R12) 3CDA: OI X'004'(R5),64 3CDE: AR R2,R3 3CE0: LA 5,X'008'(,R5) 3CE4: BC 15,X'1DA'(,R12) 3CE8: SUR R8,R0 3CEA: DC XL8'001D0E00000D0000' 3CF2: SSK R2,R9 3CF4: DC XL8'0000006900000000' 3CFC: LTR R0,R0 3CFE: DC XL2'0014' 3D00: BCR R0,R0 3D02: DER R7,R1 3D04: STH 0,X'0006' 3D08: LNER R0,R0 3D0A: DER R7,R3 3D0C: STD 0,X'0005' 3D10: SSK R0,R0 3D12: DER R0,R8 3D14: DC XL6'000000080000' 3D1A: DER R1,R8 3D1C: DC XL6'000000000000' 3D22: DER R2,R0 3D24: DC XL6'000000000000' 3D2A: DER R2,R8 3D2C: DC XL6'000000000000' 3D32: DER R3,R0 3D34: DC XL4'00000000' 3D38: BCR R0,R0 3D3A: DER R7,R1 3D3C: STH 0,X'0006' 3D40: LNER R0,R0 3D42: DER R7,R3 3D44: STD 0,X'0005' 3D48: SSK R0,R0 3D4A: DER R4,R0 3D4C: DC XL6'000001FF0000' 3D52: DER R5,R0 3D54: STD 0,X'0005' 3D58: DC XL2'0000' 3D5A: DER R5,R8 3D5C: DC XL4'00000000' 3D60: SSK R0,R0 3D62: DER R5,R0 3D64: DC XL6'000000000000' 3D6A: DER R6,R8 3D6C: DC XL16'00000000FF0000000000000000000000' 3D7C: DC XL12'000000000000000000000000' 3D88: STC 10,X'1EB'(,R12) 3D8C: STC 6,X'1ED'(,R12) 3D90: L 4,X'00C'(,R1) 3D94: AR R4,R7 3D96: TM X'003'(R1),16 3D9A: BC 1,X'15E'(,R12) 3D9E: TM X'01C'(R8),7 3DA2: BC 7,X'0B2'(,R12) 3DA6: TM X'003'(R1),8 3DAA: BC 8,X'032'(,R12) 3DAE: LH 9,X'0350' 3DB2: C 1,X'078'(,R9) 3DB6: BC 7,X'0A6'(,R12) 3DBA: TM X'006'(R8),114 3DBE: BC 7,X'0B2'(,R12) 3DC2: TM X'007'(R8),255 3DC6: BC 7,X'0B2'(,R12) 3DCA: TM X'003'(R1),8 3DCE: BC 1,X'0C6'(,R12) 3DD2: STH 0,X'1E8'(,R12) 3DD6: LR R0,R12 3DD8: LH 12,X'1E0'(,R12) 3DDC: BALR R13,R12 3DDE: LR R12,R0 3DE0: LH 0,X'1E8'(,R12) 3DE4: TM X'003'(R1),16 3DE8: BC 8,X'0A2'(,R12) 3DEC: BC 0,X'0A2'(,R12) 3DF0: MVI X'065'(R12),240 3DF4: TM X'01C'(R1),3 3DF8: BC 1,X'094'(,R12) 3DFC: TM X'01C'(R1),1 3E00: BC 1,X'08C'(,R12) 3E04: TM X'006'(R8),66 3E08: BC 8,X'0A2'(,R12) 3E0C: TM X'01C'(R1),2 3E10: BC 1,X'094'(,R12) 3E14: LA 4,X'1D0'(,R12) 3E18: BC 15,X'09A'(,R12) 3E1C: L 4,X'014'(,R1) 3E20: AR R4,R7 3E22: TM X'01C'(R8),2 3E26: BC 15,X'04A'(,R12) 3E2A: MVI X'065'(R12),0 3E2E: LH 10,X'1EA'(,R12) 3E32: LH 6,X'1EC'(,R12) 3E36: BC 15,X'36C'(,R11) 3E3A: LH 9,X'1E2'(,R12) 3E3E: TM X'00C'(R8),16 3E42: BC 8,X'0C2'(,R12) 3E46: LH 9,X'1E4'(,R12) 3E4A: LR R12,R9 3E4C: BCR R15,R12 3E4E: LH 6,X'0350' 3E52: LM R2,R3,X'07C'(,R6) 3E56: TM X'00C'(R8),16 3E5A: BC 8,X'0F4'(,R12) 3E5E: SR R9,R9 3E60: IC 9,X'083'(,R6) 3E64: BCTR R9,R0 3E66: LTR R9,R9 3E68: BC 8,X'104'(,R12) 3E6C: AH 2,X'080'(,R6) 3E70: ST 2,X'07C'(,R6) 3E74: STC 9,X'083'(,R6) 3E78: BC 15,X'13A'(,R12) 3E7C: CLI X'07C'(R6),8 3E80: BC 8,X'104'(,R12) 3E84: TM X'07C'(R6),96 3E88: BC 8,X'10E'(,R12) 3E8C: MVI X'070'(R6),255 3E90: SR R6,R6 3E92: BC 15,X'0A6'(,R12) 3E96: SR R9,R9 3E98: IC 9,X'070'(,R6) 3E9C: SR R10,R10 3E9E: IC 10,X'083'(,R6) 3EA2: EX 9,X'1DC'(,R12) 3EA6: AH 2,X'080'(,R6) 3EAA: BCTR R10,R0 3EAC: BCT 9,X'11E'(,R12) 3EB0: STC 9,X'070'(,R6) 3EB4: ST 2,X'07C'(,R6) 3EB8: STC 10,X'083'(,R6) 3EBC: LTR R10,R10 3EBE: BC 8,X'104'(,R12) 3EC2: TM X'003'(R1),16 3EC6: BC 14,X'152'(,R12) 3ECA: LA 0,X'0014' 3ECE: MVI X'004'(R1),0 3ED2: DIAG X'0000',14 3ED6: STC 0,X'004'(,R1) 3EDA: IC 10,X'1EA'(,R12) 3EDE: LH 11,X'1E6'(,R12) 3EE2: BC 15,X'1AC'(,R11) 3EE6: TM X'01C'(R8),2 3EEA: BC 8,X'172'(,R12) 3EEE: NI X'01C'(R8),253 3EF2: TM X'01C'(R8),2 3EF6: BC 15,X'04A'(,R12) 3EFA: TM X'006'(R8),66 3EFE: BC 8,X'17E'(,R12) 3F02: OI X'01C'(R8),2 3F06: TM X'01C'(R1),3 3F0A: BC 14,X'194'(,R12) 3F0E: L 4,X'014'(,R1) 3F12: AR R4,R7 3F14: OI X'01C'(R8),2 3F18: BC 15,X'13A'(,R12) 3F1C: TM X'01C'(R1),1 3F20: BC 1,X'1AC'(,R12) 3F24: TM X'006'(R8),66 3F28: BC 8,X'04A'(,R12) 3F2C: TM X'01C'(R1),2 3F30: BC 1,X'186'(,R12) 3F34: ST 7,X'1D8'(,R12) 3F38: OI X'01C'(R8),2 3F3C: L 7,X'1CC'(,R12) 3F40: AR R7,R1 3F42: ST 7,X'1D0'(,R12) 3F46: LA 4,X'1D0'(,R12) 3F4A: L 7,X'1D8'(,R12) 3F4E: BC 15,X'13A'(,R12) 3F52: BCR R0,R0 3F54: SPM R0,R0 3F56: DC XL4'00140000' 3F5A: SUR R5,R8 3F5C: LDPR R0,R0 3F5E: DC XL6'000600000000' 3F64: AI X'076'(R6),0 3F68: SUR R8,R0 3F6A: LCER R5,R8 3F6C: LNER R13,R0 3F6E: BCT 3,X'0000'(R2) 3F72: DC XL14'0000000000010008000000000000' 3F80: STH 8,X'174'(,R12) 3F84: STH 10,X'176'(,R12) 3F88: STH 13,X'178'(,R12) 3F8C: LA 2,X'1A8'(,R12) 3F90: BC 7,X'018'(,R12) 3F94: LA 2,X'17A'(,R12) 3F98: MVI X'091'(R12),128 3F9C: MVI X'10F'(R12),128 3FA0: XC X'170'(4,R12),X'170'(R12) 3FA6: TM X'00C'(R8),16 3FAA: BC 8,X'032'(,R12) 3FAE: MVI X'091'(R12),240 3FB2: SR R6,R6 3FB4: SR R9,R9 3FB6: LR R3,R4 3FB8: L 5,X'0000'(R3) 3FBC: LA 13,X'068'(,R12) 3FC0: EX 0,X'002A'(R2) 3FC4: LA 5,X'0000'(R5) 3FC8: TM X'005'(R3),128 3FCC: EX 0,X'0000'(R2) 3FD0: EX 0,X'0004'(R2) 3FD4: MVC X'05F'(1,R12),X'000'(R3) 3FDA: ST 5,X'0000'(R3) 3FDE: MVI X'000'(R3),0 3FE2: EX 0,X'0022'(R2) 3FE6: BCR R15,R13 3FE8: CLI X'000'(R3),8 3FEC: BC 8,X'09E'(,R12) 3FF0: TM X'004'(R3),64 3FF4: BC 1,X'0E8'(,R12) 3FF8: LTR R6,R6 3FFA: BC 8,X'0EE'(,R12) 3FFE: TM X'005'(R6),64 4002: EX 0,X'0006'(R2) 4006: EX 0,X'000A'(R2) 400A: SR R6,R6 400C: TM X'000'(R10),96 4010: BC 8,X'10A'(,R12) 4014: LR R9,R3 4016: LA 3,X'0008'(R3) 401A: BC 15,X'038'(,R12) 401E: TM X'005'(R3),64 4022: EX 0,X'000E'(R2) 4026: CLR R3,R6 4028: BC 8,X'086'(,R12) 402C: CLR R3,R8 402E: BC 8,X'146'(,R12) 4032: LR R8,R6 4034: LR R6,R3 4036: LR R3,R5 4038: BC 15,X'038'(,R12) 403C: LTR R6,R6 403E: BC 7,X'100'(,R12) 4042: TM X'005'(R3),32 4046: EX 0,X'0012'(R2) 404A: LTR R9,R9 404C: BC 8,X'14E'(,R12) 4050: L 5,X'0000'(R9) 4054: LR R3,R9 4056: LA 13,X'0DE'(,R12) 405A: EX 0,X'0026'(R2) 405E: EX 0,X'0016'(R2) 4062: SR R9,R9 4064: BC 15,X'036'(,R12) 4068: LR R10,R3 406A: BC 15,X'096'(,R12) 406E: LTR R9,R9 4070: BC 8,X'14E'(,R12) 4074: TM X'005'(R9),32 4078: EX 0,X'001A'(R2) 407C: BC 15,X'0D0'(,R12) 4080: LR R10,R6 4082: S 10,X'16C'(,R12) 4086: BC 15,X'086'(,R12) 408A: TM X'00C'(R8),16 408E: BC 8,X'132'(,R12) 4092: TM X'003'(R1),16 4096: BC 1,X'132'(,R12) 409A: TM X'000'(R10),7 409E: BC 1,X'12A'(,R12) 40A2: TM X'000'(R10),12 40A6: BC 4,X'132'(,R12) 40AA: ST 10,X'170'(,R12) 40AE: MVI X'10F'(R12),240 40B2: L 5,X'0000'(R3) 40B6: LA 13,X'13E'(,R12) 40BA: EX 0,X'0026'(R2) 40BE: EX 0,X'001E'(R2) 40C2: BC 15,X'036'(,R12) 40C6: LR R6,R8 40C8: LR R3,R8 40CA: BC 15,X'100'(,R12) 40CE: LH 8,X'174'(,R12) 40D2: LH 10,X'176'(,R12) 40D6: LH 13,X'178'(,R12) 40DA: L 12,X'170'(,R12) 40DE: BCR R15,R13 40E0: CLI X'000'(R3),8 40E4: BCR R8,R13 40E6: BC 15,X'044'(,R12) 40EA: DC XL16'00000000000800000000000000000000' 40FA: BC 8,X'068'(,R12) 40FE: SR R5,R7 4100: BC 8,X'0EE'(,R12) 4104: NI X'005'(R6),191 4108: BC 8,X'0BC'(,R12) 410C: BC 1,X'08C'(,R12) 4110: NI X'005'(R9),223 4114: BC 8,X'036'(,R12) 4118: NI X'005'(R3),223 411C: NI X'005'(R3),127 4120: BC 15,X'044'(,R12) 4124: BC 15,X'160'(,R12) 4128: BC 1,X'068'(,R12) 412C: AR R5,R7 412E: BC 1,X'0EE'(,R12) 4132: OI X'005'(R6),64 4136: BC 1,X'0BC'(,R12) 413A: BC 8,X'08C'(,R12) 413E: OI X'005'(R9),32 4142: BC 1,X'036'(,R12) 4146: OI X'005'(R3),32 414A: OI X'005'(R3),128 414E: BC 15,X'0000' 4152: BC 15,X'044'(,R12) 4156: DC XL2'0000' * FIND DEVICE CONTROL TABLE FOR CHANNEL & DEVICE # IN R2 USING *,R12 4158: LM R7,R8,X'02C8' 415C: LA 9,X'004'(,R13) 4160: LH 6,X'002'(,R8) 4164: TM X'01C'(R8),8 4168: BC 8,X'018'(,R12) 416C: LH 6,X'000'(,R8) 4170: EX 0,X'000'(,R13) 4174: BCR R9,R9 4176: LA 8,X'020'(,R8) 417A: BCT 7,X'008'(,R12) 417E: LTR R9,R9 4180: BCR R15,R9 4182: DC XL6'000000000000' * COPY CURRENT IOSTIW TO X'41E8' AND UPDATE IOSTIW TABLE POINTERS USING *,R12 4188: XC X'060'(12,R12),X'060'(R12) CLEAR IOSTIW BUFFER 418E: CLI X'001B',0 ANY IOST ERRORS? 4192: BC 8,X'014'(,R12) NO 4196: LH 12,X'04C'(,R12) 419A: BALR R13,R12 419C: LM R1,R4,X'050'(,R12) 41A0: LR R0,R1 * R2 POINTS TO NEXT IOSTIW * R3 POINTS TO START OF IOSTIW TABLE * R4 POINTS TO END OF IOSTIW TABLE 41A2: TM X'000'(R2),128 IOSTIW EMPTY? 41A6: BCR R7,R13 YES 41A8: MVC X'000'(4,R1),X'000'(R2) 41AE: OI X'000'(R2),128 RESET IOSTIW IN USE FLAG 41B2: LA 2,X'0004'(R2) BUMP TO NEXT IOSTIW 41B6: CLR R2,R4 END OF TABLE 41B8: BC 7,X'036'(,R12) NO 41BC: LR R2,R3 YES, WRAP TO START OF TABLE 41BE: ST 2,X'054'(,R12) 41C2: TM X'000'(R1),64 IOSTIW CONTINUED? 41C6: BCR R8,R13 NO 41C8: NI X'000'(R1),191 RESET CONTINUED BIT 41CC: LA 1,X'004'(,R1) BUMP TO NEXT BUFFER ENTRY 41D0: BC 15,X'01A'(,R12) LOOP -> 41A2 41D4: LA 15,X'0700'(R8) 41D8: DC XL2'0000' 41DA: LA 14,X'0000'(R8) 41DE: CLR R8,R12 41E0: DC XL2'0000' 41E2: CLR R8,R12 41E4: DC XL2'0000' 41E6: OR R5,R12 * IOSTIW BUFFER 41E8: DC XL16'00000000000000000000000000000000' 41F8: HPR X'0007',7 41FC: BC 15,X'000'(,R12) 4200: AI X'000'(R1),1 4204: MVI X'131'(R13),0 4208: TM X'003'(R1),2 420C: BC 1,X'014'(,R13) 4210: OI X'018'(R8),4 4214: MVI X'004'(R1),0 4218: LA 4,X'0014' 421C: LR R5,R1 421E: DIAG X'000'(R4),14 4222: STC 4,X'004'(,R1) 4226: L 4,X'00C'(,R1) 422A: AR R4,R7 422C: SR R6,R6 422E: TM X'003'(R1),8 4232: BC 8,X'042'(,R13) 4236: TM X'002'(R8),4 423A: BC 8,X'042'(,R13) 423E: LH 6,X'0350' 4242: STH 6,X'188'(,R13) 4246: SR R6,R6 4248: IC 6,X'007'(,R9) 424C: TM X'003'(R1),128 4250: BC 8,X'05C'(,R13) 4254: TM X'003'(R1),4 4258: BC 8,X'0B0'(,R13) 425C: LH 5,X'004'(,R9) 4260: MVC X'18A'(3,R13),X'000'(R9) 4266: TM X'007'(R8),255 426A: BC 7,X'092'(,R13) 426E: NC X'014'(3,R1),X'014'(R1) 4274: BC 8,X'092'(,R13) 4278: NC X'18A'(3,R13),X'014'(R1) 427E: BC 7,X'08A'(,R13) 4282: LA 9,X'008'(,R9) 4286: BC 15,X'048'(,R13) 428A: CLC X'001'(1,R1),X'006'(R9) 4290: BCR R13,R5 4292: LH 5,X'188'(,R13) 4296: MVC X'008'(1,R8),X'003'(R9) 429C: TM X'003'(R1),4 42A0: BC 8,X'0C6'(,R13) 42A4: TM X'003'(R1),128 42A8: BC 8,X'0C2'(,R13) 42AC: NI X'018'(R8),251 42B0: LH 5,X'188'(,R13) 42B4: LTR R5,R5 42B6: BC 8,X'36C'(,R11) 42BA: MVI X'070'(R5),255 42BE: BC 15,X'36C'(,R11) 42C2: NI X'008'(R8),252 42C6: CH 8,X'02A8' 42CA: BC 7,X'0EA'(,R13) 42CE: TM X'034C',64 42D2: BC 8,X'0DE'(,R13) 42D6: MVI X'131'(R13),128 42DA: BC 15,X'0E4'(,R13) 42DE: MVC X'034C'(4),X'008'(R8) 42E4: XC X'008'(4,R8),X'008'(R8) 42EA: LTR R5,R5 42EC: BC 8,X'0F4'(,R13) 42F0: MVI X'070'(R5),255 42F4: LH 12,X'031C' 42F8: BALR R13,R12 42FA: BALR R12,R0 42FC: OI X'02F4',64 4300: L 9,X'02D0' 4304: NI X'005'(R9),247 4308: BALR R12,R0 430A: STH 10,X'07C'(,R12) 430E: TM X'002'(R8),4 4312: BC 8,X'020'(,R12) 4316: TM X'003'(R1),8 431A: BC 1,X'020'(,R12) 431E: L 4,X'00C'(,R1) 4322: AR R4,R7 4324: LH 12,X'07A'(,R12) 4328: BALR R13,R12 432A: BALR R12,R0 432C: LH 10,X'05A'(,R12) 4330: TM X'005'(R12),0 4334: BC 1,X'00E'(,R12) 4338: OR R12,R12 433A: LH 12,X'02EA' 433E: BALR R13,R12 4340: BALR R12,R0 4342: STH 8,X'048'(,R12) 4346: MVC X'00F'(1,R12),X'002'(R8) 434C: LH 8,X'02A8' 4350: CLI X'002'(R8),0 4354: BC 7,X'036'(,R12) 4358: NC X'008'(4,R8),X'008'(R8) 435E: BCR R7,R15 4360: LH 13,X'010'(,R8) 4364: L 13,X'000'(,R13) 4368: CLC X'02D1'(3),X'005'(R13) 436E: BC 8,X'2B2'(,R11) 4372: CH 8,X'048'(,R12) 4376: BCR R8,R15 4378: LH 8,X'048'(,R12) 437C: LH 11,X'038C' 4380: BC 15,X'1A2'(,R11) 4384: SUR R8,R0 4386: DC XL10'00000000000000000000' 4390: LH 6,X'010'(,R8) 4394: LH 10,X'288'(,R12) 4398: IC 10,X'000'(,R14) 439C: SRL R10,X'0002' 43A0: LA 1,X'000'(,R1) 43A4: BC 4,X'0E6'(,R12) 43A8: BC 8,X'1AA'(,R12) 43AC: MVC X'0C1'(1,R12),X'000'(R6) 43B2: AR R6,R10 43B4: LR R9,R6 43B6: SH 9,X'292'(,R12) 43BA: MVI X'089'(R12),128 43BE: MVI X'0A9'(R12),240 43C2: LR R2,R9 43C4: MVI X'008'(R9),0 43C8: L 9,X'008'(,R9) 43CC: CR R1,R9 43CE: BC 8,X'0BC'(,R12) 43D2: XC X'008'(4,R1),X'008'(R1) 43D8: LTR R9,R9 43DA: BC 13,X'092'(,R12) 43DE: L 4,X'004'(,R9) 43E2: CLC X'008'(1,R14),X'008'(R4) 43E8: BC 11,X'0D6'(,R12) 43EC: L 5,X'010'(,R9) 43F0: SR R3,R3 43F2: IC 3,X'021'(,R4) 43F6: TM X'00E'(R4),1 43FA: BC 8,X'072'(,R12) 43FE: IC 3,X'08D'(,R4) 4402: SRL R3,X'0004' 4406: SLL R3,X'0002' 440A: L 3,X'00B0'(R3) 440E: LH 5,X'000'(R5,R3) 4412: CLC X'009'(3,R5),X'009'(R2) 4418: BC 8,X'0C6'(,R12) 441C: MVC X'009'(3,R1),X'009'(R2) 4422: ST 1,X'008'(,R2) 4426: MVI X'004'(R1),0 442A: LA 0,X'0014' 442E: DIAG X'0000',14 4432: STC 0,X'004'(,R1) 4436: LR R1,R2 4438: BC 15,X'0BC'(,R12) 443C: MVI X'004'(R1),0 4440: LA 0,X'0014' 4444: DIAG X'0000',14 4448: STC 0,X'004'(,R1) 444C: LH 6,X'010'(,R8) 4450: OI X'000'(R6),0 4454: BCR R15,R13 4456: MVI X'089'(R12),0 445A: TM X'008'(R5),112 445E: BC 1,X'08C'(,R12) 4462: BC 15,X'0DE'(,R12) 4466: TM X'008'(R8),112 446A: BC 1,X'05C'(,R12) 446E: MVI X'0A9'(R12),0 4472: BC 15,X'032'(,R12) 4476: AR R6,R10 4478: L 9,X'0000'(R6) 447C: LA 9,X'000'(,R9) 4480: CLR R9,R1 4482: BC 7,X'0FC'(,R12) 4486: MVC X'001'(3,R6),X'009'(R9) 448C: C 0,X'288'(,R12) 4490: BCR R4,R13 4492: LR R9,R0 4494: LM R9,R10,X'004'(,R9) 4498: TM X'002'(R8),4 449C: BC 8,X'11A'(,R12) 44A0: TM X'003'(R1),8 44A4: BC 1,X'11A'(,R12) 44A8: SR R9,R7 44AA: CH 8,X'02A8' 44AE: BC 7,X'12A'(,R12) 44B2: TM X'034C',64 44B6: BC 1,X'132'(,R12) 44BA: TM X'008'(R8),64 44BE: BC 8,X'168'(,R12) 44C2: SLL R10,X'0012' 44C6: OR R10,R9 44C8: LR R9,R14 44CA: STM R9,R10,X'004'(,R1) 44CE: MVI X'004'(R1),0 44D2: LA 2,X'0014' 44D6: LR R3,R1 44D8: DIAG X'000'(R2),14 44DC: STC 2,X'004'(,R1) 44E0: TM X'018'(R8),12 44E4: BCR R14,R13 44E6: L 2,X'02D0' 44EA: NI X'005'(R2),247 44EE: OI X'02F5',64 44F2: NI X'008'(R8),127 44F6: BCR R15,R13 44F8: TM X'002'(R8),4 44FC: BC 8,X'19C'(,R12) 4500: TM X'003'(R1),8 4504: BC 1,X'19C'(,R12) 4508: L 4,X'00C'(,R1) 450C: AR R4,R7 450E: STH 13,X'28C'(,R12) 4512: SR R13,R13 4514: LH 12,X'28E'(,R12) 4518: BALR R13,R12 451A: BALR R12,R0 451C: LH 13,X'100'(,R12) 4520: LR R9,R0 4522: LM R9,R10,X'004'(,R9) 4526: SR R9,R7 4528: LH 12,X'104'(,R12) 452C: TM X'018'(R8),12 4530: BC 1,X'132'(,R12) 4534: STM R9,R10,X'004'(,R1) 4538: BCR R15,R13 453A: TM X'000'(R6),128 453E: BCR R1,R15 4540: LA 3,X'020'(,R6) 4544: L 5,X'000'(,R3) 4548: LA 6,X'004'(,R5) 454C: LA 5,X'0009' 4550: MVI X'223'(R12),0 4554: SR R9,R9 4556: CLR R6,R3 4558: BC 4,X'1D0'(,R12) 455C: LH 6,X'010'(,R8) 4560: BCT 5,X'254'(,R12) 4564: LTR R1,R9 4566: BCR R8,R15 4568: MVI X'223'(R12),240 456C: OI X'02B6',32 4570: NI X'02B6',191 4574: LA 0,X'0014' 4578: DIAG X'0000',14 457C: BC 8,X'208'(,R12) 4580: XC X'000'(4,R6),X'000'(R6) 4586: SH 6,X'010'(,R8) 458A: BC 8,X'202'(,R12) 458E: L 1,X'0B0'(,R6) 4592: LH 11,X'296'(,R12) 4596: BCR R15,R11 4598: NI X'02B6',223 459C: L 14,X'004'(,R1) 45A0: L 8,X'010'(,R1) 45A4: LR R0,R12 45A6: LH 12,X'031C' 45AA: BALR R13,R12 45AC: LR R12,R0 45AE: LH 8,X'000'(R8,R7) 45B2: BC 0,X'266'(,R12) 45B6: OC X'008'(4,R8),X'008'(R8) 45BC: BC 7,X'25E'(,R12) 45C0: LTR R9,R9 45C2: BC 7,X'23C'(,R12) 45C6: ST 6,X'000'(,R3) 45CA: LR R9,R1 45CC: L 4,X'004'(,R9) 45D0: CLC X'008'(1,R4),X'008'(R14) 45D6: BC 13,X'25E'(,R12) 45DA: LR R9,R1 45DC: ST 6,X'000'(,R3) 45E0: BC 15,X'25E'(,R12) 45E4: L 1,X'000'(,R6) 45E8: LTR R1,R1 45EA: BC 2,X'1DC'(,R12) 45EE: LA 6,X'004'(,R6) 45F2: BC 15,X'1C6'(,R12) 45F6: NI X'018'(R8),252 45FA: L 4,X'00C'(,R1) 45FE: AR R4,R7 4600: TM X'002'(R8),4 4604: BC 8,X'280'(,R12) 4608: TM X'003'(R1),8 460C: BC 8,X'1AC'(,R11) 4610: LM R2,R5,X'000'(,R4) 4614: BC 15,X'1AC'(,R11) 4618: DC XL6'000000200000' 461E: SUR R8,R0 4620: IC 9,X'0008' 4624: BASR R12,R8 4626: BAS 8,X'58C'(R4,R1) 462A: DC XL6'000000000000' 4630: BALR R11,R0 4632: OI X'02B6',192 4636: LH 4,X'0308' 463A: SR R2,R2 463C: L 3,X'000'(,R14) 4640: IC 2,X'008'(,R14) 4644: LA 3,X'000'(,R3) 4648: CLI X'008'(R14),16 464C: BC 4,X'022'(,R11) 4650: ST 3,X'000'(R4,R2) 4654: AR R1,R12 4656: TM X'003'(R1),16 465A: BC 8,X'03E'(,R11) 465E: XC X'01A'(2,R1),X'01A'(R1) 4664: MVI X'027'(R1),0 4668: OI X'002'(R1),128 466C: BC 15,X'044'(,R11) 4670: XC X'014'(8,R1),X'014'(R1) 4676: TM X'003'(R1),16 467A: BC 8,X'15C'(,R11) 467E: STM R1,R6,X'142'(,R11) 4682: L 2,X'010'(,R1) 4686: AR R2,R12 4688: SH 2,X'15A'(,R11) 468C: LR R3,R2 468E: TM X'008'(R3),128 4692: BC 8,X'15C'(,R11) 4696: TM X'008'(R3),32 469A: BC 8,X'074'(,R11) 469E: LH 5,X'0002'(R2) 46A2: BC 15,X'0D8'(,R11) 46A6: MVC X'014'(2,R1),X'002'(R3) 46AC: TM X'014'(R1),240 46B0: BC 1,X'088'(,R11) 46B4: TR X'014'(1,R1),X'235'(R11) 46BA: TM X'015'(R1),240 46BE: BC 1,X'096'(,R11) 46C2: TR X'015'(1,R1),X'235'(R11) 46C8: PACK X'017'(2,R1),X'014'(3,R1) 46CE: LM R4,R5,X'02C8' 46D2: CLC X'017'(1,R1),X'003'(R5) 46D8: BC 7,X'0C6'(,R11) 46DC: NI X'001'(R3),15 46E0: CLC X'001'(1,R3),X'002'(R5) 46E6: BC 8,X'0D8'(,R11) 46EA: CLC X'001'(1,R3),X'000'(R5) 46F0: BC 8,X'0D8'(,R11) 46F4: OI X'001'(R3),240 46F8: LA 5,X'0020'(R5) 46FC: BCT 4,X'0A0'(,R11) 4700: MVI X'002'(R1),196 4704: LM R1,R6,X'142'(,R11) 4708: BCR R15,R15 470A: LA 0,X'0001' 470E: PACK X'0E9'(1,R11),X'000'(1,R14) 4714: NI X'0E9'(R11),15 4718: SLL R0,X'0000' 471C: STC 0,X'0EF'(,R11) 4720: TM X'004'(R5),0 4724: BC 1,X'102'(,R11) 4728: TM X'01C'(R5),32 472C: BC 14,X'0CE'(,R11) 4730: OI X'01C'(R5),16 4734: MVC X'010'(32,R3),X'000'(R5) 473A: MVC X'017'(1,R3),X'01C'(R5) 4740: OI X'001'(R3),240 4744: MVC X'008'(4,R2),X'00C'(R5) 474A: STH 5,X'000E'(R3) 474E: LH 5,X'012'(,R5) 4752: MVC X'02C'(20,R3),X'000'(R5) 4758: NI X'008'(R3),95 475C: TM X'008'(R2),4 4760: BC 14,X'138'(,R11) 4764: XC X'000'(8,R5),X'000'(R5) 476A: XC X'014'(4,R1),X'014'(R1) 4770: BC 15,X'0D2'(,R11) 4774: DC XL16'00000000000000000000000000000000' 4784: DC XL10'0000000000000000000E' 478E: NI X'000'(R1),251 4792: XC X'001'(2,R1),X'001'(R1) 4798: ST 14,X'004'(,R1) 479C: NI X'02B6',191 47A0: TM X'01C'(R8),16 47A4: BC 14,X'186'(,R11) 47A8: TM X'003'(R1),16 47AC: BC 1,X'186'(,R11) 47B0: LA 0,X'0010' 47B4: BC 15,X'2C6'(,R11) 47B8: LH 12,X'031C' 47BC: BALR R13,R12 47BE: LH 12,X'0388' 47C2: LTR R12,R12 47C4: BC 8,X'198'(,R11) 47C8: BALR R13,R12 47CA: AI X'00C'(R14),1 47CE: LH 12,X'02EA' 47D2: BALR R13,R12 47D4: SR R10,R10 47D6: LH 12,X'02EA' 47DA: BALR R13,R12 47DC: BCR R8,R15 47DE: AR R2,R7 47E0: SLL R10,X'0012' 47E4: AR R2,R10 47E6: TM X'00C'(R8),16 47EA: BC 8,X'1CA'(,R11) 47EE: LH 12,X'037C' 47F2: TM X'02B5',1 47F6: BC 8,X'1CA'(,R11) 47FA: BALR R13,R12 47FC: LH 12,X'014'(,R8) 4800: BALR R13,R12 4802: BCR R0,R0 4804: XC X'006'(2,R8),X'006'(R8) 480A: XC X'008'(4,R8),X'008'(R8) 4810: LH 9,X'002'(,R8) 4814: SIO X'000'(R9),0 4818: BALR R13,R0 481A: SRL R13,X'0004' 481E: ST 13,X'152'(,R11) 4822: TM X'003'(R1),16 4826: BC 8,X'20E'(,R11) 482A: TM X'01C'(R8),2 482E: BC 8,X'204'(,R11) 4832: BC 15,X'20E'(,R11) 4836: MVC X'01E'(1,R1),X'152'(R11) 483C: NI X'01E'(R1),3 4840: L 13,X'152'(,R11) 4844: SLL R13,X'0004' 4848: SPM R13,R0 484A: BALR R0,R0 484C: BC 8,X'222'(,R11) 4850: NI X'01C'(R8),250 4854: SPM R0,R0 4856: TM X'002'(R8),4 485A: BC 8,X'248'(,R11) 485E: TM X'003'(R1),8 4862: BC 8,X'248'(,R11) 4866: SPM R0,R0 4868: BC 8,X'248'(,R11) 486C: LH 9,X'0350' 4870: MVI X'070'(R9),255 4874: SPM R0,R0 4876: BC 1,X'262'(,R11) 487A: SPM R0,R0 487C: BC 13,X'262'(,R11) 4880: TM X'002'(R8),4 4884: BC 8,X'27A'(,R11) 4888: TM X'00C'(R8),32 488C: BC 8,X'27A'(,R11) 4890: BC 15,X'272'(,R11) 4894: ST 1,X'008'(,R8) 4898: BC 4,X'2DA'(,R11) 489C: BC 1,X'2D2'(,R11) 48A0: OI X'008'(R8),128 48A4: LH 9,X'010'(,R8) 48A8: OI X'000'(R9),128 48AC: CLI X'00C'(R8),0 48B0: BCR R8,R15 48B2: MVI X'01B'(R8),2 48B6: LH 12,X'031C' 48BA: BALR R13,R12 48BC: TM X'00C'(R8),16 48C0: BC 8,X'2A4'(,R11) 48C4: L 9,X'00C'(,R1) 48C8: AR R9,R7 48CA: TM X'000'(R9),47 48CE: BC 14,X'2A4'(,R11) 48D2: MVI X'01B'(R8),120 48D6: TM X'00C'(R8),10 48DA: BC 8,X'2B8'(,R11) 48DE: TM X'00D'(R8),2 48E2: BC 8,X'2B8'(,R11) 48E6: MVI X'01B'(R8),12 48EA: SPM R0,R0 48EC: BCR R8,R15 48EE: LTR R8,R8 48F0: LH 12,X'02EA' 48F4: BALR R13,R12 48F6: BCR R15,R15 48F8: AI X'00C'(R14),1 48FC: LH 11,X'038E' 4900: BC 15,X'36C'(,R11) 4904: LH 11,X'038E' 4908: BC 15,X'2BA'(,R11) 490C: LH 12,X'038E' 4910: STH 8,X'684'(,R12) 4914: TM X'003'(R1),16 4918: BCR R1,R15 491A: NI X'018'(R8),251 491E: XC X'014'(3,R1),X'014'(R1) 4924: BC 15,X'272'(,R11) 4928: AP X'CFD'(16,R15),X'EFF'(12,R15) 492E: DC XL2'0000' * IOST INTERRUPT HANDLER 4930: MVC X'024'(4,R14),X'0024' SAVE WORD 1 OF OLD PSW TO TCB 4936: OI X'02B6',160 493A: BALR R11,R0 USING *,R11 493C: LH 12,X'690'(,R11) 4940: BALR R13,R12 GET CURRENT IOSTIW 4942: LH 15,X'0008' GET POINTER TO SUPER ENTRY PT 4946: BCR R7,R15 NO CURRENT IOSTIW? GOTO ENTRY PT 4948: LH 15,X'694'(,R11) 494C: L 12,X'0360' 4950: LTR R12,R12 4952: BC 8,X'01C'(,R11) -> 4958 4956: BALR R13,R12 4958: LTR R0,R0 GET ADDR OF IOSTIW BUFFER 495A: BCR R8,R15 ZERO, QUIT 495C: LR R1,R0 495E: LH 2,X'000'(,R1) GET CHANNEL & DEVICE #S 4962: LH 12,X'0392' 4966: BALR R13,R12 4968: CLR R2,R6 496A: BCR R0,R0 * 496C: BCR R7,R15 496E: CLI X'002'(R8),3 CHANNEL # = 3? 4972: BC 7,X'04A'(,R11) NO 4976: TM X'002'(R1),12 DEVICE END/CHANNEL END? 497A: BC 11,X'04A'(,R11) NO 497E: CLI X'00F0',8 4982: BC 7,X'06E'(,R11) 4986: TM X'00C'(R8),16 498A: BC 8,X'066'(,R11) 498E: TM X'01D'(R8),64 4992: BC 8,X'066'(,R11) 4996: EX 0,X'3E2'(,R11) 499A: NI X'01D'(R8),191 499E: BC 15,X'294'(,R11) 49A2: LH 2,X'010'(,R8) 49A6: NI X'000'(R2),127 49AA: MVC X'006'(2,R8),X'002'(R1) COPY STATUS TO DVC CTRL TABLE 49B0: L 1,X'008'(,R8) 49B4: LTR R1,R1 49B6: BC 8,X'5AA'(,R11) 49BA: TM X'008'(R8),112 49BE: BCR R7,R15 49C0: L 14,X'004'(,R1) 49C4: LA 2,X'0014' 49C8: LA 3,X'000'(,R1) 49CC: DIAG X'000'(R2),14 49D0: BC 7,X'4A0'(,R11) 49D4: TM X'003'(R1),16 49D8: BC 8,X'172'(,R11) 49DC: TM X'006'(R8),66 49E0: BC 7,X'0B0'(,R11) 49E4: TM X'006'(R8),7 49E8: BC 8,X'172'(,R11) 49EC: TM X'01C'(R8),2 49F0: BC 8,X'0BC'(,R11) 49F4: BC 15,X'11A'(,R11) 49F8: CLI X'002'(R8),1 49FC: BC 2,X'0F8'(,R11) 4A00: SR R13,R13 4A02: IC 13,X'003'(,R8) 4A06: CLI X'002'(R8),1 4A0A: BC 4,X'0EC'(,R11) 4A0E: LA 13,X'200'(,R13) 4A12: N 13,X'0E8'(,R11) 4A16: MVC X'688'(8,R11),X'000'(R13) 4A1C: NI X'68E'(R11),31 4A20: BC 15,X'100'(,R11) 4A24: DC XL4'00000FF0' 4A28: SLL R13,X'0004' 4A2C: LA 13,X'100'(,R13) 4A30: BC 15,X'0DA'(,R11) 4A34: LR R13,R0 4A36: MVC X'688'(8,R11),X'004'(R13) 4A3C: L 14,X'004'(,R1) 4A40: LH 12,X'031C' 4A44: BALR R13,R12 4A46: L 13,X'688'(,R11) 4A4A: SR R13,R7 4A4C: ST 13,X'688'(,R11) 4A50: MVC X'01F'(8,R1),X'688'(R11) 4A56: TM X'006'(R8),66 4A5A: BC 8,X'172'(,R11) 4A5E: TM X'01C'(R8),2 4A62: BC 8,X'172'(,R11) 4A66: MVI X'027'(R1),142 4A6A: LR R13,R0 4A6C: MVC X'001'(2,R1),X'002'(R13) 4A72: MVI X'004'(R1),0 4A76: LA 2,X'0014' 4A7A: LR R3,R1 4A7C: DIAG X'000'(R2),14 4A80: STC 2,X'004'(,R1) 4A84: CLI X'002'(R8),4 4A88: BC 8,X'172'(,R11) 4A8C: CLI X'002'(R8),6 4A90: BC 8,X'172'(,R11) 4A94: BC 15,X'36C'(,R11) 4A98: L 2,X'004'(,R1) 4A9C: MVC X'004'(4,R1),X'00C'(R1) 4AA2: ST 2,X'00C'(,R1) 4AA6: L 2,X'004'(,R1) 4AAA: BC 15,X'280'(,R11) 4AAE: LH 12,X'031C' 4AB2: BALR R13,R12 4AB4: TM X'003'(R1),16 4AB8: BC 8,X'186'(,R11) 4ABC: TM X'006'(R8),215 4AC0: BCR R8,R15 4AC2: TM X'006'(R8),247 4AC6: BC 7,X'2E6'(,R11) 4ACA: TM X'007'(R8),255 4ACE: BC 7,X'2E6'(,R11) 4AD2: TM X'003'(R1),16 4AD6: BC 14,X'1A8'(,R11) 4ADA: TM X'01C'(R8),5 4ADE: BCR R7,R15 4AE0: BC 15,X'1A8'(,R11) 4AE4: STH 0,X'21E'(,R11) 4AE8: SR R0,R0 4AEA: CLI X'006'(R8),0 4AEE: BC 7,X'1CA'(,R11) 4AF2: MVI X'006'(R8),32 4AF6: OI X'01C'(R8),2 4AFA: LH 12,X'02EA' 4AFE: LTR R12,R12 4B00: BALR R13,R12 4B02: BC 15,X'596'(,R11) 4B06: TM X'01C'(R8),7 4B0A: BCR R7,R15 4B0C: NI X'018'(R8),251 4B10: TM X'00C'(R8),16 4B14: BC 8,X'220'(,R11) 4B18: TM X'00D'(R8),127 4B1C: BC 8,X'220'(,R11) 4B20: CLI X'002'(R8),1 4B24: BC 7,X'1FA'(,R11) 4B28: MVZ X'1F5'(1,R11),X'003'(R8) 4B2E: LA 3,X'0200' 4B32: BC 15,X'206'(,R11) 4B36: LH 3,X'21E'(,R11) 4B3A: L 3,X'004'(,R3) 4B3E: S 3,X'698'(,R11) 4B42: CLI X'000'(R3),7 4B46: BC 7,X'220'(,R11) 4B4A: LH 0,X'21E'(,R11) 4B4E: OI X'006'(R8),4 4B52: OI X'01D'(R8),64 4B56: BC 15,X'2E6'(,R11) 4B5A: DC XL2'0000' 4B5C: LH 12,X'031C' 4B60: BALR R13,R12 4B62: LH 12,X'02EA' 4B66: OR R12,R12 4B68: BALR R13,R12 4B6A: LTR R0,R0 4B6C: BC 8,X'246'(,R11) 4B70: CH 0,X'568'(,R11) 4B74: BC 11,X'246'(,R11) 4B78: NI X'02B6',31 4B7C: LH 2,X'696'(,R11) 4B80: BCR R15,R2 4B82: TM X'003'(R1),16 4B86: BC 8,X'294'(,R11) 4B8A: TM X'006'(R8),7 4B8E: BC 8,X'294'(,R11) 4B92: NI X'01C'(R8),248 4B96: MVI X'006'(R8),0 4B9A: MVC X'004'(8,R1),X'01F'(R1) 4BA0: CLI X'002'(R8),4 4BA4: BC 8,X'294'(,R11) 4BA8: CLI X'002'(R8),6 4BAC: BC 8,X'294'(,R11) 4BB0: CLI X'002'(R8),1 4BB4: BC 8,X'15C'(,R11) 4BB8: L 2,X'00C'(,R1) 4BBC: LA 2,X'008'(,R2) 4BC0: CLI X'002'(R8),3 4BC4: BC 7,X'290'(,R11) 4BC8: LA 2,X'008'(,R2) 4BCC: ST 2,X'004'(,R1) 4BD0: TM X'003'(R1),16 4BD4: BC 8,X'2AC'(,R11) 4BD8: CLI X'027'(R1),142 4BDC: BC 7,X'2AC'(,R11) 4BE0: LR R13,R0 4BE2: MVC X'001'(2,R1),X'002'(R13) 4BE8: TM X'018'(R8),64 4BEC: BCR R1,R15 4BEE: LH 11,X'038C' 4BF2: BC 15,X'1A2'(,R11) 4BF6: LH 0,X'692'(,R11) 4BFA: MVI X'014'(R1),255 4BFE: OI X'01C'(R8),2 4C02: TM X'003'(R1),16 4C06: BC 8,X'2E6'(,R11) 4C0A: TM X'01C'(R8),2 4C0E: BC 8,X'2DA'(,R11) 4C12: MVI X'027'(R1),142 4C16: TM X'01E'(R1),3 4C1A: BC 14,X'2E6'(,R11) 4C1E: MVI X'027'(R1),143 4C22: MVI X'01B'(R8),0 4C26: TM X'003'(R1),16 4C2A: BC 1,X'302'(,R11) 4C2E: TM X'684'(R11),255 4C32: BC 8,X'302'(,R11) 4C36: LA 12,X'302'(,R11) 4C3A: BC 15,X'63E'(,R11) 4C3E: NI X'008'(R8),127 4C42: LA 1,X'000'(,R1) 4C46: SR R6,R6 4C48: TM X'006'(R8),1 4C4C: BC 8,X'318'(,R11) 4C50: LA 6,X'0008' 4C54: LH 12,X'012'(,R8) 4C58: LTR R12,R12 4C5A: BC 8,X'336'(,R11) 4C5E: TM X'007'(R8),255 4C62: BC 7,X'336'(,R11) 4C66: TM X'006'(R8),2 4C6A: BC 7,X'336'(,R11) 4C6E: AI X'014'(R12),1 4C72: TM X'01C'(R8),7 4C76: LH 12,X'016'(,R8) 4C7A: BCR R7,R12 4C7C: LR R2,R0 4C7E: MVC X'01A'(1,R1),X'002'(R2) 4C84: OC X'01B'(1,R1),X'003'(R2) 4C8A: TM X'00C'(R8),16 4C8E: BC 8,X'366'(,R11) 4C92: LH 12,X'037C' 4C96: TM X'02B5',1 4C9A: BC 8,X'366'(,R11) 4C9E: SR R13,R13 4CA0: BALR R13,R12 4CA2: LH 12,X'016'(,R8) 4CA6: BCR R15,R12 4CA8: STC 6,X'002'(,R1) 4CAC: CH 0,X'560'(,R11) 4CB0: BC 13,X'428'(,R11) 4CB4: NI X'01C'(R8),248 4CB8: TM X'003'(R1),16 4CBC: BC 1,X'3E2'(,R11) 4CC0: XC X'006'(2,R8),X'006'(R8) 4CC6: LH 12,X'038A' 4CCA: LTR R12,R12 4CCC: BC 8,X'396'(,R11) 4CD0: BALR R13,R12 4CD2: CH 8,X'02A8' 4CD6: BC 8,X'3C6'(,R11) 4CDA: LH 12,X'012'(,R8) 4CDE: TM X'00C'(R8),16 4CE2: BC 14,X'3B2'(,R11) 4CE6: TM X'018'(R12),1 4CEA: BC 1,X'220'(,R11) 4CEE: LA 14,X'000'(,R14) 4CF2: C 14,X'02D0' 4CF6: BC 8,X'3C6'(,R11) 4CFA: TM X'018'(R8),12 4CFE: BC 1,X'220'(,R11) 4D02: NI X'018'(R8),251 4D06: TM X'00C'(R8),16 4D0A: BC 8,X'3E2'(,R11) 4D0E: MVI X'01B'(R8),60 4D12: MVI X'008'(R8),128 4D16: TM X'01D'(R8),64 4D1A: BC 1,X'3E8'(,R11) 4D1E: XC X'008'(4,R8),X'008'(R8) 4D24: TM X'003'(R1),16 4D28: BC 8,X'420'(,R11) 4D2C: CLI X'01B'(R1),0 4D30: BC 7,X'408'(,R11) 4D34: TM X'01A'(R1),2 4D38: BC 1,X'408'(,R11) 4D3C: TM X'027'(R1),128 4D40: BC 8,X'418'(,R11) 4D44: OI X'002'(R1),64 4D48: BC 15,X'428'(,R11) 4D4C: DC XL8'00000040000000BF' 4D54: NI X'002'(R1),191 4D58: BC 15,X'428'(,R11) 4D5C: NI X'01C'(R8),248 4D60: MVI X'006'(R8),0 4D64: OI X'002'(R1),128 4D68: TM X'000'(R1),4 4D6C: BC 8,X'438'(,R11) 4D70: NI X'005'(R14),251 4D74: AI X'00C'(R14),255 4D78: BC 7,X'220'(,R11) 4D7C: NI X'005'(R14),253 4D80: BC 15,X'220'(,R11) 4D84: BALR R11,R0 4D86: LH 11,X'038E' 4D8A: LA 0,X'0015' 4D8E: TM X'02B6',128 4D92: BC 1,X'484'(,R11) 4D96: OI X'02B6',32 4D9A: L 14,X'02D0' 4D9E: LR R2,R14 4DA0: SH 2,X'560'(,R11) 4DA4: ST 2,X'024'(,R14) 4DA8: MVC X'000'(8,R2),X'508'(R11) 4DAE: XC X'004'(4,R14),X'004'(R14) 4DB4: SSTM R8,R8,X'510'(,R11) 4DB8: LH 8,X'512'(,R11) 4DBC: L 1,X'008'(,R8) 4DC0: TM X'02FE',4 4DC4: BC 8,X'490'(,R11) 4DC8: HPR X'000F',15 4DCC: TM X'02B6',64 4DD0: BC 1,X'23C'(,R11) 4DD4: TM X'02B6',32 4DD8: BC 8,X'23C'(,R11) 4DDC: LH 2,X'686'(,R11) 4DE0: TM X'02FE',4 4DE4: BC 8,X'4B0'(,R11) 4DE8: HPR X'000F',15 4DEC: MVC X'000'(32,R2),X'000'(R8) 4DF2: XC X'008'(4,R8),X'008'(R8) 4DF8: LR R8,R2 4DFA: ST 1,X'008'(,R8) 4DFE: MVI X'01B'(R1),128 4E02: OI X'007'(R8),255 4E06: XC X'000'(12,R1),X'000'(R1) 4E0C: SR R10,R10 4E0E: LH 6,X'010'(,R8) 4E12: LA 2,X'020'(,R6) 4E16: CLC X'009'(3,R8),X'001'(R6) 4E1C: BC 8,X'4F6'(,R11) 4E20: CR R6,R2 4E22: BC 8,X'4F6'(,R11) 4E26: LA 6,X'004'(,R6) 4E2A: LA 10,X'004'(,R10) 4E2E: BC 15,X'4DA'(,R11) 4E32: SLL R10,X'0002' 4E36: STC 10,X'506'(,R11) 4E3A: LA 14,X'506'(,R11) 4E3E: BC 15,X'2C2'(,R11) 4E42: DC XL2'0000' 4E44: SSM X'06C'(R11),0 4E48: BC 15,X'0204' 4E4C: DC XL4'00000000' 4E50: OI X'02B6',160 4E54: BALR R12,R0 4E56: LH 11,X'038E' 4E5A: LH 12,X'0392' 4E5E: BALR R13,R12 4E60: TM X'008'(R8),112 4E64: BC 8,X'01E'(,R12) 4E68: BCR R14,R15 4E6A: TM X'006'(R8),128 4E6E: BC 1,X'636'(,R11) 4E72: L 1,X'008'(,R8) 4E76: L 14,X'004'(,R1) 4E7A: LH 12,X'031C' 4E7E: BALR R13,R12 4E80: LA 12,X'36C'(,R11) 4E84: TM X'008'(R8),8 4E88: BC 1,X'596'(,R11) 4E8C: L 6,X'008'(,R1) 4E90: ST 6,X'004'(,R1) 4E94: NC X'004'(2,R1),X'5A8'(R11) 4E9A: SRL R6,X'0012' 4E9E: ST 6,X'008'(,R1) 4EA2: LA 6,X'0020' 4EA6: LR R0,R1 4EA8: TM X'008'(R8),2 4EAC: BCR R1,R12 4EAE: LA 6,X'0040' 4EB2: TM X'008'(R8),4 4EB6: BCR R1,R12 4EB8: TM X'008'(R8),1 4EBC: BC 1,X'590'(,R11) 4EC0: SR R6,R6 4EC2: IC 6,X'002'(,R1) 4EC6: EX 0,X'3E2'(,R11) 4ECA: BCR R15,R12 4ECC: LA 0,X'001F' 4ED0: BCR R15,R12 4ED2: LH 12,X'016'(,R8) 4ED6: TM X'01C'(R8),2 4EDA: BCR R1,R12 4EDC: EX 0,X'3E2'(,R11) 4EE0: BC 15,X'294'(,R11) 4EE4: DC XL2'0003' 4EE6: TM X'002'(R8),3 4EEA: BC 1,X'33A'(,R11) 4EEE: NI X'01D'(R8),191 4EF2: TM X'684'(R11),255 4EF6: BC 8,X'5C6'(,R11) 4EFA: LA 12,X'5C6'(,R11) 4EFE: BC 15,X'63E'(,R11) 4F02: TM X'006'(R8),2 4F06: BC 8,X'5FC'(,R11) 4F0A: TM X'002'(R8),4 4F0E: BC 8,X'5FC'(,R11) 4F12: MVC X'00A0'(4),X'5EC'(R11) 4F18: MVC X'5E4'(2,R11),X'002'(R8) 4F1E: SIO X'5E2'(R11),0 4F22: BCR R15,R15 4F24: DC XL6'000000000000' 4F2A: CVB 3,X'0000' 4F2E: DC XL2'0000' 4F30: SPM R0,R0 4F32: CVB 2,X'000'(R4,R2) 4F36: DC XL2'0002' 4F38: TM X'006'(R8),32 4F3C: BC 1,X'294'(,R11) 4F40: TM X'006'(R8),128 4F44: BC 14,X'294'(,R11) 4F48: CLI X'00C'(R8),0 4F4C: BC 8,X'2E6'(,R11) 4F50: TM X'02B8',4 4F54: BCR R1,R15 4F56: AI X'002'(R8),0 4F5A: BC 7,X'636'(,R11) 4F5E: OI X'02F4',128 4F62: L 12,X'02D0' 4F66: NI X'005'(R12),247 4F6A: LH 12,X'0390' 4F6E: BC 15,X'140'(,R12) 4F72: OI X'02F4',2 4F76: BC 15,X'626'(,R11) 4F7A: LA 2,X'0FF0' 4F7E: LH 6,X'684'(,R11) 4F82: LH 3,X'002'(,R6) 4F86: LH 4,X'002'(,R8) 4F8A: NR R3,R2 4F8C: NR R4,R2 4F8E: CLR R3,R4 4F90: BCR R7,R12 4F92: XC X'684'(2,R11),X'684'(R11) 4F98: CR R8,R6 4F9A: BC 7,X'674'(,R11) 4F9E: TM X'007'(R8),255 4FA2: BCR R7,R12 4FA4: TM X'006'(R8),178 4FA8: BCR R7,R12 4FAA: MVI X'006'(R8),16 4FAE: BCR R15,R12 4FB0: OC X'008'(4,R8),X'008'(R8) 4FB6: BCR R7,R12 4FB8: LR R1,R0 4FBA: LR R8,R6 4FBC: BC 15,X'06E'(,R11) 4FC0: DC XL2'0000' 4FC2: BASR R12,R8 4FC4: DC XL8'0000000000000000' 4FCC: LA 8,X'1E8'(R8,R4) 4FD0: CH 3,X'866'(R10,R1) 4FD4: DC XL4'00000008' * COME HERE AFTER SYSTEM RESET 4FD8: DIAG X'0000',0 4FDC: BALR R13,R0 4FDE: BC 0,X'08A'(,R13) 4FE2: BC 0,X'04A'(,R13) 4FE6: LPSW X'02A'(R13),0 4FEA: BALR R13,R0 4FEC: L 13,X'014'(,R13) 4FF0: MVC X'2D6'(256,R13),X'0000' 4FF6: MVI X'005'(R13),240 4FFA: BC 15,X'04A'(,R13)