On the small chance that we some day decide to try to port EMAS to a new architecture, here is all the embedded machine code I can find. Although EMAS was touted as being written in a high-level language with only a few critical lines of assembly code it would appear that the few critical lines number in the high thousands! ./director/new/c04xop.imp: *ipk_0(0) ./director/new/c04xop.imp: *st_2,savekey ./director/new/c04xop.imp: *spka_0(0) ./director/new/c04xop.imp: *l_2,savekey ./director/new/c04xop.imp: *spka_0(2) ./director/new/c04xop.imp: *mc_17(0),0 ./director/new/c04xop.imp: *IPK_0(0) ./director/new/c04xop.imp: *ST_2,SAVEKEY ./director/new/c04xop.imp: *SPKA_0(0) ./director/new/c04xop.imp: *L_2,SAVEKEY ./director/new/c04xop.imp: *SPKA_0(2) ./director/new/c04xop.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) ./director/new/c04xop.imp: *l_2,savekey; *spka_0(2) ./director/new/c04xop.imp: *IPK_0(0) ./director/new/c04xop.imp: *ST_2,SAVEKEY ./director/new/c04xop.imp: *SPKA_0(0) ./director/new/c04xop.imp: *L_2,SAVEKEY ./director/new/c04xop.imp: *SPKA_0(2) ./director/new/c04xop.imp: *IPK_0(0) ./director/new/c04xop.imp: *ST_2,SAVEKEY ./director/new/c04xop.imp: *SPKA_0(0) ./director/new/c04xop.imp: *L_2,SAVEKEY ./director/new/c04xop.imp: *SPKA_0(2) ./director/new/c04xop.imp: *IPK_0(0) ./director/new/c04xop.imp: *ST_2,SAVEKEY ./director/new/c04xop.imp: *SPKA_0(0) ./director/new/c04xop.imp: *L_2,SAVEKEY ./director/new/c04xop.imp: *SPKA_0(2) ./director/new/c04xop.imp: *IPK_0(0) ./director/new/c04xop.imp: *ST_2,SAVEKEY ./director/new/c04xop.imp: *SPKA_0(0) ./director/new/c04xop.imp: *L_2,SAVEKEY ./director/new/c04xop.imp: *SPKA_0(2) ./director/new/c04xop.imp: *IPK_0(0) ./director/new/c04xop.imp: *ST_2,SAVEKEY ./director/new/c04xop.imp: *SPKA_0(0) ./director/new/c04xop.imp: *MC_11(0),0 ./director/new/c04xop.imp: *MC_6(0),0 ./director/new/c04xop.imp: *MC_6(0),0 ./director/new/c04xop.imp: *L_2,SAVEKEY ./director/new/c04xop.imp: *SPKA_0(2) ./director/new/c04xop.imp: *IPK_0(0) ./director/new/c04xop.imp: *ST_2,SAVEKEY ./director/new/c04xop.imp: *SPKA_0(0) ./director/new/c04xop.imp: *MC_1(0),0 ./director/new/c04xop.imp: *L_2,SAVEKEY ./director/new/c04xop.imp: *SPKA_0(2) ./director/new/c04xop.imp: *IPK_0(0); *ST_2,SAVEKEY; *SPKA_0(0) ./director/new/c04xop.imp: *L_2,SAVEKEY; *SPKA_0(2) ./director/new/c04xop.imp: *IPK_0(0); *ST_2,SAVEKEY; *SPKA_0(0) ./director/new/c04xop.imp: *L_2,SAVEKEY; *SPKA_0(2) ./director/new/c04xop.imp: *IPK_0(0) ./director/new/c04xop.imp: *ST_2,SAVEKEY ./director/new/c04xop.imp: *SPKA_0(0) ./director/new/c04xop.imp: *L_2,SAVEKEY ./director/new/c04xop.imp: *SPKA_0(2) ./director/new/c04xop.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) { time for DIRECT and FCHECK } ./director/new/c04xop.imp: *L_2,savekey; *spka_0(2) ./director/new/c04xop.imp: *IPK_0(0) ./director/new/c04xop.imp: *ST_2,SAVEKEY ./director/new/c04xop.imp: *SPKA_0(0) ./director/new/c04xop.imp: *L_2,SAVEKEY ./director/new/c04xop.imp: *SPKA_0(2) ./director/new/c04xop.imp: *stck_time ./director/new/c04xop.imp: *ipk_0(0) ./director/new/c04xop.imp: *st_2,savekey ./director/new/c04xop.imp: *spka_0(0) ./director/new/c04xop.imp: *l_2,savekey ./director/new/c04xop.imp: *spka_0(2) ./director/new/c04xop.imp: *IPK_0(0) ./director/new/c04xop.imp: *ST_2,SAVEKEY ./director/new/c04xop.imp: *SPKA_0(0) ./director/new/c04xop.imp: *MC_6(0),0 ./director/new/c04xop.imp: *L_2,SAVEKEY ./director/new/c04xop.imp: *SPKA_0(2) ./director/new/c04xop.imp: *IPK_0(0) ./director/new/c04xop.imp: *ST_2,SAVEKEY ./director/new/c04xop.imp: *SPKA_0(0) ./director/new/c04xop.imp: *L_2,SAVEKEY ./director/new/c04xop.imp: *SPKA_0(2) ./director/new/c04xop.imp: *IPK_0(0) ./director/new/c04xop.imp: *ST_2,SAVEKEY ./director/new/c04xop.imp: *SPKA_0(0) ./director/new/c04xop.imp: *L_2,SAVEKEY ./director/new/c04xop.imp: *SPKA_0(2) ./director/new/c04xop.imp: *IPK_0(0); *ST_2,SAVEKEY; *SPKA_0(0) ./director/new/c04xop.imp: *MC_1(0),0 ./director/new/c04xop.imp: *L_2,SAVEKEY; *SPKA_0(2) ./director/new/c04xop.imp: *IPK_0(0); *ST_2,SAVEKEY; *SPKA_0(0) ./director/new/c04xop.imp: *L_2,SAVEKEY; *SPKA_0(2) ./director/new/c04xop.imp: *mc_12(0),0 ./director/new/c04xop.imp: *mc_13(0),0 ./director/new/b01conn.imp: *IPK_0(0) ./director/new/b01conn.imp: *ST_2,SAVEKEY ./director/new/b01conn.imp: *SPKA_0(0) ./director/new/b01conn.imp: *L_2,SAVEKEY ./director/new/b01conn.imp: *SPKA_0(2) ./director/new/b01conn.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) ./director/new/b01conn.imp: *l_2,savekey; *spka_0(2) ./director/new/b01conn.imp: *LA_2,W1 ./director/new/b01conn.imp: *SRL_2,3 ./director/new/b01conn.imp: *SLL_2,3 ./director/new/b01conn.imp: *STCK_0(2) ./director/new/b01conn.imp: *LM_0,1,0(2) ./director/new/b01conn.imp: *SRDL_0,24 ./director/new/b01conn.imp: *ST_1,W0 ./director/new/b01conn.imp: *LA_2,W1 ./director/new/b01conn.imp: *SRL_2,3 ./director/new/b01conn.imp: *SLL_2,3 ./director/new/b01conn.imp: *STCK_0(2) ./director/new/b01conn.imp: *LM_0,1,0(2) ./director/new/b01conn.imp: *SRDL_0,24 ./director/new/b01conn.imp: *D_0,JMS ./director/new/b01conn.imp: *ST_1,W0 ./director/new/b01conn.imp: *IPK_0(0) ./director/new/b01conn.imp: *ST_2,SAVEKEY ./director/new/b01conn.imp: *SPKA_0(0) ./director/new/b01conn.imp: *LA_0,1 {useful const} ./director/new/b01conn.imp: *L_1,ADR ./director/new/b01conn.imp: *L_2,0(1) {value of sema} ./director/new/b01conn.imp: *BASR_4,0 ./director/new/b01conn.imp: *LR_3,2 ./director/new/b01conn.imp: *AR_3,0 {increment value by one} ./director/new/b01conn.imp: *CS_2,3,0(1) {store 3 if 2 still valid else reload 2} ./director/new/b01conn.imp: *BCR_4,4 {not done, try again} ./director/new/b01conn.imp: *ST_3,C ./director/new/b01conn.imp: *L_2,SAVEKEY ./director/new/b01conn.imp: *SPKA_0(2) ./director/new/b01conn.imp: *IPK_0(0) ./director/new/b01conn.imp: *ST_2,SAVEKEY ./director/new/b01conn.imp: *SPKA_0(0) ./director/new/b01conn.imp: *LA_0,1 ./director/new/b01conn.imp: *L_1,ADR ./director/new/b01conn.imp: *L_2,0(1) ./director/new/b01conn.imp: *BASR_4,0 ./director/new/b01conn.imp: *LR_3,2 ./director/new/b01conn.imp: *SR_3,0 ./director/new/b01conn.imp: *CS_2,3,0(1) ./director/new/b01conn.imp: *BCR_4,4 ./director/new/b01conn.imp: *ST_2,C {original value} ./director/new/b01conn.imp: *L_2,SAVEKEY ./director/new/b01conn.imp: *SPKA_0(2) ./director/new/b01conn.imp: *IPK_0(0) ./director/new/b01conn.imp: *ST_2,SAVEKEY ./director/new/b01conn.imp: *SPKA_0(0) ./director/new/b01conn.imp: *LA_0,1 {useful const} ./director/new/b01conn.imp: *L_1,ADR ./director/new/b01conn.imp: *L_2,0(1) {value of sema} ./director/new/b01conn.imp: *BASR_4,0 ./director/new/b01conn.imp: *LR_3,2 ./director/new/b01conn.imp: *AR_3,0 {increment value by one} ./director/new/b01conn.imp: *CS_2,3,0(1) {store 3 if 2 still valid else reload 2} ./director/new/b01conn.imp: *BCR_4,4 {not done, try again} ./director/new/b01conn.imp: *ST_3,C {new value} ./director/new/b01conn.imp: *L_2,SAVEKEY ./director/new/b01conn.imp: *SPKA_0(2) ./director/new/b01conn.imp: *IPK_0(0); *ST_2,SAVEKEY; *SPKA_0(0) ./director/new/b01conn.imp: *L_2,SAVEKEY; *SPKA_0(2) ./director/new/b01conn.imp: *MC_3(0),0 ./director/new/b01conn.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) ./director/new/b01conn.imp: *l_2,savekey; *spka_0(2) ./director/new/b01conn.imp: *IPK_0(0); *ST_2,SAVEKEY; *SPKA_0(0) ./director/new/b01conn.imp: *L_2,SAVEKEY; *SPKA_0(2) ./director/new/b01conn.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) { 'ON' } ./director/new/b01conn.imp: *l_2,savekey; *spka_0(2) { 'OFF' } ./director/new/b01conn.imp: *LA_0,1 {useful const} ./director/new/b01conn.imp: *L_1,SEMADDR ./director/new/b01conn.imp: *L_2,0(1) {value of sema} ./director/new/b01conn.imp: *BASR_4,0 ./director/new/b01conn.imp: *USING_4 ./director/new/b01conn.imp: *LR_3,2 ./director/new/b01conn.imp: *AR_3,0 {increment value by one} ./director/new/b01conn.imp: *CS_2,3,0(1) {store 3 if 2 still valid else reload 2} ./director/new/b01conn.imp: *BCR_4,4 {not done, try again} ./director/new/b01conn.imp: *LTR_3,3 ./director/new/b01conn.imp: *BC_8, {now zero so must have been -1} ./director/new/b01conn.imp: *BC_2, {positive - other users} ./director/new/b01conn.imp: *DROP_4 ./director/new/b01conn.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) { ON } ./director/new/b01conn.imp: *l_2,savekey; *spka_0(2) { OFF } ./director/new/b01conn.imp: *LA_0,1 ./director/new/b01conn.imp: *L_1,SEMADDR ./director/new/b01conn.imp: *L_2,0(1) ./director/new/b01conn.imp: *BASR_4,0 ./director/new/b01conn.imp: *USING_4 ./director/new/b01conn.imp: *LR_3,2 ./director/new/b01conn.imp: *SR_3,0 ./director/new/b01conn.imp: *CS_2,3,0(1) ./director/new/b01conn.imp: *BCR_4,4 ./director/new/b01conn.imp: *LTR_2,2 ./director/new/b01conn.imp: *BC_8, ./director/new/b01conn.imp: *BC_2, ./director/new/b01conn.imp: *ST_2,SEM ./director/new/b01conn.imp: *DROP_4 ./director/new/b01conn.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) { 'ON' } ./director/new/b01conn.imp: *l_2,savekey; *spka_0(2) { 'OFF' } ./director/new/b01conn.imp: *IPK_0(0) ./director/new/b01conn.imp: *ST_2,SAVEKEY ./director/new/b01conn.imp: *SPKA_0(0) ./director/new/b01conn.imp: *L_2,SAVEKEY ./director/new/b01conn.imp: *SPKA_0(2) ./director/new/b01conn.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) ./director/new/b01conn.imp: *l_2,savekey; *spka_0(2) ./director/new/b01conn.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) ./director/new/b01conn.imp: *l_2,savekey; *spka_0(2) ./director/new/b01conn.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) ./director/new/b01conn.imp: *l_2,savekey; *spka_0(2) ./director/new/b01conn.imp: *IPK_0(0) ./director/new/b01conn.imp: *ST_2,SAVEKEY ./director/new/b01conn.imp: *SPKA_0(0) ./director/new/b01conn.imp: *L_2,SAVEKEY ./director/new/b01conn.imp: *SPKA_0(2) ./director/new/b01conn.imp: *MC_17(0),0 ./director/new/b01conn.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) { 'ON' } ./director/new/b01conn.imp: *l_2,savekey; *spka_0(2) { 'OFF' } ./director/new/b01conn.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) ./director/new/b01conn.imp: *l_2,savekey; *spka_0(2) ./director/new/b01conn.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) ./director/new/b01conn.imp: *l_2,savekey; *spka_0(2) ./director/new/b01conn.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) ./director/new/b01conn.imp: *l_2,savekey; *spka_0(2) ./director/new/b01conn.imp: *st_11,j ./director/new/b01conn.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) ./director/new/b01conn.imp: *l_2,savekey; *spka_0(2) ./director/new/b01conn.imp: *IPK_0(0); *ST_2,SAVEKEY; *SPKA_0(0) ./director/new/b01conn.imp: *L_2,SAVEKEY; *SPKA_0(2) ./director/new/b01conn.imp: *IPK_0(0); *ST_2,SAVEKEY; *SPKA_0(0) ./director/new/b01conn.imp: *L_2,SAVEKEY; *SPKA_0(2) ./director/new/b01conn.imp: *st_11,j ./director/new/b01conn.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) ./director/new/b01conn.imp: *l_2,savekey; *spka_0(2) ./director/new/b01conn.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) { 'ON' } ./director/new/b01conn.imp: *l_2,savekey; *spka_0(2) { 'OFF' } ./director/new/b01conn.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) { 'ON' } ./director/new/b01conn.imp: *l_2,savekey; *spka_0(2) { 'OFF' } ./director/new/b01conn.imp: *IPK_0(0) ./director/new/b01conn.imp: *ST_2,SAVEKEY ./director/new/b01conn.imp: *SPKA_0(0) ./director/new/b01conn.imp: *L_2,SAVEKEY ./director/new/b01conn.imp: *SPKA_0(2) ./director/new/b01conn.imp: *MC_20(0),0 ./director/new/b01conn.imp: *IPK_0(0) ./director/new/b01conn.imp: *ST_2,SAVEKEY ./director/new/b01conn.imp: *SPKA_0(0) ./director/new/b01conn.imp: *L_2,SAVEKEY ./director/new/b01conn.imp: *SPKA_0(2) ./director/new/b01conn.imp: *MC_20(0),0 ./director/new/b01conn.imp: *st_11,j ./director/new/b01conn.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) { 'ON' } ./director/new/b01conn.imp: *l_2,savekey; *spka_0(2) { 'OFF' } ./director/new/b01conn.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) { 'ON' } ./director/new/b01conn.imp: *l_2,savekey; *spka_0(2) { 'OFF' } ./director/new/b01conn.imp: *MC_3(0),0 {remove AMTX entries} ./director/new/b01conn.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) { 'ON' } ./director/new/b01conn.imp: *l_2,savekey; *spka_0(2) { 'OFF' } ./director/new/b01conn.imp: *mc_27(0),0; ! Change access of active segment ./director/new/b01conn.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) ./director/new/b01conn.imp: *l_2,savekey; *spka_0(2) ./director/new/b01conn.imp: *mc_12(0),0 ./director/new/b01conn.imp: *la_11,7(11) ./director/new/b01conn.imp: *srl_11,3 ./director/new/b01conn.imp: *sll_11,3 ./director/new/b01conn.imp: *stpt_0(11) ./director/new/b01conn.imp: *l_1,ad ./director/new/b01conn.imp: *mvc_0(8,1),0(11) ./director/new/b01conn.imp: *mc_13(0),0 ./director/new/b01conn.imp: *IPK_0(0) ./director/new/b01conn.imp: *ST_2,SAVEKEY ./director/new/b01conn.imp: *SPKA_0(0) ./director/new/b01conn.imp: *l_2,savekey ./director/new/b01conn.imp: *spka_0(2) ./director/new/b01conn.imp: *mc_6(0),0 ./director/new/b01conn.imp: *ipk_0(0) ./director/new/b01conn.imp: *st_2,savekey ./director/new/b01conn.imp: *spka_0(0) ./director/new/b01conn.imp: *L_2,SAVEKEY ./director/new/b01conn.imp: *SPKA_0(2) ./director/new/b01conn.imp: *MC_7(0),0 ./director/new/b01conn.imp: *ipk_0(0) ./director/new/b01conn.imp: *st_2,savekey ./director/new/b01conn.imp: *spka_0(0) ./director/new/b01conn.imp: *l_2,savekey ./director/new/b01conn.imp: *spka_0(2) ./director/new/b01conn.imp: *mc_6(0),0 ./director/new/b01conn.imp: *mc_12(0),0 ./director/new/b01conn.imp: *IPK_0(0) ./director/new/b01conn.imp: *ST_2,SAVEKEY ./director/new/b01conn.imp: *SPKA_0(0) ./director/new/b01conn.imp: *L_2,SAVEKEY ./director/new/b01conn.imp: *SPKA_0(2) ./director/new/b01conn.imp: *MC_20(0),0 ./director/new/b01conn.imp: *ST_11,STAKAD ./director/new/b01conn.imp: *IPK_0(0); *ST_2,SAVEKEY; *SPKA_0(0) ./director/new/b01conn.imp: *L_2,SAVEKEY; *SPKA_0(2) ./director/new/b01conn.imp: *MC_0(0),0 ./director/new/b02direct.imp: *IPK_0(0) ./director/new/b02direct.imp: *ST_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(0) ./director/new/b02direct.imp: *MC_5(0),0 ./director/new/b02direct.imp: *L_2,SAVEKEY; *SPKA_0(2) ./director/new/b02direct.imp: *IPK_0(0) ./director/new/b02direct.imp: *ST_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(0) ./director/new/b02direct.imp: *MC_7(0),0 ./director/new/b02direct.imp: *L_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(2) ./director/new/b02direct.imp: *IPK_0(0) ./director/new/b02direct.imp: *ST_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(0) ./director/new/b02direct.imp: *L_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(2) ./director/new/b02direct.imp: *MC_6(0),0 ./director/new/b02direct.imp: *LA_1,sp1 ./director/new/b02direct.imp: *STCK_0(1); ! Store TOD clock ./director/new/b02direct.imp: *IPK_0(0) ./director/new/b02direct.imp: *ST_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(0) ./director/new/b02direct.imp: *MC_7(0),0 ./director/new/b02direct.imp: *L_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(2) ./director/new/b02direct.imp: *IPK_0(0) ./director/new/b02direct.imp: *ST_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(0) ./director/new/b02direct.imp: *L_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(2) ./director/new/b02direct.imp: *MC_11(0),0 ./director/new/b02direct.imp: *IPK_0(0) ./director/new/b02direct.imp: *ST_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(0) ./director/new/b02direct.imp: *LM_0,1,LLR ./director/new/b02direct.imp: *L_2,LLR+12 ./director/new/b02direct.imp: *MC_5(0),0 ./director/new/b02direct.imp: *LM_0,1,LLR ./director/new/b02direct.imp: *L_2,LLR+12 ./director/new/b02direct.imp: *MC_6(0),0 ./director/new/b02direct.imp: *LA_1,sp1 ./director/new/b02direct.imp: *STCK_0(1); ! Store TOD clock ./director/new/b02direct.imp: *LM_0,1,LLR ./director/new/b02direct.imp: *L_2,LLR+12 ./director/new/b02direct.imp: *MC_7(0),0 ./director/new/b02direct.imp: *LM_0,1,LLR ./director/new/b02direct.imp: *L_2,LLR+12 ./director/new/b02direct.imp: *MC_8(0),0 ./director/new/b02direct.imp: *LM_0,1,LLR ./director/new/b02direct.imp: *L_2,LLR+12 ./director/new/b02direct.imp: *MC_9(0),0 ./director/new/b02direct.imp: *LM_0,1,LLR ./director/new/b02direct.imp: *L_2,LLR+12 ./director/new/b02direct.imp: *MC_10(0),0 ./director/new/b02direct.imp: *L_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(2) ./director/new/b02direct.imp: *IPK_0(0) ./director/new/b02direct.imp: *ST_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(0) ./director/new/b02direct.imp: *L_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(2) ./director/new/b02direct.imp: *MC_18(0),0 ./director/new/b02direct.imp: *IPK_0(0) ./director/new/b02direct.imp: *ST_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(0) ./director/new/b02direct.imp: *L_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(2) ./director/new/b02direct.imp: *MC_6(0),0 ./director/new/b02direct.imp: *IPK_0(0) ./director/new/b02direct.imp: *ST_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(0) ./director/new/b02direct.imp: *L_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(2) ./director/new/b02direct.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) ./director/new/b02direct.imp: *l_2,savekey; *spka_0(2) ./director/new/b02direct.imp: *IPK_0(0) ./director/new/b02direct.imp: *ST_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(0) ./director/new/b02direct.imp: *l_2,savekey; *spka_0(2) ./director/new/b02direct.imp: *IPK_0(0) ./director/new/b02direct.imp: *ST_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(0) ./director/new/b02direct.imp: *L_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(2) ./director/new/b02direct.imp: *IPK_0(0) ./director/new/b02direct.imp: *ST_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(0) ./director/new/b02direct.imp: *L_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(2) ./director/new/b02direct.imp: *LM_0,1,LONGLONGREAL ./director/new/b02direct.imp: *L_2,LONGLONGREAL+12 ./director/new/b02direct.imp: *MC_6(0),0 ./director/new/b02direct.imp: *LA_1,sp1 ./director/new/b02direct.imp: *STCK_0(1); ! Store TOD clock ./director/new/b02direct.imp: *l_0,inc ./director/new/b02direct.imp: *l_1,addrvar ./director/new/b02direct.imp: *l_2,0(1) { value of variable } ./director/new/b02direct.imp: *basr_4,0 { get a base register } ./director/new/b02direct.imp: *using_4 ./director/new/b02direct.imp: *lr_3,2 { R3 is a copy of R2 } ./director/new/b02direct.imp: *ar_3,0 { add on 'by' } ./director/new/b02direct.imp: *cs_2,3,0(1) { if R2 still valid, store R3 else reload R2 } ./director/new/b02direct.imp: *bcr_4,4 { failed, try again } ./director/new/b02direct.imp: *drop_4 ./director/new/b02direct.imp: *st_2,lres { original value of variable } ./director/new/b02direct.imp: *MC_12(0),0 ./director/new/b02direct.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) ./director/new/b02direct.imp: *L_2,SAVEKEY; *SPKA_0(2) ./director/new/b02direct.imp: *IPK_0(0) ./director/new/b02direct.imp: *ST_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(0) ./director/new/b02direct.imp: *L_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(2) ./director/new/b02direct.imp: *la_1,1(0) {R1 now contains 1 } ./director/new/b02direct.imp: *sr_2,2 ./director/new/b02direct.imp: *basr_3,0 ./director/new/b02direct.imp: *using_3 ./director/new/b02direct.imp: *l_0,x+4 { add least sig halves } ./director/new/b02direct.imp: *al_0,y+4 ./director/new/b02direct.imp: *st_0,y+4 ./director/new/b02direct.imp: *l_0,x ./director/new/b02direct.imp: *bc_12, ./director/new/b02direct.imp: *alr_0,1 ./director/new/b02direct.imp: *bc_12, ./director/new/b02direct.imp: *lr_2,1 { flag = 1 } ./director/new/b02direct.imp: *al_0,y ./director/new/b02direct.imp: *st_0,y ./director/new/b02direct.imp: *bc_12, ./director/new/b02direct.imp: *drop_3 ./director/new/b02direct.imp: *lr_2,1 { flag = 1 } ./director/new/b02direct.imp: *st_2,flag ./director/new/b02direct.imp: *l_1,x ./director/new/b02direct.imp: *m_0,y ./director/new/b02direct.imp: *stm_0,1,r ./director/new/b02direct.imp: *l_0,r ./director/new/b02direct.imp: *al_0,y ./director/new/b02direct.imp: *st_0,r ./director/new/b02direct.imp: *l_0,r ./director/new/b02direct.imp: *al_0,x ./director/new/b02direct.imp: *st_0,r ./director/new/b02direct.imp: *LA_2,W1 ./director/new/b02direct.imp: *SRL_2,3 ./director/new/b02direct.imp: *SLL_2,3 ./director/new/b02direct.imp: *STCK_0(2) ./director/new/b02direct.imp: *LM_0,1,0(2) ./director/new/b02direct.imp: *SRDL_0,12 { convert to microseconds } ./director/new/b02direct.imp: *ST_1,J { ie a random number } ./director/new/b02direct.imp: *IPK_0(0) ./director/new/b02direct.imp: *ST_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(0) ./director/new/b02direct.imp: *L_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(2) ./director/new/b02direct.imp: *MC_17(0),0 ./director/new/b02direct.imp: *IPK_0(0) ./director/new/b02direct.imp: *ST_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(0) ./director/new/b02direct.imp: *MC_25(0),0 ./director/new/b02direct.imp: *L_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(2) ./director/new/b02direct.imp: *IPK_0(0) ./director/new/b02direct.imp: *ST_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(0) ./director/new/b02direct.imp: *MC_6(0),0 ./director/new/b02direct.imp: *MC_5(0),0 ./director/new/b02direct.imp: *L_2,SAVEKEY; *SPKA_0(2) ./director/new/b02direct.imp: *IPK_0(0) ./director/new/b02direct.imp: *ST_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(0) ./director/new/b02direct.imp: *L_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(2) ./director/new/b02direct.imp: *MC_11(0),0 ./director/new/b02direct.imp: *LA_1,sp1 ./director/new/b02direct.imp: *STCK_0(1); ! Store TOD clock ./director/new/b02direct.imp: *IPK_0(0) ./director/new/b02direct.imp: *ST_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(0) ./director/new/b02direct.imp: *L_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(2) ./director/new/b02direct.imp: *MC_11(0),0 ./director/new/b02direct.imp: *MC_7(0),0 ./director/new/b02direct.imp: *IPK_0(0) ./director/new/b02direct.imp: *ST_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(0) ./director/new/b02direct.imp: *L_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(2) ./director/new/b02direct.imp: *IPK_0(0) ./director/new/b02direct.imp: *ST_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(0) ./director/new/b02direct.imp: *L_2,SAVEKEY ./director/new/b02direct.imp: *SPKA_0(2) ./director/new/b02direct.imp: *MC_18(0),0 ./director/new/b02direct.imp: *mc_12(0),0 ./director/new/c05diag.imp: *la_11,96(11) ./director/new/c05diag.imp: *lr_13,12 ./director/new/c05diag.imp: *la_2,32 ./director/new/c05diag.imp: *sr_13,2 {GR13 now points to start of file} ./director/new/c05diag.imp: *A_13,24(13) {add on GLA(P) offset} ./director/new/c05diag.imp: *BASR_1,0 ./director/new/c05diag.imp: *USING_1 ./director/new/c05diag.imp: *ltr_0,0 ./director/new/c05diag.imp: *BC_7, ./director/new/c05diag.imp: *DROP_1 ./director/new/c05diag.imp: *MC_0(0),0 ./director/new/c05diag.imp: *st_0,diroutpad ./director/new/c05diag.imp: *lm_11,14,r11 ./director/new/c05diag.imp: *mc_13(0),0 ./director/new/c05diag.imp: *BASR_15,14 ./director/new/c05diag.imp: *st_11,topofstack ./director/new/c05diag.imp: *l_2,regs ./director/new/c05diag.imp: *l_3,inf ./director/new/c05diag.imp: *MVC_0(64,2),0(3) ./director/new/c05diag.imp: *l_2,regs ./director/new/c05diag.imp: *MVC_0(64,2),0(10) ./director/new/c05diag.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) ./director/new/c05diag.imp: *l_2,savekey; *spka_0(2) ./director/new/c05diag.imp: *l_1,adr ./director/new/c05diag.imp: *l_2,nextcontext ./director/new/c05diag.imp: *l_3,12(2) { address of environment } ./director/new/c05diag.imp: *mvc_16(44,1),16(3) { 4 - 14 from environment } ./director/new/c05diag.imp: *mvc_48(8,1),0(2) { code & gla to 12 & 13 } ./director/new/c05diag.imp: *mvc_60(4,1),8(2) { ep to 15 } ./director/new/c05diag.imp: *l_1,adr ./director/new/c05diag.imp: *l_2,adr0 ./director/new/c05diag.imp: *mvc_0(64,2),0(1) ./director/new/c05diag.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) ./director/new/c05diag.imp: *l_2,savekey; *spka_0(2) ./director/new/c05diag.imp: *la_1,ck ./director/new/c05diag.imp: *stck_0(1) ./director/new/c05diag.imp: *lm_0,1,0(1) ./director/new/c05diag.imp: *la_15,12 ./director/new/c05diag.imp: *srdl_0,0(15) ./director/new/c05diag.imp: *st_1,j; ! 32 bits of tolerably "unique" ID ./director/new/c05diag.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) ./director/new/c05diag.imp: *l_2,savekey; *spka_0(2) ./director/new/c05diag.imp: *mc_6(0),0; ! PON ./director/new/c05diag.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) ./director/new/c05diag.imp: *l_2,savekey; *spka_0(2) ./director/new/c05diag.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) ./director/new/c05diag.imp: *l_2,savekey; *spka_0(2) ./director/new/c05diag.imp: *ipk_0(0) ./director/new/c05diag.imp: *st_2,savekey ./director/new/c05diag.imp: *spka_0(0) ./director/new/c05diag.imp: *l_2,savekey ./director/new/c05diag.imp: *spka_0(2) ./director/new/c05diag.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) ./director/new/c05diag.imp: *l_2,savekey; *spka_0(2) ./director/new/c05diag.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) ./director/new/c05diag.imp: *l_2,savekey; *spka_0(2) ./director/new/c05diag.imp: *mc_19(0),0 ./director/new/c05diag.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) ./director/new/c05diag.imp: *l_2,savekey; *spka_0(2) ./director/new/c05diag.imp: *stm_4,14,16(11) { save current regs } ./director/new/c05diag.imp: *l_1,adr ./director/new/c05diag.imp: *st_11,44(1) { to keep GR11 } ./director/new/c05diag.imp: *lm_4,15,16(1) ./director/new/c05diag.imp: *mc_13(0),0 { relinquish priv etc } ./director/new/c05diag.imp: *basr_15,15 { enter the ontrap routine } ./director/new/c05diag.imp: *mc_12(0),0 { get priv back } ./director/new/c05diag.imp: *st_1,nc { result of ontrap } ./director/new/c05diag.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) ./director/new/c05diag.imp: *l_2,savekey; *spka_0(2) ./director/new/c05diag.imp: *mc_19(0),0 ./director/new/c05diag.imp: *ipk_0(0) ./director/new/c05diag.imp: *st_2,savekey ./director/new/c05diag.imp: *spka_0(0) ./director/new/c05diag.imp: *l_2,savekey ./director/new/c05diag.imp: *spka_0(2) ./director/new/c05diag.imp: *MC_19(0),0 ./director/new/c05diag.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) ./director/new/c05diag.imp: *l_2,savekey; *spka_0(2) ./director/new/c05diag.imp: *mc_19(0),0 ./director/new/c05diag.imp: *ipk_0(0) ./director/new/c05diag.imp: *st_2,savekey ./director/new/c05diag.imp: *spka_0(0) ./director/new/c05diag.imp: *l_2,savekey ./director/new/c05diag.imp: *spka_0(2) ./director/new/c05diag.imp: *MC_6(0),0 ./director/new/c05diag.imp: *mc_12(0),0 ./director/new/c05diag.imp: *ipk_0(0) ./director/new/c05diag.imp: *st_2,savekey ./director/new/c05diag.imp: *spka_0(0) ./director/new/c05diag.imp: *l_2,savekey ./director/new/c05diag.imp: *spka_0(2) ./director/new/c05diag.imp: *mc_13(0),0 ./director/new/c05diag.imp: *mc_12(0),0 ./director/new/c05diag.imp: *ipk_0(0) ./director/new/c05diag.imp: *st_2,savekey ./director/new/c05diag.imp: *spka_0(0) ./director/new/c05diag.imp: *l_2,savekey ./director/new/c05diag.imp: *spka_0(2) ./director/new/c05diag.imp: *slr_1,1 { result } ./director/new/c05diag.imp: *lm_4,15,16(10) ./director/new/c05diag.imp: *mc_13,0 ./director/new/c05diag.imp: *mc_19(0),0 ./director/new/c05diag.imp: *bcr_15,15 ./director/new/c05diag.imp: *mc_13(0),0 ./director/new/c05diag.imp: *mc_12(0),0 ./director/new/c05diag.imp: *ipk_0(0) ./director/new/c05diag.imp: *st_2,savekey ./director/new/c05diag.imp: *spka_0(0) ./director/new/c05diag.imp: *l_2,savekey ./director/new/c05diag.imp: *spka_0(2) ./director/new/c05diag.imp: *mc_6(0),0 ./director/new/c05diag.imp: *ipk_0(0) ./director/new/c05diag.imp: *st_2,savekey ./director/new/c05diag.imp: *spka_0(0) ./director/new/c05diag.imp: *l_2,savekey ./director/new/c05diag.imp: *spka_0(2) ./director/new/c05diag.imp: *mc_13(0),0 ./director/new/c05diag.imp: *mc_12(0),0 ./director/new/c05diag.imp: *ipk_0(0) ./director/new/c05diag.imp: *st_2,savekey ./director/new/c05diag.imp: *spka_0(0) ./director/new/c05diag.imp: *l_2,savekey ./director/new/c05diag.imp: *spka_0(2) ./director/new/c05diag.imp: *mc_2(0),0; ! class 0, code 2 ./director/new/c05diag.imp: *mc_13(0),0 ./director/new/c05diag.imp: *mc_12(0),0 ./director/new/c05diag.imp: *ipk_0(0) ./director/new/c05diag.imp: *st_2,savekey ./director/new/c05diag.imp: *spka_0(0) ./director/new/c05diag.imp: *l_2,savekey ./director/new/c05diag.imp: *spka_0(2) ./director/new/c05diag.imp: *mc_24(0),0; ! class 0, code 24 ./director/new/c05diag.imp: *mc_13(0),0 ./director/new/c05diag.imp: *mc_26(0),0; ! class 0, code 26 ./director/new/c05diag.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) ./director/new/c05diag.imp: *l_2,savekey; *spka_0(2) ./director/new/c05diag.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) ./director/new/c05diag.imp: *l_2,savekey; *spka_0(2) ./director/new/c05diag.imp: *MC_12(0),0 { get access to extra segments } ./director/new/c05diag.imp: *st_11,stackfront ./director/new/c05diag.imp: *st_10,lnb ./director/new/c05diag.imp: *st_10,lnb ./director/new/c05diag.imp: *ipk_0(0) ./director/new/c05diag.imp: *st_2,savekey ./director/new/c05diag.imp: *spka_0(0) ./director/new/c05diag.imp: *l_2,savekey ./director/new/c05diag.imp: *spka_0(2) ./director/new/c05diag.imp: *MC_6(0),0 ./director/new/c05diag.imp: *MC_13(0),0 {relinquish PRIV and access to extra segs} ./director/new/c05diag.imp: *ipk_0(0); *st_2,savekey; *spka_0(0) ./director/new/c05diag.imp: *l_2,savekey; *spka_0(2) ./director/new/c05diag.imp: *basr_15,0 ./director/new/c05diag.imp: *using_15 ./director/new/c05diag.imp: *l_1,vadr ./director/new/c05diag.imp: *lra_0,0(1) ./director/new/c05diag.imp: *bc_8, ./director/new/c05diag.imp: *st_0,radr ./director/new/c05diag.imp: *drop_15 ./director/old/c04xop.imp: *STLN_LNBHERE ./director/old/c04xop.imp: *LD_W ./director/old/c04xop.imp: *LB_(%DR) ./director/old/c04xop.imp: *ADB_1 ./director/old/c04xop.imp: *LDB_%B ./director/old/c04xop.imp: *CYD_0 ./director/old/c04xop.imp: *LDA_TO ./director/old/c04xop.imp: *MV_%L=%DR ./director/old/c04xop.imp: *LDTB_101 ./director/old/c04xop.imp: *LDA_A ./director/old/c04xop.imp: *LB_FSYS ./director/old/c04xop.imp: *LSS_OPEN ./director/old/c04xop.imp: *ST_(%DR+%B) ./director/old/c04xop.imp: *LDTB_101 ./director/old/c04xop.imp: *LDA_A ./director/old/c04xop.imp: *LB_FSYS ./director/old/c04xop.imp: *LSS_(%DR+%B) ./director/old/c04xop.imp: *ST_VAR ./director/old/c04xop.imp: *LXN_SITEA ./director/old/c04xop.imp: *TDEC_(%XNB+0) ./director/old/c04xop.imp: *ST_COUNT; ! original value ./director/old/c04xop.imp: *IPK_0(0) ./director/old/c04xop.imp: *ST_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(0) ./director/old/c04xop.imp: *L_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(2) ./director/old/c04xop.imp: *IPK_0(0) ./director/old/c04xop.imp: *ST_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(0) ./director/old/c04xop.imp: *L_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(2) ./director/old/c04xop.imp: *IPK_0(0) ./director/old/c04xop.imp: *ST_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(0) ./director/old/c04xop.imp: *L_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(2) ./director/old/c04xop.imp: *IPK_0(0) ./director/old/c04xop.imp: *ST_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(0) ./director/old/c04xop.imp: *L_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(2) ./director/old/c04xop.imp: *IPK_0(0) ./director/old/c04xop.imp: *ST_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(0) ./director/old/c04xop.imp: *L_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(2) ./director/old/c04xop.imp: *IPK_0(0) ./director/old/c04xop.imp: *ST_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(0) ./director/old/c04xop.imp: *OUT_11 ./director/old/c04xop.imp: *MC_11(0),0 ./director/old/c04xop.imp: *OUT_6 ./director/old/c04xop.imp: *MC_6(0),0 ./director/old/c04xop.imp: *OUT_6 ./director/old/c04xop.imp: *MC_6(0),0 ./director/old/c04xop.imp: *L_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(2) ./director/old/c04xop.imp: *IPK_0(0) ./director/old/c04xop.imp: *ST_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(0) ./director/old/c04xop.imp: *OUT_1 ./director/old/c04xop.imp: *MC_1(0),0 ./director/old/c04xop.imp: *L_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(2) ./director/old/c04xop.imp: *LDTB_101 ./director/old/c04xop.imp: *LDA_A ./director/old/c04xop.imp: *LB_FSYS ./director/old/c04xop.imp: *LSS_(%DR+%B) ./director/old/c04xop.imp: *ST_BIT ./director/old/c04xop.imp: *IPK_0(0) ./director/old/c04xop.imp: *ST_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(0) ./director/old/c04xop.imp: *L_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(2) ./director/old/c04xop.imp: *IPK_0(0) ./director/old/c04xop.imp: *ST_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(0) ./director/old/c04xop.imp: *L_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(2) ./director/old/c04xop.imp: *IPK_0(0) ./director/old/c04xop.imp: *ST_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(0) ./director/old/c04xop.imp: *L_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(2) ./director/old/c04xop.imp: *MPSR_X'F840'; ! clear bits 5-7 in PSR which are left as ones ./director/old/c04xop.imp: *STLN_I ./director/old/c04xop.imp: *LSS_(3) ./director/old/c04xop.imp: *ST_J ./director/old/c04xop.imp: *LSS_J ./director/old/c04xop.imp: *ST_(3); ! IC INTS MASKED IN SSR ./director/old/c04xop.imp: *IPK_0(0) ./director/old/c04xop.imp: *ST_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(0) ./director/old/c04xop.imp: *L_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(2) ./director/old/c04xop.imp: *IPK_0(0) ./director/old/c04xop.imp: *ST_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(0) ./director/old/c04xop.imp: *L_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(2) ./director/old/c04xop.imp: *LB_0; ! BIT COUNT ./director/old/c04xop.imp: *LSS_N ./director/old/c04xop.imp: *JAT_4,; ! J IF ZERO ./director/old/c04xop.imp: *ST_%TOS ./director/old/c04xop.imp: *USB_1 ./director/old/c04xop.imp: *AND_%TOS; ! N = N & (N-1) ./director/old/c04xop.imp: *ADB_1 ./director/old/c04xop.imp: *JAF_4,; ! J IF NOT ZERO ./director/old/c04xop.imp: *LSS_%B; ! RESULT TO ACC ./director/old/c04xop.imp: *EXIT_-64; ! %RETURN ./director/old/c04xop.imp: *OUT_6; ! LIKE DPON BUT WITHOUT SPOILING LOUTP ./director/old/c04xop.imp: *IPK_0(0) ./director/old/c04xop.imp: *ST_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(0) ./director/old/c04xop.imp: *MC_6(0),0 ./director/old/c04xop.imp: *L_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(2) ./director/old/c04xop.imp: *IPK_0(0) ./director/old/c04xop.imp: *ST_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(0) ./director/old/c04xop.imp: *L_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(2) ./director/old/c04xop.imp: *LB_LENGTH ./director/old/c04xop.imp: *JAF_13,; ! J IF NOT > ZERO ./director/old/c04xop.imp: *LDTB_X'18000000' ./director/old/c04xop.imp: *LDB_%B ./director/old/c04xop.imp: *LDA_FROM ./director/old/c04xop.imp: *CYD_0 ./director/old/c04xop.imp: *LDA_TO ./director/old/c04xop.imp: *NEQS_%L=%DR ./director/old/c04xop.imp: *IPK_0(0) ./director/old/c04xop.imp: *ST_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(0) ./director/old/c04xop.imp: *L_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(2) ./director/old/c04xop.imp: *STLN_I ./director/old/c04xop.imp: *IPK_0(0) ./director/old/c04xop.imp: *ST_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(0) ./director/old/c04xop.imp: *OUT_1 ./director/old/c04xop.imp: *MC_1(0),0 ./director/old/c04xop.imp: *L_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(2) ./director/old/c04xop.imp: *IPK_0(0) ./director/old/c04xop.imp: *ST_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(0) ./director/old/c04xop.imp: *L_2,SAVEKEY ./director/old/c04xop.imp: *SPKA_0(2) ./director/old/c04xop.imp: *LDA_UNN+4 ./director/old/c04xop.imp: *LDTB_K ./director/old/c04xop.imp: *VAL_(%LNB+1) ./director/old/c04xop.imp: *JCC_3,; ! jump if no read access to descriptor ./director/old/c04xop.imp: *LD_UNN+8 ./director/old/c04xop.imp: *VAL_(%LNB+1) ./director/old/c04xop.imp: *JCC_3, ./director/old/c04xop.imp: *mc_12(0),0 ./director/old/c04xop.imp: *mc_13(0),0 ./director/old/b01conn.imp: *ASF_9; ! ROOM FOR CODES ./director/old/b01conn.imp: *LSS_2 ./director/old/b01conn.imp: *USH_18 ./director/old/b01conn.imp: *ST_CODES { addr of code seg } ./director/old/b01conn.imp: *LXN_CODES ./director/old/b01conn.imp: *LSS_(%XNB+6) { start of GLAP } ./director/old/b01conn.imp: *IAD_CODES ./director/old/b01conn.imp: *ST_(%LNB+4) { start of 'GLA' } ./director/old/b01conn.imp: *JAF_12,; ! jump if B non-zero ./director/old/b01conn.imp: *OUT_0 ./director/old/b01conn.imp: *LSS_%B ./director/old/b01conn.imp: *ST_DR1 ./director/old/b01conn.imp: *OUT_0 ./director/old/b01conn.imp: *LA_11,96(11) ./director/old/b01conn.imp: *LR_13,12 ./director/old/b01conn.imp: *LA_2,32 ./director/old/b01conn.imp: *SR_13,2 { GR13 now points to start of file } ./director/old/b01conn.imp: *A_13,24(13) { add on GLA(P) offset } ./director/old/b01conn.imp: *BASR_1,0 ./director/old/b01conn.imp: *USING_1 ./director/old/b01conn.imp: *LTR_0,0 ./director/old/b01conn.imp: *BC_7, ./director/old/b01conn.imp: *DROP_1 ./director/old/b01conn.imp: *MC_0(0),0 ./director/old/b01conn.imp: *ST_0,DIROUTPAD ./director/old/b01conn.imp: *LD_S ./director/old/b01conn.imp: *LSS_PLACES ./director/old/b01conn.imp: *ST_(%DR) ./director/old/b01conn.imp: *INCA_1 ./director/old/b01conn.imp: *STD_%TOS ./director/old/b01conn.imp: *STD_%TOS ./director/old/b01conn.imp: *LSS_VALUE ./director/old/b01conn.imp: *LUH_0 ./director/old/b01conn.imp: *USH_I ./director/old/b01conn.imp: *MPSR_X'24' ./director/old/b01conn.imp: *SUPK_%L=8 ./director/old/b01conn.imp: *LD_%TOS ./director/old/b01conn.imp: *ANDS_%L=8,0,15 ./director/old/b01conn.imp: *LSS_H+4 ./director/old/b01conn.imp: *LUH_X'18000010' ./director/old/b01conn.imp: *LD_%TOS ./director/old/b01conn.imp: *TTR_%L=8 ./director/old/b01conn.imp: *LDTB_X'18000000' ./director/old/b01conn.imp: *LDB_L ./director/old/b01conn.imp: *LDA_A1 ./director/old/b01conn.imp: *STD_%TOS ./director/old/b01conn.imp: *LSD_%TOS ./director/old/b01conn.imp: *LDA_A2 ./director/old/b01conn.imp: *CPS_%L=%DR,32,0 ./director/old/b01conn.imp: *JCC_8, ./director/old/b01conn.imp: *LDTB_X'18000100' ./director/old/b01conn.imp: *LDA_A ./director/old/b01conn.imp: *CYD_0 ./director/old/b01conn.imp: *LDA_ADR ./director/old/b01conn.imp: *LDB_LEN ./director/old/b01conn.imp: *TTR_%L=%DR ./director/old/b01conn.imp: *IPK_0(0) ./director/old/b01conn.imp: *ST_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(0) ./director/old/b01conn.imp: *L_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(2) ./director/old/b01conn.imp: *IPK_0(0) ./director/old/b01conn.imp: *ST_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(0) ./director/old/b01conn.imp: *L_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(2) ./director/old/b01conn.imp: *IPK_0(0) ./director/old/b01conn.imp: *ST_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(0) ./director/old/b01conn.imp: *L_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(2) ./director/old/b01conn.imp: *LDTB_X'18000000' ./director/old/b01conn.imp: *LDB_LENGTH ./director/old/b01conn.imp: *LDA_FROM ./director/old/b01conn.imp: *LB_FILLER ./director/old/b01conn.imp: *MVL_%L=%DR ./director/old/b01conn.imp: *LDTB_X'18000000' ./director/old/b01conn.imp: *LDB_LENGTH ./director/old/b01conn.imp: *LDA_FROM ./director/old/b01conn.imp: *CYD_0 ./director/old/b01conn.imp: *LDA_TO ./director/old/b01conn.imp: *MV_%L=%DR ./director/old/b01conn.imp: *RRTC_0 ./director/old/b01conn.imp: *STUH_%B ./director/old/b01conn.imp: *AND_N ./director/old/b01conn.imp: *EXIT_-64 ./director/old/b01conn.imp: *LA_2,W1 ./director/old/b01conn.imp: *SRL_2,3 ./director/old/b01conn.imp: *SLL_2,3 ./director/old/b01conn.imp: *STCK_0(2) ./director/old/b01conn.imp: *LM_0,1,0(2) ./director/old/b01conn.imp: *SRDL_0,24 ./director/old/b01conn.imp: *ST_1,W0 ./director/old/b01conn.imp: *LDTB_DR0 ./director/old/b01conn.imp: *LDA_ADR ./director/old/b01conn.imp: *VAL_PSR ./director/old/b01conn.imp: *JCC_8, ./director/old/b01conn.imp: *JCC_4, ./director/old/b01conn.imp: *JCC_2, ./director/old/b01conn.imp: *MC_12(0),0 ./director/old/b01conn.imp: *st_11,stack front ./director/old/b01conn.imp: *ST_10,LNB ./director/old/b01conn.imp: *IPK_0(0) ./director/old/b01conn.imp: *ST_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(0) ./director/old/b01conn.imp: *L_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(2) ./director/old/b01conn.imp: *MC_6(0),0 ./director/old/b01conn.imp: *ST_10,LNB ./director/old/b01conn.imp: *MC_13(0),0 { relinquish PRIV and access to extra segs } ./director/old/b01conn.imp: *IPK_0(0) ./director/old/b01conn.imp: *ST_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(0) ./director/old/b01conn.imp: *L_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(2) ./director/old/b01conn.imp: *LSS_KINSTRUCTIONS ./director/old/b01conn.imp: *ST_(6); ! IMAGE STORE 6 = IC ./director/old/b01conn.imp: *LSS_(6); ! IMAGE STORE 6 = IC ./director/old/b01conn.imp: *ST_INSTRUCTIONS ./director/old/b01conn.imp: *LSS_(3); ! SSR ./director/old/b01conn.imp: *ST_J ./director/old/b01conn.imp: *LSS_(5); ! IT REGISTER ./director/old/b01conn.imp: *ST_ITUNITS ./director/old/b01conn.imp: *RRTC_0 ./director/old/b01conn.imp: *USH_-1 ./director/old/b01conn.imp: *SHS_1 ./director/old/b01conn.imp: *USH_1 ./director/old/b01conn.imp: *IDV_JMS ./director/old/b01conn.imp: *STUH_%B ./director/old/b01conn.imp: *EXIT_-64 ./director/old/b01conn.imp: *LA_2,W1 ./director/old/b01conn.imp: *SRL_2,3 ./director/old/b01conn.imp: *SLL_2,3 ./director/old/b01conn.imp: *STCK_0(2) ./director/old/b01conn.imp: *LM_0,1,0(2) ./director/old/b01conn.imp: *SRDL_0,24 ./director/old/b01conn.imp: *D_0,JMS ./director/old/b01conn.imp: *ST_1,W0 ./director/old/b01conn.imp: *LXN_J ./director/old/b01conn.imp: *INCT_(%XNB+0) ./director/old/b01conn.imp: *STLN_LNBHERE ./director/old/b01conn.imp: *LSS_(3) ./director/old/b01conn.imp: *OR_INH IC INTS ./director/old/b01conn.imp: *ST_(3) ./director/old/b01conn.imp: *STSF_SF; ! CHECK ENOUGH STACK ./director/old/b01conn.imp: *LSS_(3); ! SSR ./director/old/b01conn.imp: *AND_ALLOW IC INTS; ! UNINHIBIT IC INTERRUPTS ./director/old/b01conn.imp: *ST_(3) ./director/old/b01conn.imp: *STLN_LNB ./director/old/b01conn.imp: *LXN_ADR ./director/old/b01conn.imp: *INCT_(%XNB+0) ./director/old/b01conn.imp: *ST_C ./director/old/b01conn.imp: *IPK_0(0) ./director/old/b01conn.imp: *ST_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(0) ./director/old/b01conn.imp: *LA_0,1 { useful const } ./director/old/b01conn.imp: *L_1,ADR ./director/old/b01conn.imp: *L_2,0(1) { value of sema } ./director/old/b01conn.imp: *BASR_4,0 ./director/old/b01conn.imp: *LR_3,2 ./director/old/b01conn.imp: *AR_3,0 { increment value by one } ./director/old/b01conn.imp: *CS_2,3,0(1) { store 3 if 2 still valid else reload 2 } ./director/old/b01conn.imp: *BCR_4,4 { not done, try again } ./director/old/b01conn.imp: *ST_3,C ./director/old/b01conn.imp: *L_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(2) ./director/old/b01conn.imp: *LXN_ADR ./director/old/b01conn.imp: *TDEC_(%XNB+0) ./director/old/b01conn.imp: *ST_C; ! original value ./director/old/b01conn.imp: *IPK_0(0) ./director/old/b01conn.imp: *ST_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(0) ./director/old/b01conn.imp: *LA_0,1 ./director/old/b01conn.imp: *L_1,ADR ./director/old/b01conn.imp: *L_2,0(1) ./director/old/b01conn.imp: *BASR_4,0 ./director/old/b01conn.imp: *LR_3,2 ./director/old/b01conn.imp: *SR_3,0 ./director/old/b01conn.imp: *CS_2,3,0(1) ./director/old/b01conn.imp: *BCR_4,4 ./director/old/b01conn.imp: *ST_2,C { original value } ./director/old/b01conn.imp: *L_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(2) ./director/old/b01conn.imp: *LXN_ADR ./director/old/b01conn.imp: *INCT_(%XNB+0); ! put it back, Supervisor doesn't like if < 0 ./director/old/b01conn.imp: *ST_C ./director/old/b01conn.imp: *IPK_0(0) ./director/old/b01conn.imp: *ST_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(0) ./director/old/b01conn.imp: *LA_0,1 { useful const } ./director/old/b01conn.imp: *L_1,ADR ./director/old/b01conn.imp: *L_2,0(1) { value of sema } ./director/old/b01conn.imp: *BASR_4,0 ./director/old/b01conn.imp: *LR_3,2 ./director/old/b01conn.imp: *AR_3,0 { increment value by one } ./director/old/b01conn.imp: *CS_2,3,0(1) { store 3 if 2 still valid else reload 2 } ./director/old/b01conn.imp: *BCR_4,4 { not done, try again } ./director/old/b01conn.imp: *ST_3,C { new value } ./director/old/b01conn.imp: *L_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(2) ./director/old/b01conn.imp: *IPK_0(0) ./director/old/b01conn.imp: *ST_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(0) ./director/old/b01conn.imp: *L_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(2) ./director/old/b01conn.imp: *OUT_3; ! SET P_P2=1 FOR "DESTROYING SEGMENT" ./director/old/b01conn.imp: *MC_3(0),0 ./director/old/b01conn.imp: *IPK_0(0) ./director/old/b01conn.imp: *ST_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(0) ./director/old/b01conn.imp: *L_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(2) ./director/old/b01conn.imp: *LSS_(1); ! pick up PSR ./director/old/b01conn.imp: *AND_X'FF0FFFFF'; ! remove ACR bits ./director/old/b01conn.imp: *OR_X'00100000'; ! set ACR to one ./director/old/b01conn.imp: *ST_(1); ! and put it back ./director/old/b01conn.imp: *IPK_0(0) ./director/old/b01conn.imp: *ST_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(0) ./director/old/b01conn.imp: *L_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(2) ./director/old/b01conn.imp: *LXN_SEMADDR ./director/old/b01conn.imp: *INCT_(%XNB+0) ./director/old/b01conn.imp: *JCC_8,; ! GOT SEMA IF VALUE IS 0 ./director/old/b01conn.imp: *JCC_4, ./director/old/b01conn.imp: *LA_0,1 { useful const } ./director/old/b01conn.imp: *L_1,SEMADDR ./director/old/b01conn.imp: *L_2,0(1) { value of sema } ./director/old/b01conn.imp: *BASR_4,0 ./director/old/b01conn.imp: *USING_4 ./director/old/b01conn.imp: *LR_3,2 ./director/old/b01conn.imp: *AR_3,0 { increment value by one } ./director/old/b01conn.imp: *CS_2,3,0(1) { store 3 if 2 still valid else reload 2 } ./director/old/b01conn.imp: *BCR_4,4 { not done, try again } ./director/old/b01conn.imp: *LTR_3,3 ./director/old/b01conn.imp: *BC_8, { now zero so must have been -1 } ./director/old/b01conn.imp: *BC_2, { positive - other users } ./director/old/b01conn.imp: *DROP_4 ./director/old/b01conn.imp: *LXN_SEMADDR ./director/old/b01conn.imp: *TDEC_(%XNB+0) ./director/old/b01conn.imp: *JCC_8,; ! NO-ONE QUEUED ON THIS SEMA ./director/old/b01conn.imp: *JCC_4, ./director/old/b01conn.imp: *ST_SEM ./director/old/b01conn.imp: *LA_0,1 ./director/old/b01conn.imp: *L_1,SEMADDR ./director/old/b01conn.imp: *L_2,0(1) ./director/old/b01conn.imp: *BASR_4,0 ./director/old/b01conn.imp: *USING_4 ./director/old/b01conn.imp: *LR_3,2 ./director/old/b01conn.imp: *SR_3,0 ./director/old/b01conn.imp: *CS_2,3,0(1) ./director/old/b01conn.imp: *BCR_4,4 ./director/old/b01conn.imp: *LTR_2,2 ./director/old/b01conn.imp: *BC_8, ./director/old/b01conn.imp: *BC_2, ./director/old/b01conn.imp: *ST_2,SEM ./director/old/b01conn.imp: *DROP_4 ./director/old/b01conn.imp: *IPK_0(0) ./director/old/b01conn.imp: *ST_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(0) ./director/old/b01conn.imp: *L_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(2) ./director/old/b01conn.imp: *LSS_(1); ! PICK UP PSR ./director/old/b01conn.imp: *AND_X'FF0FFFFF'; ! REMOVE ACR BITS ./director/old/b01conn.imp: *OR_X'00100000'; ! AND SET TO 1 ./director/old/b01conn.imp: *ST_(1); ! PUT BACK ./director/old/b01conn.imp: *IPK_0(0) ./director/old/b01conn.imp: *ST_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(0) ./director/old/b01conn.imp: *L_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(2) ./director/old/b01conn.imp: *IPK_0(0) ./director/old/b01conn.imp: *ST_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(0) ./director/old/b01conn.imp: *L_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(2) ./director/old/b01conn.imp: *LDTB_BITS IN BITMAP; ! SET UP DR AND B ./director/old/b01conn.imp: *LDA_B; ! TO ADDR THE BIT ./director/old/b01conn.imp: *LB_BIT NO; ! WE WANT ./director/old/b01conn.imp: *LSS_(%DR+%B); ! PICK UP BIT ./director/old/b01conn.imp: *JAT_5,; ! J IF > 0, ALREADY SET ./director/old/b01conn.imp: *LSS_1 ./director/old/b01conn.imp: *ST_(%DR+%B) ./director/old/b01conn.imp: *LDTB_BITS IN BITMAP; ! SET UP DR AND B ./director/old/b01conn.imp: *LDA_B; ! TO ADDR THE BIT ./director/old/b01conn.imp: *LB_BIT NO; ! WE WANT ./director/old/b01conn.imp: *LSS_(%DR+%B) ./director/old/b01conn.imp: *JAT_4,; ! J IF = 0, ALREADY GOOD ./director/old/b01conn.imp: *LSS_0 ./director/old/b01conn.imp: *ST_(%DR+%B) ./director/old/b01conn.imp: *LDTB_BITS IN BITMAP; ! SET UP DR AND B ./director/old/b01conn.imp: *LDA_B; ! TO ADDR THE BIT ./director/old/b01conn.imp: *LB_BIT NO; ! WE WANT ./director/old/b01conn.imp: *LSS_(%DR+%B); ! RESULT NOW IN ACC ./director/old/b01conn.imp: *EXIT_-64; ! RETURN ./director/old/b01conn.imp: *IPK_0(0) ./director/old/b01conn.imp: *ST_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(0) ./director/old/b01conn.imp: *L_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(2) ./director/old/b01conn.imp: *OUT_17 ./director/old/b01conn.imp: *MC_17(0),0 ./director/old/b01conn.imp: *IPK_0(0) ./director/old/b01conn.imp: *ST_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(0) ./director/old/b01conn.imp: *L_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(2) ./director/old/b01conn.imp: *LDTB_256 ./director/old/b01conn.imp: *LDA_Adr ./director/old/b01conn.imp: *LB_MODE ./director/old/b01conn.imp: *LSS_(%dr+%b) ./director/old/b01conn.imp: *ST_K ./director/old/b01conn.imp: *IPK_0(0) ./director/old/b01conn.imp: *ST_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(0) ./director/old/b01conn.imp: *L_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(2) ./director/old/b01conn.imp: *IPK_0(0) ./director/old/b01conn.imp: *ST_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(0) ./director/old/b01conn.imp: *L_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(2) ./director/old/b01conn.imp: *STLN_J ./director/old/b01conn.imp: *IPK_0(0) ./director/old/b01conn.imp: *ST_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(0) ./director/old/b01conn.imp: *LSS_(1); ! pick up PSR ./director/old/b01conn.imp: *AND_X'FF0FFFFF'; ! remove ACR bits ./director/old/b01conn.imp: *OR_X'00100000'; ! set ACR to one ./director/old/b01conn.imp: *ST_(1); ! and put it back ./director/old/b01conn.imp: *L_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(2) ./director/old/b01conn.imp: *LSS_(1); ! pick up PSR ./director/old/b01conn.imp: *AND_X'FF0FFFFF'; ! remove ACR bits ./director/old/b01conn.imp: *OR_X'00100000'; ! set ACR to one ./director/old/b01conn.imp: *ST_(1); ! and put it back ./director/old/b01conn.imp: *IPK_0(0) ./director/old/b01conn.imp: *ST_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(0) ./director/old/b01conn.imp: *L_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(2) ./director/old/b01conn.imp: *LD_DR0 ./director/old/b01conn.imp: *LSD_ADR0 ./director/old/b01conn.imp: *TCH_%L=%DR ./director/old/b01conn.imp: *JCC_8, ./director/old/b01conn.imp: *STD_W0 ./director/old/b01conn.imp: *LD_DR0 ./director/old/b01conn.imp: *LB_0; ! test char = 0 (to find holes) ./director/old/b01conn.imp: *SWNE_%L=%DR ./director/old/b01conn.imp: *JCC_8, ./director/old/b01conn.imp: *STD_DR0 ./director/old/b01conn.imp: *OUT_20; ! inform Supervisor ./director/old/b01conn.imp: *OUT_20; ! inform Supervisor ./director/old/b01conn.imp: *IPK_0(0) ./director/old/b01conn.imp: *ST_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(0) ./director/old/b01conn.imp: *L_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(2) ./director/old/b01conn.imp: *MC_20(0),0 ./director/old/b01conn.imp: *IPK_0(0) ./director/old/b01conn.imp: *ST_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(0) ./director/old/b01conn.imp: *L_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(2) ./director/old/b01conn.imp: *MC_20(0),0 ./director/old/b01conn.imp: *LSS_(1); ! pick up PSR ./director/old/b01conn.imp: *AND_X'FF0FFFFF'; ! remove ACR bits ./director/old/b01conn.imp: *OR_X'00100000'; ! set ACR to one ./director/old/b01conn.imp: *ST_(1); ! and put it back ./director/old/b01conn.imp: *OUT_4 ./director/old/b01conn.imp: *IPK_0(0) ./director/old/b01conn.imp: *ST_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(0) ./director/old/b01conn.imp: *L_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(2) ./director/old/b01conn.imp: *IPK_0(0) ./director/old/b01conn.imp: *ST_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(0) ./director/old/b01conn.imp: *L_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(2) ./director/old/b01conn.imp: *MC_3(0),0 { remove AMTX entries } ./director/old/b01conn.imp: *IPK_0(0) ./director/old/b01conn.imp: *ST_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(0) ./director/old/b01conn.imp: *L_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(2) ./director/old/b01conn.imp: *MC_17(0),0 { check block not active } ./director/old/b01conn.imp: *IPK_0(0) ./director/old/b01conn.imp: *ST_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(0) ./director/old/b01conn.imp: *L_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(2) ./director/old/b01conn.imp: *mc_27(0),0 ./director/old/b01conn.imp: *OUT_7 ./director/old/b01conn.imp: *IPK_0(0) ./director/old/b01conn.imp: *ST_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(0) ./director/old/b01conn.imp: *l_2,savekey ./director/old/b01conn.imp: *spka_0(2) ./director/old/b01conn.imp: *mc_6(0),0 ./director/old/b01conn.imp: *ipk_0(0) ./director/old/b01conn.imp: *st_2,savekey ./director/old/b01conn.imp: *spka_0(0) ./director/old/b01conn.imp: *L_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(2) ./director/old/b01conn.imp: *MC_7(0),0 ./director/old/b01conn.imp: *ipk_0(0) ./director/old/b01conn.imp: *st_2,savekey ./director/old/b01conn.imp: *spka_0(0) ./director/old/b01conn.imp: *l_2,savekey ./director/old/b01conn.imp: *spka_0(2) ./director/old/b01conn.imp: *mc_6(0),0 ./director/old/b01conn.imp: *LSS_(3); ! SSR ./director/old/b01conn.imp: *OR_INH IC INTS ./director/old/b01conn.imp: *ST_(3) ./director/old/b01conn.imp: *LSS_(3); ! SSR ./director/old/b01conn.imp: *AND_ALLOW IC INTS; ! UNINHIBIT IC INTERRUPTS ./director/old/b01conn.imp: *ST_(3) ./director/old/b01conn.imp: *OUT_20 ./director/old/b01conn.imp: *STSF_STAKAD ./director/old/b01conn.imp: *LSS_(3); ! SSR ./director/old/b01conn.imp: *OR_INH IC INTS ./director/old/b01conn.imp: *ST_(3) ./director/old/b01conn.imp: *OUT_0 ./director/old/b01conn.imp: *mc_12(0),0 ./director/old/b01conn.imp: *IPK_0(0) ./director/old/b01conn.imp: *ST_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(0) ./director/old/b01conn.imp: *L_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(2) ./director/old/b01conn.imp: *MC_20(0),0 ./director/old/b01conn.imp: *ST_11,STAKAD ./director/old/b01conn.imp: *IPK_0(0) ./director/old/b01conn.imp: *ST_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(0) ./director/old/b01conn.imp: *L_2,SAVEKEY ./director/old/b01conn.imp: *SPKA_0(2) ./director/old/b01conn.imp: *MC_0(0),0 ./director/old/b01conn.imp: *OUT_12; ! NOMINATE STACK ./director/old/b02direct.imp: *IPK_0(0) ./director/old/b02direct.imp: *ST_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(0) ./director/old/b02direct.imp: *OUT_5; !CALL TO WAIT FOR NEXT MSG ./director/old/b02direct.imp: *MC_5(0),0 ./director/old/b02direct.imp: *L_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(2) ./director/old/b02direct.imp: *IPK_0(0) ./director/old/b02direct.imp: *ST_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(0) ./director/old/b02direct.imp: *OUT_7 ./director/old/b02direct.imp: *MC_7(0),0 ./director/old/b02direct.imp: *L_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(2) ./director/old/b02direct.imp: *IPK_0(0) ./director/old/b02direct.imp: *ST_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(0) ./director/old/b02direct.imp: *L_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(2) ./director/old/b02direct.imp: *OUT_6; !CALL PON SERVICE ./director/old/b02direct.imp: *MC_6(0),0 ./director/old/b02direct.imp: *IPK_0(0) ./director/old/b02direct.imp: *ST_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(0) ./director/old/b02direct.imp: *OUT_7; !CALL OUT SERVICE ./director/old/b02direct.imp: *MC_7(0),0 ./director/old/b02direct.imp: *L_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(2) ./director/old/b02direct.imp: *IPK_0(0) ./director/old/b02direct.imp: *ST_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(0) ./director/old/b02direct.imp: *L_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(2) ./director/old/b02direct.imp: *OUT_11 ./director/old/b02direct.imp: *MC_11(0),0 ./director/old/b02direct.imp: *IPK_0(0) ./director/old/b02direct.imp: *ST_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(0) ./director/old/b02direct.imp: *OUT_7 ./director/old/b02direct.imp: *LM_0,1,LLR ./director/old/b02direct.imp: *L_2,LLR+12 ./director/old/b02direct.imp: *MC_5(0),0 ./director/old/b02direct.imp: *LM_0,1,LLR ./director/old/b02direct.imp: *L_2,LLR+12 ./director/old/b02direct.imp: *MC_6(0),0 ./director/old/b02direct.imp: *LM_0,1,LLR ./director/old/b02direct.imp: *L_2,LLR+12 ./director/old/b02direct.imp: *MC_7(0),0 ./director/old/b02direct.imp: *LM_0,1,LLR ./director/old/b02direct.imp: *L_2,LLR+12 ./director/old/b02direct.imp: *MC_8(0),0 ./director/old/b02direct.imp: *LM_0,1,LLR ./director/old/b02direct.imp: *L_2,LLR+12 ./director/old/b02direct.imp: *MC_9(0),0 ./director/old/b02direct.imp: *LM_0,1,LLR ./director/old/b02direct.imp: *L_2,LLR+12 ./director/old/b02direct.imp: *MC_10(0),0 ./director/old/b02direct.imp: *L_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(2) ./director/old/b02direct.imp: *IPK_0(0) ./director/old/b02direct.imp: *ST_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(0) ./director/old/b02direct.imp: *L_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(2) ./director/old/b02direct.imp: *OUT_18; !CALL OUT SERVICE ./director/old/b02direct.imp: *MC_18(0),0 ./director/old/b02direct.imp: *IPK_0(0) ./director/old/b02direct.imp: *ST_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(0) ./director/old/b02direct.imp: *L_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(2) ./director/old/b02direct.imp: *MC_18(0),0 ./director/old/b02direct.imp: *IPK_0(0) ./director/old/b02direct.imp: *ST_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(0) ./director/old/b02direct.imp: *L_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(2) ./director/old/b02direct.imp: *OUT_6; !ANY MESSAGES? ./director/old/b02direct.imp: *MC_6(0),0 ./director/old/b02direct.imp: *IPK_0(0) ./director/old/b02direct.imp: *ST_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(0) ./director/old/b02direct.imp: *L_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(2) ./director/old/b02direct.imp: *OUT_6; !ANY MESSAGES? ./director/old/b02direct.imp: *MC_6(0),0 ./director/old/b02direct.imp: *IPK_0(0) ./director/old/b02direct.imp: *ST_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(0) ./director/old/b02direct.imp: *L_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(2) ./director/old/b02direct.imp: *IPK_0(0) ./director/old/b02direct.imp: *ST_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(0) ./director/old/b02direct.imp: *L_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(2) ./director/old/b02direct.imp: *IPK_0(0) ./director/old/b02direct.imp: *ST_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(0) ./director/old/b02direct.imp: *L_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(2) ./director/old/b02direct.imp: *LSQ_LONGLONGREAL ./director/old/b02direct.imp: *OUT_6; ! pon and continue ./director/old/b02direct.imp: *LM_0,1,LONGLONGREAL ./director/old/b02direct.imp: *L_2,LONGLONGREAL+12 ./director/old/b02direct.imp: *MC_6(0),0 ./director/old/b02direct.imp: *LSS_(1); ! PSR ./director/old/b02direct.imp: *ST_J ./director/old/b02direct.imp: *LSS_(%LNB+1) ./director/old/b02direct.imp: *ST_J ./director/old/b02direct.imp: *STLN_DISPLAD; ! Now enter the Basefile ./director/old/b02direct.imp: *LSS_(3); ! PICK UP SSR ./director/old/b02direct.imp: *OR_X'01800000'; ! DGW AND ISR ./director/old/b02direct.imp: *ST_(3); ! PUT BACK WITH DGW AND ISR BITS SET ./director/old/b02direct.imp: *LSS_(3) ./director/old/b02direct.imp: *AND_X'FFBFFFFF' ./director/old/b02direct.imp: *ST_(3); ! Temp, but has been there for many a yonk. ./director/old/b02direct.imp: *EXIT_0 ./director/old/b02direct.imp: *LSS_(%LNB+1) ./director/old/b02direct.imp: *ST_ACR HERE ./director/old/b02direct.imp: *MC_12(0),0 ./director/old/b02direct.imp: *IPK_0(0) ./director/old/b02direct.imp: *ST_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(0) ./director/old/b02direct.imp: *L_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(2) ./director/old/b02direct.imp: *LXN_ACOUNT ./director/old/b02direct.imp: *INCT_(%XNB+0) ./director/old/b02direct.imp: *IPK_0(0) ./director/old/b02direct.imp: *ST_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(0) ./director/old/b02direct.imp: *L_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(2) ./director/old/b02direct.imp: *lb_0 ./director/old/b02direct.imp: *lss_u+4 ./director/old/b02direct.imp: *uad_y+4 ./director/old/b02direct.imp: *st_y+4 ./director/old/b02direct.imp: *lss_u ./director/old/b02direct.imp: *jcc_8, ./director/old/b02direct.imp: *uad_1 ./director/old/b02direct.imp: *jcc_8, ./director/old/b02direct.imp: *adb_1 ./director/old/b02direct.imp: *st_y ./director/old/b02direct.imp: *jcc_8, ./director/old/b02direct.imp: *adb_1 ./director/old/b02direct.imp: *lss_w ./director/old/b02direct.imp: *imyd_z ./director/old/b02direct.imp: *st_r ./director/old/b02direct.imp: *lss_r ./director/old/b02direct.imp: *uad_z ./director/old/b02direct.imp: *st_r ./director/old/b02direct.imp: *lss_r ./director/old/b02direct.imp: *uad_w ./director/old/b02direct.imp: *st_r ./director/old/b02direct.imp: *LSD_L ./director/old/b02direct.imp: *STUH_%B ./director/old/b02direct.imp: *ST_OLD ./director/old/b02direct.imp: *RRTC_0 ./director/old/b02direct.imp: *STUH_%B ./director/old/b02direct.imp: *ST_J ./director/old/b02direct.imp: *LSS_W ./director/old/b02direct.imp: *LUH_0 ./director/old/b02direct.imp: *ST_L ./director/old/b02direct.imp: *LSD_L ./director/old/b02direct.imp: *ROT_5 ./director/old/b02direct.imp: *ST_L ./director/old/b02direct.imp: *LSD_L ./director/old/b02direct.imp: *AND_X'000000007FFFFFFF' ./director/old/b02direct.imp: *ST_L ./director/old/b02direct.imp: *la_1,1(0) {R1 now contains 1 } ./director/old/b02direct.imp: *sr_2,2 ./director/old/b02direct.imp: *basr_3,0 ./director/old/b02direct.imp: *using_3 ./director/old/b02direct.imp: *l_0,x+4 { add least sig halves } ./director/old/b02direct.imp: *al_0,y+4 ./director/old/b02direct.imp: *st_0,y+4 ./director/old/b02direct.imp: *l_0,x ./director/old/b02direct.imp: *bc_12, ./director/old/b02direct.imp: *alr_0,1 ./director/old/b02direct.imp: *bc_12, ./director/old/b02direct.imp: *lr_2,1 { flag = 1 } ./director/old/b02direct.imp: *al_0,y ./director/old/b02direct.imp: *st_0,y ./director/old/b02direct.imp: *bc_12, ./director/old/b02direct.imp: *drop_3 ./director/old/b02direct.imp: *lr_2,1 { flag = 1 } ./director/old/b02direct.imp: *st_2,flag ./director/old/b02direct.imp: *l_1,x ./director/old/b02direct.imp: *m_0,y ./director/old/b02direct.imp: *stm_0,1,r ./director/old/b02direct.imp: *l_0,r ./director/old/b02direct.imp: *al_0,y ./director/old/b02direct.imp: *st_0,r ./director/old/b02direct.imp: *l_0,r ./director/old/b02direct.imp: *al_0,x ./director/old/b02direct.imp: *st_0,r ./director/old/b02direct.imp: *LA_2,W1 ./director/old/b02direct.imp: *SRL_2,3 ./director/old/b02direct.imp: *SLL_2,3 ./director/old/b02direct.imp: *STCK_0(2) ./director/old/b02direct.imp: *LM_0,1,0(2) ./director/old/b02direct.imp: *SRDL_0,12 { convert to microseconds } ./director/old/b02direct.imp: *ST_1,J { ie a random number } ./director/old/b02direct.imp: *IPK_0(0) ./director/old/b02direct.imp: *ST_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(0) ./director/old/b02direct.imp: *L_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(2) ./director/old/b02direct.imp: *OUT_17 { +1 transfer in progress } ./director/old/b02direct.imp: *MC_17(0),0 ./director/old/b02direct.imp: *IPK_0(0) ./director/old/b02direct.imp: *ST_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(0) ./director/old/b02direct.imp: *OUT_25; ! SPECIAL PON AND SUSPEND ./director/old/b02direct.imp: *MC_25(0),0 ./director/old/b02direct.imp: *L_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(2) ./director/old/b02direct.imp: *IPK_0(0) ./director/old/b02direct.imp: *ST_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(0) ./director/old/b02direct.imp: *OUT_6; ! accept and discard outstanding msgs ./director/old/b02direct.imp: *MC_6(0),0 ./director/old/b02direct.imp: *OUT_5 ./director/old/b02direct.imp: *MC_5(0),0 ./director/old/b02direct.imp: *L_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(2) ./director/old/b02direct.imp: *IPK_0(0) ./director/old/b02direct.imp: *ST_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(0) ./director/old/b02direct.imp: *OUT_6; ! accept and discard outstanding msgs ./director/old/b02direct.imp: *MC_6(0),0 ./director/old/b02direct.imp: *OUT_5 ./director/old/b02direct.imp: *MC_5(0),0 ./director/old/b02direct.imp: *L_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(2) ./director/old/b02direct.imp: *LDA_INFS+4 ./director/old/b02direct.imp: *LDTB_TB ./director/old/b02direct.imp: *VAL_(%LNB+1) ./director/old/b02direct.imp: *JCC_3, ./director/old/b02direct.imp: *LD_INFS+8 ./director/old/b02direct.imp: *VAL_(%LNB+1) ./director/old/b02direct.imp: *JCC_3, ./director/old/b02direct.imp: *STLN_LNBHERE ./director/old/b02direct.imp: *LSS_(3); ! PICK UP SSR ./director/old/b02direct.imp: *OR_DGW AND ISR ./director/old/b02direct.imp: *ST_(3); ! PUT BACK WITH DGW AND ISR BITS SET ./director/old/b02direct.imp: *OUT_11 ./director/old/b02direct.imp: *OUT_11 ./director/old/b02direct.imp: *OUT_7; ! PON AND SUSPEND ./director/old/b02direct.imp: *OUT_18; ! SPECIAL PON AND SUSPEND ./director/old/b02direct.imp: *IPK_0(0) ./director/old/b02direct.imp: *ST_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(0) ./director/old/b02direct.imp: *L_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(2) ./director/old/b02direct.imp: *MC_11(0),0 ./director/old/b02direct.imp: *IPK_0(0) ./director/old/b02direct.imp: *ST_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(0) ./director/old/b02direct.imp: *L_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(2) ./director/old/b02direct.imp: *MC_11(0),0 ./director/old/b02direct.imp: *MC_7(0),0 ./director/old/b02direct.imp: *IPK_0(0) ./director/old/b02direct.imp: *ST_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(0) ./director/old/b02direct.imp: *L_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(2) ./director/old/b02direct.imp: *IPK_0(0) ./director/old/b02direct.imp: *ST_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(0) ./director/old/b02direct.imp: *L_2,SAVEKEY ./director/old/b02direct.imp: *SPKA_0(2) ./director/old/b02direct.imp: *MC_18(0),0 ./director/old/b02direct.imp: *LSS_L+4 ./director/old/b02direct.imp: *ST_J ./director/old/b02direct.imp: *LSS_L+4 ./director/old/b02direct.imp: *ST_J ./director/old/b02direct.imp: *LSS_J ./director/old/b02direct.imp: *LUH_0 ./director/old/b02direct.imp: *ST_L ./director/old/b02direct.imp: *LSS_J ./director/old/b02direct.imp: *LUH_0 ./director/old/b02direct.imp: *ST_L ./director/old/b02direct.imp: *mc_12(0),0 ./director/old/c05diag.imp: *LM_11,14,R11 ./director/old/c05diag.imp: *mc_13(0),0 ./director/old/c05diag.imp: *BASR_15,14 ./director/old/c05diag.imp: *LDTB_I ./director/old/c05diag.imp: *LDA_START ./director/old/c05diag.imp: *VAL_(%lnb+1) ./director/old/c05diag.imp: *JCC_3, ./director/old/c05diag.imp: *LDTB_X'18000020' ./director/old/c05diag.imp: *LDA_GLA ./director/old/c05diag.imp: *VAL_(%LNB + 1) ./director/old/c05diag.imp: *JCC_3, ./director/old/c05diag.imp: *ST_11,TOPOFSTACK ./director/old/c05diag.imp: *L_2,REGS ./director/old/c05diag.imp: *L_3,INF ./director/old/c05diag.imp: *MVC_0(64,2),0(3) ./director/old/c05diag.imp: *L_2,REGS ./director/old/c05diag.imp: *MVC_0(64,2),0(10) ./director/old/c05diag.imp: *IPK_0(0) ./director/old/c05diag.imp: *ST_2,SAVEKEY ./director/old/c05diag.imp: *SPKA_0(0) ./director/old/c05diag.imp: *L_2,SAVEKEY ./director/old/c05diag.imp: *SPKA_0(2) ./director/old/c05diag.imp: *LSS_(%LNB+0); ! CALLER'S LNB ./director/old/c05diag.imp: *ST_CALLERS LNB ./director/old/c05diag.imp: *LSS_(%LNB+2) ./director/old/c05diag.imp: *ST_CALLERS PC; ! REQUIRED ONLY FOR DIAGNOSTIC PURPOSES, SEE BELOW ./director/old/c05diag.imp: *LSS_(%LNB+1) ./director/old/c05diag.imp: *ST_(1); ! SET BACK TO CALLER'S PSR ./director/old/c05diag.imp: *LSS_PC ./director/old/c05diag.imp: *ST_%TOS ./director/old/c05diag.imp: *LDTB_X'28000012' ./director/old/c05diag.imp: *LDA_ADR18 ./director/old/c05diag.imp: *CYD_0 ./director/old/c05diag.imp: *LLN_LNB ./director/old/c05diag.imp: *J_%TOS ./director/old/c05diag.imp: *OUT_6; ! PON AND CONTINUE ./director/old/c05diag.imp: *LSS_(%LNB+0) ./director/old/c05diag.imp: *ST_SAVELNB ./director/old/c05diag.imp: *LSS_LNB AT FAIL ./director/old/c05diag.imp: *ST_(%LNB+0) ./director/old/c05diag.imp: *LSS_SAVELNB ./director/old/c05diag.imp: *ST_(%LNB+0) ./director/old/c05diag.imp: *OUT_6 ./director/old/c05diag.imp: *IPK_0(0) ./director/old/c05diag.imp: *ST_2,SAVEKEY ./director/old/c05diag.imp: *SPKA_0(0) ./director/old/c05diag.imp: *L_2,SAVEKEY ./director/old/c05diag.imp: *SPKA_0(2) ./director/old/c05diag.imp: *LSS_(%LNB+1) ./director/old/c05diag.imp: *ST_PSRHERE ./director/old/c05diag.imp: *OUT_19 ./director/old/c05diag.imp: *MC_19(0),0 ./director/old/c05diag.imp: *OUT_0 ./director/old/c05diag.imp: *MC_0(0),0 ./director/old/c05diag.imp: *IPK_0(0) ./director/old/c05diag.imp: *ST_2,SAVEKEY ./director/old/c05diag.imp: *SPKA_0(0) ./director/old/c05diag.imp: *L_2,SAVEKEY ./director/old/c05diag.imp: *SPKA_0(2) ./director/old/c05diag.imp: *OUT_19; ! RESUME ./director/old/c05diag.imp: *MC_19(0),0 ./director/old/c05diag.imp: *OUT_19 ./director/old/c05diag.imp: *MC_19(0),0 ./director/old/c05diag.imp: *l_1,adr ./director/old/c05diag.imp: *l_2,next context ./director/old/c05diag.imp: *l_3,12(2) { address of environment } ./director/old/c05diag.imp: *mvc_16(44,1),16(3) { 4 - 14 from environment } ./director/old/c05diag.imp: *mvc_48(8,1),0(2) { code & gla to 12 & 13 } ./director/old/c05diag.imp: *mvc_60(4,1),8(2) { ep to 15 } ./director/old/c05diag.imp: *l_1,adr ./director/old/c05diag.imp: *l_2,adr0 ./director/old/c05diag.imp: *mvc_0(64,2),0(1) ./director/old/c05diag.imp: *IPK_0(0) ./director/old/c05diag.imp: *ST_2,SAVEKEY ./director/old/c05diag.imp: *SPKA_0(0) ./director/old/c05diag.imp: *L_2,SAVEKEY ./director/old/c05diag.imp: *SPKA_0(2) ./director/old/c05diag.imp: *MC_6(0),0 ./director/old/c05diag.imp: *IPK_0(0) ./director/old/c05diag.imp: *ST_2,SAVEKEY ./director/old/c05diag.imp: *SPKA_0(0) ./director/old/c05diag.imp: *L_2,SAVEKEY ./director/old/c05diag.imp: *SPKA_0(2) ./director/old/c05diag.imp: *IPK_0(0) ./director/old/c05diag.imp: *ST_2,SAVEKEY ./director/old/c05diag.imp: *SPKA_0(0) ./director/old/c05diag.imp: *L_2,SAVEKEY ./director/old/c05diag.imp: *SPKA_0(2) ./director/old/c05diag.imp: *mc_19(0),0 ./director/old/c05diag.imp: *stm_4,14,16(11) { save current regs } ./director/old/c05diag.imp: *l_1,adr ./director/old/c05diag.imp: *st_11,44(1) { to keep GR11 } ./director/old/c05diag.imp: *lm_4,15,16(1) ./director/old/c05diag.imp: *mc_13(0),0 { relinquish priv etc } ./director/old/c05diag.imp: *basr_15,15 { enter the ontrap routine } ./director/old/c05diag.imp: *mc_12(0),0 { get priv back } ./director/old/c05diag.imp: *st_1,nc{ result of ontrap } ./director/old/c05diag.imp: *IPK_0(0) ./director/old/c05diag.imp: *ST_2,SAVEKEY ./director/old/c05diag.imp: *SPKA_0(0) ./director/old/c05diag.imp: *L_2,SAVEKEY ./director/old/c05diag.imp: *SPKA_0(2) ./director/old/c05diag.imp: *mc_19(0),0 ./director/old/c05diag.imp: *IPK_0(0) ./director/old/c05diag.imp: *ST_2,SAVEKEY ./director/old/c05diag.imp: *SPKA_0(0) ./director/old/c05diag.imp: *L_2,SAVEKEY ./director/old/c05diag.imp: *SPKA_0(2) ./director/old/c05diag.imp: *MC_19(0),0 ./director/old/c05diag.imp: *MC_19(0),0 ./director/old/c05diag.imp: *IPK_0(0) ./director/old/c05diag.imp: *ST_2,SAVEKEY ./director/old/c05diag.imp: *SPKA_0(0) ./director/old/c05diag.imp: *L_2,SAVEKEY ./director/old/c05diag.imp: *SPKA_0(2) ./director/old/c05diag.imp: *mc_19(0),0 ./director/old/c05diag.imp: *mc_12(0),0 ./director/old/c05diag.imp: *IPK_0(0) ./director/old/c05diag.imp: *ST_2,SAVEKEY ./director/old/c05diag.imp: *SPKA_0(0) ./director/old/c05diag.imp: *L_2,SAVEKEY ./director/old/c05diag.imp: *SPKA_0(2) ./director/old/c05diag.imp: *mc_13(0),0 ./director/old/c05diag.imp: *mc_12(0),0 ./director/old/c05diag.imp: *IPK_0(0) ./director/old/c05diag.imp: *ST_2,SAVEKEY ./director/old/c05diag.imp: *SPKA_0(0) ./director/old/c05diag.imp: *L_2,SAVEKEY ./director/old/c05diag.imp: *SPKA_0(2) ./director/old/c05diag.imp: *slr_1,1 { result } ./director/old/c05diag.imp: *lm_4,15,16(10) ./director/old/c05diag.imp: *mc_13,0 ./director/old/c05diag.imp: *mc_19(0),0 ./director/old/c05diag.imp: *bcr_15,15 ./director/old/c05diag.imp: *mc_13(0),0 ./director/old/c05diag.imp: *mc_12(0),0 ./director/old/c05diag.imp: *IPK_0(0) ./director/old/c05diag.imp: *ST_2,SAVEKEY ./director/old/c05diag.imp: *SPKA_0(0) ./director/old/c05diag.imp: *L_2,SAVEKEY ./director/old/c05diag.imp: *SPKA_0(2) ./director/old/c05diag.imp: *mc_6(0),0 ./director/old/c05diag.imp: *IPK_0(0) ./director/old/c05diag.imp: *ST_2,SAVEKEY ./director/old/c05diag.imp: *SPKA_0(0) ./director/old/c05diag.imp: *L_2,SAVEKEY ./director/old/c05diag.imp: *SPKA_0(2) ./director/old/c05diag.imp: *mc_13(0),0 ./director/old/c05diag.imp: *OUT_3; ! We would set P_P2=1 for "DESTROYING SEGMENT". But we are not destroying it. ./director/old/c05diag.imp: *OUT_17; ! Returns p_dest=-1 if block still active, 0 if not still active ./director/old/c05diag.imp: *OUT_17; ! Returns p_dest=-1 if block still active, 0 if not still active ./director/old/c05diag.imp: *OUT_17 ./director/old/c05diag.imp: *mc_12(0),0 ./director/old/c05diag.imp: *IPK_0(0) ./director/old/c05diag.imp: *ST_2,SAVEKEY ./director/old/c05diag.imp: *SPKA_0(0) ./director/old/c05diag.imp: *L_2,SAVEKEY ./director/old/c05diag.imp: *SPKA_0(2) ./director/old/c05diag.imp: *mc_2(0),0; ! class 0, code 2 ./director/old/c05diag.imp: *mc_13(0),0 ./director/old/c05diag.imp: *mc_12(0),0 ./director/old/c05diag.imp: *IPK_0(0) ./director/old/c05diag.imp: *ST_2,SAVEKEY ./director/old/c05diag.imp: *SPKA_0(0) ./director/old/c05diag.imp: *L_2,SAVEKEY ./director/old/c05diag.imp: *SPKA_0(2) ./director/old/c05diag.imp: *mc_24(0),0; ! class 0, code 24 ./director/old/c05diag.imp: *mc_13(0),0 ./director/old/c05diag.imp: *mc_26(0),0; ! class 0, code 26 ./supervisor/new/ienter3s.imp: *sckc_sos timer; ! maximum ./supervisor/new/ienter3s.imp: *basr_15,0; *using_15 ./supervisor/new/ienter3s.imp: *la_0,; *st_0,i; *la_0,; *st_0,count; *drop_15 ./supervisor/new/ienter3s.imp: *spt_sos timer ./supervisor/new/ienter3s.imp: *stosm_i,1; ! allow external ints. ./supervisor/new/ienter3s.imp: *spt_sos timer ./supervisor/new/ienter3s.imp: *stosm_i,1 ./supervisor/new/ienter3s.imp: *spt_hsec ./supervisor/new/ienter3s.imp: *lpsw_wpsw ./supervisor/new/ienter3s.imp: *basr_15,0; *using_15 ./supervisor/new/ienter3s.imp: *la_0,; *st_0,i; *drop_15 ./supervisor/new/ienter3s.imp: *stosm_i,2; ! allow I/O ints. ./supervisor/new/ienter3s.imp: *stnsm_i,x'fd'; ! mask I/O ints. ./supervisor/new/ienter3s.imp: *basr_1,0; *using_1; ! set up restart PSWs ./supervisor/new/ienter3s.imp: *la_2,; *st_2,i; *drop_1 ./supervisor/new/ienter3s.imp: *stm_10,14,560 {rca}; ! my context ./supervisor/new/ienter3s.imp: *la_0,238 {EE}; *st_0,2116(0) ./supervisor/new/ienter3s.imp: *lpsw_2112 ./supervisor/new/icom9s.imp: *l_1,ad ./supervisor/new/icom9s.imp: *ic_0,j+2; *stc_0,0(1) ./supervisor/new/icom9s.imp: *ic_0,j+3; *stc_0,1(1) ./supervisor/new/icom9s.imp: *stck_rtc1 ./supervisor/new/icom9s.imp: *l_2,rtc1; *l_3,rtc2; ./supervisor/new/icom9s.imp: *srdl_2,16; *l_4,sec ./supervisor/new/icom9s.imp: *dr_2,4; ! to seconds//2 ./supervisor/new/icom9s.imp: *st_3,rtc1 ./supervisor/new/icom9s.imp: *stck_psw ./supervisor/new/icom9s.imp: *l_0,to; *l_1,len ./supervisor/new/icom9s.imp: *l_2,from; *lr_3,1 ./supervisor/new/icom9s.imp: *mvcl_0,2 ./supervisor/new/icom9s.imp: *basr_15,0; *using_15 ./supervisor/new/icom9s.imp: *bc_14,; *drop_15 ./supervisor/new/icom9s.imp: *l_1,len; *l_2,ad; *l_3,i ./supervisor/new/icom9s.imp: *la_0,256 ./supervisor/new/icom9s.imp: *basr_15,0 ./supervisor/new/icom9s.imp: *using_15 ./supervisor/new/icom9s.imp: *clr_1,0; *bc_4, ./supervisor/new/icom9s.imp: *tr_0(256,2),0(3) ./supervisor/new/icom9s.imp: *alr_2,0; *slr_1,0 ./supervisor/new/icom9s.imp: *bcr_15,15 ./supervisor/new/icom9s.imp: *bctr_1,0; *ex_1, ./supervisor/new/icom9s.imp: *drop_15 ./supervisor/new/icom9s.imp: *l_1,len; *l_2,ad; *l_3,i ./supervisor/new/icom9s.imp: *la_0,256 ./supervisor/new/icom9s.imp: *basr_15,0 ./supervisor/new/icom9s.imp: *using_15 ./supervisor/new/icom9s.imp: *clr_1,0; *bc_4, ./supervisor/new/icom9s.imp: *tr_0(256,2),0(3) ./supervisor/new/icom9s.imp: *alr_2,0; *slr_1,0 ./supervisor/new/icom9s.imp: *bcr_15,15 ./supervisor/new/icom9s.imp: *bctr_1,0; *ex_1, ./supervisor/new/icom9s.imp: *drop_15 ./supervisor/new/icom9s.imp: *basr_15,0 ./supervisor/new/icom9s.imp: *using_15 ./supervisor/new/icom9s.imp: *l_1,i; *l_2,j; *l_3,k ./supervisor/new/icom9s.imp: *ex_1, ./supervisor/new/icom9s.imp: *drop_15 ./supervisor/new/icom9s.imp: *basr_15,0; *using_15 ./supervisor/new/icom9s.imp: *sck_l; *bc_8,; *drop_15 ./supervisor/new/icom9s.imp: *l_1,ad; *lra_0,0(1); *bc_7, ./supervisor/new/icom9s.imp: *ipk_0; *st_2,k; *spka_0; ! key 0 ./supervisor/new/icom9s.imp: *l_2,k; *spka_0(2) ./supervisor/new/icom9s.imp: *basr_15,0 ./supervisor/new/icom9s.imp: *using_15 ./supervisor/new/icom9s.imp: *la_0,; *st_0,i ./supervisor/new/icom9s.imp: *lpsw_psw ./supervisor/new/icom9s.imp: *drop_15 ./supervisor/new/icom9s.imp: *l_1,ad; *lra_0,0(1); *bc_7, ./supervisor/new/icom9s.imp: *l_1,k; *lra_0,0(1); *bc_7, ./supervisor/new/icom9s.imp: *ipk_0; *st_2,work; *spka_0; ! key 0 ./supervisor/new/icom9s.imp: *l_2,work; *spka_0(2) ./supervisor/new/icom9s.imp:*L _1,AD ./supervisor/new/icom9s.imp:*L _2,LEN ./supervisor/new/icom9s.imp:*PUT _X'8312'; *PUT _X'0008'; ! DIAGNOSE 1,2,8 - call CP to execute command ./supervisor/new/idev22s.imp: *STCK_clock; MSEC=CLOCK>>22&x'ffff' ./supervisor/new/idev22s.imp: *STCK_clock ./supervisor/new/ioper2s.imp: *ipk_0; *st_2,l; *spka_0; ! key 0 ./supervisor/new/ioper2s.imp: *l_2,l; *spka_0(2); ! reset key ./supervisor/new/ioper2s.imp: *l_0,j; *l_1,k ./supervisor/new/ioper2s.imp: *lr_2,0; *slr_3,3; *mvcl_0,2; ! clear buffer ./supervisor/new/ioper2s.imp: *ipk_0; *st_2,flag; *spka_0; ! key 0 ./supervisor/new/ioper2s.imp: *l_2,flag; *spka_0(2); ! restore key ./supervisor/new/ioper2s.imp: *l_0,i; *l_3,ad ./supervisor/new/ioper2s.imp: *basr_15,0; *using_15 ./supervisor/new/ioper2s.imp: *l_4,trta0; *ltr_4,4; *bc_8,; *ex_1, ./supervisor/new/ioper2s.imp: *l_1,llen1; *ltr_1,1; *bc_12, ./supervisor/new/ioper2s.imp: *lr_2,3; *bctr_2,0; *mvi_0(2),x'4f' ./supervisor/new/ioper2s.imp: *l_2,pica1; *ex_1, ./supervisor/new/ioper2s.imp: *l_4,trta1; *ltr_4,4; *bc_8,; *ex_1, ./supervisor/new/ioper2s.imp: *bct_0,; *drop_15 ./supervisor/new/ioper2s.imp: *st_3,ad ./supervisor/new/ioper2s.imp: *l_1,ad; *mvi_0(1),x'60'; *mvc_1(79,1),0(1) ./supervisor/new/ioper2s.imp: *l_0,i; *l_3,ad; *la_3,80(3) ./supervisor/new/ioper2s.imp: *basr_15,0; *using_15 ./supervisor/new/ioper2s.imp: *l_4,trta2; *ltr_4,4; *bc_8,; *ex_1, ./supervisor/new/ioper2s.imp: *l_1,llen3; *ltr_1,1; *bc_12, ./supervisor/new/ioper2s.imp: *lr_2,3; *bctr_2,0; *mvi_0(2),x'4f' ./supervisor/new/ioper2s.imp: *l_2,pica3; *ex_1, ./supervisor/new/ioper2s.imp: *l_4,trta3; *ltr_4,4; *bc_8,; *ex_1, ./supervisor/new/ioper2s.imp: *bct_0,; *drop_15 ./supervisor/new/ioper2s.imp: *l_0,j; *l_1,k ./supervisor/new/ioper2s.imp: *lr_2,0; *slr_3,3; *mvcl_0,2; ! clear screen buffer ./supervisor/new/ioper2s.imp: *basr_15,0; *using_15 ./supervisor/new/ioper2s.imp: *l_1,k; *l_2,llen; *bctr_2,0; *bctr_2,0 ./supervisor/new/ioper2s.imp: *mvi_0(1),x'2e'; *ex_2,; *bc_15,; *drop_15 ./supervisor/new/ioper2s.imp: *l_0,sstart; *l_1,ssize ./supervisor/new/ioper2s.imp: *lr_2,0; *slr_3,3; *mvcl_0,2 ./supervisor/new/iprint4s.imp: *basr_15,0; *using_15 ./supervisor/new/iprint4s.imp: *l_1,vad; *lra_0,0(1); *bc_8, ./supervisor/new/iprint4s.imp: *drop_15 ./supervisor/new/iprint4s.imp: *stck_time ./supervisor/new/iprint4s.imp: *basr_15,0; *using_15 ./supervisor/new/iprint4s.imp: *l_1,j; *lra_0,0(1); *bc_7,; *drop_15 ./supervisor/new/iprint4s.imp: *STPT_cpt1 ./supervisor/new/iprint4s.imp: *stpt_cpt2 ./supervisor/new/iprint4s.imp: *l_1,bufferad; *l_2,transtabad ./supervisor/new/iprint4s.imp: *tr_1(132,1),0(2) ./supervisor/new/iprint4s.imp: *l_0,j; *l_1,pagesize ./supervisor/new/iprint4s.imp: *lr_2,0; *la_3,7; *sll_3,24; *mvcl_0,2 ./supervisor/new/iprint4s.imp: *la_2,w1; *srl_2,3; *sll_2,3 ./supervisor/new/iprint4s.imp: *stck_0(2); *l_0,0(2) ./supervisor/new/iprint4s.imp: *st_0,oldpdt ./supervisor/new/ifast24s.imp: *L_1,i ./supervisor/new/ifast24s.imp: *SSCH_orb ./supervisor/new/ifast24s.imp: *IPM_1 ./supervisor/new/ifast24s.imp: *SRL_1,28 ./supervisor/new/ifast24s.imp: *ST_1,cc ./supervisor/new/ifast24s.imp: *L_1,i ./supervisor/new/ifast24s.imp: *SIO_0(1) ./supervisor/new/ifast24s.imp: *BALR_1,0 ./supervisor/new/ifast24s.imp: *SLL_1,2 ./supervisor/new/ifast24s.imp: *SRL_1,30 ./supervisor/new/ifast24s.imp: *ST_1,cc ./supervisor/new/ifast24s.imp: *L_1,i ./supervisor/new/ifast24s.imp: *SIO_0(1) ./supervisor/new/ifast24s.imp: *BALR_1,0 ./supervisor/new/ifast24s.imp: *SLL_1,2 ./supervisor/new/ifast24s.imp: *SRL_1,30 ./supervisor/new/ifast24s.imp: *ST_1,acc ./supervisor/new/ifast24s.imp: *L_1,i; *L_2,irb ./supervisor/new/ifast24s.imp: *TSCH_0(2) ./supervisor/new/ifast24s.imp: *IPM_1 ./supervisor/new/ifast24s.imp: *SRL_1,28 ./supervisor/new/ifast24s.imp: *ST_1,cc ./supervisor/new/ifast24s.imp: *L_1,i ./supervisor/new/ifast24s.imp: *TIO_0(1) ./supervisor/new/ifast24s.imp: *BALR_1,0 ./supervisor/new/ifast24s.imp: *SLL_1,2 ./supervisor/new/ifast24s.imp: *SRL_1,30 ./supervisor/new/ifast24s.imp: *ST_1,cc ./supervisor/new/ifast24s.imp: *L_1,i ./supervisor/new/ifast24s.imp: *TIO_0(1) ./supervisor/new/ifast24s.imp: *BALR_1,0 ./supervisor/new/ifast24s.imp: *SLL_1,2 ./supervisor/new/ifast24s.imp: *SRL_1,30 ./supervisor/new/ifast24s.imp: *ST_1,acc ./supervisor/new/ifast24s.imp: *L_1,i ./supervisor/new/ifast24s.imp: *HSCH_I {param is a dummy} ./supervisor/new/ifast24s.imp: *IPM_1 ./supervisor/new/ifast24s.imp: *SRL_1,28 ./supervisor/new/ifast24s.imp: *ST_1,cc ./supervisor/new/ifast24s.imp: *L_1,i ./supervisor/new/ifast24s.imp: *HIO_0(1) ./supervisor/new/ifast24s.imp: *BALR_1,0 ./supervisor/new/ifast24s.imp: *SLL_1,2 ./supervisor/new/ifast24s.imp: *SRL_1,30 ./supervisor/new/ifast24s.imp: *ST_1,cc ./supervisor/new/ifast24s.imp: *L_1,i ./supervisor/new/ifast24s.imp: *CLRIO_0(1); ! may help feps recover ./supervisor/new/ifast24s.imp: *L_1,i ./supervisor/new/ifast24s.imp: *HIO_0(1) ./supervisor/new/ifast24s.imp: *BALR_1,0 ./supervisor/new/ifast24s.imp: *SLL_1,2 ./supervisor/new/ifast24s.imp: *SRL_1,30 ./supervisor/new/ifast24s.imp: *ST_1,acc ./supervisor/new/ifast24s.imp: *L_1,i ./supervisor/new/ifast24s.imp: *CLRIO_0(1); ! may help feps recover ./supervisor/new/ifast24s.imp: *L_1,i ./supervisor/new/ifast24s.imp: *CSCH_0(0) ./supervisor/new/ifast24s.imp: *IPM_1 ./supervisor/new/ifast24s.imp: *SRL_1,28 ./supervisor/new/ifast24s.imp: *ST_1,cc ./supervisor/new/ifast24s.imp: *L_1,i ./supervisor/new/ifast24s.imp: *L_2,schib ./supervisor/new/ifast24s.imp: *STSCH_0(2) ./supervisor/new/ifast24s.imp: *IPM_1 ./supervisor/new/ifast24s.imp: *SRL_1,28 ./supervisor/new/ifast24s.imp: *ST_1,cc ./supervisor/new/ifast24s.imp: *L_1,i ./supervisor/new/ifast24s.imp: *L_2,schib ./supervisor/new/ifast24s.imp: *MSCH_0(2) ./supervisor/new/ifast24s.imp: *IPM_1 ./supervisor/new/ifast24s.imp: *SRL_1,28 ./supervisor/new/ifast24s.imp: *ST_1,cc ./supervisor/new/ifast24s.imp: *stm_0,15,2056(0); *stctl_0,15,2152(0) ./supervisor/new/ifast24s.imp: *LPSW_psw ./supervisor/new/ifast24s.imp: *STPT_cpt1 ./supervisor/new/ifast24s.imp: *SLR_1,1; *LR_0,1; *BCTR_0,0 ./supervisor/new/ifast24s.imp: *L_2,sema ./supervisor/new/ifast24s.imp: *CS_0,1,0(2) ./supervisor/new/ifast24s.imp: *BC_7, ./supervisor/new/ifast24s.imp: *STPT_cpt2 ./supervisor/new/ifast24s.imp: *STAP_I ./supervisor/new/ifast24s.imp: *SR_0,0; *LM_1,4,Param ./supervisor/new/ifast24s.imp: *SIGP_0,2,0(3) ./supervisor/new/ifast24s.imp: *ST_0,0(4); ! into status ./supervisor/new/ifast24s.imp: *IPM_1; *SRL_1,28(0); *st_1,CC ./supervisor/new/ifast24s.imp: *BASR_2,0; *using_2 ./supervisor/new/ifast24s.imp: *L_1,rtvvad; *LRA_0,0(1); *ST_0,prad; *BC_8, ./supervisor/new/ifast24s.imp: *drop_2 ./supervisor/new/ifast24s.imp: *L_0,i; *L_1,rtvvad; *IPTE_0,1 ./supervisor/new/ifast24s.imp: *PTLB_0 ./supervisor/new/ifast24s.imp: *L_1,i; *L_15,64(10) ./supervisor/new/ifast24s.imp: *MVC_0(16,1),0(15) ./supervisor/new/ifast24s.imp: *L_15,12(1); *MVC_16(40,1),20(15) ./supervisor/new/ifast24s.imp: *L_2,i ./supervisor/new/ifast24s.imp: *STM_4,14,16(11) ./supervisor/new/ifast24s.imp: *LM_12,15,0(2) ./supervisor/new/ifast24s.imp: *LM_5,10,16(2) ./supervisor/new/ifast24s.imp: *LR_1,14 ./supervisor/new/ifast24s.imp: *L_14,52(2) ./supervisor/new/ifast24s.imp: *BASR_15,1 ./supervisor/new/ifast24s.imp: *ST_1,realad ./supervisor/new/ifast24s.imp: *basr_2,0; *using_2 ./supervisor/new/ifast24s.imp: *SLR_1,1; *LR_0,1; *BCTR_0,0; *CS_0,1,MAINQSEMA ./supervisor/new/ifast24s.imp: *BC_8,; *drop_2 ./supervisor/new/ifast24s.imp: *basr_2,0; *using_2 ./supervisor/new/ifast24s.imp: *SLR_1,1; *LR_0,1; *BCTR_0,0; *CS_0,1,MAINQSEMA ./supervisor/new/ifast24s.imp: *BC_8,; *drop_2 ./supervisor/new/ifast24s.imp: *basr_2,0; *using_2 ./supervisor/new/ifast24s.imp: *SLR_1,1; *LR_0,1; *BCTR_0,0; *CS_0,1,MAINQSEMA ./supervisor/new/ifast24s.imp: *BC_8,; *drop_2 ./supervisor/new/ifast24s.imp: *basr_2,0; *using_2 ./supervisor/new/ifast24s.imp: *SLR_1,1; *LR_0,1; *BCTR_0,0; *CS_0,1,MAINQSEMA ./supervisor/new/ifast24s.imp: *BC_8,; *drop_2 ./supervisor/new/ifast24s.imp: *basr_2,0; *using_2 ./supervisor/new/ifast24s.imp: *SLR_1,1; *LR_0,1; *BCTR_0,0; *CS_0,1,MAINQSEMA ./supervisor/new/ifast24s.imp: *BC_8,; *drop_2 ./supervisor/new/ifast24s.imp: *basr_2,0; *using_2 ./supervisor/new/ifast24s.imp: *SLR_1,1; *LR_0,1; *BCTR_0,0; *CS_0,1,MAINQSEMA ./supervisor/new/ifast24s.imp: *BC_8,; *drop_2 ./supervisor/new/ifast24s.imp: *basr_2,0; *using_2 ./supervisor/new/ifast24s.imp: *SLR_1,1; *LR_0,1; *BCTR_0,0; *CS_0,1,MAINQSEMA ./supervisor/new/ifast24s.imp: *BC_8,; *drop_2 ./supervisor/new/ifast24s.imp: *basr_2,0; *using_2 ./supervisor/new/ifast24s.imp: *SLR_1,1; *LR_0,1; *BCTR_0,0; *CS_0,1,MAINQSEMA ./supervisor/new/ifast24s.imp: *BC_8,; *drop_2 ./supervisor/new/ifast24s.imp: *basr_2,0; *using_2 ./supervisor/new/ifast24s.imp: *SLR_1,1; *LR_0,1; *BCTR_0,0; *CS_0,1,MAINQSEMA ./supervisor/new/ifast24s.imp: *BC_8,; *drop_2 ./supervisor/new/ifast24s.imp: *basr_2,0; *using_2 ./supervisor/new/ifast24s.imp: *SLR_1,1; *LR_0,1; *BCTR_0,0; *CS_0,1,MAINQSEMA ./supervisor/new/ifast24s.imp: *BC_8,; *drop_2 ./supervisor/new/ifast24s.imp: *basr_2,0; *using_2 ./supervisor/new/ifast24s.imp: *SLR_1,1; *LR_0,1; *BCTR_0,0; *CS_0,1,MAINQSEMA ./supervisor/new/ifast24s.imp: *BC_8,; *drop_2 ./supervisor/new/ifast24s.imp: *basr_2,0; *using_2 ./supervisor/new/ifast24s.imp: *SLR_1,1; *LR_0,1; *BCTR_0,0; *CS_0,1,MAINQSEMA ./supervisor/new/ifast24s.imp: *BC_8,; *drop_2 ./supervisor/new/ifast24s.imp: *basr_2,0; *using_2 ./supervisor/new/ifast24s.imp: *SLR_1,1; *LR_0,1; *BCTR_0,0 ./supervisor/new/ifast24s.imp: *l_3,DDT; *CS_0,1,136(3); ! ddt_sema assumes ddtform not changed ./supervisor/new/ifast24s.imp: *BC_8,; *drop_2 ./supervisor/new/ifast24s.imp: *L_1,ccwa; *LRA_0,0(1); *ST_0,rccwa ./supervisor/new/ifast24s.imp: *basr_2,0; *using_2 ./supervisor/new/ifast24s.imp: *SLR_1,1; *LR_0,1; *BCTR_0,0; *CS_0,1,MAINQSEMA ./supervisor/new/ifast24s.imp: *BC_8,; *drop_2 ./supervisor/new/ifast24s.imp: *basr_2,0; *using_2 ./supervisor/new/ifast24s.imp: *SLR_1,1; *LR_0,1; *BCTR_0,0 ./supervisor/new/ifast24s.imp: *l_3,DDT; *CS_0,1,136(3); ! ddt_sema assumes ddtform not changed ./supervisor/new/ifast24s.imp: *BC_8,; *drop_2 ./supervisor/new/ifast24s.imp: *basr_2,0; *using_2 ./supervisor/new/ifast24s.imp: *SLR_1,1; *LR_0,1; *BCTR_0,0 ./supervisor/new/ifast24s.imp: *l_3,DDT; *CS_0,1,136(3); ! ddt_sema assumes ddtform not changed ./supervisor/new/ifast24s.imp: *BC_8,; *drop_2 ./supervisor/new/ifast24s.imp: *L_2,storex; *SLL_2,12; ! real address of page transfered ./supervisor/new/ifast24s.imp: *ISKE_0,2; ! MARKERS TO MARK ./supervisor/new/ifast24s.imp: *SRL_0,3; *SLL_0,3; ! MARKERS REMOVED ./supervisor/new/ifast24s.imp: *SSKE_0,2; ! STORE KEY RESET ./supervisor/new/ifast24s.imp: *ISK_0,2; ./supervisor/new/ifast24s.imp: *SRL_0,3; *SLL_0,3 ./supervisor/new/ifast24s.imp: *SSK_0,2 ./supervisor/new/ifast24s.imp: *ISK_0,2; ! KEY ON 1ST 2 K ./supervisor/new/ifast24s.imp: *LA_15,2048(2); ! 2ND SET OF MARKERS ./supervisor/new/ifast24s.imp: *SRL_0,3; *SLL_0,3; ! CLEAR THE MARKERS ./supervisor/new/ifast24s.imp: *SSK_0,2; *SSK_0,15; ! MARKERS RESET ./supervisor/new/ifast24s.imp: *IPK_0; *ST_2,l; *SPKA_0; ! key 0 ./supervisor/new/ifast24s.imp: *L_0,j; *L_1,pagesize ./supervisor/new/ifast24s.imp: *LR_2,0; *SLR_3,3; *MVCL_0,2 ./supervisor/new/ifast24s.imp: *L_2,l; *SPKA_0(2); ! restore key ./supervisor/new/ifast24s.imp: *basr_2,0; *using_2 ./supervisor/new/ifast24s.imp: *SLR_1,1; *LR_0,1; *BCTR_0,0 ./supervisor/new/ifast24s.imp: *l_3,Storesema; *CS_0,1,0(3) ./supervisor/new/ifast24s.imp: *BC_8,; *drop_2 ./supervisor/new/isup12fs.imp: *l_1,i; *lra_2,0(1); *st_2,i; *lctl_15,15,i;! addr logout ares ./supervisor/new/isup12fs.imp: *stctl_14,14,i ./supervisor/new/isup12fs.imp: *lctl_14,14,i ./supervisor/new/isup12fs.imp: *st_11,Stackbase; ! Global controller stacks start here ./supervisor/new/isup12fs.imp: *mvi_640(0),0; ! flag byte.... ./supervisor/new/isup12fs.imp: *l_15,stackbase ./supervisor/new/isup12fs.imp: *stm_4,15,656(0); ! general registers ./supervisor/new/isup12fs.imp: *stctl_0,15,704(0); ! control registers ./supervisor/new/isup12fs.imp: *lctl_0,0,I ./supervisor/new/isup12fs.imp: *basr_1,0; *using_1 ./supervisor/new/isup12fs.imp: *la_2,; *drop_1 ./supervisor/new/isup12fs.imp: *o_2,PSW+4; ! add bit 32 - needed on xa for 31 bit addressing ./supervisor/new/isup12fs.imp: *st_2,PSW+4 ./supervisor/new/isup12fs.imp: *l_1,I ./supervisor/new/isup12fs.imp: *mvc_24(44,1),656(0); ! GRs ./supervisor/new/isup12fs.imp: *mvc_104(64,1),704(0); ! CRs ./supervisor/new/isup12fs.imp: *basr_1,0; *using_1 ./supervisor/new/isup12fs.imp: *la_2,; *drop_1 ./supervisor/new/isup12fs.imp: *O_2,PSW+4; *st_2,Psw+4 ./supervisor/new/isup12fs.imp: *STCK_Nextcc ./supervisor/new/isup12fs.imp: *SCKC_Next CC ./supervisor/new/isup12fs.imp: *stm_0,15,2056(0) ./supervisor/new/isup12fs.imp: *std_0,2120(0); *std_2,2128(0); *std_4,2136(0); *std_6,2144(0) ./supervisor/new/isup12fs.imp: *stctl_0,15,2152(0) ./supervisor/new/isup12fs.imp: *stpt_2216(0) ./supervisor/new/isup12fs.imp: *slr_0,0; *bctr_0,0; *st_0,2048(0) ./supervisor/new/isup12fs.imp: *la_0,2989 {BAD}; *st_0,2228(0) ./supervisor/new/isup12fs.imp: *lpsw_2224(0); ! it just might tho! ./supervisor/new/isup12fs.imp: *LM_4,15,656(0) ./supervisor/new/isup12fs.imp: *LR_11,15; ! Stack pointer set up by config ./supervisor/new/isup12fs.imp: *SCKC_Next CC ./supervisor/new/isup12fs.imp: *stm_4,14,656(0); ! reset context ./supervisor/new/isup12fs.imp: *lm_4,14,656(0); ! restore env but must be used with care ./supervisor/new/isup12fs.imp: *LCTL_0,0,704(0); *lctl_14,14,760(0);! Turn off low store protection ./supervisor/new/isup12fs.imp: *MVC_2048(8,0),48(0); ! psw ./supervisor/new/isup12fs.imp: *MVC_2056(64,0),384(0); ! GRS ./supervisor/new/isup12fs.imp: *MVC_2152(64,0),448(0); ! CTR Regs ./supervisor/new/isup12fs.imp: *MVC_2120(32,0),352(0); ! FPR ./supervisor/new/isup12fs.imp: *MVC_2216(8,0),216(0); ! Timer ./supervisor/new/isup12fs.imp: *la_0,204 {CC}; *icm_0,4,232(0) {reason}; *st_0,2228(0) ./supervisor/new/isup12fs.imp: *lpsw_2224(0) ./supervisor/new/isup12fs.imp: *stm_0,1,2048(0) ./supervisor/new/isup12fs.imp: *basr_1,0; *using_1 ./supervisor/new/isup12fs.imp: *cli_640(0),0; *bc_8,; ! from kernel - context ok ./supervisor/new/isup12fs.imp: *cli_134(0),16; *bc_7,; ! not CPU timer... ./supervisor/new/isup12fs.imp: *cli_135(0),5; *bc_7,; ! ...so context switch neccessary ./supervisor/new/isup12fs.imp: *l_1,2052(0) ./supervisor/new/isup12fs.imp: *lpsw_528(0); ! -> Local Controller ./supervisor/new/isup12fs.imp: *drop_1 ./supervisor/new/isup12fs.imp: *stm_2,15,2056(0); ! switch context ./supervisor/new/isup12fs.imp: *lm_4,14,656(0) ./supervisor/new/isup12fs.imp: *l_1,I ./supervisor/new/isup12fs.imp: *mvc_0(8,1),24(0); ! PSW ./supervisor/new/isup12fs.imp: *mvc_8(64,1),2048(0); ! GRs ./supervisor/new/isup12fs.imp: *std_0,72(1); *std_2,80(1); ! FPRs ./supervisor/new/isup12fs.imp: *std_4,88(1); *std_6,96(1) ./supervisor/new/isup12fs.imp: *stctl_0,1,104(1); *stctl_14,14,160(1);! CRs 0,1 ./supervisor/new/isup12fs.imp: *stpt_168(1); ! CPU timer ./supervisor/new/isup12fs.imp: *lctl_0,0,704(0); *lctl_14,14,760(0);! turn off lowstore protection ./supervisor/new/isup12fs.imp: *stpt_KIT ./supervisor/new/isup12fs.imp: *spt_MAXCPUTIMER ./supervisor/new/isup12fs.imp: *sckc_Next CC ./supervisor/new/isup12fs.imp: *stm_0,1,2048(0) ./supervisor/new/isup12fs.imp: *basr_1,0; *using_1 ./supervisor/new/isup12fs.imp: *cli_640(0),0; *bc_8,; ! from kernel - context ok ./supervisor/new/isup12fs.imp: *drop_1 ./supervisor/new/isup12fs.imp: *mvi_640(0),0 ./supervisor/new/isup12fs.imp: *stm_2,15,2056(0); ! switch context ./supervisor/new/isup12fs.imp: *lm_4,14,656(0) ./supervisor/new/isup12fs.imp: *l_1,I ./supervisor/new/isup12fs.imp: *mvc_0(8,1),56(0); ! PSW ./supervisor/new/isup12fs.imp: *mvc_8(64,1),2048(0); ! GRs ./supervisor/new/isup12fs.imp: *std_0,72(1); *std_2,80(1); ! FPRs ./supervisor/new/isup12fs.imp: *std_4,88(1); *std_6,96(1) ./supervisor/new/isup12fs.imp: *stctl_0,1,104(1); *stctl_14,14,160(1);! CRs 0,1 ./supervisor/new/isup12fs.imp: *stpt_168(1); ! CPU timer ./supervisor/new/isup12fs.imp: *lctl_0,0,704(0); *lctl_14,14,760(0);! turn off lowstore protection ./supervisor/new/isup12fs.imp: *stpt_KIT ./supervisor/new/isup12fs.imp: *spt_MAXCPUTIMER ./supervisor/new/isup12fs.imp: *basr_3,0 ./supervisor/new/isup12fs.imp: *using_3 ./supervisor/new/isup12fs.imp: *l_1,i ./supervisor/new/isup12fs.imp: *la_2,irb ./supervisor/new/isup12fs.imp: *tsch_0(2) ./supervisor/new/isup12fs.imp: *bc_1,; ! failed to get interrupt data ./supervisor/new/isup12fs.imp: *l_1,j; *lra_2,0(1); ! Validate slot address ./supervisor/new/isup12fs.imp: *bc_7, ./supervisor/new/isup12fs.imp: *drop_3 ./supervisor/new/isup12fs.imp: *stm_0,15,2056(0) ./supervisor/new/isup12fs.imp: *std_0,2120(0); *std_2,2128(0); *std_4,2136(0); *std_6,2144(0) ./supervisor/new/isup12fs.imp: *stctl_0,15,2152(0) ./supervisor/new/isup12fs.imp: *stpt_2216(0) ./supervisor/new/isup12fs.imp: *mvc_2048(8,0),40(0); ! failing PSW ./supervisor/new/isup12fs.imp: *la_0,206 {CE}; *icm_0,4,143(0) {code}; *st_0,2228(0) ./supervisor/new/isup12fs.imp: *lm_4,14,656(0) ./supervisor/new/isup12fs.imp: *lctl_0,0,704(0); *lctl_14,14,760(0);! turn off lowstore protection ./supervisor/new/isup12fs.imp: *la_11,4088(11) ./supervisor/new/isup12fs.imp: *lpsw_2224(0) ./supervisor/new/isup12fs.imp: *stm_0,15,2056(0) ./supervisor/new/isup12fs.imp: *std_0,2120(0); *std_2,2128(0); *std_4,2136(0); *std_6,2144(0) ./supervisor/new/isup12fs.imp: *stctl_0,15,2152(0) ./supervisor/new/isup12fs.imp: *stpt_2216(0) ./supervisor/new/isup12fs.imp: *mvc_2048(8,0),32(0); ! failing PSW ./supervisor/new/isup12fs.imp: *la_0,10 {0A}; *icm_0,4,139(0) {code}; *st_0,2228(0) ./supervisor/new/isup12fs.imp: *lpsw_2224(0) ./supervisor/new/isup12fs.imp: *stm_0,15,2056(0) ./supervisor/new/isup12fs.imp: *std_0,2120(0); *std_2,2128(0); *std_4,2136(0); *std_6,2144(0) ./supervisor/new/isup12fs.imp: *stctl_0,15,2152(0) ./supervisor/new/isup12fs.imp: *stpt_2216(0) ./supervisor/new/isup12fs.imp: *slr_0,0; *bctr_0,0; *st_0,2048(0) ./supervisor/new/isup12fs.imp: *la_0,3358 {D1E}; *st_0,2228(0) ./supervisor/new/isup12fs.imp: *lpsw_2224(0) ./supervisor/new/isup12fs.imp: *STCK_mctemp; ! recalculate clock comparator ./supervisor/new/isup12fs.imp: *LD_0,352(0); *LD_2,360(0); *LD_4,368(0); *LD_6,376(0) ./supervisor/new/isup12fs.imp: *SCKC_224(0) ./supervisor/new/isup12fs.imp: *SPT_216(0) ./supervisor/new/isup12fs.imp: *LCTL_0,15,448(0) ./supervisor/new/isup12fs.imp: *LM_0,15,384(0) ./supervisor/new/isup12fs.imp: *LPSW_2048(0) ./supervisor/new/isup12fs.imp: *la_1,; *st_1,I ./supervisor/new/isup12fs.imp: *la_1,; *st_1,I ./supervisor/new/isup12fs.imp: *la_1,; *st_1,I ./supervisor/new/isup12fs.imp: *la_1,; *st_1,I ./supervisor/new/isup12fs.imp: *la_1,; *st_1,I ./supervisor/new/isup12fs.imp: *la_1,; *st_1,I; ! s/w error PSW ./supervisor/new/isup12fs.imp: *basr_1,0; *using_1; ! Local Controller exit PSW ./supervisor/new/isup12fs.imp: *la_2,; *st_2,I; *drop_1 ./supervisor/new/isup12fs.imp: *spt_MAXCPUTIMER ./supervisor/new/isup12fs.imp: *stck_L; L=L+ONE SECOND; *sckc_L; ! 1 second clock tick ./supervisor/new/isup12fs.imp: *spt_MAXCPUTIMER ./supervisor/new/isup12fs.imp: *ssm_ALLOWPERIINTS ./supervisor/new/isup12fs.imp: *ssm_MASKPX; ! mask peri & external ./supervisor/new/isup12fs.imp: *basr_2,0; *using_2 ./supervisor/new/isup12fs.imp: *slr_1,1; *lr_0,1; *bctr_0,0 ./supervisor/new/isup12fs.imp: *l_3,MAINQSEMA ./supervisor/new/isup12fs.imp: *cs_0,1,0(3); *bc_8,; *drop_2 ./supervisor/new/isup12fs.imp: *lctl_1,1,I; ! segment table length/origin ./supervisor/new/isup12fs.imp: *l_1,I ./supervisor/new/isup12fs.imp: *ld_0,72(1); *ld_2,80(1); ! FPRs ./supervisor/new/isup12fs.imp: *ld_4,88(1); *ld_6,96(1) ./supervisor/new/isup12fs.imp: *lctl_0,1,104(1); *lctl_14,14,160(1);! CRs 0,1 ./supervisor/new/isup12fs.imp: *spt_168(1); ! CPU timer ./supervisor/new/isup12fs.imp: *mvc_2048(8,0),0(1); ! PSW to page 0 ./supervisor/new/isup12fs.imp: *lm_0,15,8(1); ! GRs ./supervisor/new/isup12fs.imp: *mvi_640(0),255; ! kernel flag ./supervisor/new/isup12fs.imp: *lpsw_2048(0); ! to Local Controller or user ./supervisor/new/isup12fs.imp: *lctl_1,1,708(0); ! is paging out! ./supervisor/new/isup12fs.imp: *ssm_ALLOWPERIINTS ./supervisor/new/isup12fs.imp: *ssm_maskpx ./supervisor/new/isup12fs.imp: *lpsw_WPSW; ! idle ./supervisor/new/isup12fs.imp: *stck_l ./supervisor/new/isup12fs.imp: *ssm_allowperiints ./supervisor/new/isup12fs.imp: *SSM_maskpx ./supervisor/new/isup12fs.imp: *stpt_KIT ./supervisor/new/isup12fs.imp: *stpt_L ./supervisor/new/isup12fs.imp: *STPT_L ./supervisor/new/isup12fs.imp: *lctl_1,1,I; ! segment table length/origin ./supervisor/new/isup12fs.imp: *l_1,I ./supervisor/new/isup12fs.imp: *lctl_0,1,104(1); *lctl_14,14,160(1);! CRs 0,1 ./supervisor/new/isup12fs.imp: *spt_168(1); ! CPU timer ./supervisor/new/isup12fs.imp: *lm_4,14,24(1); ! GRs ./supervisor/new/isup12fs.imp: *mvi_640(0),255; ! kernel flag ./supervisor/new/isup12fs.imp: *lpsw_0(1); ! to Local Controller ./supervisor/new/isup12fs.imp: *lm_4,14,656(0); ! Kernel GRs ./supervisor/new/isup12fs.imp: *spt_MAXCPUTIMER ./supervisor/new/isup12fs.imp: *mvi_640(0),0; ! kernel flag ./supervisor/new/isup12fs.imp: *lctl_1,1,708(0); ! l-c may page out or on destroy seg table is ./supervisor/new/isup12fs.imp: *basr_2,0; *using_2 ./supervisor/new/isup12fs.imp: *slr_1,1; *lr_0,1; *bctr_0,0 ./supervisor/new/isup12fs.imp: *l_3,MAINQSEMA ./supervisor/new/isup12fs.imp: *cs_0,1,0(3); *bc_8,; *drop_2 ./supervisor/new/isup12fs.imp: *L_1,ra; *l_2,J; *sr_0,0 ./supervisor/new/isup12fs.imp: *SSKE_2,1; *ISKE_0,1; *ST_0,MARK ./supervisor/new/isup12fs.imp: *SSK_2,1; *ISK_0,1; *ST_0,mark ./supervisor/new/isup12fs.imp: *SSK_2,1; *isk_0,1; *ST_0,mark ./supervisor/new/isup12fs.imp: *LA_1,2048(1) ./supervisor/new/isup12fs.imp: *SSK_2,1; *ISK_0,1; *O_0,MARK; *ST_0,MARK ./supervisor/new/isup12fs.imp: *l_1,va; *ic_0,0(1); ! read one byte ./supervisor/new/isup12fs.imp: *l_2,RA; *SR_0,0; ./supervisor/new/isup12fs.imp: *ISK_0,2; *ST_0,MARK ./supervisor/new/isup12fs.imp: *ISK_0,2; *ST_0,MARK; ! KEY ON 1ST 2 K ./supervisor/new/isup12fs.imp: *LA_15,2048(2); *ISK_0,15; ! 2ND SET OF MARKERS ./supervisor/new/isup12fs.imp: *O_0,MARK; *ST_0,MARK ./supervisor/new/isup12fs.imp: *l_2,RA ./supervisor/new/isup12fs.imp: *RRBE_0,2; ! REFERENCED BIT RESET ./supervisor/new/isup12fs.imp: *RRB_0(2) ./supervisor/new/isup12fs.imp: *LA_15,2048(2); ! 2ND SET OF MARKERS ./supervisor/new/isup12fs.imp: *RRB_0(2); *RRB_0(15); ! MARKERS RESET ./supervisor/new/isup12fs.imp: *l_2,RA; *SR_0,0; ./supervisor/new/isup12fs.imp: *ISKE_0,2; *ST_0,MARK; ! MARKERS TO MARK ./supervisor/new/isup12fs.imp: *ISK_0,2; *ST_0,MARK ./supervisor/new/isup12fs.imp: *ISK_0,2; *ST_0,MARK; ! KEY ON 1ST 2 K ./supervisor/new/isup12fs.imp: *LA_15,2048(2); *ISK_0,15; ! 2ND SET OF MARKERS ./supervisor/new/isup12fs.imp: *O_0,MARK; *ST_0,MARK ./supervisor/new/isup12fs.imp: *l_1,va; *ic_0,0(1); *stc_0,0(1) ./supervisor/new/isup12fs.imp: *l_2,RA; *SR_0,0; ./supervisor/new/isup12fs.imp: *ISKE_0,2; *ST_0,MARK; ! MARKERS TO MARK ./supervisor/new/isup12fs.imp: *ISK_0,2; *ST_0,MARK ./supervisor/new/isup12fs.imp: *ISK_0,2; *ST_0,MARK; ! KEY ON 1ST 2 K ./supervisor/new/isup12fs.imp: *LA_15,2048(2); *ISK_0,15; ! 2ND SET OF MARKERS ./supervisor/new/isup12fs.imp: *O_0,MARK; *ST_0,MARK ./supervisor/new/isup12fs.imp: *l_2,RA ./supervisor/new/isup12fs.imp: *RRBE_0,2; ! REFERENCED BIT RESET ./supervisor/new/isup12fs.imp: *RRB_0(2) ./supervisor/new/isup12fs.imp: *LA_15,2048(2); ! 2ND SET OF MARKERS ./supervisor/new/isup12fs.imp: *RRB_0(2); *RRB_0(15); ! MARKERS RESET ./supervisor/new/isup12fs.imp: *l_2,RA; *SR_0,0; ./supervisor/new/isup12fs.imp: *ISKE_0,2; *ST_0,MARK; ! MARKERS TO MARK ./supervisor/new/isup12fs.imp: *ISK_0,2; *ST_0,MARK ./supervisor/new/isup12fs.imp: *ISK_0,2; *ST_0,MARK; ! KEY ON 1ST 2 K ./supervisor/new/isup12fs.imp: *LA_15,2048(2); *ISK_0,15; ! 2ND SET OF MARKERS ./supervisor/new/isup12fs.imp: *O_0,MARK; *ST_0,MARK ./supervisor/new/isup12fs.imp: *basr_2,0; *using_2 ./supervisor/new/isup12fs.imp: *slr_1,1; *lr_0,1; *bctr_0,0 ./supervisor/new/isup12fs.imp: *cs_0,1,SCHEDSEMA; *bc_8,; *drop_2 ./supervisor/new/isup12fs.imp: *ptlb_0(0) ./supervisor/new/isup12fs.imp: *PTLB_0(0); ! needed for some tlbs in case a different ./supervisor/new/isup12fs.imp: *PTLB_0(0) ./supervisor/new/isup12fs.imp: *basR_1,0; *USING_1 ./supervisor/new/isup12fs.imp: *SR_0,0; *LR_2,0; *BCTR_2,0 ./supervisor/new/isup12fs.imp: *CS_2,0,STORESEMA ./supervisor/new/isup12fs.imp: *BC_8, ./supervisor/new/isup12fs.imp: *DROP_1 ./supervisor/new/isup12fs.imp: *L_1,STOREX; *SLL_1,12 ./supervisor/new/isup12fs.imp: *L_2,KEY; *SSKE_2,1 ./supervisor/new/isup12fs.imp: *L_1,STOREX ./supervisor/new/isup12fs.imp: *SLL_1,12 ./supervisor/new/isup12fs.imp: *L_2,KEY ./supervisor/new/isup12fs.imp: *SSK_2,1 ./supervisor/new/isup12fs.imp: *L_1,STOREX; *SLL_1,12 ./supervisor/new/isup12fs.imp: *L_2,KEY; *SSK_2,1 ./supervisor/new/isup12fs.imp: *LA_1,2048(1); *SSK_2,1 ./supervisor/new/isup12fs.imp: *L_1,STOREX; *SLL_1,12 ./supervisor/new/isup12fs.imp: *L_2,KEY; *SSKE_2,1 ./supervisor/new/isup12fs.imp: *L_1,STOREX ./supervisor/new/isup12fs.imp: *SLL_1,12 ./supervisor/new/isup12fs.imp: *L_2,KEY ./supervisor/new/isup12fs.imp: *SSK_2,1 ./supervisor/new/isup12fs.imp: *L_1,STOREX; *SLL_1,12 ./supervisor/new/isup12fs.imp: *L_2,KEY; *SSK_2,1 ./supervisor/new/isup12fs.imp: *LA_1,2048(1); *SSK_2,1 ./supervisor/new/isup12fs.imp: *STPT_TIMER1 ./supervisor/new/isup12fs.imp: *STPT_TIMER2 ./supervisor/new/isup12fs.imp: *basR_1,0; *USING_1 ./supervisor/new/isup12fs.imp: *SR_0,0; *LR_2,0; *BCTR_2,0 ./supervisor/new/isup12fs.imp: *CS_2,0,STORESEMA ./supervisor/new/isup12fs.imp: *BC_8, ./supervisor/new/isup12fs.imp: *DROP_1 ./supervisor/new/isup12fs.imp: *STPT_TIMER1 ./supervisor/new/isup12fs.imp: *STPT_TIMER2 ./supervisor/new/isup12fs.imp: *STPT_TIMER1 ./supervisor/new/isup12fs.imp: *STPT_TIMER2 ./supervisor/new/isup12fs.imp: *STPT_TIMER1 ./supervisor/new/isup12fs.imp: *STPT_TIMER2 ./supervisor/new/isup12fs.imp: *L_1,RA; *LA_2,24 {X'18'} ./supervisor/new/isup12fs.imp: *SSKE_2,1 ./supervisor/new/isup12fs.imp: *L_1,RA; *LA_2,24 {X'18'} ./supervisor/new/isup12fs.imp: *SSK_2,1 ./supervisor/new/isup12fs.imp: *L_1,RA; *LA_2,24 {X'18'} ./supervisor/new/isup12fs.imp: *SSK_2,1 ./supervisor/new/isup12fs.imp: *LA_1,2048(1); ! ON TO SECOND 2 K ./supervisor/new/isup12fs.imp: *SSK_2,1 ./supervisor/new/isup12fs.imp: *l_0,i; *l_1,pagesize ./supervisor/new/isup12fs.imp: *lr_2,0; *slr_3,3; *mvcl_0,2 ./supervisor/new/isup12fs.imp: *L_1,RA; *LA_2,248 {X'F8'}; *N_2,KEY ./supervisor/new/isup12fs.imp: *SSKE_2,1 ./supervisor/new/isup12fs.imp: *L_1,RA; *LA_2,248 {X'F8'}; *N_2,KEY ./supervisor/new/isup12fs.imp: *SSK_2,1 ./supervisor/new/isup12fs.imp: *L_1,RA; *LA_2,248 {X'F8'}; *N_2,KEY ./supervisor/new/isup12fs.imp: *SSK_2,1 ./supervisor/new/isup12fs.imp: *LA_1,2048(1); ! ON TO SECOND 2 K ./supervisor/new/isup12fs.imp: *SSK_2,1 ./supervisor/new/isup12fs.imp: *basR_1,0; *USING_1 ./supervisor/new/isup12fs.imp: *SR_0,0; *LR_2,0; *BCTR_2,0 ./supervisor/new/isup12fs.imp: *CS_2,0,STORESEMA ./supervisor/new/isup12fs.imp: *BC_8, ./supervisor/new/isup12fs.imp: *DROP_1 ./supervisor/new/isup12fs.imp: *basR_1,0; *USING_1 ./supervisor/new/isup12fs.imp: *SR_0,0; *LR_2,0; *BCTR_2,0 ./supervisor/new/isup12fs.imp: *CS_2,0,STORESEMA ./supervisor/new/isup12fs.imp: *BC_7, ./supervisor/new/isup12fs.imp: *DROP_1 ./supervisor/new/isup12fs.imp: *basR_1,0; *USING_1 ./supervisor/new/isup12fs.imp: *SR_0,0; *LR_2,0; *BCTR_2,0 ./supervisor/new/isup12fs.imp: *CS_2,0,STORESEMA ./supervisor/new/isup12fs.imp: *BC_8, ./supervisor/new/isup12fs.imp: *DROP_1 ./supervisor/new/isup12fs.imp: *L_1,RA; *LA_2,24 {X'18'} ./supervisor/new/isup12fs.imp: *SSKE_2,1 ./supervisor/new/isup12fs.imp: *L_1,RA; *LA_2,24 {X'18'} ./supervisor/new/isup12fs.imp: *SSK_2,1 ./supervisor/new/isup12fs.imp: *L_1,RA; *LA_2,24 {X'18'} ./supervisor/new/isup12fs.imp: *SSK_2,1 ./supervisor/new/isup12fs.imp: *LA_1,2048(1); ! ON TO SECOND 2 K ./supervisor/new/isup12fs.imp: *SSK_2,1 ./supervisor/new/isup12fs.imp: *l_0,i; *l_1,pagesize ./supervisor/new/isup12fs.imp: *lr_2,0; *slr_3,3; *mvcl_0,2 ./supervisor/new/isup12fs.imp: *L_1,RA; *LA_2,120 {X'78'} ./supervisor/new/isup12fs.imp: *SSKE_2,1 ./supervisor/new/isup12fs.imp: *L_1,RA; *LA_2,120 {X'78'} ./supervisor/new/isup12fs.imp: *SSK_2,1 ./supervisor/new/isup12fs.imp: *L_1,RA; *LA_2,120 {X'78'} ./supervisor/new/isup12fs.imp: *SSK_2,1 ./supervisor/new/isup12fs.imp: *LA_1,2048(1); ! ON TO SECOND 2 K ./supervisor/new/isup12fs.imp: *SSK_2,1 ./supervisor/new/isup12fs.imp: *basR_1,0; *USING_1 ./supervisor/new/isup12fs.imp: *SR_0,0; *LR_2,0; *BCTR_2,0 ./supervisor/new/isup12fs.imp: *CS_2,0,STORESEMA ./supervisor/new/isup12fs.imp: *BC_8, ./supervisor/new/isup12fs.imp: *DROP_1 ./supervisor/new/isup12fs.imp: *SR_0,0; *L_1,DA; *LA_2,509; *DR_0,2; *ST_0,HASH ./supervisor/new/isup12fs.imp: *SR_0,0; *L_1,DA; *LA_2,509; *DR_0,2; *ST_0,HASH ./supervisor/new/isup12fs.imp: *PTLB_0(0) ./supervisor/new/isup12fs.imp: *PTLB_0(0) ./supervisor/new/isup12fs.imp: *SR_0,0; *L_1,DA; *LA_2,509; *DR_0,2; *ST_0,HASH ./supervisor/new/isup12fs.imp: *BASR_2,0; *USING_2 ./supervisor/new/isup12fs.imp: *LA_1, ./supervisor/new/isup12fs.imp: *O_1,PSW+4 ./supervisor/new/isup12fs.imp: *ST_1,PSW+4 ./supervisor/new/isup12fs.imp: *DROP_2 ./supervisor/new/isup12fs.imp: *BASR_2,0; *USING_2 ./supervisor/new/isup12fs.imp: *LA_1, ./supervisor/new/isup12fs.imp: *O_1,PSW+4 ./supervisor/new/isup12fs.imp: *ST_1,PSW+4 ./supervisor/new/isup12fs.imp: *DROP_2 ./supervisor/new/isup12fs.imp: *BASR_2,0; *USING_2 ./supervisor/new/isup12fs.imp: *LA_1, ./supervisor/new/isup12fs.imp: *O_1,PSW+4 ./supervisor/new/isup12fs.imp: *ST_1,PSW+4 ./supervisor/new/isup12fs.imp: *DROP_2 ./supervisor/new/isup12fs.imp: *L_1,I; ! ADDRESS OF THE CONTEXT ./supervisor/new/isup12fs.imp: *STM_4,14,24(1); ! THE REGISTERS ./supervisor/new/isup12fs.imp: *BASR_2,0 ./supervisor/new/isup12fs.imp: *USING_2 ./supervisor/new/isup12fs.imp: *LA_1, ./supervisor/new/isup12fs.imp: *ST_1,K ./supervisor/new/isup12fs.imp: *DROP_2 ./supervisor/new/isup12fs.imp: *STPT_PSW ./supervisor/new/isup12fs.imp: *LPSW_544(0) ./supervisor/new/isup12fs.imp: *STM_0,15,2304(0); ! X900 THE L-C DUMP AREA ./supervisor/new/isup12fs.imp: *LA_1,64; ! THE LC STACK SEG NO ./supervisor/new/isup12fs.imp: *SLL_1,16 ./supervisor/new/isup12fs.imp: *SLL_1,20 ./supervisor/new/isup12fs.imp: *LM_4,14,2152(1); ! 4*LSTLEN+80+8 FOR PSW +16(GRS0-3) ./supervisor/new/isup12fs.imp: *L_1,CONTEXT; ! POINTER ./supervisor/new/isup12fs.imp: *MVC_8(64,1),2304(0); ! COPY IN GRS ./supervisor/new/isup12fs.imp: *STD_0,72(1); *STD_2,80(1) ./supervisor/new/isup12fs.imp: *STD_4,88(1); *STD_6,96(1) ./supervisor/new/isup12fs.imp: *STCTL_0,1,104(1); *stctl_14,14,160(1);! CONTROL REGS ./supervisor/new/isup12fs.imp: *STPT_168(1); ! CPU TIMER ./supervisor/new/isup12fs.imp: *l_1,i; *lctl_0,1,104(1); *lctl_14,14,160(1) ./supervisor/new/isup12fs.imp: *L_1,I; *SPT_168(1); ! TO TIME LOCAL CONTROLLER ./supervisor/new/isup12fs.imp: *STPT_TIMER1 ./supervisor/new/isup12fs.imp: *STPT_TIMER2 ./supervisor/new/isup12fs.imp: *STM_0,15,2304(0); ! X900 THE L-C DUMP AREA ./supervisor/new/isup12fs.imp: *LA_1,64; ! THE LC STACK SEG NO ./supervisor/new/isup12fs.imp: *SLL_1,16 ./supervisor/new/isup12fs.imp: *SLL_1,20 ./supervisor/new/isup12fs.imp: *LM_4,14,2152(1); ! 4*LSTLEN+80+8 FOR PSW +16(GRS0-3) ./supervisor/new/isup12fs.imp: *L_1,CONTEXT; ! POINTER ./supervisor/new/isup12fs.imp: *MVC_8(64,1),2304(0); ! COPY IN GRS ./supervisor/new/isup12fs.imp: *STD_0,72(1); *STD_2,80(1) ./supervisor/new/isup12fs.imp: *STD_4,88(1); *STD_6,96(1) ./supervisor/new/isup12fs.imp: *STCTL_0,1,104(1); *stctl_14,14,160(1);! CONTROL REGS ./supervisor/new/isup12fs.imp: *STPT_168(1); ! CPU TIMER ./supervisor/new/isup12fs.imp: *l_1,i; *lctl_0,1,104(1); *lctl_14,14,160(1) ./supervisor/new/isup12fs.imp: *L_1,I; *SPT_168(1); ! TO TIME LOCAL CONTROLLER ./supervisor/new/isup12fs.imp: *STM_0,15,2304(0); ! X900 THE L-C DUMP AREA ./supervisor/new/isup12fs.imp: *BASR_1,0; *USING_1 ./supervisor/new/isup12fs.imp: *TM_41(0),X'F0'; ! key 0? ./supervisor/new/isup12fs.imp: *BC_7, ./supervisor/new/isup12fs.imp: *TM_40(0),3; ! interruptible? ./supervisor/new/isup12fs.imp: *BC_1, ./supervisor/new/isup12fs.imp: *BC_15, ./supervisor/new/isup12fs.imp: *TM_41(0),X'E0' ./supervisor/new/isup12fs.imp: *BC_7, ./supervisor/new/isup12fs.imp: *L_1,2308(0) ./supervisor/new/isup12fs.imp: *LPSW_520(0); ! PSW FOR ERRORS IN SUPERVISOR ./supervisor/new/isup12fs.imp: *DROP_1 ./supervisor/new/isup12fs.imp: *LA_1,64; ! THE LC STACK SEG NO ./supervisor/new/isup12fs.imp: *SLL_1,16 ./supervisor/new/isup12fs.imp: *SLL_1,20 ./supervisor/new/isup12fs.imp: *LM_4,14,2152(1); ! 4*LSTLEN+80+8 FOR PSW +16(GRS0-3) ./supervisor/new/isup12fs.imp: *L_1,CONTEXT; ! POINTER ./supervisor/new/isup12fs.imp: *MVC_8(64,1),2304(0); ! COPY IN GRS ./supervisor/new/isup12fs.imp: *STD_0,72(1); *STD_2,80(1) ./supervisor/new/isup12fs.imp: *STD_4,88(1); *STD_6,96(1) ./supervisor/new/isup12fs.imp: *STCTL_0,1,104(1); *stctl_14,14,160(1);! CONTROL REGS ./supervisor/new/isup12fs.imp: *STPT_168(1); ! CPU TIMER ./supervisor/new/isup12fs.imp: *l_1,i; *lctl_0,1,104(1); *lctl_14,14,160(1) ./supervisor/new/isup12fs.imp: *L_1,I; *SPT_168(1); ! TO TIME LOCAL CONTROLLER ./supervisor/new/isup12fs.imp: *STPT_PSW ./supervisor/new/isup12fs.imp: *L_1,CONTEXT; ! ADDR SAVE ARE TO GR1 ./supervisor/new/isup12fs.imp: *LD_0,72(1); *LD_2,80(1); ! LOAD UP FLOATING REGS ./supervisor/new/isup12fs.imp: *LD_4,88(1) ./supervisor/new/isup12fs.imp: *LD_6,96(1) ./supervisor/new/isup12fs.imp: *LCTL_0,1,104(1); *lctl_14,14,160(1) ./supervisor/new/isup12fs.imp: *SPT_168(1) ./supervisor/new/isup12fs.imp: *MVC_2048(8,0),0(1); ! USER PSW TO PAGE 0 ./supervisor/new/isup12fs.imp: *LM_0,15,8(1) ./supervisor/new/isup12fs.imp: *LPSW_2048(0) ./supervisor/new/isup12fs.imp: *LPSW_512(0); ! CRASH WITH SPECIAL PSW ./supervisor/new/isup12fs.imp: *BASR_1,0; *USING_1 ./supervisor/new/isup12fs.imp: *SR_0,0; *LR_2,0; *BCTR_2,0 ./supervisor/new/isup12fs.imp: *CS_2,0,STORESEMA ./supervisor/new/isup12fs.imp: *BC_8, ./supervisor/new/isup12fs.imp: *DROP_1 ./supervisor/new/isup12fs.imp: *L_0,PTPVAD; *LR_2,0 ./supervisor/new/isup12fs.imp: *LA_1,4095; *LA_1,1(1) ./supervisor/new/isup12fs.imp: *LA_3,255; *SLL_3,24 ./supervisor/new/isup12fs.imp: *MVCL_0,2; ! FILL NEW PAGE WITH FFS ./supervisor/new/isup12fs.imp: *STPT_TIMER1 ./supervisor/new/isup12fs.imp: *STPT_TIMER2 ./supervisor/new/isup12fs.imp: *STPT_TIMER1 ./supervisor/new/isup12fs.imp: *STPT_TIMER2 ./supervisor/new/isup12fs.imp: *STPT_TIMER1 ./supervisor/new/isup12fs.imp: *STPT_TIMER2 ./supervisor/new/isup12fs.imp: *STPT_TIMER1 ./supervisor/new/isup12fs.imp: *STPT_TIMER2 ./supervisor/new/isup12fs.imp: *BASR_1,0; *USING_1 ./supervisor/new/isup12fs.imp: *SR_0,0; *LR_2,0; *BCTR_2,0 ./supervisor/new/isup12fs.imp: *CS_2,0,SCHEDSEMA ./supervisor/new/isup12fs.imp: *BC_8, ./supervisor/new/isup12fs.imp: *DROP_1 ./supervisor/new/isup12fs.imp: *BASR_1,0; *USING_1 ./supervisor/new/isup12fs.imp: *SR_0,0; *LR_2,0; *BCTR_2,0 ./supervisor/new/isup12fs.imp: *CS_2,0,SCHEDSEMA ./supervisor/new/isup12fs.imp: *BC_8, ./supervisor/new/isup12fs.imp: *DROP_1 ./supervisor/new/isup12fs.imp: *STPT_TIMER1 ./supervisor/new/isup12fs.imp: *STPT_TIMER2 ./supervisor/new/isup12fs.imp: *BASR_1,0; *USING_1 ./supervisor/new/isup12fs.imp: *SR_0,0; *LR_2,0; *BCTR_2,0 ./supervisor/new/isup12fs.imp: *CS_2,0,STORESEMA ./supervisor/new/isup12fs.imp: *BC_8, ./supervisor/new/isup12fs.imp: *DROP_1 ./supervisor/new/isup12fs.imp: *STPT_TIMER1 ./supervisor/new/isup12fs.imp: *STPT_TIMER2 ./supervisor/new/isup12fs.imp: *STPT_TIMER1 ./supervisor/new/isup12fs.imp: *STPT_TIMER2 ./supervisor/new/isup12fs.imp: *STPT_TIMER1 ./supervisor/new/isup12fs.imp: *STPT_TIMER2 ./supervisor/new/isup12fs.imp: *BASR_4,0 ./supervisor/new/isup12fs.imp: *USING_4 ./supervisor/new/isup12fs.imp: *L_1,I ./supervisor/new/isup12fs.imp: *SLL_1,12 ./supervisor/new/isup12fs.imp: *LRA_2,0(1) ./supervisor/new/isup12fs.imp: *BC_7, ./supervisor/new/isup12fs.imp: *ST_2,J ./supervisor/new/isup12fs.imp: *DROP_4 ./supervisor/new/isup12fs.imp: *L_1,I; *LRA_2,0(1); ! THE LRA MUST WORK ./supervisor/new/isup12fs.imp: *ISKE_0,2; *ST_0,MARK; ! MARKERS TO MARK ./supervisor/new/isup12fs.imp: *SRL_0,3; *SLL_0,3; ! MARKERS REMOVED ./supervisor/new/isup12fs.imp: *SSKE_0,2; ! STORE KEY RESET ./supervisor/new/isup12fs.imp: *L_2,PTAD; *IPTE_2,1; ! P-T ENTRY INVALIDATED ./supervisor/new/isup12fs.imp: *ISK_0,2; *ST_0,MARK ./supervisor/new/isup12fs.imp: *SRL_0,3; *SLL_0,3 ./supervisor/new/isup12fs.imp: *SSK_0,2 ./supervisor/new/isup12fs.imp: *PTLB_0(0) ./supervisor/new/isup12fs.imp: *ISK_0,2; *ST_0,MARK; ! KEY ON 1ST 2 K ./supervisor/new/isup12fs.imp: *LA_15,2048(2); *ISK_0,15; ! 2ND SET OF MARKERS ./supervisor/new/isup12fs.imp: *O_0,MARK; *ST_0,MARK ./supervisor/new/isup12fs.imp: *SRL_0,3; *SLL_0,3; ! CLEAR THE MARKERS ./supervisor/new/isup12fs.imp: *SSK_0,2; *SSK_0,15; ! MARKERS RESET ./supervisor/new/isup12fs.imp: *PTLB_0(0) ./supervisor/new/isup12fs.imp: *STPT_TIMER1 ./supervisor/new/isup12fs.imp: *STPT_TIMER2 ./supervisor/new/isup12fs.imp: *L_1,I; *LRA_2,0(1); ! THE LRA MUST WORK ./supervisor/new/isup12fs.imp: *ISKE_0,2; *ST_0,MARK; ! MARKERS TO MARK ./supervisor/new/isup12fs.imp: *ISK_0,2; *ST_0,MARK ./supervisor/new/isup12fs.imp: *ISK_0,2; *ST_0,MARK; ! KEY ON 1ST 2 K ./supervisor/new/isup12fs.imp: *LA_15,2048(2); *ISK_0,15; ! 2ND SET OF MARKERS ./supervisor/new/isup12fs.imp: *O_0,MARK; *ST_0,MARK ./supervisor/new/isup12fs.imp: *STPT_TIMER1 ./supervisor/new/isup12fs.imp: *STPT_TIMER2 ./supervisor/new/isup12fs.imp: *STPT_TIMER1 ./supervisor/new/isup12fs.imp: *STPT_TIMER2 ./supervisor/new/isup12fs.imp: *PTLB_0(0); ! UTILISE THE BLUNDERBUSS ./supervisor/new/isup12fs.imp: *L_1,I; *LRA_2,0(1); ! THE LRA MUST WORK ./supervisor/new/isup12fs.imp: *BASR_3,0; *USING_3 ./supervisor/new/isup12fs.imp: *ISKE_0,2; *ST_0,MARK; ! MARKERS TO MARK ./supervisor/new/isup12fs.imp: *TM_SFLAGS+3,1; *BC_1, ./supervisor/new/isup12fs.imp: *RRBE_0,2; ! STORE KEY RESET ./supervisor/new/isup12fs.imp: *ISK_0,2; *ST_0,MARK ./supervisor/new/isup12fs.imp: *TM_SFLAGS+3,1; *BC_1, ./supervisor/new/isup12fs.imp: *RRB_0(2) ./supervisor/new/isup12fs.imp: *ISK_0,2; *ST_0,MARK; ! KEY ON 1ST 2 K ./supervisor/new/isup12fs.imp: *LA_15,2048(2); *ISK_0,15; ! 2ND SET OF MARKERS ./supervisor/new/isup12fs.imp: *O_0,MARK; *ST_0,MARK ./supervisor/new/isup12fs.imp: *TM_SFLAGS+3,1; *BC_1, ./supervisor/new/isup12fs.imp: *RRB_0(2); *RRB_0(15); ! MARKERS RESET ./supervisor/new/isup12fs.imp: *DROP_3 ./supervisor/new/isup12fs.imp: *STPT_TIMER1 ./supervisor/new/isup12fs.imp: *STPT_TIMER2 ./supervisor/new/isup12fs.imp: *L_1,I; ! STILL FULL VIRTUAL ADDRESS ./supervisor/new/isup12fs.imp: *L_2,PTAD; *IPTE_2,1; ! P-T ENTRY INVALIDATED&TLB purged ./supervisor/new/isup12fs.imp: *PTLB_0(0) ./supervisor/new/isup12fs.imp: *L_1,I; *LRA_2,0(1); ! THE LRA MUST WORK ./supervisor/new/isup12fs.imp: *ISKE_0,2; *ST_0,MARK; ! MARKERS TO MARK ./supervisor/new/isup12fs.imp: *SRL_0,3; *SLL_0,3; ! MARKERS REMOVED ./supervisor/new/isup12fs.imp: *SSKE_0,2; ! STORE KEY RESET ./supervisor/new/isup12fs.imp: *ISK_0,2; *ST_0,MARK ./supervisor/new/isup12fs.imp: *SRL_0,3; *SLL_0,3 ./supervisor/new/isup12fs.imp: *SSK_0,2 ./supervisor/new/isup12fs.imp: *ISK_0,2; *ST_0,MARK; ! KEY ON 1ST 2 K ./supervisor/new/isup12fs.imp: *LA_15,2048(2); *ISK_0,15; ! 2ND SET OF MARKERS ./supervisor/new/isup12fs.imp: *O_0,MARK; *ST_0,MARK ./supervisor/new/isup12fs.imp: *SRL_0,3; *SLL_0,3; ! CLEAR THE MARKERS ./supervisor/new/isup12fs.imp: *SSK_0,2; *SSK_0,15; ! MARKERS RESET ./supervisor/new/isup12fs.imp: *STPT_TIMER1 ./supervisor/new/isup12fs.imp: *STPT_TIMER2 ./supervisor/new/isup12fs.imp: *PTLB_0(0) ./supervisor/new/isup12fs.imp: *spka_0(0); ! set key of 0 ./supervisor/new/isup12fs.imp: *spka_16(0); ! set key of 1 ./supervisor/new/isup12fs.imp: *l_2,ptad; *l_1,I ./supervisor/new/isup12fs.imp: *ipte_2,1; ! only to purge the tlb ./supervisor/new/isup12fs.imp: *L_1,I; *LRA_2,0(1); ! THE LRA MUST WORK ./supervisor/new/isup12fs.imp: *LA_0,7 ./supervisor/new/isup12fs.imp: *ISK_3,2; *NR_3,0; *O_3,key; *ssk_3,2 ./supervisor/new/isup12fs.imp: *ISK_3,2; *NR_3,0; *O_3,key; *SSK_3,2; ! KEY ON 1ST 2 K ./supervisor/new/isup12fs.imp: *LA_15,2048(2); *ISK_3,15; ! 2ND SET OF MARKERS ./supervisor/new/isup12fs.imp: *NR_3,0; *O_3,key; *SSK_3,15 ./supervisor/new/isup12fs.imp: *L_1,I; *LRA_2,0(1); ! THE LRA MUST WORK ./supervisor/new/isup12fs.imp: *ISKE_0,2; *ST_0,MARK; ! MARKERS TO MARK ./supervisor/new/isup12fs.imp: *RRBE_0,2; ! REFERENCED BIT RESET ./supervisor/new/isup12fs.imp: *ISK_0,2; *ST_0,MARK ./supervisor/new/isup12fs.imp: *RRB_0(2) ./supervisor/new/isup12fs.imp: *ISK_0,2; *ST_0,MARK; ! KEY ON 1ST 2 K ./supervisor/new/isup12fs.imp: *LA_15,2048(2); *ISK_0,15; ! 2ND SET OF MARKERS ./supervisor/new/isup12fs.imp: *O_0,MARK; *ST_0,MARK ./supervisor/new/isup12fs.imp: *RRB_0(2); *RRB_0(15); ! MARKERS RESET ./supervisor/new/isup12fs.imp: *STPT_CLK ./supervisor/new/isup12fs.imp: *STPT_TIMER1 ./supervisor/new/isup12fs.imp: *STPT_TIMER2 ./supervisor/new/isup12fs.imp: *BASR_1,0; *USING_1 ./supervisor/new/isup12fs.imp: *LA_2,; *ST_2,NEW ./supervisor/new/isup12fs.imp: *DROP_1 ./supervisor/new/isup12fs.imp: *mc_2(0),0; ! class 0, code 2 ./supervisor/new/isup12fs.imp: *mc_24(0),0; ! class 0, code 24 ./supervisor/new/isup12fs.imp: *mc_26(0),0; ! class 0, code 26 ./supervisor/new/indiag3s.imp: *la_1,; *st_1,i ./supervisor/new/indiag3s.imp: *l_1,i; *l_2,regs; *mvc_0(100,2),0(1) ./supervisor/new/indiag3s.imp: *l_2,l; *mvc_0(64,2),0(1) ./supervisor/new/indiag3s.imp: *l_2,regs; *mvc_0(64,2),0(10) ./supervisor/new/indiag3s.imp: *mvc_2056(64,0),0(10); ! for dump print ./supervisor/new/indiag3s.imp: *stctl_0,15,2152(0) ./supervisor/new/indiag3s.imp: *ipk_0; *st_2,pswk; *spka_0; ! key 0 ./supervisor/new/indiag3s.imp: *st_1,i; *l_1,myregs; *stm_0,15,0(1) ./supervisor/new/indiag3s.imp: *stctl_1,1,i ./supervisor/new/indiag3s.imp: *lpsw_psw ./supervisor/new/indiag3s.imp: *l_2,pswk; *spka_0(2); ! reset key ./supervisor/new/indiag3s.imp: *lpsw_2224(0); ! set up by supervisor ./supervisor/new/indiag3s.imp: *lpsw_psw ./supervisor/new/indiag3s.imp: *basr_15,0; *using_15 ./supervisor/new/indiag3s.imp: *l_1,n; *lra_0,0(1); *bc_8, ./supervisor/new/indiag3s.imp: *drop_15 ./supervisor/new/icomms16s.imp: *stck_clock ./supervisor/new/icomms16s.imp: *stck_clock ./supervisor/new/icomms16s.imp: *stck_clock ./supervisor/new/icomms16s.imp: *ipk_0; *st_2, pswkey; *spka_0(0); !save psw-key, and reset to allow write to page ./supervisor/new/icomms16s.imp: *l_2, pswkey; *spka_0(2); !restore psw-key ./supervisor/new/icomms16s.imp: *basr_15, 0 ./supervisor/new/icomms16s.imp: *using_15 ./supervisor/new/icomms16s.imp: *l_1, i; !bytes to be scanned minus 1 (<256) ./supervisor/new/icomms16s.imp: *l_2, linebegin; !start address ./supervisor/new/icomms16s.imp: *l_3, trtad; !addr of format effector translate table ./supervisor/new/icomms16s.imp: *ex_1, ; !do trt with 'len' bytes ./supervisor/new/icomms16s.imp: *bc_8, ; !none found ./supervisor/new/icomms16s.imp: *stc_2, cmnd; !found, store its table value ./supervisor/new/icomms16s.imp: *st_1, lineend; !location of feff ./supervisor/new/icomms16s.imp: *bc_15, ./supervisor/new/icomms16s.imp: *drop_15 ./supervisor/new/icomms16s.imp: *l_1, length; *l_2, address; *l_3, trtad ./supervisor/new/icomms16s.imp: *la_0, 256 ./supervisor/new/icomms16s.imp: *basr_15, 0 ./supervisor/new/icomms16s.imp: *using_15 ./supervisor/new/icomms16s.imp: *clr_1, 0; *bc_4, ./supervisor/new/icomms16s.imp: *tr_0(256, 2), 0(3) ./supervisor/new/icomms16s.imp: *alr_2, 0; *slr_1, 0 ./supervisor/new/icomms16s.imp: *bcr_15, 15 ./supervisor/new/icomms16s.imp: *bctr_1, 0; *ex_1, ./supervisor/new/icomms16s.imp: *drop_15 ./supervisor/new/icomms16s.imp: *l_0, from ./supervisor/new/icomms16s.imp: *lr_2, 0 ./supervisor/new/icomms16s.imp: *l_1, length ./supervisor/new/icomms16s.imp: *l_3, filler ./supervisor/new/icomms16s.imp: *sll_3, 24 ./supervisor/new/icomms16s.imp: *mvcl_0, 2 ./supervisor/new/icomms16s.imp: *stck_clock ./supervisor/new/icomms16s.imp: *stipd_ocp; ocp = (ocp>>32)&x'ff' ./supervisor/new/icomms16s.imp: *balr_1, 0; *using_1; *sr_0, 0 ./supervisor/new/icomms16s.imp: *lr_2, 0; *bctr_2, 0 ./supervisor/new/icomms16s.imp: *cs_2, 0, tracesema ./supervisor/new/icomms16s.imp: *bc_8, ./supervisor/new/icomms16s.imp: *drop_1 ./supervisor/new/icomms16s.imp: *balr_1, 0; *using_1; *sr_0, 0 ./supervisor/new/icomms16s.imp: *lr_2, 0; *bctr_2, 0 ./supervisor/new/icomms16s.imp: *cs_2, 0, tracesema ./supervisor/new/icomms16s.imp: *bc_8, ./supervisor/new/icomms16s.imp: *drop_1 ./supervisor/new/ibmsup/strrts.imp: *LM_0,1,REF ./supervisor/new/ibmsup/strrts.imp: *ST_1,AD ./supervisor/new/ibmsup/strrts.imp: *STH_0,L ./supervisor/new/ibmsup/strrts.imp: *SRL_0,16 ./supervisor/new/ibmsup/strrts.imp: *STH_0,F ./supervisor/new/ibmsup/strrts.imp: *LM_0,1,REF ./supervisor/new/ibmsup/strrts.imp: *ST_1,AD ./supervisor/new/ibmsup/strrts.imp: *STH_0,L ./supervisor/new/ibmsup/strrts.imp: *SRL_0,16 ./supervisor/new/ibmsup/strrts.imp: *STH_0,F ./supervisor/old/sup/strrts.imp: *LM_0,1,REF ./supervisor/old/sup/strrts.imp: *ST_1,AD ./supervisor/old/sup/strrts.imp: *STH_0,L ./supervisor/old/sup/strrts.imp: *SRL_0,16 ./supervisor/old/sup/strrts.imp: *STH_0,F ./supervisor/old/sup/strrts.imp: *LM_0,1,REF ./supervisor/old/sup/strrts.imp: *ST_1,AD ./supervisor/old/sup/strrts.imp: *STH_0,L ./supervisor/old/sup/strrts.imp: *SRL_0,16 ./supervisor/old/sup/strrts.imp: *STH_0,F ./supervisor/old/icom4s.imp: *l_1,ad ./supervisor/old/icom4s.imp: *ic_0,j+2; *stc_0,0(1) ./supervisor/old/icom4s.imp: *ic_0,j+3; *stc_0,1(1) ./supervisor/old/icom4s.imp: *stck_rtc1 ./supervisor/old/icom4s.imp: *l_2,rtc1; *l_3,rtc2; ./supervisor/old/icom4s.imp: *srdl_2,16; *l_4,sec ./supervisor/old/icom4s.imp: *dr_2,4; ! to seconds//2 ./supervisor/old/icom4s.imp: *st_3,rtc1 ./supervisor/old/icom4s.imp: *stck_psw ./supervisor/old/icom4s.imp: *l_0,to; *l_1,len ./supervisor/old/icom4s.imp: *l_2,from; *lr_3,1 ./supervisor/old/icom4s.imp: *mvcl_0,2 ./supervisor/old/icom4s.imp: *basr_15,0; *using_15 ./supervisor/old/icom4s.imp: *bc_14,; *drop_15 ./supervisor/old/icom4s.imp: *l_1,len; *l_2,ad; *l_3,i ./supervisor/old/icom4s.imp: *la_0,256 ./supervisor/old/icom4s.imp: *basr_15,0 ./supervisor/old/icom4s.imp: *using_15 ./supervisor/old/icom4s.imp: *clr_1,0; *bc_4, ./supervisor/old/icom4s.imp: *tr_0(256,2),0(3) ./supervisor/old/icom4s.imp: *alr_2,0; *slr_1,0 ./supervisor/old/icom4s.imp: *bcr_15,15 ./supervisor/old/icom4s.imp: *bctr_1,0; *ex_1, ./supervisor/old/icom4s.imp: *drop_15 ./supervisor/old/icom4s.imp: *l_1,len; *l_2,ad; *l_3,i ./supervisor/old/icom4s.imp: *la_0,256 ./supervisor/old/icom4s.imp: *basr_15,0 ./supervisor/old/icom4s.imp: *using_15 ./supervisor/old/icom4s.imp: *clr_1,0; *bc_4, ./supervisor/old/icom4s.imp: *tr_0(256,2),0(3) ./supervisor/old/icom4s.imp: *alr_2,0; *slr_1,0 ./supervisor/old/icom4s.imp: *bcr_15,15 ./supervisor/old/icom4s.imp: *bctr_1,0; *ex_1, ./supervisor/old/icom4s.imp: *drop_15 ./supervisor/old/icom4s.imp: *basr_15,0 ./supervisor/old/icom4s.imp: *using_15 ./supervisor/old/icom4s.imp: *l_1,i; *l_2,j; *l_3,k ./supervisor/old/icom4s.imp: *ex_1, ./supervisor/old/icom4s.imp: *drop_15 ./supervisor/old/icom4s.imp: *basr_15,0; *using_15 ./supervisor/old/icom4s.imp: *sck_l; *bc_8,; *drop_15 ./supervisor/old/icom4s.imp: *l_1,ad; *lra_0,0(1); *bc_7, ./supervisor/old/icom4s.imp: *ipk_0; *st_2,k; *spka_0; ! key 0 ./supervisor/old/icom4s.imp: *l_2,k; *spka_0(2) ./supervisor/old/icom4s.imp: *basr_15,0 ./supervisor/old/icom4s.imp: *using_15 ./supervisor/old/icom4s.imp: *la_0,; *st_0,i ./supervisor/old/icom4s.imp: *lpsw_psw ./supervisor/old/icom4s.imp: *drop_15 ./supervisor/old/icom4s.imp: *l_1,ad; *lra_0,0(1); *bc_7, ./supervisor/old/icom4s.imp: *l_1,k; *lra_0,0(1); *bc_7, ./supervisor/old/icom4s.imp: *ipk_0; *st_2,work; *spka_0; ! key 0 ./supervisor/old/icom4s.imp: *l_2,work; *spka_0(2) ./supervisor/old/icom4s.imp:*L _1,AD ./supervisor/old/icom4s.imp:*L _2,LEN ./supervisor/old/icom4s.imp:*PUT _X'8312'; *PUT _X'0008'; ! DIAGNOSE 1,2,8 - call CP to execute command ./supervisor/old/iop3270s.imp: *ipk _0; ! Get current PSW key ./supervisor/old/iop3270s.imp: *st _2,l; ! Save it ./supervisor/old/iop3270s.imp: *spka _0; ! Set key 0 for access ./supervisor/old/iop3270s.imp: *l _2,l; ! Get saved PSW key ./supervisor/old/iop3270s.imp: *spka _0(2); ! Reset key ./supervisor/old/iop3270s.imp: *ipk _0; ! Get current PSW key ./supervisor/old/iop3270s.imp: *st _2,flag; ! Save it ./supervisor/old/iop3270s.imp: *spka _0; ! Set key 0 for access ./supervisor/old/iop3270s.imp: *l _2,flag; ! Get saved PSW key ./supervisor/old/iop3270s.imp: *spka _0(2); ! Reset key ./supervisor/old/iop3270s.imp:*l _0,j ./supervisor/old/iop3270s.imp:*l _1,k ./supervisor/old/iop3270s.imp:*lr _2,0 ./supervisor/old/iop3270s.imp:*la _3,32; ! Space character ./supervisor/old/iop3270s.imp:*sll _3,24 ./supervisor/old/iop3270s.imp:*mvcl _0,2; ! Clear screen buffer to spaces ./supervisor/old/iop3270s.imp: *basr _15,0 ./supervisor/old/iop3270s.imp: *using_15 ./supervisor/old/iop3270s.imp: *l _1,k ./supervisor/old/iop3270s.imp: *l _2,llen ./supervisor/old/iop3270s.imp: *bctr _2,0 ./supervisor/old/iop3270s.imp: *bctr _2,0 ./supervisor/old/iop3270s.imp: *mvi _0(1),x'2d'; ! Minus sign ./supervisor/old/iop3270s.imp: *ex _2, ./supervisor/old/iop3270s.imp: *bc _15, ./supervisor/old/iop3270s.imp: *drop _15 ./supervisor/old/iop3270s.imp: *mvc _1(0,1),0(1) ./supervisor/old/iop3270s.imp: *l _0,sstart ./supervisor/old/iop3270s.imp: *l _1,ssize ./supervisor/old/iop3270s.imp: *lr _2,0 ./supervisor/old/iop3270s.imp: *la _3,32; ! Space character ./supervisor/old/iop3270s.imp: *sll _3,24 ./supervisor/old/iop3270s.imp: *mvcl _0,2 ./supervisor/old/ifast5s.imp: *l_1,i ./supervisor/old/ifast5s.imp: *ssch_orb ./supervisor/old/ifast5s.imp: *ipm_1 ./supervisor/old/ifast5s.imp: *srl_1,28 ./supervisor/old/ifast5s.imp: *st_1,cc ./supervisor/old/ifast5s.imp: *l_1,i ./supervisor/old/ifast5s.imp: *sio_0(1) ./supervisor/old/ifast5s.imp: *balr_1,0 ./supervisor/old/ifast5s.imp: *sll_1,2 ./supervisor/old/ifast5s.imp: *srl_1,30 ./supervisor/old/ifast5s.imp: *st_1,cc ./supervisor/old/ifast5s.imp: *l_1,i ./supervisor/old/ifast5s.imp: *sio_0(1) ./supervisor/old/ifast5s.imp: *balr_1,0 ./supervisor/old/ifast5s.imp: *sll_1,2 ./supervisor/old/ifast5s.imp: *srl_1,30 ./supervisor/old/ifast5s.imp: *st_1,acc ./supervisor/old/ifast5s.imp: *l_1,i; *l_2,irb ./supervisor/old/ifast5s.imp: *tsch_0(2) ./supervisor/old/ifast5s.imp: *ipm_1 ./supervisor/old/ifast5s.imp: *srl_1,28 ./supervisor/old/ifast5s.imp: *st_1,cc ./supervisor/old/ifast5s.imp: *l_1,i ./supervisor/old/ifast5s.imp: *tio_0(1) ./supervisor/old/ifast5s.imp: *balr_1,0 ./supervisor/old/ifast5s.imp: *sll_1,2 ./supervisor/old/ifast5s.imp: *srl_1,30 ./supervisor/old/ifast5s.imp: *st_1,cc ./supervisor/old/ifast5s.imp: *l_1,i ./supervisor/old/ifast5s.imp: *tio_0(1) ./supervisor/old/ifast5s.imp: *balr_1,0 ./supervisor/old/ifast5s.imp: *sll_1,2 ./supervisor/old/ifast5s.imp: *srl_1,30 ./supervisor/old/ifast5s.imp: *st_1,acc ./supervisor/old/ifast5s.imp: *l_1,i ./supervisor/old/ifast5s.imp: *hsch_I {param is a dummy} ./supervisor/old/ifast5s.imp: *ipm_1 ./supervisor/old/ifast5s.imp: *srl_1,28 ./supervisor/old/ifast5s.imp: *st_1,cc ./supervisor/old/ifast5s.imp: *l_1,i ./supervisor/old/ifast5s.imp: *hio_0(1) ./supervisor/old/ifast5s.imp: *balr_1,0 ./supervisor/old/ifast5s.imp: *sll_1,2 ./supervisor/old/ifast5s.imp: *srl_1,30 ./supervisor/old/ifast5s.imp: *st_1,cc ./supervisor/old/ifast5s.imp: *l_1,i ./supervisor/old/ifast5s.imp: *hio_0(1) ./supervisor/old/ifast5s.imp: *balr_1,0 ./supervisor/old/ifast5s.imp: *sll_1,2 ./supervisor/old/ifast5s.imp: *srl_1,30 ./supervisor/old/ifast5s.imp: *st_1,acc ./supervisor/old/ifast5s.imp: *l_1,i ./supervisor/old/ifast5s.imp: *l_2,schib ./supervisor/old/ifast5s.imp: *stsch_0(2) ./supervisor/old/ifast5s.imp: *ipm_1 ./supervisor/old/ifast5s.imp: *srl_1,28 ./supervisor/old/ifast5s.imp: *st_1,cc ./supervisor/old/ifast5s.imp: *l_1,i ./supervisor/old/ifast5s.imp: *l_2,schib ./supervisor/old/ifast5s.imp: *msch_0(2) ./supervisor/old/ifast5s.imp: *ipm_1 ./supervisor/old/ifast5s.imp: *srl_1,28 ./supervisor/old/ifast5s.imp: *st_1,cc ./supervisor/old/ifast5s.imp: *stpt_cpt1 ./supervisor/old/ifast5s.imp: *slr_1,1; *lr_0,1; *bctr_0,0 ./supervisor/old/ifast5s.imp: *l_2,sema ./supervisor/old/ifast5s.imp: *cs_0,1,0(2) ./supervisor/old/ifast5s.imp: *bc_7, ./supervisor/old/ifast5s.imp: *stpt_cpt2 ./supervisor/old/ifast5s.imp: *lpsw_psw ./supervisor/old/ifast5s.imp: *l_1,rtvvad; *lra_0,0(1); *st_0,prad; *bc_8, ./supervisor/old/ifast5s.imp: *l_1,prad ./supervisor/old/ifast5s.imp: *ppg_0(1) ./supervisor/old/ifast5s.imp: *l_0,i; *l_1,rtvvad; *ipte_0,1 ./supervisor/old/ifast5s.imp: *ptlb_0 ./supervisor/old/ifast5s.imp: *l_1,i; *l_15,64(10) ./supervisor/old/ifast5s.imp: *mvc_0(16,1),0(15) ./supervisor/old/ifast5s.imp: *l_15,12(1); *mvc_16(40,1),20(15) ./supervisor/old/ifast5s.imp: *l_2,i ./supervisor/old/ifast5s.imp: *stm_4,14,16(11) ./supervisor/old/ifast5s.imp: *lm_12,15,0(2) ./supervisor/old/ifast5s.imp: *lm_5,10,16(2) ./supervisor/old/ifast5s.imp: *lr_1,14 ./supervisor/old/ifast5s.imp: *l_14,52(2) ./supervisor/old/ifast5s.imp: *basr_15,1 ./supervisor/old/ifast5s.imp: *st_1,realad ./supervisor/old/ifast5s.imp: *INCT_MAINQSEMA ./supervisor/old/ifast5s.imp: *JCC_8, ./supervisor/old/ifast5s.imp: *INCT_MAINQSEMA ./supervisor/old/ifast5s.imp: *JCC_8, ./supervisor/old/ifast5s.imp: *INCT_MAINQSEMA ./supervisor/old/ifast5s.imp: *JCC_8, ./supervisor/old/ifast5s.imp: *INCT_MAINQSEMA ./supervisor/old/ifast5s.imp: *JCC_8, ./supervisor/old/ifast5s.imp: *INCT_MAINQSEMA ./supervisor/old/ifast5s.imp: *JCC_8, ./supervisor/old/ifast5s.imp: *l_1,ccwa; *lra_0,0(1); *st_0,rccwa ./supervisor/old/ifast5s.imp: *l_2,storex; *sll_2,12; ! real address of page transfered ./supervisor/old/ifast5s.imp: *ISKE_0,2; ! MARKERS TO MARK ./supervisor/old/ifast5s.imp: *SRL_0,3; *SLL_0,3; ! MARKERS REMOVED ./supervisor/old/ifast5s.imp: *SSKE_0,2; ! STORE KEY RESET ./supervisor/old/ifast5s.imp: *ISK_0,2; ./supervisor/old/ifast5s.imp: *SRL_0,3; *SLL_0,3 ./supervisor/old/ifast5s.imp: *SSK_0,2 ./supervisor/old/ifast5s.imp: *ISK_0,2; ! KEY ON 1ST 2 K ./supervisor/old/ifast5s.imp: *LA_15,2048(2); ! 2ND SET OF MARKERS ./supervisor/old/ifast5s.imp: *SRL_0,3; *SLL_0,3; ! CLEAR THE MARKERS ./supervisor/old/ifast5s.imp: *SSK_0,2; *SSK_0,15; ! MARKERS RESET ./supervisor/old/ifast5s.imp: *ipk_0; *st_2,l; *spka_0; ! key 0 ./supervisor/old/ifast5s.imp: *l_0,j; *l_1,pagesize ./supervisor/old/ifast5s.imp: *lr_2,0; *slr_3,3; *mvcl_0,2 ./supervisor/old/ifast5s.imp: *l_2,l; *spka_0(2); ! restore key ./supervisor/old/ioper2s.imp: *ipk_0; *st_2,l; *spka_0; ! key 0 ./supervisor/old/ioper2s.imp: *l_2,l; *spka_0(2); ! reset key ./supervisor/old/ioper2s.imp: *l_0,j; *l_1,k ./supervisor/old/ioper2s.imp: *lr_2,0; *slr_3,3; *mvcl_0,2; ! clear buffer ./supervisor/old/ioper2s.imp: *ipk_0; *st_2,flag; *spka_0; ! key 0 ./supervisor/old/ioper2s.imp: *l_2,flag; *spka_0(2); ! restore key ./supervisor/old/ioper2s.imp: *l_0,i; *l_3,ad ./supervisor/old/ioper2s.imp: *basr_15,0; *using_15 ./supervisor/old/ioper2s.imp: *l_4,trta0; *ltr_4,4; *bc_8,; *ex_1, ./supervisor/old/ioper2s.imp: *l_1,llen1; *ltr_1,1; *bc_12, ./supervisor/old/ioper2s.imp: *lr_2,3; *bctr_2,0; *mvi_0(2),x'4f' ./supervisor/old/ioper2s.imp: *l_2,pica1; *ex_1, ./supervisor/old/ioper2s.imp: *l_4,trta1; *ltr_4,4; *bc_8,; *ex_1, ./supervisor/old/ioper2s.imp: *bct_0,; *drop_15 ./supervisor/old/ioper2s.imp: *st_3,ad ./supervisor/old/ioper2s.imp: *l_1,ad; *mvi_0(1),x'60'; *mvc_1(79,1),0(1) ./supervisor/old/ioper2s.imp: *l_0,i; *l_3,ad; *la_3,80(3) ./supervisor/old/ioper2s.imp: *basr_15,0; *using_15 ./supervisor/old/ioper2s.imp: *l_4,trta2; *ltr_4,4; *bc_8,; *ex_1, ./supervisor/old/ioper2s.imp: *l_1,llen3; *ltr_1,1; *bc_12, ./supervisor/old/ioper2s.imp: *lr_2,3; *bctr_2,0; *mvi_0(2),x'4f' ./supervisor/old/ioper2s.imp: *l_2,pica3; *ex_1, ./supervisor/old/ioper2s.imp: *l_4,trta3; *ltr_4,4; *bc_8,; *ex_1, ./supervisor/old/ioper2s.imp: *bct_0,; *drop_15 ./supervisor/old/ioper2s.imp: *l_0,j; *l_1,k ./supervisor/old/ioper2s.imp: *lr_2,0; *slr_3,3; *mvcl_0,2; ! clear screen buffer ./supervisor/old/ioper2s.imp: *basr_15,0; *using_15 ./supervisor/old/ioper2s.imp: *l_1,k; *l_2,llen; *bctr_2,0; *bctr_2,0 ./supervisor/old/ioper2s.imp: *mvi_0(1),x'2e'; *ex_2,; *bc_15,; *drop_15 ./supervisor/old/ioper2s.imp: *l_0,sstart; *l_1,ssize ./supervisor/old/ioper2s.imp: *lr_2,0; *slr_3,3; *mvcl_0,2 ./supervisor/old/ioper3s.imp: *ipk_0; *st_2,l; *spka_0; ! key 0 ./supervisor/old/ioper3s.imp: *l_2,l; *spka_0(2); ! reset key ./supervisor/old/ioper3s.imp: *l_0,j; *l_1,k ./supervisor/old/ioper3s.imp: *lr_2,0; *slr_3,3; *mvcl_0,2; ! clear buffer ./supervisor/old/ioper3s.imp: *ipk_0; *st_2,flag; *spka_0; ! key 0 ./supervisor/old/ioper3s.imp: *l_2,flag; *spka_0(2); ! restore key ./supervisor/old/ioper3s.imp: *l_0,i; *l_3,ad ./supervisor/old/ioper3s.imp: *basr_15,0; *using_15 ./supervisor/old/ioper3s.imp: *l_4,trta0; *ltr_4,4; *bc_8,; *ex_1, ./supervisor/old/ioper3s.imp: *l_1,llen1; *ltr_1,1; *bc_12, ./supervisor/old/ioper3s.imp: *lr_2,3; *bctr_2,0; *mvi_0(2),x'4f' ./supervisor/old/ioper3s.imp: *l_2,pica1; *ex_1, ./supervisor/old/ioper3s.imp: *l_4,trta1; *ltr_4,4; *bc_8,; *ex_1, ./supervisor/old/ioper3s.imp: *bct_0,; *drop_15 ./supervisor/old/ioper3s.imp: *st_3,ad ./supervisor/old/ioper3s.imp: *l_1,ad; *mvi_0(1),x'60'; *mvc_1(79,1),0(1) ./supervisor/old/ioper3s.imp: *l_0,i; *l_3,ad; *la_3,80(3) ./supervisor/old/ioper3s.imp: *basr_15,0; *using_15 ./supervisor/old/ioper3s.imp: *l_4,trta2; *ltr_4,4; *bc_8,; *ex_1, ./supervisor/old/ioper3s.imp: *l_1,llen3; *ltr_1,1; *bc_12, ./supervisor/old/ioper3s.imp: *lr_2,3; *bctr_2,0; *mvi_0(2),x'4f' ./supervisor/old/ioper3s.imp: *l_2,pica3; *ex_1, ./supervisor/old/ioper3s.imp: *l_4,trta3; *ltr_4,4; *bc_8,; *ex_1, ./supervisor/old/ioper3s.imp: *bct_0,; *drop_15 ./supervisor/old/ioper3s.imp: *l_0,j; *l_1,k ./supervisor/old/ioper3s.imp: *lr_2,0; *slr_3,3; *mvcl_0,2; ! clear screen buffer ./supervisor/old/ioper3s.imp: *basr_15,0; *using_15 ./supervisor/old/ioper3s.imp: *l_1,k; *l_2,llen; *bctr_2,0; *bctr_2,0 ./supervisor/old/ioper3s.imp: *mvi_0(1),x'2e'; *ex_2,; *bc_15,; *drop_15 ./supervisor/old/ioper3s.imp: *l_0,sstart; *l_1,ssize ./supervisor/old/ioper3s.imp: *lr_2,0; *slr_3,3; *mvcl_0,2 ./supervisor/old/iprint2s.imp: *basr_15,0; *using_15 ./supervisor/old/iprint2s.imp: *l_1,vad; *lra_0,0(1); *bc_8, ./supervisor/old/iprint2s.imp: *drop_15 ./supervisor/old/iprint2s.imp: *basr_15,0; *using_15 ./supervisor/old/iprint2s.imp: *l_1,j; *lra_0,0(1); *bc_7,; *drop_15 ./supervisor/old/iprint2s.imp: *l_1,bufferad; *l_2,transtabad ./supervisor/old/iprint2s.imp: *tr_1(132,1),0(2) ./supervisor/old/iprint2s.imp: *l_0,j; *l_1,pagesize ./supervisor/old/iprint2s.imp: *lr_2,0; *la_3,7; *sll_3,24; *mvcl_0,2 ./supervisor/old/iprint2s.imp: *la_2,w1; *srl_2,3; *sll_2,3 ./supervisor/old/iprint2s.imp: *stck_0(2); *l_0,0(2) ./supervisor/old/iprint2s.imp: *st_0,oldpdt ./supervisor/old/isup8s.imp: *mvi_640(0),0; ! flag byte.... ./supervisor/old/isup8s.imp: *stm_4,14,656(0); ! general registers ./supervisor/old/isup8s.imp: *stctl_0,11,704(0); ! control registers ./supervisor/old/isup8s.imp: *lctl_0,0,I ./supervisor/old/isup8s.imp: *basr_1,0; *using_1 ./supervisor/old/isup8s.imp: *la_2,; *drop_1 ./supervisor/old/isup8s.imp: *o_2,PSW+4 ./supervisor/old/isup8s.imp: *st_2,PSW+4 ./supervisor/old/isup8s.imp: *l_1,I ./supervisor/old/isup8s.imp: *mvc_24(44,1),656(0); ! GRs ./supervisor/old/isup8s.imp: *mvc_104(48,1),704(0); ! CRs ./supervisor/old/isup8s.imp: *stm_0,15,2056(0) ./supervisor/old/isup8s.imp: *std_0,2120(0); *std_2,2128(0); *std_4,2136(0); *std_6,2144(0) ./supervisor/old/isup8s.imp: *stctl_0,15,2152(0) ./supervisor/old/isup8s.imp: *stpt_2216(0) ./supervisor/old/isup8s.imp: *slr_0,0; *bctr_0,0; *st_0,2048(0) ./supervisor/old/isup8s.imp: *la_0,2989 {BAD}; *st_0,2228(0) ./supervisor/old/isup8s.imp: *lpsw_2224(0); ! it just might tho! ./supervisor/old/isup8s.imp: *stm_4,14,656(0); ! reset context ./supervisor/old/isup8s.imp: *stm_0,15,2056(0) ./supervisor/old/isup8s.imp: *std_0,2120(0); *std_2,2128(0); *std_4,2136(0); *std_6,2144(0) ./supervisor/old/isup8s.imp: *stctl_0,15,2152(0) ./supervisor/old/isup8s.imp: *stpt_2216(0) ./supervisor/old/isup8s.imp: *mvc_2048(8,0),48(0); ! failing PSW ./supervisor/old/isup8s.imp: *la_0,204 {CC}; *icm_0,4,232(0) {reason}; *st_0,2228(0) ./supervisor/old/isup8s.imp: *lpsw_2224(0) ./supervisor/old/isup8s.imp: *stm_0,1,2048(0) ./supervisor/old/isup8s.imp: *basr_1,0; *using_1 ./supervisor/old/isup8s.imp: *cli_640(0),0; *bc_8,; ! from kernel - context ok ./supervisor/old/isup8s.imp: *cli_134(0),16; *bc_7,; ! not CPU timer... ./supervisor/old/isup8s.imp: *cli_135(0),5; *bc_7,; ! ...so context switch neccessary ./supervisor/old/isup8s.imp: *l_1,2052(0) ./supervisor/old/isup8s.imp: *lpsw_528(0); ! -> Local Controller ./supervisor/old/isup8s.imp: *drop_1 ./supervisor/old/isup8s.imp: *stm_2,15,2056(0); ! switch context ./supervisor/old/isup8s.imp: *lm_4,14,656(0) ./supervisor/old/isup8s.imp: *l_1,I ./supervisor/old/isup8s.imp: *mvc_0(8,1),24(0); ! PSW ./supervisor/old/isup8s.imp: *mvc_8(64,1),2048(0); ! GRs ./supervisor/old/isup8s.imp: *std_0,72(1); *std_2,80(1); ! FPRs ./supervisor/old/isup8s.imp: *std_4,88(1); *std_6,96(1) ./supervisor/old/isup8s.imp: *stctl_0,1,104(1); ! CRs 0,1 ./supervisor/old/isup8s.imp: *stpt_168(1); ! CPU timer ./supervisor/old/isup8s.imp: *lctl_0,0,704(0); ! turn off lowstore protection ./supervisor/old/isup8s.imp: *stpt_KIT ./supervisor/old/isup8s.imp: *spt_MAXCPUTIMER ./supervisor/old/isup8s.imp: *stck_l; ./supervisor/old/isup8s.imp: *stm_0,1,2048(0) ./supervisor/old/isup8s.imp: *basr_1,0; *using_1 ./supervisor/old/isup8s.imp: *cli_640(0),0; *bc_8,; ! from kernel - context ok ./supervisor/old/isup8s.imp: *drop_1 ./supervisor/old/isup8s.imp: *mvi_640(0),0 ./supervisor/old/isup8s.imp: *stm_2,15,2056(0); ! switch context ./supervisor/old/isup8s.imp: *lm_4,14,656(0) ./supervisor/old/isup8s.imp: *l_1,I ./supervisor/old/isup8s.imp: *mvc_0(8,1),56(0); ! PSW ./supervisor/old/isup8s.imp: *mvc_8(64,1),2048(0); ! GRs ./supervisor/old/isup8s.imp: *std_0,72(1); *std_2,80(1); ! FPRs ./supervisor/old/isup8s.imp: *std_4,88(1); *std_6,96(1) ./supervisor/old/isup8s.imp: *stctl_0,1,104(1); ! CRs 0,1 ./supervisor/old/isup8s.imp: *stpt_168(1); ! CPU timer ./supervisor/old/isup8s.imp: *lctl_0,0,704(0); ! turn off lowstore protection ./supervisor/old/isup8s.imp: *stpt_KIT ./supervisor/old/isup8s.imp: *spt_MAXCPUTIMER ./supervisor/old/isup8s.imp: *basr_3,0 ./supervisor/old/isup8s.imp: *using_3 ./supervisor/old/isup8s.imp: *l_1,i ./supervisor/old/isup8s.imp: *la_2,irb ./supervisor/old/isup8s.imp: *tsch_0(2) ./supervisor/old/isup8s.imp: *bc_1,; ! failed to get interrupt data ./supervisor/old/isup8s.imp: *drop_3 ./supervisor/old/isup8s.imp: *stm_0,15,2056(0) ./supervisor/old/isup8s.imp: *std_0,2120(0); *std_2,2128(0); *std_4,2136(0); *std_6,2144(0) ./supervisor/old/isup8s.imp: *stctl_0,15,2152(0) ./supervisor/old/isup8s.imp: *stpt_2216(0) ./supervisor/old/isup8s.imp: *mvc_2048(8,0),40(0); ! failing PSW ./supervisor/old/isup8s.imp: *la_0,206 {CE}; *icm_0,4,143(0) {code}; *st_0,2228(0) ./supervisor/old/isup8s.imp: *lm_4,14,656(0) ./supervisor/old/isup8s.imp: *lctl_0,0,704(0); ! turn off lowstore protection ./supervisor/old/isup8s.imp: *la_11,4088(11) ./supervisor/old/isup8s.imp: *lpsw_2224(0) ./supervisor/old/isup8s.imp: *stm_0,15,2056(0) ./supervisor/old/isup8s.imp: *std_0,2120(0); *std_2,2128(0); *std_4,2136(0); *std_6,2144(0) ./supervisor/old/isup8s.imp: *stctl_0,15,2152(0) ./supervisor/old/isup8s.imp: *stpt_2216(0) ./supervisor/old/isup8s.imp: *mvc_2048(8,0),32(0); ! failing PSW ./supervisor/old/isup8s.imp: *la_0,10 {0A}; *icm_0,4,139(0) {code}; *st_0,2228(0) ./supervisor/old/isup8s.imp: *lpsw_2224(0) ./supervisor/old/isup8s.imp: *stm_0,15,2056(0) ./supervisor/old/isup8s.imp: *std_0,2120(0); *std_2,2128(0); *std_4,2136(0); *std_6,2144(0) ./supervisor/old/isup8s.imp: *stctl_0,15,2152(0) ./supervisor/old/isup8s.imp: *stpt_2216(0) ./supervisor/old/isup8s.imp: *slr_0,0; *bctr_0,0; *st_0,2048(0) ./supervisor/old/isup8s.imp: *la_0,3358 {D1E}; *st_0,2228(0) ./supervisor/old/isup8s.imp: *lpsw_2224(0) ./supervisor/old/isup8s.imp: *la_1,; *st_1,I ./supervisor/old/isup8s.imp: *la_1,; *st_1,I ./supervisor/old/isup8s.imp: *la_1,; *st_1,I ./supervisor/old/isup8s.imp: *la_1,; *st_1,I ./supervisor/old/isup8s.imp: *la_1,; *st_1,I ./supervisor/old/isup8s.imp: *la_1,; *st_1,I; ! s/w error PSW ./supervisor/old/isup8s.imp: *basr_1,0; *using_1; ! Local Controller exit PSW ./supervisor/old/isup8s.imp: *la_2,; *st_2,I; *drop_1 ./supervisor/old/isup8s.imp: *spt_MAXCPUTIMER ./supervisor/old/isup8s.imp: *stck_L; L=L+ONE SECOND; *sckc_L; ! 1 second clock tick ./supervisor/old/isup8s.imp: *spt_MAXCPUTIMER ./supervisor/old/isup8s.imp: *ssm_ALLOWPERIINTS ./supervisor/old/isup8s.imp: *ssm_MASKPX; ! mask peri & external ./supervisor/old/isup8s.imp: *basr_2,0; *using_2 ./supervisor/old/isup8s.imp: *slr_1,1; *lr_0,1; *bctr_0,0 ./supervisor/old/isup8s.imp: *l_3,MAINQSEMA ./supervisor/old/isup8s.imp: *cs_0,1,0(3); *bc_8,; *drop_2 ./supervisor/old/isup8s.imp: *lctl_1,1,I; ! segment table length/origin ./supervisor/old/isup8s.imp: *l_1,I ./supervisor/old/isup8s.imp: *mvc_2048(8,0),0(1); ! PSW to page 0 ./supervisor/old/isup8s.imp: *ld_0,72(1); *ld_2,80(1); ! FPRs ./supervisor/old/isup8s.imp: *ld_4,88(1); *ld_6,96(1) ./supervisor/old/isup8s.imp: *lctl_0,1,104(1); ! CRs 0,1 ./supervisor/old/isup8s.imp: *spt_168(1); ! CPU timer ./supervisor/old/isup8s.imp: *lm_0,15,8(1); ! GRs ./supervisor/old/isup8s.imp: *mvi_640(0),255; ! kernel flag ./supervisor/old/isup8s.imp: *lpsw_2048(0); ! to Local Controller or user ./supervisor/old/isup8s.imp: *lctl_1,1,708(0); ! is paging out! ./supervisor/old/isup8s.imp: *ssm_ALLOWPERIINTS ./supervisor/old/isup8s.imp: *ssm_maskpx ./supervisor/old/isup8s.imp: *lpsw_WPSW; ! idle ./supervisor/old/isup8s.imp: *stpt_L ./supervisor/old/isup8s.imp: *lctl_1,1,I; ! segment table length/origin ./supervisor/old/isup8s.imp: *ptlb_0; ! just in case ./supervisor/old/isup8s.imp: *l_1,I ./supervisor/old/isup8s.imp: *lctl_0,1,104(1); ! CRs 0,1 ./supervisor/old/isup8s.imp: *spt_168(1); ! CPU timer ./supervisor/old/isup8s.imp: *lm_4,14,24(1); ! GRs ./supervisor/old/isup8s.imp: *mvi_640(0),255; ! kernel flag ./supervisor/old/isup8s.imp: *lpsw_0(1); ! to Local Controller ./supervisor/old/isup8s.imp: *lm_4,14,656(0); ! Kernel GRs ./supervisor/old/isup8s.imp: *spt_MAXCPUTIMER ./supervisor/old/isup8s.imp: *mvi_640(0),0; ! kernel flag ./supervisor/old/isup8s.imp: *basr_2,0; *using_2 ./supervisor/old/isup8s.imp: *slr_1,1; *lr_0,1; *bctr_0,0 ./supervisor/old/isup8s.imp: *l_3,MAINQSEMA ./supervisor/old/isup8s.imp: *cs_0,1,0(3); *bc_8,; *drop_2 ./supervisor/old/isup8s.imp: *lctl_1,1,708(0); ! l-c may page out revert to kernal pst ./supervisor/old/isup8s.imp: *l_1,va; *ic_0,0(1); ! read one byte ./supervisor/old/isup8s.imp: *l_2,RA; *SR_0,0; ./supervisor/old/isup8s.imp: *ISKE_0,2; *ST_0,MARK; ! MARKERS TO MARK ./supervisor/old/isup8s.imp: *ISK_0,2; *ST_0,MARK ./supervisor/old/isup8s.imp: *ISK_0,2; *ST_0,MARK; ! KEY ON 1ST 2 K ./supervisor/old/isup8s.imp: *LA_15,2048(2); *ISK_0,15; ! 2ND SET OF MARKERS ./supervisor/old/isup8s.imp: *O_0,MARK; *ST_0,MARK ./supervisor/old/isup8s.imp: *l_2,RA ./supervisor/old/isup8s.imp: *RRBE_0,2; ! REFERENCED BIT RESET ./supervisor/old/isup8s.imp: *RRB_0(2) ./supervisor/old/isup8s.imp: *LA_15,2048(2); ! 2ND SET OF MARKERS ./supervisor/old/isup8s.imp: *RRB_0(2); *RRB_0(15); ! MARKERS RESET ./supervisor/old/isup8s.imp: *l_2,RA; *SR_0,0; ./supervisor/old/isup8s.imp: *ISKE_0,2; *ST_0,MARK; ! MARKERS TO MARK ./supervisor/old/isup8s.imp: *ISK_0,2; *ST_0,MARK ./supervisor/old/isup8s.imp: *ISK_0,2; *ST_0,MARK; ! KEY ON 1ST 2 K ./supervisor/old/isup8s.imp: *LA_15,2048(2); *ISK_0,15; ! 2ND SET OF MARKERS ./supervisor/old/isup8s.imp: *O_0,MARK; *ST_0,MARK ./supervisor/old/isup8s.imp: *l_1,va; *ic_0,0(1); *stc_0,0(1) ./supervisor/old/isup8s.imp: *l_2,RA; *SR_0,0; ./supervisor/old/isup8s.imp: *ISKE_0,2; *ST_0,MARK; ! MARKERS TO MARK ./supervisor/old/isup8s.imp: *ISK_0,2; *ST_0,MARK ./supervisor/old/isup8s.imp: *ISK_0,2; *ST_0,MARK; ! KEY ON 1ST 2 K ./supervisor/old/isup8s.imp: *LA_15,2048(2); *ISK_0,15; ! 2ND SET OF MARKERS ./supervisor/old/isup8s.imp: *O_0,MARK; *ST_0,MARK ./supervisor/old/isup8s.imp: *l_2,RA ./supervisor/old/isup8s.imp: *RRBE_0,2; ! REFERENCED BIT RESET ./supervisor/old/isup8s.imp: *RRB_0(2) ./supervisor/old/isup8s.imp: *LA_15,2048(2); ! 2ND SET OF MARKERS ./supervisor/old/isup8s.imp: *RRB_0(2); *RRB_0(15); ! MARKERS RESET ./supervisor/old/isup8s.imp: *l_2,RA; *SR_0,0; ./supervisor/old/isup8s.imp: *ISKE_0,2; *ST_0,MARK; ! MARKERS TO MARK ./supervisor/old/isup8s.imp: *ISK_0,2; *ST_0,MARK ./supervisor/old/isup8s.imp: *ISK_0,2; *ST_0,MARK; ! KEY ON 1ST 2 K ./supervisor/old/isup8s.imp: *LA_15,2048(2); *ISK_0,15; ! 2ND SET OF MARKERS ./supervisor/old/isup8s.imp: *O_0,MARK; *ST_0,MARK ./supervisor/old/isup8s.imp: *basr_2,0; *using_2 ./supervisor/old/isup8s.imp: *slr_1,1; *lr_0,1; *bctr_0,0 ./supervisor/old/isup8s.imp: *cs_0,1,SCHEDSEMA; *bc_8,; *drop_2 ./supervisor/old/isup8s.imp: *ptlb_0(0) ./supervisor/old/isup8s.imp: *PTLB_0(0); ! needed for some tlbs in case a different ./supervisor/old/isup8s.imp: *PTLB_0(0) ./supervisor/old/isup8s.imp: *basR_1,0; *USING_1 ./supervisor/old/isup8s.imp: *SR_0,0; *LR_2,0; *BCTR_2,0 ./supervisor/old/isup8s.imp: *CS_2,0,STORESEMA ./supervisor/old/isup8s.imp: *BC_8, ./supervisor/old/isup8s.imp: *DROP_1 ./supervisor/old/isup8s.imp: *L_1,STOREX; *SLL_1,12 ./supervisor/old/isup8s.imp: *L_2,KEY; *SSKE_2,1 ./supervisor/old/isup8s.imp: *L_1,STOREX ./supervisor/old/isup8s.imp: *SLL_1,12 ./supervisor/old/isup8s.imp: *L_2,KEY ./supervisor/old/isup8s.imp: *SSK_2,1 ./supervisor/old/isup8s.imp: *L_1,STOREX; *SLL_1,12 ./supervisor/old/isup8s.imp: *L_2,KEY; *SSK_2,1 ./supervisor/old/isup8s.imp: *LA_1,2048(1); *SSK_2,1 ./supervisor/old/isup8s.imp: *L_1,STOREX; *SLL_1,12 ./supervisor/old/isup8s.imp: *L_2,KEY; *SSKE_2,1 ./supervisor/old/isup8s.imp: *L_1,STOREX ./supervisor/old/isup8s.imp: *SLL_1,12 ./supervisor/old/isup8s.imp: *L_2,KEY ./supervisor/old/isup8s.imp: *SSK_2,1 ./supervisor/old/isup8s.imp: *L_1,STOREX; *SLL_1,12 ./supervisor/old/isup8s.imp: *L_2,KEY; *SSK_2,1 ./supervisor/old/isup8s.imp: *LA_1,2048(1); *SSK_2,1 ./supervisor/old/isup8s.imp: *STPT_TIMER1 ./supervisor/old/isup8s.imp: *STPT_TIMER2 ./supervisor/old/isup8s.imp: *STPT_TIMER1 ./supervisor/old/isup8s.imp: *STPT_TIMER2 ./supervisor/old/isup8s.imp: *STPT_TIMER1 ./supervisor/old/isup8s.imp: *STPT_TIMER2 ./supervisor/old/isup8s.imp: *STPT_TIMER1 ./supervisor/old/isup8s.imp: *STPT_TIMER2 ./supervisor/old/isup8s.imp: *L_1,RA; *LA_2,24 {X'18'} ./supervisor/old/isup8s.imp: *SSKE_2,1 ./supervisor/old/isup8s.imp: *L_1,RA; *LA_2,24 {X'18'} ./supervisor/old/isup8s.imp: *SSK_2,1 ./supervisor/old/isup8s.imp: *L_1,RA; *LA_2,24 {X'18'} ./supervisor/old/isup8s.imp: *SSK_2,1 ./supervisor/old/isup8s.imp: *LA_1,2048(1); ! ON TO SECOND 2 K ./supervisor/old/isup8s.imp: *SSK_2,1 ./supervisor/old/isup8s.imp: *l_0,i; *l_1,pagesize ./supervisor/old/isup8s.imp: *lr_2,0; *slr_3,3; *mvcl_0,2 ./supervisor/old/isup8s.imp: *L_1,RA; *LA_2,248 {X'F8'}; *N_2,KEY ./supervisor/old/isup8s.imp: *SSKE_2,1 ./supervisor/old/isup8s.imp: *L_1,RA; *LA_2,248 {X'F8'}; *N_2,KEY ./supervisor/old/isup8s.imp: *SSK_2,1 ./supervisor/old/isup8s.imp: *L_1,RA; *LA_2,248 {X'F8'}; *N_2,KEY ./supervisor/old/isup8s.imp: *SSK_2,1 ./supervisor/old/isup8s.imp: *LA_1,2048(1); ! ON TO SECOND 2 K ./supervisor/old/isup8s.imp: *SSK_2,1 ./supervisor/old/isup8s.imp: *basR_1,0; *USING_1 ./supervisor/old/isup8s.imp: *SR_0,0; *LR_2,0; *BCTR_2,0 ./supervisor/old/isup8s.imp: *CS_2,0,STORESEMA ./supervisor/old/isup8s.imp: *BC_8, ./supervisor/old/isup8s.imp: *DROP_1 ./supervisor/old/isup8s.imp: *basR_1,0; *USING_1 ./supervisor/old/isup8s.imp: *SR_0,0; *LR_2,0; *BCTR_2,0 ./supervisor/old/isup8s.imp: *CS_2,0,STORESEMA ./supervisor/old/isup8s.imp: *BC_8, ./supervisor/old/isup8s.imp: *DROP_1 ./supervisor/old/isup8s.imp: *basR_1,0; *USING_1 ./supervisor/old/isup8s.imp: *SR_0,0; *LR_2,0; *BCTR_2,0 ./supervisor/old/isup8s.imp: *CS_2,0,STORESEMA ./supervisor/old/isup8s.imp: *BC_8, ./supervisor/old/isup8s.imp: *DROP_1 ./supervisor/old/isup8s.imp: *L_1,RA; *LA_2,24 {X'18'} ./supervisor/old/isup8s.imp: *SSKE_2,1 ./supervisor/old/isup8s.imp: *L_1,RA; *LA_2,24 {X'18'} ./supervisor/old/isup8s.imp: *SSK_2,1 ./supervisor/old/isup8s.imp: *L_1,RA; *LA_2,24 {X'18'} ./supervisor/old/isup8s.imp: *SSK_2,1 ./supervisor/old/isup8s.imp: *LA_1,2048(1); ! ON TO SECOND 2 K ./supervisor/old/isup8s.imp: *SSK_2,1 ./supervisor/old/isup8s.imp: *l_0,i; *l_1,pagesize ./supervisor/old/isup8s.imp: *lr_2,0; *slr_3,3; *mvcl_0,2 ./supervisor/old/isup8s.imp: *L_1,RA; *LA_2,120 {X'78'} ./supervisor/old/isup8s.imp: *SSKE_2,1 ./supervisor/old/isup8s.imp: *L_1,RA; *LA_2,120 {X'78'} ./supervisor/old/isup8s.imp: *SSK_2,1 ./supervisor/old/isup8s.imp: *L_1,RA; *LA_2,120 {X'78'} ./supervisor/old/isup8s.imp: *SSK_2,1 ./supervisor/old/isup8s.imp: *LA_1,2048(1); ! ON TO SECOND 2 K ./supervisor/old/isup8s.imp: *SSK_2,1 ./supervisor/old/isup8s.imp: *basR_1,0; *USING_1 ./supervisor/old/isup8s.imp: *SR_0,0; *LR_2,0; *BCTR_2,0 ./supervisor/old/isup8s.imp: *CS_2,0,STORESEMA ./supervisor/old/isup8s.imp: *BC_8, ./supervisor/old/isup8s.imp: *DROP_1 ./supervisor/old/isup8s.imp: *basR_1,0; *USING_1 ./supervisor/old/isup8s.imp: *SR_0,0; *LR_2,0; *BCTR_2,0 ./supervisor/old/isup8s.imp: *CS_2,0,STORESEMA ./supervisor/old/isup8s.imp: *BC_8, ./supervisor/old/isup8s.imp: *DROP_1 ./supervisor/old/isup8s.imp: *SR_0,0; *L_1,DA; *LA_2,509; *DR_0,2; *ST_0,HASH ./supervisor/old/isup8s.imp: *SR_0,0; *L_1,DA; *LA_2,509; *DR_0,2; *ST_0,HASH ./supervisor/old/isup8s.imp: *PTLB_0(0) ./supervisor/old/isup8s.imp: *PTLB_0(0) ./supervisor/old/isup8s.imp: *SR_0,0; *L_1,DA; *LA_2,509; *DR_0,2; *ST_0,HASH ./supervisor/old/isup8s.imp: *BASR_2,0; *USING_2 ./supervisor/old/isup8s.imp: *LA_1, ./supervisor/old/isup8s.imp: *O_1,PSW+4 ./supervisor/old/isup8s.imp: *ST_1,PSW+4 ./supervisor/old/isup8s.imp: *DROP_2 ./supervisor/old/isup8s.imp: *BASR_2,0; *USING_2 ./supervisor/old/isup8s.imp: *LA_1, ./supervisor/old/isup8s.imp: *O_1,PSW+4 ./supervisor/old/isup8s.imp: *ST_1,PSW+4 ./supervisor/old/isup8s.imp: *DROP_2 ./supervisor/old/isup8s.imp: *BASR_2,0; *USING_2 ./supervisor/old/isup8s.imp: *LA_1, ./supervisor/old/isup8s.imp: *O_1,PSW+4 ./supervisor/old/isup8s.imp: *ST_1,PSW+4 ./supervisor/old/isup8s.imp: *DROP_2 ./supervisor/old/isup8s.imp: *L_1,I; ! ADDRESS OF THE CONTEXT ./supervisor/old/isup8s.imp: *STM_4,14,24(1); ! THE REGISTERS ./supervisor/old/isup8s.imp: *BASR_2,0 ./supervisor/old/isup8s.imp: *USING_2 ./supervisor/old/isup8s.imp: *LA_1, ./supervisor/old/isup8s.imp: *ST_1,K ./supervisor/old/isup8s.imp: *DROP_2 ./supervisor/old/isup8s.imp: *STPT_PSW ./supervisor/old/isup8s.imp: *LPSW_544(0) ./supervisor/old/isup8s.imp: *STM_0,15,2304(0); ! X900 THE L-C DUMP AREA ./supervisor/old/isup8s.imp: *LA_1,64; ! THE LC STACK SEG NO ./supervisor/old/isup8s.imp: *SLL_1,16 ./supervisor/old/isup8s.imp: *SLL_1,20 ./supervisor/old/isup8s.imp: *LM_4,14,1128(1); ! 4*LSTLEN+80+8 FOR PSW +16(GRS0-3) ./supervisor/old/isup8s.imp: *L_1,CONTEXT; ! POINTER ./supervisor/old/isup8s.imp: *MVC_8(64,1),2304(0); ! COPY IN GRS ./supervisor/old/isup8s.imp: *STD_0,72(1); *STD_2,80(1) ./supervisor/old/isup8s.imp: *STD_4,88(1); *STD_6,96(1) ./supervisor/old/isup8s.imp: *STCTL_0,1,104(1); ! CONTROL REGS ./supervisor/old/isup8s.imp: *STPT_168(1); ! CPU TIMER ./supervisor/old/isup8s.imp: *l_1,i; *lctl_0,1,104(1) ./supervisor/old/isup8s.imp: *L_1,I; *SPT_168(1); ! TO TIME LOCAL CONTROLLER ./supervisor/old/isup8s.imp: *STPT_TIMER1 ./supervisor/old/isup8s.imp: *STPT_TIMER2 ./supervisor/old/isup8s.imp: *STM_0,15,2304(0); ! X900 THE L-C DUMP AREA ./supervisor/old/isup8s.imp: *LA_1,64; ! THE LC STACK SEG NO ./supervisor/old/isup8s.imp: *SLL_1,16 ./supervisor/old/isup8s.imp: *SLL_1,20 ./supervisor/old/isup8s.imp: *LM_4,14,1128(1); ! 4*LSTLEN+80+8 FOR PSW +16(GRS0-3) ./supervisor/old/isup8s.imp: *L_1,CONTEXT; ! POINTER ./supervisor/old/isup8s.imp: *MVC_8(64,1),2304(0); ! COPY IN GRS ./supervisor/old/isup8s.imp: *STD_0,72(1); *STD_2,80(1) ./supervisor/old/isup8s.imp: *STD_4,88(1); *STD_6,96(1) ./supervisor/old/isup8s.imp: *STCTL_0,1,104(1); ! CONTROL REGS ./supervisor/old/isup8s.imp: *STPT_168(1); ! CPU TIMER ./supervisor/old/isup8s.imp: *l_1,i; *lctl_0,1,104(1) ./supervisor/old/isup8s.imp: *L_1,I; *SPT_168(1); ! TO TIME LOCAL CONTROLLER ./supervisor/old/isup8s.imp: *STM_0,15,2304(0); ! X900 THE L-C DUMP AREA ./supervisor/old/isup8s.imp: *BASR_1,0; *USING_1 ./supervisor/old/isup8s.imp: *TM_41(0),X'F0'; ! key 0? ./supervisor/old/isup8s.imp: *BC_7, ./supervisor/old/isup8s.imp: *TM_40(0),3; ! interruptible? ./supervisor/old/isup8s.imp: *BC_1, ./supervisor/old/isup8s.imp: *BC_15, ./supervisor/old/isup8s.imp: *TM_41(0),X'E0' ./supervisor/old/isup8s.imp: *BC_7, ./supervisor/old/isup8s.imp: *L_1,2308(0) ./supervisor/old/isup8s.imp: *LPSW_520(0); ! PSW FOR ERRORS IN SUPERVISOR ./supervisor/old/isup8s.imp: *DROP_1 ./supervisor/old/isup8s.imp: *LA_1,64; ! THE LC STACK SEG NO ./supervisor/old/isup8s.imp: *SLL_1,16 ./supervisor/old/isup8s.imp: *SLL_1,20 ./supervisor/old/isup8s.imp: *LM_4,14,1128(1); ! 4*LSTLEN+80+8 FOR PSW +16(GRS0-3) ./supervisor/old/isup8s.imp: *L_1,CONTEXT; ! POINTER ./supervisor/old/isup8s.imp: *MVC_8(64,1),2304(0); ! COPY IN GRS ./supervisor/old/isup8s.imp: *STD_0,72(1); *STD_2,80(1) ./supervisor/old/isup8s.imp: *STD_4,88(1); *STD_6,96(1) ./supervisor/old/isup8s.imp: *STCTL_0,1,104(1); ! CONTROL REGS ./supervisor/old/isup8s.imp: *STPT_168(1); ! CPU TIMER ./supervisor/old/isup8s.imp: *l_1,i; *lctl_0,1,104(1) ./supervisor/old/isup8s.imp: *L_1,I; *SPT_168(1); ! TO TIME LOCAL CONTROLLER ./supervisor/old/isup8s.imp: *STPT_PSW ./supervisor/old/isup8s.imp: *L_1,CONTEXT; ! ADDR SAVE ARE TO GR1 ./supervisor/old/isup8s.imp: *MVC_2048(8,0),0(1); ! USER PSW TO PAGE 0 ./supervisor/old/isup8s.imp: *LD_0,72(1); *LD_2,80(1); ! LOAD UP FLOATING REGS ./supervisor/old/isup8s.imp: *LD_4,88(1) ./supervisor/old/isup8s.imp: *LD_6,96(1) ./supervisor/old/isup8s.imp: *LCTL_0,1,104(1) ./supervisor/old/isup8s.imp: *SPT_168(1) ./supervisor/old/isup8s.imp: *LM_0,15,8(1) ./supervisor/old/isup8s.imp: *LPSW_2048(0) ./supervisor/old/isup8s.imp: *LPSW_512(0); ! CRASH WITH SPECIAL PSW ./supervisor/old/isup8s.imp: *BALR_1,0; *USING_1 ./supervisor/old/isup8s.imp: *SR_0,0; *LR_2,0; *BCTR_2,0 ./supervisor/old/isup8s.imp: *CS_2,0,STORESEMA ./supervisor/old/isup8s.imp: *BC_8, ./supervisor/old/isup8s.imp: *DROP_1 ./supervisor/old/isup8s.imp: *L_0,PTPVAD; *LR_2,0 ./supervisor/old/isup8s.imp: *LA_1,4095; *LA_1,1(1) ./supervisor/old/isup8s.imp: *LA_3,255; *SLL_3,24 ./supervisor/old/isup8s.imp: *MVCL_0,2; ! FILL NEW PAGE WITH FFS ./supervisor/old/isup8s.imp: *STPT_TIMER1 ./supervisor/old/isup8s.imp: *STPT_TIMER2 ./supervisor/old/isup8s.imp: *STPT_TIMER1 ./supervisor/old/isup8s.imp: *STPT_TIMER2 ./supervisor/old/isup8s.imp: *STPT_TIMER1 ./supervisor/old/isup8s.imp: *STPT_TIMER2 ./supervisor/old/isup8s.imp: *STPT_TIMER1 ./supervisor/old/isup8s.imp: *STPT_TIMER2 ./supervisor/old/isup8s.imp: *BALR_1,0; *USING_1 ./supervisor/old/isup8s.imp: *SR_0,0; *LR_2,0; *BCTR_2,0 ./supervisor/old/isup8s.imp: *CS_2,0,SCHEDSEMA ./supervisor/old/isup8s.imp: *BC_8, ./supervisor/old/isup8s.imp: *DROP_1 ./supervisor/old/isup8s.imp: *BALR_1,0; *USING_1 ./supervisor/old/isup8s.imp: *SR_0,0; *LR_2,0; *BCTR_2,0 ./supervisor/old/isup8s.imp: *CS_2,0,SCHEDSEMA ./supervisor/old/isup8s.imp: *BC_8, ./supervisor/old/isup8s.imp: *DROP_1 ./supervisor/old/isup8s.imp: *STPT_TIMER1 ./supervisor/old/isup8s.imp: *STPT_TIMER2 ./supervisor/old/isup8s.imp: *BALR_1,0; *USING_1 ./supervisor/old/isup8s.imp: *SR_0,0; *LR_2,0; *BCTR_2,0 ./supervisor/old/isup8s.imp: *CS_2,0,STORESEMA ./supervisor/old/isup8s.imp: *BC_8, ./supervisor/old/isup8s.imp: *DROP_1 ./supervisor/old/isup8s.imp: *STPT_TIMER1 ./supervisor/old/isup8s.imp: *STPT_TIMER2 ./supervisor/old/isup8s.imp: *STPT_TIMER1 ./supervisor/old/isup8s.imp: *STPT_TIMER2 ./supervisor/old/isup8s.imp: *STPT_TIMER1 ./supervisor/old/isup8s.imp: *STPT_TIMER2 ./supervisor/old/isup8s.imp: *BASR_4,0 ./supervisor/old/isup8s.imp: *USING_4 ./supervisor/old/isup8s.imp: *L_1,I ./supervisor/old/isup8s.imp: *SLL_1,12 ./supervisor/old/isup8s.imp: *LRA_2,0(1) ./supervisor/old/isup8s.imp: *BC_7, ./supervisor/old/isup8s.imp: *ST_2,J ./supervisor/old/isup8s.imp: *DROP_4 ./supervisor/old/isup8s.imp: *L_1,I; *LRA_2,0(1); ! THE LRA MUST WORK ./supervisor/old/isup8s.imp: *ISKE_0,2; *ST_0,MARK; ! MARKERS TO MARK ./supervisor/old/isup8s.imp: *SRL_0,3; *SLL_0,3; ! MARKERS REMOVED ./supervisor/old/isup8s.imp: *SSKE_0,2; ! STORE KEY RESET ./supervisor/old/isup8s.imp: *L_2,PTAD; *IPTE_2,1; ! P-T ENTRY INVALIDATED ./supervisor/old/isup8s.imp: *ISK_0,2; *ST_0,MARK ./supervisor/old/isup8s.imp: *SRL_0,3; *SLL_0,3 ./supervisor/old/isup8s.imp: *SSK_0,2 ./supervisor/old/isup8s.imp: *PUT_X'B2F0'; *PUT_X'2000'; ! PPG 0(2) PURGE PAGE FROM TLB ./supervisor/old/isup8s.imp: *ISK_0,2; *ST_0,MARK; ! KEY ON 1ST 2 K ./supervisor/old/isup8s.imp: *LA_15,2048(2); *ISK_0,15; ! 2ND SET OF MARKERS ./supervisor/old/isup8s.imp: *O_0,MARK; *ST_0,MARK ./supervisor/old/isup8s.imp: *SRL_0,3; *SLL_0,3; ! CLEAR THE MARKERS ./supervisor/old/isup8s.imp: *SSK_0,2; *SSK_0,15; ! MARKERS RESET ./supervisor/old/isup8s.imp: *PTLB_0(0) ./supervisor/old/isup8s.imp: *STPT_TIMER1 ./supervisor/old/isup8s.imp: *STPT_TIMER2 ./supervisor/old/isup8s.imp: *L_1,I; *LRA_2,0(1); ! THE LRA MUST WORK ./supervisor/old/isup8s.imp: *ISKE_0,2; *ST_0,MARK; ! MARKERS TO MARK ./supervisor/old/isup8s.imp: *ISK_0,2; *ST_0,MARK ./supervisor/old/isup8s.imp: *ISK_0,2; *ST_0,MARK; ! KEY ON 1ST 2 K ./supervisor/old/isup8s.imp: *LA_15,2048(2); *ISK_0,15; ! 2ND SET OF MARKERS ./supervisor/old/isup8s.imp: *O_0,MARK; *ST_0,MARK ./supervisor/old/isup8s.imp: *STPT_TIMER1 ./supervisor/old/isup8s.imp: *STPT_TIMER2 ./supervisor/old/isup8s.imp: *STPT_TIMER1 ./supervisor/old/isup8s.imp: *STPT_TIMER2 ./supervisor/old/isup8s.imp: *PTLB_0(0); ! UTILISE THE BLUNDERBUSS ./supervisor/old/isup8s.imp: *PUT_X'B2F1'; *PUT_X'0'; ! PSU 0 PURGE user FROM TLB ./supervisor/old/isup8s.imp: *L_1,I; *LRA_2,0(1); ! THE LRA MUST WORK ./supervisor/old/isup8s.imp: *BASR_3,0; *USING_3 ./supervisor/old/isup8s.imp: *ISKE_0,2; *ST_0,MARK; ! MARKERS TO MARK ./supervisor/old/isup8s.imp: *TM_SFLAGS+3,1; *BC_1, ./supervisor/old/isup8s.imp: *RRBE_0,2; ! STORE KEY RESET ./supervisor/old/isup8s.imp: *ISK_0,2; *ST_0,MARK ./supervisor/old/isup8s.imp: *TM_SFLAGS+3,1; *BC_1, ./supervisor/old/isup8s.imp: *RRB_0(2) ./supervisor/old/isup8s.imp: *ISK_0,2; *ST_0,MARK; ! KEY ON 1ST 2 K ./supervisor/old/isup8s.imp: *LA_15,2048(2); *ISK_0,15; ! 2ND SET OF MARKERS ./supervisor/old/isup8s.imp: *O_0,MARK; *ST_0,MARK ./supervisor/old/isup8s.imp: *TM_SFLAGS+3,1; *BC_1, ./supervisor/old/isup8s.imp: *RRB_0(2); *RRB_0(15); ! MARKERS RESET ./supervisor/old/isup8s.imp: *DROP_3 ./supervisor/old/isup8s.imp: *STPT_TIMER1 ./supervisor/old/isup8s.imp: *STPT_TIMER2 ./supervisor/old/isup8s.imp: *L_1,I; ! STILL FULL VIRTUAL ADDRESS ./supervisor/old/isup8s.imp: *L_2,PTAD; *IPTE_2,1; ! P-T ENTRY INVALIDATED&TLB purged ./supervisor/old/isup8s.imp: *L_1,I; *LRA_2,0(1) ./supervisor/old/isup8s.imp: *PUT_x'B2F0'; *PUT_X'2000'; ! purge single page ./supervisor/old/isup8s.imp: *PTLB_0(0) ./supervisor/old/isup8s.imp: *L_1,I; *LRA_2,0(1); ! THE LRA MUST WORK ./supervisor/old/isup8s.imp: *ISKE_0,2; *ST_0,MARK; ! MARKERS TO MARK ./supervisor/old/isup8s.imp: *SRL_0,3; *SLL_0,3; ! MARKERS REMOVED ./supervisor/old/isup8s.imp: *SSKE_0,2; ! STORE KEY RESET ./supervisor/old/isup8s.imp: *ISK_0,2; *ST_0,MARK ./supervisor/old/isup8s.imp: *SRL_0,3; *SLL_0,3 ./supervisor/old/isup8s.imp: *SSK_0,2 ./supervisor/old/isup8s.imp: *ISK_0,2; *ST_0,MARK; ! KEY ON 1ST 2 K ./supervisor/old/isup8s.imp: *LA_15,2048(2); *ISK_0,15; ! 2ND SET OF MARKERS ./supervisor/old/isup8s.imp: *O_0,MARK; *ST_0,MARK ./supervisor/old/isup8s.imp: *SRL_0,3; *SLL_0,3; ! CLEAR THE MARKERS ./supervisor/old/isup8s.imp: *SSK_0,2; *SSK_0,15; ! MARKERS RESET ./supervisor/old/isup8s.imp: *STPT_TIMER1 ./supervisor/old/isup8s.imp: *STPT_TIMER2 ./supervisor/old/isup8s.imp: *PUT_X'B2F1'; *PUT_0; ! *psu purge single user ./supervisor/old/isup8s.imp: *PTLB_0(0) ./supervisor/old/isup8s.imp: *spka_0(0); ! set key of 0 ./supervisor/old/isup8s.imp: *spka_16(0); ! set key of 1 ./supervisor/old/isup8s.imp: *L_1,I; *LRA_2,0(1); ! THE LRA MUST WORK ./supervisor/old/isup8s.imp: *LA_0,7 ./supervisor/old/isup8s.imp: *ISK_3,2; *NR_3,0; *O_3,key; *ssk_3,2 ./supervisor/old/isup8s.imp: *ISK_3,2; *NR_3,0; *O_3,key; *SSK_3,2; ! KEY ON 1ST 2 K ./supervisor/old/isup8s.imp: *LA_15,2048(2); *ISK_3,15; ! 2ND SET OF MARKERS ./supervisor/old/isup8s.imp: *NR_3,0; *O_3,key; *SSK_3,15 ./supervisor/old/isup8s.imp: *L_1,I; *LRA_2,0(1); ! THE LRA MUST WORK ./supervisor/old/isup8s.imp: *ISKE_0,2; *ST_0,MARK; ! MARKERS TO MARK ./supervisor/old/isup8s.imp: *RRBE_0,2; ! REFERENCED BIT RESET ./supervisor/old/isup8s.imp: *ISK_0,2; *ST_0,MARK ./supervisor/old/isup8s.imp: *RRB_0(2) ./supervisor/old/isup8s.imp: *ISK_0,2; *ST_0,MARK; ! KEY ON 1ST 2 K ./supervisor/old/isup8s.imp: *LA_15,2048(2); *ISK_0,15; ! 2ND SET OF MARKERS ./supervisor/old/isup8s.imp: *O_0,MARK; *ST_0,MARK ./supervisor/old/isup8s.imp: *RRB_0(2); *RRB_0(15); ! MARKERS RESET ./supervisor/old/isup8s.imp: *STPT_CLK ./supervisor/old/isup8s.imp: *STPT_TIMER1 ./supervisor/old/isup8s.imp: *STPT_TIMER2 ./supervisor/old/isup8s.imp: *BASR_1,0; *USING_1 ./supervisor/old/isup8s.imp: *LA_2,; *ST_2,NEW ./supervisor/old/isup8s.imp: *DROP_1 ./supervisor/old/isup8s.imp: *mc_2(0),0; ! class 0, code 2 ./supervisor/old/isup8s.imp: *mc_24(0),0; ! class 0, code 24 ./supervisor/old/isup8s.imp: *mc_26(0),0; ! class 0, code 26 ./supervisor/old/ichop5s.imp: *stm_0,15,2048(0) ./supervisor/old/ichop5s.imp: *l_0,0(10); *st_0,2112 ./supervisor/old/ichop5s.imp: *stm_0,15,2048(0) ./supervisor/old/ichop5s.imp: *stm_0,15,2048(0) ./supervisor/old/ichop5s.imp: *l_0,i ./supervisor/old/ichop5s.imp: *la_1,; *stm_0,1,120 ./supervisor/old/ichop5s.imp: *la_1,; *stm_0,1,88 ./supervisor/old/ichop5s.imp: *la_1,; *stm_0,1,104 ./supervisor/old/ichop5s.imp: *la_1,; *stm_0,1,112 ./supervisor/old/ichop5s.imp: *la_1,; *stm_0,1,96 ./supervisor/old/ichop5s.imp: *stidp_i ./supervisor/old/ichop5s.imp: *stctl_0,0,i ./supervisor/old/ichop5s.imp: *lctl_0,1,i ./supervisor/old/ichop5s.imp: *l_1,j; *la_2,24 {18}; ! SSK 1 ./supervisor/old/ichop5s.imp: *sske_2,1 ./supervisor/old/ichop5s.imp: *ssk_2,1 ./supervisor/old/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./supervisor/old/ichop5s.imp: *l_1,k; *la_2,24 {18}; ! SSK 1 ./supervisor/old/ichop5s.imp: *sske_2,1 ./supervisor/old/ichop5s.imp: *ssk_2,1 ./supervisor/old/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./supervisor/old/ichop5s.imp: *DENT SIZE+CFH_NDISCS*DDENT EX SIZE+CFH_NSLDEVS*SLOT SIZE+SLDEVTAB HDR SIZE+OPERLOG %C ./supervisor/old/ichop5s.imp: *l_1,k; *la_2,16 {10}; ! key 1, read permitted ./supervisor/old/ichop5s.imp: *sske_2,1 ./supervisor/old/ichop5s.imp: *ssk_2,1 ./supervisor/old/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./supervisor/old/ichop5s.imp: *l_0,zeropageaddr; *l_1,pagesize; ! clear the zero page at x1000 ./supervisor/old/ichop5s.imp: *lr_2,0; *slr_3,3; *mvcl_0,2 ./supervisor/old/ichop5s.imp: *ssm_smask ./supervisor/old/ichop5s.imp: *ssm_smask ./supervisor/old/ichop5s.imp: *ssm_smask ./supervisor/old/ichop5s.imp: *ssm_smask ./supervisor/old/ichop5s.imp: *spt_timer; ! set cpu timer for 1 sec. ./supervisor/old/ichop5s.imp: *lpsw_wpsw; ! idle ./supervisor/old/ichop5s.imp: *lpsw_psw ./supervisor/old/ichop5s.imp: *basr_3,0 ./supervisor/old/ichop5s.imp: *using_3 ./supervisor/old/ichop5s.imp: *l_1,i ./supervisor/old/ichop5s.imp: *la_2,irb ./supervisor/old/ichop5s.imp: *tsch_0(2) ./supervisor/old/ichop5s.imp: *bc_1,; ! failed to get interrupt data ./supervisor/old/ichop5s.imp: *drop_3 ./supervisor/old/ichop5s.imp: *lpsw_psw ./supervisor/old/ichop5s.imp: *lpsw_psw ./supervisor/old/ichop5s.imp: *l_1,k; *la_2,32 {20}; ! SSK 2 ./supervisor/old/ichop5s.imp: *sske_2,1 ./supervisor/old/ichop5s.imp: *ssk_2,1 ./supervisor/old/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./supervisor/old/ichop5s.imp: *l_1,k; *la_2,16 {10}; ! SSK 1 ./supervisor/old/ichop5s.imp: *sske_2,1 ./supervisor/old/ichop5s.imp: *ssk_2,1 ./supervisor/old/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./supervisor/old/ichop5s.imp: *l_1,k; *la_2,24 {18}; ! SSK 1 ./supervisor/old/ichop5s.imp: *sske_2,1 ./supervisor/old/ichop5s.imp: *ssk_2,1 ./supervisor/old/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./supervisor/old/ichop5s.imp: *la_1,0; *la_2,24 {18}; ! SSK 1 ./supervisor/old/ichop5s.imp: *sske_2,1 ./supervisor/old/ichop5s.imp: *ssk_2,1 ./supervisor/old/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./supervisor/old/ichop5s.imp: *l_1,zeropageaddr; *la_2,16 {10}; ! SSK 1 ./supervisor/old/ichop5s.imp: *sske_2,1 ./supervisor/old/ichop5s.imp: *ssk_2,1 ./supervisor/old/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./supervisor/old/ichop5s.imp: *l_1,k; *la_2,24 {18}; ! SSK 1 ./supervisor/old/ichop5s.imp: *sske_2,1 ./supervisor/old/ichop5s.imp: *ssk_2,1 ./supervisor/old/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./supervisor/old/ichop5s.imp: *basr_15,0 ./supervisor/old/ichop5s.imp: *using_15 ./supervisor/old/ichop5s.imp: *la_1,; *st_1,108; *drop_15 ./supervisor/old/ichop5s.imp: *st_11,i ./supervisor/old/ichop5s.imp: *l_0,i; *l_1,pagesize; ! clear - pe if off top of store ./supervisor/old/ichop5s.imp: *lr_2,0; *slr_3,3; *mvcl_0,2 ./supervisor/old/ichop5s.imp: *alr_0,1; *st_0,i ./supervisor/old/ichop5s.imp: *lpsw_psw ./supervisor/old/ichop5s.imp: *l_1,i; *la_2,120 {78} ./supervisor/old/ichop5s.imp: *sske_2,1 ./supervisor/old/ichop5s.imp: *ssk_2,1 ./supervisor/old/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./supervisor/old/ichop5s.imp: *l_1,i ./supervisor/old/ichop5s.imp: *iske_0,1; *srl_0,3; *sll_0,3; *sske_0,1 ./supervisor/old/ichop5s.imp: *isk_0,1; *srl_0,3; *sll_0,3; *ssk_0,1 ./supervisor/old/ichop5s.imp: *isk_0,1; *srl_0,3; *sll_0,3 ./supervisor/old/ichop5s.imp: *ssk_0,1; *la_1,2048(1); *ssk_0,1 ./supervisor/old/ichop5s.imp: *l_1,i; *l_2,j; *lm_11,14,0(1) ./supervisor/old/ichop5s.imp: *lpsw_0(2); ! enter supervisor ./supervisor/old/ichop5s.imp: *l_0,to; *l_1,len ./supervisor/old/ichop5s.imp: *l_2,from; *lr_3,1 ./supervisor/old/ichop5s.imp: *mvcl_0,2 ./supervisor/old/ichop5s.imp: *l_1,len; *l_2,ad; *l_3,i ./supervisor/old/ichop5s.imp: *la_0,256 ./supervisor/old/ichop5s.imp: *basr_15,0 ./supervisor/old/ichop5s.imp: *using_15 ./supervisor/old/ichop5s.imp: *clr_1,0; *bc_4, ./supervisor/old/ichop5s.imp: *tr_0(256,2),0(3) ./supervisor/old/ichop5s.imp: *alr_2,0; *slr_1,0 ./supervisor/old/ichop5s.imp: *bcr_15,15 ./supervisor/old/ichop5s.imp: *bctr_1,0; *ex_1, ./supervisor/old/ichop5s.imp: *drop_15 ./supervisor/old/ichop5s.imp: *l_1,len; *l_2,ad; *l_3,i ./supervisor/old/ichop5s.imp: *la_0,256 ./supervisor/old/ichop5s.imp: *basr_15,0 ./supervisor/old/ichop5s.imp: *using_15 ./supervisor/old/ichop5s.imp: *clr_1,0; *bc_4, ./supervisor/old/ichop5s.imp: *tr_0(256,2),0(3) ./supervisor/old/ichop5s.imp: *alr_2,0; *slr_1,0 ./supervisor/old/ichop5s.imp: *bcr_15,15 ./supervisor/old/ichop5s.imp: *bctr_1,0; *ex_1, ./supervisor/old/ichop5s.imp: *drop_15 ./supervisor/old/ichop5s.imp: *lpsw_psw ./supervisor/old/ichop5s.imp: *l_1,len; *l_2,ad; *l_3,transtabad ./supervisor/old/ichop5s.imp: *basr_15,0; *using_15 ./supervisor/old/ichop5s.imp: *bctr_1,0; *ex_1,; *drop_15 ./supervisor/old/ichop5s.imp: *lpsw_psw ./supervisor/old/ichop5s.imp: *lm_0,3,pc; *lh_4,2(1) ./supervisor/old/ichop5s.imp: *lpsw_psw ./supervisor/old/ichop5s.imp: *l_1,ad ./supervisor/old/ichop5s.imp: *ic_0,j+2; *stc_0,0(1) ./supervisor/old/ichop5s.imp: *ic_0,j+3; *stc_0,1(1) ./supervisor/old/ichop5s.imp: *basr_15,0 ./supervisor/old/ichop5s.imp: *using_15 ./supervisor/old/ichop5s.imp: *stck_rtc1 ./supervisor/old/ichop5s.imp: *bc_8,; *drop_15 ./supervisor/old/ichop5s.imp: *l_2,rtc1; *l_3,rtc2; ./supervisor/old/ichop5s.imp: *srdl_2,16; *l_4,sec ./supervisor/old/ichop5s.imp: *dr_2,4; ! to seconds//2 ./supervisor/old/ichop5s.imp: *st_3,rtc1 ./supervisor/old/ichop5s.imp:*L _1,AD ./supervisor/old/ichop5s.imp:*L _2,LEN ./supervisor/old/ichop5s.imp:*PUT _X'8312'; *PUT _X'0008'; ! DIAGNOSE 1,2,8 - call CP to execute command ./supervisor/old/ichop5s.imp: *basr_15,0 ./supervisor/old/ichop5s.imp: *using_15 ./supervisor/old/ichop5s.imp: *l_1,i; *l_2,j; *l_3,k ./supervisor/old/ichop5s.imp: *ex_1, ./supervisor/old/ichop5s.imp: *drop_15 ./supervisor/old/ichop5s.imp: *basr_15,0; *using_15 ./supervisor/old/ichop5s.imp: *sck_l; *bc_8,; *drop_15 ./supervisor/old/ichop5s.imp: *basr_15,0 ./supervisor/old/ichop5s.imp: *using_15 ./supervisor/old/ichop5s.imp: *la_0,; *st_0,i; *drop_15 ./supervisor/old/ichop5s.imp: *lpsw_psw ./supervisor/old/ichop5s.imp: *l_1,i ./supervisor/old/ichop5s.imp: *ssch_orb ./supervisor/old/ichop5s.imp: *ipm_1 ./supervisor/old/ichop5s.imp: *srl_1,28 ./supervisor/old/ichop5s.imp: *st_1,cc ./supervisor/old/ichop5s.imp: *l_1,i ./supervisor/old/ichop5s.imp: *sio_0(1) ./supervisor/old/ichop5s.imp: *balr_1,0 ./supervisor/old/ichop5s.imp: *sll_1,2 ./supervisor/old/ichop5s.imp: *srl_1,30 ./supervisor/old/ichop5s.imp: *st_1,cc ./supervisor/old/ichop5s.imp: *l_1,i ./supervisor/old/ichop5s.imp: *sio_0(1) ./supervisor/old/ichop5s.imp: *balr_1,0 ./supervisor/old/ichop5s.imp: *sll_1,2 ./supervisor/old/ichop5s.imp: *srl_1,30 ./supervisor/old/ichop5s.imp: *st_1,acc ./supervisor/old/ichop5s.imp: *l_1,i; *l_2,irb ./supervisor/old/ichop5s.imp: *tsch_0(2) ./supervisor/old/ichop5s.imp: *ipm_1 ./supervisor/old/ichop5s.imp: *srl_1,28 ./supervisor/old/ichop5s.imp: *st_1,cc ./supervisor/old/ichop5s.imp: *l_1,i ./supervisor/old/ichop5s.imp: *tio_0(1) ./supervisor/old/ichop5s.imp: *balr_1,0 ./supervisor/old/ichop5s.imp: *sll_1,2 ./supervisor/old/ichop5s.imp: *srl_1,30 ./supervisor/old/ichop5s.imp: *st_1,cc ./supervisor/old/ichop5s.imp: *l_1,i ./supervisor/old/ichop5s.imp: *tio_0(1) ./supervisor/old/ichop5s.imp: *balr_1,0 ./supervisor/old/ichop5s.imp: *sll_1,2 ./supervisor/old/ichop5s.imp: *srl_1,30 ./supervisor/old/ichop5s.imp: *st_1,acc ./supervisor/old/ichop5s.imp: *l_1,i ./supervisor/old/ichop5s.imp: *hsch_I {param is a dummy} ./supervisor/old/ichop5s.imp: *ipm_1 ./supervisor/old/ichop5s.imp: *srl_1,28 ./supervisor/old/ichop5s.imp: *st_1,cc ./supervisor/old/ichop5s.imp: *l_1,i ./supervisor/old/ichop5s.imp: *hio_0(1) ./supervisor/old/ichop5s.imp: *balr_1,0 ./supervisor/old/ichop5s.imp: *sll_1,2 ./supervisor/old/ichop5s.imp: *srl_1,30 ./supervisor/old/ichop5s.imp: *st_1,cc ./supervisor/old/ichop5s.imp: *l_1,i ./supervisor/old/ichop5s.imp: *hio_0(1) ./supervisor/old/ichop5s.imp: *balr_1,0 ./supervisor/old/ichop5s.imp: *sll_1,2 ./supervisor/old/ichop5s.imp: *srl_1,30 ./supervisor/old/ichop5s.imp: *st_1,acc ./supervisor/old/ichop5s.imp: *l_1,i ./supervisor/old/ichop5s.imp: *l_2,schib ./supervisor/old/ichop5s.imp: *stsch_0(2) ./supervisor/old/ichop5s.imp: *ipm_1 ./supervisor/old/ichop5s.imp: *srl_1,28 ./supervisor/old/ichop5s.imp: *st_1,cc ./supervisor/old/ichop5s.imp: *l_1,i ./supervisor/old/ichop5s.imp: *l_2,schib ./supervisor/old/ichop5s.imp: *msch_0(2) ./supervisor/old/ichop5s.imp: *ipm_1 ./supervisor/old/ichop5s.imp: *srl_1,28 ./supervisor/old/ichop5s.imp: *st_1,cc ./supervisor/old/ichop5s.imp: *l_1,ccwa; *lra_0,0(1); *st_0,rccwa ./supervisor/old/ichop5s.imp: *la_1,fcr; *PUT_x'8302'; *PUT_x'1000'; ! feature control reg ./supervisor/old/ichop5s.imp: *balr_15,0; *using_15 ./supervisor/old/ichop5s.imp: *la_1,fcr; *PUT_x'8301'; *PUT_x'1000' ./supervisor/old/ichop5s.imp: *bc_8,; *drop_15 ./supervisor/old/ichop5s.imp: *lpsw_psw ./supervisor/old/ioper3215s.imp: *l_1,i; *mvi_0(1),x'40' ./supervisor/old/ioper3215s.imp: *mvc_1(39,1),0(1); *mvi_40(1),x'15'; ! 39 = llen-2, 40 = llen-1 ./supervisor/old/ioper3215s.imp: *l_1,i; *mvi_0(1),x'40' ./supervisor/old/ioper3215s.imp: *mvc_1(39,1),0(1); *mvi_40(1),x'15'; ! 39 = llen-2, 40 = llen-1 ./supervisor/old/ioper3215s.imp: *l_1,i; *mvi_0(1),x'40'; *mvc_1(79,1),0(1); ! clear to spaces ./supervisor/old/icomms5s.imp: *ipk_0; *st_2,pswkey; *spka_0(0); !save psw-key, and reset ./supervisor/old/icomms5s.imp: *l_2,pswkey; *spka_0(2); !restore psw-key ./supervisor/old/icomms5s.imp: *basr_15,0 ./supervisor/old/icomms5s.imp: *using_15 ./supervisor/old/icomms5s.imp: *l_1,i; !bytes to be scanned minus 1 (<256) ./supervisor/old/icomms5s.imp: *l_2,linebegin; !start address ./supervisor/old/icomms5s.imp: *l_3,trtad; !addr of format effector translate table ./supervisor/old/icomms5s.imp: *ex_1,; !do trt with 'len' bytes ./supervisor/old/icomms5s.imp: *bc_8,; !none found ./supervisor/old/icomms5s.imp: *stc_2,cmnd; !found, store its table value ./supervisor/old/icomms5s.imp: *st_1,lineend; !location of feff ./supervisor/old/icomms5s.imp: *bc_15, ./supervisor/old/icomms5s.imp: *drop_15 ./supervisor/old/icomms5s.imp: *l_1,length; *l_2,address; *l_3,trtad ./supervisor/old/icomms5s.imp: *la_0,256 ./supervisor/old/icomms5s.imp: *basr_15,0 ./supervisor/old/icomms5s.imp: *using_15 ./supervisor/old/icomms5s.imp: *clr_1,0; *bc_4, ./supervisor/old/icomms5s.imp: *tr_0(256,2),0(3) ./supervisor/old/icomms5s.imp: *alr_2,0; *slr_1,0 ./supervisor/old/icomms5s.imp: *bcr_15,15 ./supervisor/old/icomms5s.imp: *bctr_1,0; *ex_1, ./supervisor/old/icomms5s.imp: *drop_15 ./supervisor/old/indiag2s.imp: *la_1,; *st_1,i ./supervisor/old/indiag2s.imp: *l_1,i; *l_2,regs; *mvc_0(100,2),0(1) ./supervisor/old/indiag2s.imp: *l_2,l; *mvc_0(64,2),0(1) ./supervisor/old/indiag2s.imp: *l_2,regs; *mvc_0(64,2),0(10) ./supervisor/old/indiag2s.imp: *mvc_2056(64,0),0(10); ! for dump print ./supervisor/old/indiag2s.imp: *stctl_0,15,2152(0) ./supervisor/old/indiag2s.imp: *ipk_0; *st_2,pswk; *spka_0; ! key 0 ./supervisor/old/indiag2s.imp: *st_1,i; *l_1,myregs; *stm_0,15,0(1) ./supervisor/old/indiag2s.imp: *stctl_1,1,i ./supervisor/old/indiag2s.imp: *lpsw_psw ./supervisor/old/indiag2s.imp: *l_2,pswk; *spka_0(2); ! reset key ./supervisor/old/indiag2s.imp: *lpsw_2224(0); ! set up by supervisor ./supervisor/old/indiag2s.imp: *lpsw_psw ./supervisor/old/indiag2s.imp: *basr_15,0; *using_15 ./supervisor/old/indiag2s.imp: *l_1,n; *lra_0,0(1); *bc_8, ./supervisor/old/indiag2s.imp: *drop_15 ./supervisor/old/ienter2s.imp: *sckc_sos timer; ! maximum ./supervisor/old/ienter2s.imp: *basr_15,0; *using_15 ./supervisor/old/ienter2s.imp: *la_0,; *st_0,i; *la_0,; *st_0,count; *drop_15 ./supervisor/old/ienter2s.imp: *spt_sos timer ./supervisor/old/ienter2s.imp: *stosm_i,1; ! allow external ints. ./supervisor/old/ienter2s.imp: *spt_sos timer ./supervisor/old/ienter2s.imp: *stosm_i,1 ./supervisor/old/ienter2s.imp: *spt_hsec ./supervisor/old/ienter2s.imp: *lpsw_wpsw ./supervisor/old/ienter2s.imp: *basr_15,0; *using_15 ./supervisor/old/ienter2s.imp: *la_0,; *st_0,i; *drop_15 ./supervisor/old/ienter2s.imp: *stosm_i,2; ! allow I/O ints. ./supervisor/old/ienter2s.imp: *stnsm_i,x'fd'; ! mask I/O ints. ./supervisor/old/ienter2s.imp: *basr_1,0; *using_1; ! set up restart PSWs ./supervisor/old/ienter2s.imp: *la_2,; *st_2,i; *drop_1 ./supervisor/old/ienter2s.imp: *stm_10,14,560 {rca}; ! my context ./supervisor/old/ienter2s.imp: *la_0,238 {EE}; *st_0,2116(0) ./supervisor/old/ienter2s.imp: *lpsw_2112 ./supervisor/old/idev10s.imp: *stck_clock; MSEC = CLOCK>>22&x'ffff' ./supervisor/old/idev10s.imp: *stck_clock ./spooler/new/newstdiags.imp: *L_15,pc ./spooler/new/newstdiags.imp: *L_2,lnbabove ./spooler/new/newstdiags.imp: *LM_0,1,par1 ./spooler/new/newstdiags.imp: *LM_4,14,16(2) ./spooler/new/newstdiags.imp: *BCR_15,15 ./spooler/new/newstdiags.imp: *st_10,j ./spooler/new/newstdiags.imp: *L_1,lnb ./spooler/new/newstdiags.imp: *LM_4,15,16(1); !restore regs ./spooler/new/newstdiags.imp: *BCR_15,15 ./spooler/new/newstdiags.imp: *st_11,my11 ./spooler/new/newstdiags.imp: *l_1,com36 ./spooler/new/newstdiags.imp: *LM_4,15,16(1); !restore regs ./spooler/new/newstdiags.imp: *BCR_15,15 ./spooler/new/newstdiags.imp: *bas_1, ./spooler/new/newstdiags.imp: *st_1,pc3 ./spooler/new/newstdiags.imp: *l_1,context3 ./spooler/new/newstdiags.imp: *stm_4,14,24(1) ./spooler/new/newstdiags.imp: *bas_1, ./spooler/new/newstdiags.imp: *st_1,pc3 ./spooler/new/newstdiags.imp: *l_1,diagscontext ./spooler/new/newstdiags.imp: *stm_4,14,24(1) ./spooler/new/newstdiags.imp: *st_11,diagsbase; !base address for diagnostics ./spooler/new/spoolrs.imp: *stln_temp; !TO ALLOW NDIAGS TO EXIT FROM CONTROL ./spooler/new/spoolrs.imp: *st_10,temp ./spooler/new/spoolrs.imp: *stln_temp; !STORE LNB FOR NDIAGS TO EXIT ./spooler/new/spoolrs.imp: *st_9,temp ./spooler/new/spoolrs.imp: *(com_users+3)//3) > j %then requeue %and reply = %c ./spooler/new/spoolrs.imp: *ldtb_x'18000000' ./spooler/new/spoolrs.imp: *ldb_length ./spooler/new/spoolrs.imp: *lda_from ./spooler/new/spoolrs.imp: *cyd_0 ./spooler/new/spoolrs.imp: *lda_to ./spooler/new/spoolrs.imp: *mv_%l=%dr ./spooler/new/spoolrs.imp: *lda_start; !FORM DESCRIPTOR TO REST OF FILE. ./spooler/new/spoolrs.imp: *ldtb_j ./spooler/new/spoolrs.imp: *ldb_l ./spooler/new/spoolrs.imp: *lb_0; !SCAN FOR THE FIRST ZERO BYTE ./spooler/new/spoolrs.imp: *swne_%l=%dr ./spooler/new/spoolrs.imp: *jat_11, ; !JZDL - THE FILE IS CLEAN ALREADY. ./spooler/new/spoolrs.imp: *std_dest0; !AND DEST1 - DESC TO FIRST ZEROED AREA. ./spooler/new/spoolrs.imp: *lb_0 ./spooler/new/spoolrs.imp: *sweq_%l=%dr; !SCAN TO THE END OF ZEROED AREA. ./spooler/new/spoolrs.imp: *jat_11, ; !JZDL - THIS IS END OF FILE ./spooler/new/spoolrs.imp: *std_src0; !AND SRC1 - DESC TO FIRST ZEROED AREA. ./spooler/new/spoolrs.imp: *swne_%l=%dr; !FIND LENGTH OF PIECE. ./spooler/new/spoolrs.imp: *std_temp0; !AND TEMP1 - DESC TO NEXT HOLE. ./spooler/new/spoolrs.imp: *lb_temp1 ./spooler/new/spoolrs.imp: *sbb_src1; !LENGTH OF PIECE. ./spooler/new/spoolrs.imp: *adb_j ./spooler/new/spoolrs.imp: *lda_dest1; !FORM DESC TO START OF HOLE. ./spooler/new/spoolrs.imp: *ldtb_%b; !WITH TYPE AND BOUND DESCRIBING PIECE. ./spooler/new/spoolrs.imp: *lss_src1; !FORM DESC TO PIECE. ./spooler/new/spoolrs.imp: *luh_%b ./spooler/new/spoolrs.imp: *mv_%l=%dr; !MOVE THE PIECE - DR ENDS UP AT START OF NEXT HOLE(WIDER NOW) ./spooler/new/spoolrs.imp: *std_dest0; !AND DEST1 ./spooler/new/spoolrs.imp: *ld_temp0; !CARRY ON FROM PREVIOUS START. ./spooler/new/spoolrs.imp: *j_ ./spooler/new/spoolrs.imp: *lda_(cursor) ./spooler/new/spoolrs.imp: *ldtb_x'58000000' ./spooler/new/spoolrs.imp: *ldb_i ./spooler/new/spoolrs.imp: *lb_k ./spooler/new/spoolrs.imp: *swne_%l=%dr ./spooler/new/spoolrs.imp: *jcc_4, ./spooler/new/spoolrs.imp: *cyd_0 ./spooler/new/spoolrs.imp: *mpsr_x'11' ./spooler/new/spoolrs.imp: *st_(cursor) ./spooler/new/spoolrs.imp: *lda_(cursor) ./spooler/new/spoolrs.imp: *ldtb_x'58000000' ./spooler/new/spoolrs.imp: *ldb_i ./spooler/new/spoolrs.imp: *lb_k ./spooler/new/spoolrs.imp: *swne_%l=%dr ./spooler/new/spoolrs.imp: *jcc_4, ./spooler/new/spoolrs.imp: *cyd_0 ./spooler/new/spoolrs.imp: *mpsr_x'11' ./spooler/new/spoolrs.imp: *st_(cursor) ./spooler/new/iocps.imp: *ld_dr ./spooler/new/iocps.imp: *val_(%lnb+1) ./spooler/new/iocps.imp: *jcc_8, ./spooler/new/iocps.imp: *jcc_4, ./spooler/new/iocps.imp: *jcc_2, ./spooler/new/iocps.imp: *lb_l ./spooler/new/iocps.imp: *ldtb_x'18000000' ./spooler/new/iocps.imp: *ldb_%b ./spooler/new/iocps.imp: *lda_ad ./spooler/new/iocps.imp: *lss_j ./spooler/new/iocps.imp: *luh_x'18000100' ./spooler/new/iocps.imp: *ttr_%l=%dr ./spooler/new/iocps.imp: *lb_l ./spooler/new/iocps.imp: *ldtb_x'18000000' ./spooler/new/iocps.imp: *ldb_%b ./spooler/new/iocps.imp: *lda_ad ./spooler/new/iocps.imp: *lss_j ./spooler/new/iocps.imp: *luh_x'18000100' ./spooler/new/iocps.imp: *ttr_%l=%dr ./spooler/new/iocps.imp: *ldtb_x'18000000' ./spooler/new/iocps.imp: *ldb_length ; *lda_from ./spooler/new/iocps.imp: *cyd_0 ; *lda_to ./spooler/new/iocps.imp: *mv_%l=%dr ./spooler/new/iocps.imp: *lb_length ./spooler/new/iocps.imp: *ldtb_x'18000000' ./spooler/new/iocps.imp: *ldb_%b ./spooler/new/iocps.imp: *lda_from ./spooler/new/iocps.imp: *lb_filler ./spooler/new/iocps.imp: *mvl_%l=%dr ./spooler/new/iocps.imp: *lss_n; *cdec_0 ./spooler/new/iocps.imp: *ld_s; *inca_1; ! PAST LENGTH BYTE ./spooler/new/iocps.imp: *cpb_%b; ! SET CC=0 ./spooler/new/iocps.imp: *supk_%l=15,0,32; ! UNPACK 15 DIGITS SPACE FILL ./spooler/new/iocps.imp: *std_d2; ! FINAL DR FOR LENGTH CALCS ./spooler/new/iocps.imp: *jcc_8,; ! N=0 CASE ./spooler/new/iocps.imp: *lsd_%tos; *st_d0; ! SIGN DESCRIPTOR STKED BY SUPK ./spooler/new/iocps.imp: *ld_s; *inca_1 ./spooler/new/iocps.imp: *mvl_%l=15,15,48; ! FORCE IN ISO ZONE CODES ./spooler/new/iocps.imp: *lss_value; *cdec_0 ./spooler/new/iocps.imp: *ld_s; *inca_1; *std_%tos ./spooler/new/iocps.imp: *cpb_%b; ! SET CC=0 ./spooler/new/iocps.imp: *supk_%l=15,0,32; ! UNPACK & SPACE FILL ./spooler/new/iocps.imp: *std_d2; *jcc_8, ./spooler/new/iocps.imp: *ld_%tos; *std_d0; ! FOR SIGN INSERTION ./spooler/new/iocps.imp: *ld_%tos ./spooler/new/iocps.imp: *mvl_%l=15,63,0; ! FORCE ISO ZONE CODES ./spooler/new/iocps.imp: *ld_s; *lss_places; *st_(%dr) ./spooler/new/iocps.imp: *inca_1; *std_%tos; *std_%tos ./spooler/new/iocps.imp: *lss_value; *luh_0; *ush_i ./spooler/new/iocps.imp: *mpsr_x'24'; ! SET CC=1 ./spooler/new/iocps.imp: *supk_%l=8 ./spooler/new/iocps.imp: *ld_%tos; *ands_%l=8,0,15; ! THROW AWAY ZONE CODES ./spooler/new/iocps.imp: *lss_hex+4; *luh_x'18000010' ./spooler/new/iocps.imp: *ld_%tos; *ttr_%l=8 ./spooler/new/iocps.imp: *lda_start; !CHECK IF SAME AS PREVIOUS LINE ./spooler/new/iocps.imp: *ldtb_x'18000020' ./spooler/new/iocps.imp: *cyd_0 ./spooler/new/iocps.imp: *inca_-32 ./spooler/new/iocps.imp: *cps_ %l = %dr ./spooler/new/iocps.imp: *jcc_7, < printline > ./spooler/new/iocps.imp: *ldtb_x'18000020' ./spooler/new/iocps.imp: *lda_start ./spooler/new/iocps.imp: *cyd_0 ./spooler/new/iocps.imp: *lda_j ./spooler/new/iocps.imp: *mv_%l=%dr ./spooler/new/iocps.imp: *lb_32 ./spooler/new/iocps.imp: *ldtb_x'18000000' ./spooler/new/iocps.imp: *ldb_%b ./spooler/new/iocps.imp: *lda_j ./spooler/new/iocps.imp: *lss_i ./spooler/new/iocps.imp: *luh_x'18000100' ./spooler/new/iocps.imp: *ttr_%l=%dr ./spooler/new/snas0488.imp: *stln_temp; !TO ALLOW NDIAGS TO EXIT FROM CONTROL ./spooler/new/snas0488.imp: *st_10,temp ./spooler/new/snas0488.imp: *stln_temp; !STORE LNB FOR NDIAGS TO EXIT ./spooler/new/snas0488.imp: *st_9,temp ./spooler/new/snas0488.imp: *(com_users+3)//3) > j %then requeue %and reply = %c ./spooler/new/snas0488.imp: *ldtb_x'18000000' ./spooler/new/snas0488.imp: *ldb_length ./spooler/new/snas0488.imp: *lda_from ./spooler/new/snas0488.imp: *cyd_0 ./spooler/new/snas0488.imp: *lda_to ./spooler/new/snas0488.imp: *mv_%l=%dr ./spooler/new/snas0488.imp: *lda_start; !FORM DESCRIPTOR TO REST OF FILE. ./spooler/new/snas0488.imp: *ldtb_j ./spooler/new/snas0488.imp: *ldb_l ./spooler/new/snas0488.imp: *lb_0; !SCAN FOR THE FIRST ZERO BYTE ./spooler/new/snas0488.imp: *swne_%l=%dr ./spooler/new/snas0488.imp: *jat_11, ; !JZDL - THE FILE IS CLEAN ALREADY. ./spooler/new/snas0488.imp: *std_dest0; !AND DEST1 - DESC TO FIRST ZEROED AREA. ./spooler/new/snas0488.imp: *lb_0 ./spooler/new/snas0488.imp: *sweq_%l=%dr; !SCAN TO THE END OF ZEROED AREA. ./spooler/new/snas0488.imp: *jat_11, ; !JZDL - THIS IS END OF FILE ./spooler/new/snas0488.imp: *std_src0; !AND SRC1 - DESC TO FIRST ZEROED AREA. ./spooler/new/snas0488.imp: *swne_%l=%dr; !FIND LENGTH OF PIECE. ./spooler/new/snas0488.imp: *std_temp0; !AND TEMP1 - DESC TO NEXT HOLE. ./spooler/new/snas0488.imp: *lb_temp1 ./spooler/new/snas0488.imp: *sbb_src1; !LENGTH OF PIECE. ./spooler/new/snas0488.imp: *adb_j ./spooler/new/snas0488.imp: *lda_dest1; !FORM DESC TO START OF HOLE. ./spooler/new/snas0488.imp: *ldtb_%b; !WITH TYPE AND BOUND DESCRIBING PIECE. ./spooler/new/snas0488.imp: *lss_src1; !FORM DESC TO PIECE. ./spooler/new/snas0488.imp: *luh_%b ./spooler/new/snas0488.imp: *mv_%l=%dr; !MOVE THE PIECE - DR ENDS UP AT START OF NEXT HOLE(WIDER NOW) ./spooler/new/snas0488.imp: *std_dest0; !AND DEST1 ./spooler/new/snas0488.imp: *ld_temp0; !CARRY ON FROM PREVIOUS START. ./spooler/new/snas0488.imp: *j_ ./spooler/new/snas0488.imp: *lda_(cursor) ./spooler/new/snas0488.imp: *ldtb_x'58000000' ./spooler/new/snas0488.imp: *ldb_i ./spooler/new/snas0488.imp: *lb_k ./spooler/new/snas0488.imp: *swne_%l=%dr ./spooler/new/snas0488.imp: *jcc_4, ./spooler/new/snas0488.imp: *cyd_0 ./spooler/new/snas0488.imp: *mpsr_x'11' ./spooler/new/snas0488.imp: *st_(cursor) ./spooler/new/snas0488.imp: *lda_(cursor) ./spooler/new/snas0488.imp: *ldtb_x'58000000' ./spooler/new/snas0488.imp: *ldb_i ./spooler/new/snas0488.imp: *lb_k ./spooler/new/snas0488.imp: *swne_%l=%dr ./spooler/new/snas0488.imp: *jcc_4, ./spooler/new/snas0488.imp: *cyd_0 ./spooler/new/snas0488.imp: *mpsr_x'11' ./spooler/new/snas0488.imp: *st_(cursor) ./spooler/new/snas1089.imp: *stln_temp; !TO ALLOW NDIAGS TO EXIT FROM CONTROL ./spooler/new/snas1089.imp: *st_10,temp ./spooler/new/snas1089.imp: *stln_temp; !STORE LNB FOR NDIAGS TO EXIT ./spooler/new/snas1089.imp: *st_9,temp ./spooler/new/snas1089.imp: *(com_users+3)//3) > j %then requeue %and reply = %c ./spooler/new/snas1089.imp: *ldtb_x'18000000' ./spooler/new/snas1089.imp: *ldb_length ./spooler/new/snas1089.imp: *lda_from ./spooler/new/snas1089.imp: *cyd_0 ./spooler/new/snas1089.imp: *lda_to ./spooler/new/snas1089.imp: *mv_%l=%dr ./spooler/new/snas1089.imp: *lda_start; !FORM DESCRIPTOR TO REST OF FILE. ./spooler/new/snas1089.imp: *ldtb_j ./spooler/new/snas1089.imp: *ldb_l ./spooler/new/snas1089.imp: *lb_0; !SCAN FOR THE FIRST ZERO BYTE ./spooler/new/snas1089.imp: *swne_%l=%dr ./spooler/new/snas1089.imp: *jat_11, ; !JZDL - THE FILE IS CLEAN ALREADY. ./spooler/new/snas1089.imp: *std_dest0; !AND DEST1 - DESC TO FIRST ZEROED AREA. ./spooler/new/snas1089.imp: *lb_0 ./spooler/new/snas1089.imp: *sweq_%l=%dr; !SCAN TO THE END OF ZEROED AREA. ./spooler/new/snas1089.imp: *jat_11, ; !JZDL - THIS IS END OF FILE ./spooler/new/snas1089.imp: *std_src0; !AND SRC1 - DESC TO FIRST ZEROED AREA. ./spooler/new/snas1089.imp: *swne_%l=%dr; !FIND LENGTH OF PIECE. ./spooler/new/snas1089.imp: *std_temp0; !AND TEMP1 - DESC TO NEXT HOLE. ./spooler/new/snas1089.imp: *lb_temp1 ./spooler/new/snas1089.imp: *sbb_src1; !LENGTH OF PIECE. ./spooler/new/snas1089.imp: *adb_j ./spooler/new/snas1089.imp: *lda_dest1; !FORM DESC TO START OF HOLE. ./spooler/new/snas1089.imp: *ldtb_%b; !WITH TYPE AND BOUND DESCRIBING PIECE. ./spooler/new/snas1089.imp: *lss_src1; !FORM DESC TO PIECE. ./spooler/new/snas1089.imp: *luh_%b ./spooler/new/snas1089.imp: *mv_%l=%dr; !MOVE THE PIECE - DR ENDS UP AT START OF NEXT HOLE(WIDER NOW) ./spooler/new/snas1089.imp: *std_dest0; !AND DEST1 ./spooler/new/snas1089.imp: *ld_temp0; !CARRY ON FROM PREVIOUS START. ./spooler/new/snas1089.imp: *j_ ./spooler/new/snas1089.imp: *lda_(cursor) ./spooler/new/snas1089.imp: *ldtb_x'58000000' ./spooler/new/snas1089.imp: *ldb_i ./spooler/new/snas1089.imp: *lb_k ./spooler/new/snas1089.imp: *swne_%l=%dr ./spooler/new/snas1089.imp: *jcc_4, ./spooler/new/snas1089.imp: *cyd_0 ./spooler/new/snas1089.imp: *mpsr_x'11' ./spooler/new/snas1089.imp: *st_(cursor) ./spooler/new/snas1089.imp: *lda_(cursor) ./spooler/new/snas1089.imp: *ldtb_x'58000000' ./spooler/new/snas1089.imp: *ldb_i ./spooler/new/snas1089.imp: *lb_k ./spooler/new/snas1089.imp: *swne_%l=%dr ./spooler/new/snas1089.imp: *jcc_4, ./spooler/new/snas1089.imp: *cyd_0 ./spooler/new/snas1089.imp: *mpsr_x'11' ./spooler/new/snas1089.imp: *st_(cursor) ./spooler/new/snas11881.imp: *stln_temp; !TO ALLOW NDIAGS TO EXIT FROM CONTROL ./spooler/new/snas11881.imp: *st_10,temp ./spooler/new/snas11881.imp: *stln_temp; !STORE LNB FOR NDIAGS TO EXIT ./spooler/new/snas11881.imp: *st_9,temp ./spooler/new/snas11881.imp: *(com_users+3)//3) > j %then requeue %and reply = %c ./spooler/new/snas11881.imp: *ldtb_x'18000000' ./spooler/new/snas11881.imp: *ldb_length ./spooler/new/snas11881.imp: *lda_from ./spooler/new/snas11881.imp: *cyd_0 ./spooler/new/snas11881.imp: *lda_to ./spooler/new/snas11881.imp: *mv_%l=%dr ./spooler/new/snas11881.imp: *lda_start; !FORM DESCRIPTOR TO REST OF FILE. ./spooler/new/snas11881.imp: *ldtb_j ./spooler/new/snas11881.imp: *ldb_l ./spooler/new/snas11881.imp: *lb_0; !SCAN FOR THE FIRST ZERO BYTE ./spooler/new/snas11881.imp: *swne_%l=%dr ./spooler/new/snas11881.imp: *jat_11, ; !JZDL - THE FILE IS CLEAN ALREADY. ./spooler/new/snas11881.imp: *std_dest0; !AND DEST1 - DESC TO FIRST ZEROED AREA. ./spooler/new/snas11881.imp: *lb_0 ./spooler/new/snas11881.imp: *sweq_%l=%dr; !SCAN TO THE END OF ZEROED AREA. ./spooler/new/snas11881.imp: *jat_11, ; !JZDL - THIS IS END OF FILE ./spooler/new/snas11881.imp: *std_src0; !AND SRC1 - DESC TO FIRST ZEROED AREA. ./spooler/new/snas11881.imp: *swne_%l=%dr; !FIND LENGTH OF PIECE. ./spooler/new/snas11881.imp: *std_temp0; !AND TEMP1 - DESC TO NEXT HOLE. ./spooler/new/snas11881.imp: *lb_temp1 ./spooler/new/snas11881.imp: *sbb_src1; !LENGTH OF PIECE. ./spooler/new/snas11881.imp: *adb_j ./spooler/new/snas11881.imp: *lda_dest1; !FORM DESC TO START OF HOLE. ./spooler/new/snas11881.imp: *ldtb_%b; !WITH TYPE AND BOUND DESCRIBING PIECE. ./spooler/new/snas11881.imp: *lss_src1; !FORM DESC TO PIECE. ./spooler/new/snas11881.imp: *luh_%b ./spooler/new/snas11881.imp: *mv_%l=%dr; !MOVE THE PIECE - DR ENDS UP AT START OF NEXT HOLE(WIDER NOW) ./spooler/new/snas11881.imp: *std_dest0; !AND DEST1 ./spooler/new/snas11881.imp: *ld_temp0; !CARRY ON FROM PREVIOUS START. ./spooler/new/snas11881.imp: *j_ ./spooler/new/snas11881.imp: *lda_(cursor) ./spooler/new/snas11881.imp: *ldtb_x'58000000' ./spooler/new/snas11881.imp: *ldb_i ./spooler/new/snas11881.imp: *lb_k ./spooler/new/snas11881.imp: *swne_%l=%dr ./spooler/new/snas11881.imp: *jcc_4, ./spooler/new/snas11881.imp: *cyd_0 ./spooler/new/snas11881.imp: *mpsr_x'11' ./spooler/new/snas11881.imp: *st_(cursor) ./spooler/new/snas11881.imp: *lda_(cursor) ./spooler/new/snas11881.imp: *ldtb_x'58000000' ./spooler/new/snas11881.imp: *ldb_i ./spooler/new/snas11881.imp: *lb_k ./spooler/new/snas11881.imp: *swne_%l=%dr ./spooler/new/snas11881.imp: *jcc_4, ./spooler/new/snas11881.imp: *cyd_0 ./spooler/new/snas11881.imp: *mpsr_x'11' ./spooler/new/snas11881.imp: *st_(cursor) ./spooler/old/newstdiags.imp: *L_15,pc ./spooler/old/newstdiags.imp: *L_2,lnbabove ./spooler/old/newstdiags.imp: *LM_0,1,par1 ./spooler/old/newstdiags.imp: *LM_4,14,16(2) ./spooler/old/newstdiags.imp: *BCR_15,15 ./spooler/old/newstdiags.imp: *st_10,j ./spooler/old/newstdiags.imp: *L_1,lnb ./spooler/old/newstdiags.imp: *LM_4,15,16(1); !restore regs ./spooler/old/newstdiags.imp: *BCR_15,15 ./spooler/old/newstdiags.imp: *st_11,my11 ./spooler/old/newstdiags.imp: *l_1,com36 ./spooler/old/newstdiags.imp: *LM_4,15,16(1); !restore regs ./spooler/old/newstdiags.imp: *BCR_15,15 ./spooler/old/newstdiags.imp: *bas_1, ./spooler/old/newstdiags.imp: *st_1,pc3 ./spooler/old/newstdiags.imp: *l_1,context3 ./spooler/old/newstdiags.imp: *stm_4,14,24(1) ./spooler/old/newstdiags.imp: *bas_1, ./spooler/old/newstdiags.imp: *st_1,pc3 ./spooler/old/newstdiags.imp: *l_1,diagscontext ./spooler/old/newstdiags.imp: *stm_4,14,24(1) ./spooler/old/newstdiags.imp: *st_11,diagsbase; !base address for diagnostics ./spooler/old/iocps.imp: *ld_dr ./spooler/old/iocps.imp: *val_(%lnb+1) ./spooler/old/iocps.imp: *jcc_8, ./spooler/old/iocps.imp: *jcc_4, ./spooler/old/iocps.imp: *jcc_2, ./spooler/old/iocps.imp: *lb_l ./spooler/old/iocps.imp: *ldtb_x'18000000' ./spooler/old/iocps.imp: *ldb_%b ./spooler/old/iocps.imp: *lda_ad ./spooler/old/iocps.imp: *lss_j ./spooler/old/iocps.imp: *luh_x'18000100' ./spooler/old/iocps.imp: *ttr_%l=%dr ./spooler/old/iocps.imp: *lb_l ./spooler/old/iocps.imp: *ldtb_x'18000000' ./spooler/old/iocps.imp: *ldb_%b ./spooler/old/iocps.imp: *lda_ad ./spooler/old/iocps.imp: *lss_j ./spooler/old/iocps.imp: *luh_x'18000100' ./spooler/old/iocps.imp: *ttr_%l=%dr ./spooler/old/iocps.imp: *ldtb_x'18000000' ./spooler/old/iocps.imp: *ldb_length ; *lda_from ./spooler/old/iocps.imp: *cyd_0 ; *lda_to ./spooler/old/iocps.imp: *mv_%l=%dr ./spooler/old/iocps.imp: *lb_length ./spooler/old/iocps.imp: *ldtb_x'18000000' ./spooler/old/iocps.imp: *ldb_%b ./spooler/old/iocps.imp: *lda_from ./spooler/old/iocps.imp: *lb_filler ./spooler/old/iocps.imp: *mvl_%l=%dr ./spooler/old/iocps.imp: *lss_n; *cdec_0 ./spooler/old/iocps.imp: *ld_s; *inca_1; ! PAST LENGTH BYTE ./spooler/old/iocps.imp: *cpb_%b; ! SET CC=0 ./spooler/old/iocps.imp: *supk_%l=15,0,32; ! UNPACK 15 DIGITS SPACE FILL ./spooler/old/iocps.imp: *std_d2; ! FINAL DR FOR LENGTH CALCS ./spooler/old/iocps.imp: *jcc_8,; ! N=0 CASE ./spooler/old/iocps.imp: *lsd_%tos; *st_d0; ! SIGN DESCRIPTOR STKED BY SUPK ./spooler/old/iocps.imp: *ld_s; *inca_1 ./spooler/old/iocps.imp: *mvl_%l=15,15,48; ! FORCE IN ISO ZONE CODES ./spooler/old/iocps.imp: *lss_value; *cdec_0 ./spooler/old/iocps.imp: *ld_s; *inca_1; *std_%tos ./spooler/old/iocps.imp: *cpb_%b; ! SET CC=0 ./spooler/old/iocps.imp: *supk_%l=15,0,32; ! UNPACK & SPACE FILL ./spooler/old/iocps.imp: *std_d2; *jcc_8, ./spooler/old/iocps.imp: *ld_%tos; *std_d0; ! FOR SIGN INSERTION ./spooler/old/iocps.imp: *ld_%tos ./spooler/old/iocps.imp: *mvl_%l=15,63,0; ! FORCE ISO ZONE CODES ./spooler/old/iocps.imp: *ld_s; *lss_places; *st_(%dr) ./spooler/old/iocps.imp: *inca_1; *std_%tos; *std_%tos ./spooler/old/iocps.imp: *lss_value; *luh_0; *ush_i ./spooler/old/iocps.imp: *mpsr_x'24'; ! SET CC=1 ./spooler/old/iocps.imp: *supk_%l=8 ./spooler/old/iocps.imp: *ld_%tos; *ands_%l=8,0,15; ! THROW AWAY ZONE CODES ./spooler/old/iocps.imp: *lss_hex+4; *luh_x'18000010' ./spooler/old/iocps.imp: *ld_%tos; *ttr_%l=8 ./spooler/old/iocps.imp: *lda_start; !CHECK IF SAME AS PREVIOUS LINE ./spooler/old/iocps.imp: *ldtb_x'18000020' ./spooler/old/iocps.imp: *cyd_0 ./spooler/old/iocps.imp: *inca_-32 ./spooler/old/iocps.imp: *cps_ %l = %dr ./spooler/old/iocps.imp: *jcc_7, < printline > ./spooler/old/iocps.imp: *ldtb_x'18000020' ./spooler/old/iocps.imp: *lda_start ./spooler/old/iocps.imp: *cyd_0 ./spooler/old/iocps.imp: *lda_j ./spooler/old/iocps.imp: *mv_%l=%dr ./spooler/old/iocps.imp: *lb_32 ./spooler/old/iocps.imp: *ldtb_x'18000000' ./spooler/old/iocps.imp: *ldb_%b ./spooler/old/iocps.imp: *lda_j ./spooler/old/iocps.imp: *lss_i ./spooler/old/iocps.imp: *luh_x'18000100' ./spooler/old/iocps.imp: *ttr_%l=%dr ./spooler/old/sps.imp: *stln_temp; !TO ALLOW NDIAGS TO EXIT FROM CONTROL ./spooler/old/sps.imp: *st_10,temp ./spooler/old/sps.imp: *stln_temp; !STORE LNB FOR NDIAGS TO EXIT ./spooler/old/sps.imp: *st_9,temp ./spooler/old/sps.imp: *(com_users+3)//3) > j %then requeue %and reply = %c ./spooler/old/sps.imp: *ldtb_x'18000000' ./spooler/old/sps.imp: *ldb_length ./spooler/old/sps.imp: *lda_from ./spooler/old/sps.imp: *cyd_0 ./spooler/old/sps.imp: *lda_to ./spooler/old/sps.imp: *mv_%l=%dr ./spooler/old/sps.imp: *lda_start; !FORM DESCRIPTOR TO REST OF FILE. ./spooler/old/sps.imp: *ldtb_j ./spooler/old/sps.imp: *ldb_l ./spooler/old/sps.imp: *lb_0; !SCAN FOR THE FIRST ZERO BYTE ./spooler/old/sps.imp: *swne_%l=%dr ./spooler/old/sps.imp: *jat_11, ; !JZDL - THE FILE IS CLEAN ALREADY. ./spooler/old/sps.imp: *std_dest0; !AND DEST1 - DESC TO FIRST ZEROED AREA. ./spooler/old/sps.imp: *lb_0 ./spooler/old/sps.imp: *sweq_%l=%dr; !SCAN TO THE END OF ZEROED AREA. ./spooler/old/sps.imp: *jat_11, ; !JZDL - THIS IS END OF FILE ./spooler/old/sps.imp: *std_src0; !AND SRC1 - DESC TO FIRST ZEROED AREA. ./spooler/old/sps.imp: *swne_%l=%dr; !FIND LENGTH OF PIECE. ./spooler/old/sps.imp: *std_temp0; !AND TEMP1 - DESC TO NEXT HOLE. ./spooler/old/sps.imp: *lb_temp1 ./spooler/old/sps.imp: *sbb_src1; !LENGTH OF PIECE. ./spooler/old/sps.imp: *adb_j ./spooler/old/sps.imp: *lda_dest1; !FORM DESC TO START OF HOLE. ./spooler/old/sps.imp: *ldtb_%b; !WITH TYPE AND BOUND DESCRIBING PIECE. ./spooler/old/sps.imp: *lss_src1; !FORM DESC TO PIECE. ./spooler/old/sps.imp: *luh_%b ./spooler/old/sps.imp: *mv_%l=%dr; !MOVE THE PIECE - DR ENDS UP AT START OF NEXT HOLE(WIDER NOW) ./spooler/old/sps.imp: *std_dest0; !AND DEST1 ./spooler/old/sps.imp: *ld_temp0; !CARRY ON FROM PREVIOUS START. ./spooler/old/sps.imp: *j_ ./spooler/old/sps.imp: *lda_(cursor) ./spooler/old/sps.imp: *ldtb_x'58000000' ./spooler/old/sps.imp: *ldb_i ./spooler/old/sps.imp: *lb_k ./spooler/old/sps.imp: *swne_%l=%dr ./spooler/old/sps.imp: *jcc_4, ./spooler/old/sps.imp: *cyd_0 ./spooler/old/sps.imp: *mpsr_x'11' ./spooler/old/sps.imp: *st_(cursor) ./spooler/old/sps.imp: *lda_(cursor) ./spooler/old/sps.imp: *ldtb_x'58000000' ./spooler/old/sps.imp: *ldb_i ./spooler/old/sps.imp: *lb_k ./spooler/old/sps.imp: *swne_%l=%dr ./spooler/old/sps.imp: *jcc_4, ./spooler/old/sps.imp: *cyd_0 ./spooler/old/sps.imp: *mpsr_x'11' ./spooler/old/sps.imp: *st_(cursor) ./chopsupe/new/idev22s.imp: *STCK_clock; MSEC=CLOCK>>22&x'ffff' ./chopsupe/new/idev22s.imp: *STCK_clock ./chopsupe/new/ichop6cs.imp: *stm_0,15,2048(0) ./chopsupe/new/ichop6cs.imp: *l_0,0(10); *st_0,2112 ./chopsupe/new/ichop6cs.imp: *stm_0,15,2048(0) ./chopsupe/new/ichop6cs.imp: *stm_0,15,2048(0) ./chopsupe/new/ichop6cs.imp: *l_0,i ./chopsupe/new/ichop6cs.imp: *la_1,; *stm_0,1,120 ./chopsupe/new/ichop6cs.imp: *la_1,; *stm_0,1,88 ./chopsupe/new/ichop6cs.imp: *la_1,; *stm_0,1,104 ./chopsupe/new/ichop6cs.imp: *la_1,; *stm_0,1,112 ./chopsupe/new/ichop6cs.imp: *la_1,; *stm_0,1,96 ./chopsupe/new/ichop6cs.imp: *stidp_i ./chopsupe/new/ichop6cs.imp: *stctl_0,0,i ./chopsupe/new/ichop6cs.imp: *lctl_0,1,i ./chopsupe/new/ichop6cs.imp: *l_1,j; *la_2,24 {18}; ! SSK 1 ./chopsupe/new/ichop6cs.imp: *sske_2,1 ./chopsupe/new/ichop6cs.imp: *ssk_2,1 ./chopsupe/new/ichop6cs.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./chopsupe/new/ichop6cs.imp: *l_1,k; *la_2,24 {18}; ! SSK 1 ./chopsupe/new/ichop6cs.imp: *sske_2,1 ./chopsupe/new/ichop6cs.imp: *ssk_2,1 ./chopsupe/new/ichop6cs.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./chopsupe/new/ichop6cs.imp: *DENT SIZE+CFH_NDISCS*DDENT EX SIZE+CFH_NSLDEVS*SLOT SIZE+SLDEVTAB HDR SIZE+ %C ./chopsupe/new/ichop6cs.imp: *l_1,k; *la_2,16 {10}; ! key 1, read permitted ./chopsupe/new/ichop6cs.imp: *sske_2,1 ./chopsupe/new/ichop6cs.imp: *ssk_2,1 ./chopsupe/new/ichop6cs.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./chopsupe/new/ichop6cs.imp: *stck_i; ! timeeval will report if invalid ./chopsupe/new/ichop6cs.imp: *stap_MYPORT ./chopsupe/new/ichop6cs.imp: *l_0,zeropageaddr; *l_1,pagesize; ! clear the zero page at x1000 ./chopsupe/new/ichop6cs.imp: *lr_2,0; *slr_3,3; *mvcl_0,2 ./chopsupe/new/ichop6cs.imp: *ssm_smask ./chopsupe/new/ichop6cs.imp: *ssm_smask ./chopsupe/new/ichop6cs.imp: *ssm_smask ./chopsupe/new/ichop6cs.imp: *ssm_smask ./chopsupe/new/ichop6cs.imp: *spt_timer; ! set cpu timer for 1 sec. ./chopsupe/new/ichop6cs.imp: *lpsw_wpsw; ! idle ./chopsupe/new/ichop6cs.imp: *lpsw_psw ./chopsupe/new/ichop6cs.imp: *basr_3,0 ./chopsupe/new/ichop6cs.imp: *using_3 ./chopsupe/new/ichop6cs.imp: *l_1,i ./chopsupe/new/ichop6cs.imp: *la_2,irb ./chopsupe/new/ichop6cs.imp: *tsch_0(2) ./chopsupe/new/ichop6cs.imp: *bc_1,; ! failed to get interrupt data ./chopsupe/new/ichop6cs.imp: *drop_3 ./chopsupe/new/ichop6cs.imp: *lpsw_psw ./chopsupe/new/ichop6cs.imp: *lpsw_psw ./chopsupe/new/ichop6cs.imp: *l_1,k; *la_2,32 {20}; ! SSK 2 ./chopsupe/new/ichop6cs.imp: *sske_2,1 ./chopsupe/new/ichop6cs.imp: *ssk_2,1 ./chopsupe/new/ichop6cs.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./chopsupe/new/ichop6cs.imp: *l_1,k; *la_2,16 {10}; ! SSK 1 ./chopsupe/new/ichop6cs.imp: *sske_2,1 ./chopsupe/new/ichop6cs.imp: *ssk_2,1 ./chopsupe/new/ichop6cs.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./chopsupe/new/ichop6cs.imp: *l_1,k; *la_2,24 {18}; ! SSK 1 ./chopsupe/new/ichop6cs.imp: *sske_2,1 ./chopsupe/new/ichop6cs.imp: *ssk_2,1 ./chopsupe/new/ichop6cs.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./chopsupe/new/ichop6cs.imp: *l_1,k; *la_2,24 {18}; ! SSK 1 ./chopsupe/new/ichop6cs.imp: *sske_2,1 ./chopsupe/new/ichop6cs.imp: *ssk_2,1 ./chopsupe/new/ichop6cs.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./chopsupe/new/ichop6cs.imp: *la_1,0; *la_2,24 {18}; ! SSK 1 ./chopsupe/new/ichop6cs.imp: *sske_2,1 ./chopsupe/new/ichop6cs.imp: *ssk_2,1 ./chopsupe/new/ichop6cs.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./chopsupe/new/ichop6cs.imp: *l_1,zeropageaddr; *la_2,16 {10}; ! SSK 1 ./chopsupe/new/ichop6cs.imp: *sske_2,1 ./chopsupe/new/ichop6cs.imp: *ssk_2,1 ./chopsupe/new/ichop6cs.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./chopsupe/new/ichop6cs.imp: *l_1,k; *la_2,24 {18}; ! SSK 1 ./chopsupe/new/ichop6cs.imp: *sske_2,1 ./chopsupe/new/ichop6cs.imp: *ssk_2,1 ./chopsupe/new/ichop6cs.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./chopsupe/new/ichop6cs.imp: *basr_15,0 ./chopsupe/new/ichop6cs.imp: *using_15 ./chopsupe/new/ichop6cs.imp: *la_1,; *st_1,108; *drop_15 ./chopsupe/new/ichop6cs.imp: *st_11,i ./chopsupe/new/ichop6cs.imp: *l_0,i; *l_1,pagesize; ! clear - pe if off top of store ./chopsupe/new/ichop6cs.imp: *lr_2,0; *slr_3,3; *mvcl_0,2 ./chopsupe/new/ichop6cs.imp: *lpsw_psw ./chopsupe/new/ichop6cs.imp: *l_1,i; *la_2,120 {78} ./chopsupe/new/ichop6cs.imp: *sske_2,1 ./chopsupe/new/ichop6cs.imp: *ssk_2,1 ./chopsupe/new/ichop6cs.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./chopsupe/new/ichop6cs.imp: *l_1,i ./chopsupe/new/ichop6cs.imp: *iske_0,1; *srl_0,3; *sll_0,3; *sske_0,1 ./chopsupe/new/ichop6cs.imp: *isk_0,1; *srl_0,3; *sll_0,3; *ssk_0,1 ./chopsupe/new/ichop6cs.imp: *isk_0,1; *srl_0,3; *sll_0,3 ./chopsupe/new/ichop6cs.imp: *ssk_0,1; *la_1,2048(1); *ssk_0,1 ./chopsupe/new/ichop6cs.imp: *l_1,i; *l_2,j; *lm_11,14,0(1) ./chopsupe/new/ichop6cs.imp: *lpsw_0(2); ! enter supervisor ./chopsupe/new/ichop6cs.imp: *SR_0,0; *LM_1,4,Param ./chopsupe/new/ichop6cs.imp: *SIGP_0,2,0(3) ./chopsupe/new/ichop6cs.imp: *ST_0,0(4); ! into status ./chopsupe/new/ichop6cs.imp: *IPM_1; *SRL_1,28(0); *st_1,CC ./chopsupe/new/ichop6cs.imp: *l_0,to; *l_1,len ./chopsupe/new/ichop6cs.imp: *l_2,from; *lr_3,1 ./chopsupe/new/ichop6cs.imp: *mvcl_0,2 ./chopsupe/new/ichop6cs.imp: *l_1,len; *l_2,ad; *l_3,i ./chopsupe/new/ichop6cs.imp: *la_0,256 ./chopsupe/new/ichop6cs.imp: *basr_15,0 ./chopsupe/new/ichop6cs.imp: *using_15 ./chopsupe/new/ichop6cs.imp: *clr_1,0; *bc_4, ./chopsupe/new/ichop6cs.imp: *tr_0(256,2),0(3) ./chopsupe/new/ichop6cs.imp: *alr_2,0; *slr_1,0 ./chopsupe/new/ichop6cs.imp: *bcr_15,15 ./chopsupe/new/ichop6cs.imp: *bctr_1,0; *ex_1, ./chopsupe/new/ichop6cs.imp: *drop_15 ./chopsupe/new/ichop6cs.imp: *l_1,len; *l_2,ad; *l_3,i ./chopsupe/new/ichop6cs.imp: *la_0,256 ./chopsupe/new/ichop6cs.imp: *basr_15,0 ./chopsupe/new/ichop6cs.imp: *using_15 ./chopsupe/new/ichop6cs.imp: *clr_1,0; *bc_4, ./chopsupe/new/ichop6cs.imp: *tr_0(256,2),0(3) ./chopsupe/new/ichop6cs.imp: *alr_2,0; *slr_1,0 ./chopsupe/new/ichop6cs.imp: *bcr_15,15 ./chopsupe/new/ichop6cs.imp: *bctr_1,0; *ex_1, ./chopsupe/new/ichop6cs.imp: *drop_15 ./chopsupe/new/ichop6cs.imp: *lpsw_psw ./chopsupe/new/ichop6cs.imp: *l_1,len; *l_2,ad; *l_3,transtabad ./chopsupe/new/ichop6cs.imp: *basr_15,0; *using_15 ./chopsupe/new/ichop6cs.imp: *bctr_1,0; *ex_1,; *drop_15 ./chopsupe/new/ichop6cs.imp: *lpsw_psw ./chopsupe/new/ichop6cs.imp: *lm_0,3,pc; *lh_4,2(1) ./chopsupe/new/ichop6cs.imp: *lpsw_psw ./chopsupe/new/ichop6cs.imp: *l_1,ad ./chopsupe/new/ichop6cs.imp: *ic_0,j+2; *stc_0,0(1) ./chopsupe/new/ichop6cs.imp: *ic_0,j+3; *stc_0,1(1) ./chopsupe/new/ichop6cs.imp: *basr_15,0 ./chopsupe/new/ichop6cs.imp: *using_15 ./chopsupe/new/ichop6cs.imp: *stck_rtc1 ./chopsupe/new/ichop6cs.imp: *bc_8,; *drop_15 ./chopsupe/new/ichop6cs.imp: *l_2,rtc1; *l_3,rtc2; ./chopsupe/new/ichop6cs.imp: *srdl_2,16; *l_4,sec ./chopsupe/new/ichop6cs.imp: *dr_2,4; ! to seconds//2 ./chopsupe/new/ichop6cs.imp: *st_3,rtc1 ./chopsupe/new/ichop6cs.imp: *basr_15,0 ./chopsupe/new/ichop6cs.imp: *using_15 ./chopsupe/new/ichop6cs.imp: *l_1,i; *l_2,j; *l_3,k ./chopsupe/new/ichop6cs.imp: *ex_1, ./chopsupe/new/ichop6cs.imp: *drop_15 ./chopsupe/new/ichop6cs.imp: *basr_15,0; *using_15 ./chopsupe/new/ichop6cs.imp: *sck_l; *bc_8,; *drop_15 ./chopsupe/new/ichop6cs.imp: *basr_15,0 ./chopsupe/new/ichop6cs.imp: *using_15 ./chopsupe/new/ichop6cs.imp: *la_0,; *st_0,i; *drop_15 ./chopsupe/new/ichop6cs.imp: *lpsw_psw ./chopsupe/new/ichop6cs.imp: *l_1,i ./chopsupe/new/ichop6cs.imp: *ssch_orb ./chopsupe/new/ichop6cs.imp: *ipm_1 ./chopsupe/new/ichop6cs.imp: *srl_1,28 ./chopsupe/new/ichop6cs.imp: *st_1,cc ./chopsupe/new/ichop6cs.imp: *l_1,i ./chopsupe/new/ichop6cs.imp: *sio_0(1) ./chopsupe/new/ichop6cs.imp: *balr_1,0 ./chopsupe/new/ichop6cs.imp: *sll_1,2 ./chopsupe/new/ichop6cs.imp: *srl_1,30 ./chopsupe/new/ichop6cs.imp: *st_1,cc ./chopsupe/new/ichop6cs.imp: *l_1,i ./chopsupe/new/ichop6cs.imp: *sio_0(1) ./chopsupe/new/ichop6cs.imp: *balr_1,0 ./chopsupe/new/ichop6cs.imp: *sll_1,2 ./chopsupe/new/ichop6cs.imp: *srl_1,30 ./chopsupe/new/ichop6cs.imp: *st_1,acc ./chopsupe/new/ichop6cs.imp: *l_1,i; *l_2,irb ./chopsupe/new/ichop6cs.imp: *tsch_0(2) ./chopsupe/new/ichop6cs.imp: *ipm_1 ./chopsupe/new/ichop6cs.imp: *srl_1,28 ./chopsupe/new/ichop6cs.imp: *st_1,cc ./chopsupe/new/ichop6cs.imp: *l_1,i ./chopsupe/new/ichop6cs.imp: *tio_0(1) ./chopsupe/new/ichop6cs.imp: *balr_1,0 ./chopsupe/new/ichop6cs.imp: *sll_1,2 ./chopsupe/new/ichop6cs.imp: *srl_1,30 ./chopsupe/new/ichop6cs.imp: *st_1,cc ./chopsupe/new/ichop6cs.imp: *l_1,i ./chopsupe/new/ichop6cs.imp: *tio_0(1) ./chopsupe/new/ichop6cs.imp: *balr_1,0 ./chopsupe/new/ichop6cs.imp: *sll_1,2 ./chopsupe/new/ichop6cs.imp: *srl_1,30 ./chopsupe/new/ichop6cs.imp: *st_1,acc ./chopsupe/new/ichop6cs.imp: *l_1,i ./chopsupe/new/ichop6cs.imp: *hsch_I {param is a dummy} ./chopsupe/new/ichop6cs.imp: *ipm_1 ./chopsupe/new/ichop6cs.imp: *srl_1,28 ./chopsupe/new/ichop6cs.imp: *st_1,cc ./chopsupe/new/ichop6cs.imp: *l_1,i ./chopsupe/new/ichop6cs.imp: *hio_0(1) ./chopsupe/new/ichop6cs.imp: *balr_1,0 ./chopsupe/new/ichop6cs.imp: *sll_1,2 ./chopsupe/new/ichop6cs.imp: *srl_1,30 ./chopsupe/new/ichop6cs.imp: *st_1,cc ./chopsupe/new/ichop6cs.imp: *l_1,i ./chopsupe/new/ichop6cs.imp: *hio_0(1) ./chopsupe/new/ichop6cs.imp: *balr_1,0 ./chopsupe/new/ichop6cs.imp: *sll_1,2 ./chopsupe/new/ichop6cs.imp: *srl_1,30 ./chopsupe/new/ichop6cs.imp: *st_1,acc ./chopsupe/new/ichop6cs.imp: *L_1,i ./chopsupe/new/ichop6cs.imp: *CSCH_0(0) ./chopsupe/new/ichop6cs.imp: *IPM_1 ./chopsupe/new/ichop6cs.imp: *SRL_1,28 ./chopsupe/new/ichop6cs.imp: *ST_1,cc ./chopsupe/new/ichop6cs.imp: *l_1,i ./chopsupe/new/ichop6cs.imp: *l_2,schib ./chopsupe/new/ichop6cs.imp: *stsch_0(2) ./chopsupe/new/ichop6cs.imp: *ipm_1 ./chopsupe/new/ichop6cs.imp: *srl_1,28 ./chopsupe/new/ichop6cs.imp: *st_1,cc ./chopsupe/new/ichop6cs.imp: *l_1,i ./chopsupe/new/ichop6cs.imp: *l_2,schib ./chopsupe/new/ichop6cs.imp: *msch_0(2) ./chopsupe/new/ichop6cs.imp: *ipm_1 ./chopsupe/new/ichop6cs.imp: *srl_1,28 ./chopsupe/new/ichop6cs.imp: *st_1,cc ./chopsupe/new/ichop6cs.imp: *l_1,ccwa; *lra_0,0(1); *st_0,rccwa ./chopsupe/new/ichop6cs.imp: *la_1,fcr; *PUT_x'8302'; *PUT_x'1000'; ! feature control reg ./chopsupe/new/ichop6cs.imp: *balr_15,0; *using_15 ./chopsupe/new/ichop6cs.imp: *la_1,fcr; *PUT_x'8301'; *PUT_x'1000' ./chopsupe/new/ichop6cs.imp: *bc_8,; *drop_15 ./chopsupe/new/ichop6cs.imp: *lpsw_psw ./chopsupe/old/ichop5s.imp: *stm_0,15,2048(0) ./chopsupe/old/ichop5s.imp: *l_0,0(10); *st_0,2112 ./chopsupe/old/ichop5s.imp: *stm_0,15,2048(0) ./chopsupe/old/ichop5s.imp: *stm_0,15,2048(0) ./chopsupe/old/ichop5s.imp: *l_0,i ./chopsupe/old/ichop5s.imp: *la_1,; *stm_0,1,120 ./chopsupe/old/ichop5s.imp: *la_1,; *stm_0,1,88 ./chopsupe/old/ichop5s.imp: *la_1,; *stm_0,1,104 ./chopsupe/old/ichop5s.imp: *la_1,; *stm_0,1,112 ./chopsupe/old/ichop5s.imp: *la_1,; *stm_0,1,96 ./chopsupe/old/ichop5s.imp: *stidp_i ./chopsupe/old/ichop5s.imp: *stctl_0,0,i ./chopsupe/old/ichop5s.imp: *lctl_0,1,i ./chopsupe/old/ichop5s.imp: *l_1,j; *la_2,24 {18}; ! SSK 1 ./chopsupe/old/ichop5s.imp: *sske_2,1 ./chopsupe/old/ichop5s.imp: *ssk_2,1 ./chopsupe/old/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./chopsupe/old/ichop5s.imp: *l_1,k; *la_2,24 {18}; ! SSK 1 ./chopsupe/old/ichop5s.imp: *sske_2,1 ./chopsupe/old/ichop5s.imp: *ssk_2,1 ./chopsupe/old/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./chopsupe/old/ichop5s.imp: *DENT SIZE+CFH_NDISCS*DDENT EX SIZE+CFH_NSLDEVS*SLOT SIZE+SLDEVTAB HDR SIZE+OPERLOG %C ./chopsupe/old/ichop5s.imp: *l_1,k; *la_2,16 {10}; ! key 1, read permitted ./chopsupe/old/ichop5s.imp: *sske_2,1 ./chopsupe/old/ichop5s.imp: *ssk_2,1 ./chopsupe/old/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./chopsupe/old/ichop5s.imp: *l_0,zeropageaddr; *l_1,pagesize; ! clear the zero page at x1000 ./chopsupe/old/ichop5s.imp: *lr_2,0; *slr_3,3; *mvcl_0,2 ./chopsupe/old/ichop5s.imp: *ssm_smask ./chopsupe/old/ichop5s.imp: *ssm_smask ./chopsupe/old/ichop5s.imp: *ssm_smask ./chopsupe/old/ichop5s.imp: *ssm_smask ./chopsupe/old/ichop5s.imp: *spt_timer; ! set cpu timer for 1 sec. ./chopsupe/old/ichop5s.imp: *lpsw_wpsw; ! idle ./chopsupe/old/ichop5s.imp: *lpsw_psw ./chopsupe/old/ichop5s.imp: *basr_3,0 ./chopsupe/old/ichop5s.imp: *using_3 ./chopsupe/old/ichop5s.imp: *l_1,i ./chopsupe/old/ichop5s.imp: *la_2,irb ./chopsupe/old/ichop5s.imp: *tsch_0(2) ./chopsupe/old/ichop5s.imp: *bc_1,; ! failed to get interrupt data ./chopsupe/old/ichop5s.imp: *drop_3 ./chopsupe/old/ichop5s.imp: *lpsw_psw ./chopsupe/old/ichop5s.imp: *lpsw_psw ./chopsupe/old/ichop5s.imp: *l_1,k; *la_2,32 {20}; ! SSK 2 ./chopsupe/old/ichop5s.imp: *sske_2,1 ./chopsupe/old/ichop5s.imp: *ssk_2,1 ./chopsupe/old/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./chopsupe/old/ichop5s.imp: *l_1,k; *la_2,16 {10}; ! SSK 1 ./chopsupe/old/ichop5s.imp: *sske_2,1 ./chopsupe/old/ichop5s.imp: *ssk_2,1 ./chopsupe/old/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./chopsupe/old/ichop5s.imp: *l_1,k; *la_2,24 {18}; ! SSK 1 ./chopsupe/old/ichop5s.imp: *sske_2,1 ./chopsupe/old/ichop5s.imp: *ssk_2,1 ./chopsupe/old/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./chopsupe/old/ichop5s.imp: *la_1,0; *la_2,24 {18}; ! SSK 1 ./chopsupe/old/ichop5s.imp: *sske_2,1 ./chopsupe/old/ichop5s.imp: *ssk_2,1 ./chopsupe/old/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./chopsupe/old/ichop5s.imp: *l_1,zeropageaddr; *la_2,16 {10}; ! SSK 1 ./chopsupe/old/ichop5s.imp: *sske_2,1 ./chopsupe/old/ichop5s.imp: *ssk_2,1 ./chopsupe/old/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./chopsupe/old/ichop5s.imp: *l_1,k; *la_2,24 {18}; ! SSK 1 ./chopsupe/old/ichop5s.imp: *sske_2,1 ./chopsupe/old/ichop5s.imp: *ssk_2,1 ./chopsupe/old/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./chopsupe/old/ichop5s.imp: *basr_15,0 ./chopsupe/old/ichop5s.imp: *using_15 ./chopsupe/old/ichop5s.imp: *la_1,; *st_1,108; *drop_15 ./chopsupe/old/ichop5s.imp: *st_11,i ./chopsupe/old/ichop5s.imp: *l_0,i; *l_1,pagesize; ! clear - pe if off top of store ./chopsupe/old/ichop5s.imp: *lr_2,0; *slr_3,3; *mvcl_0,2 ./chopsupe/old/ichop5s.imp: *alr_0,1; *st_0,i ./chopsupe/old/ichop5s.imp: *lpsw_psw ./chopsupe/old/ichop5s.imp: *l_1,i; *la_2,120 {78} ./chopsupe/old/ichop5s.imp: *sske_2,1 ./chopsupe/old/ichop5s.imp: *ssk_2,1 ./chopsupe/old/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./chopsupe/old/ichop5s.imp: *l_1,i ./chopsupe/old/ichop5s.imp: *iske_0,1; *srl_0,3; *sll_0,3; *sske_0,1 ./chopsupe/old/ichop5s.imp: *isk_0,1; *srl_0,3; *sll_0,3; *ssk_0,1 ./chopsupe/old/ichop5s.imp: *isk_0,1; *srl_0,3; *sll_0,3 ./chopsupe/old/ichop5s.imp: *ssk_0,1; *la_1,2048(1); *ssk_0,1 ./chopsupe/old/ichop5s.imp: *l_1,i; *l_2,j; *lm_11,14,0(1) ./chopsupe/old/ichop5s.imp: *lpsw_0(2); ! enter supervisor ./chopsupe/old/ichop5s.imp: *l_0,to; *l_1,len ./chopsupe/old/ichop5s.imp: *l_2,from; *lr_3,1 ./chopsupe/old/ichop5s.imp: *mvcl_0,2 ./chopsupe/old/ichop5s.imp: *l_1,len; *l_2,ad; *l_3,i ./chopsupe/old/ichop5s.imp: *la_0,256 ./chopsupe/old/ichop5s.imp: *basr_15,0 ./chopsupe/old/ichop5s.imp: *using_15 ./chopsupe/old/ichop5s.imp: *clr_1,0; *bc_4, ./chopsupe/old/ichop5s.imp: *tr_0(256,2),0(3) ./chopsupe/old/ichop5s.imp: *alr_2,0; *slr_1,0 ./chopsupe/old/ichop5s.imp: *bcr_15,15 ./chopsupe/old/ichop5s.imp: *bctr_1,0; *ex_1, ./chopsupe/old/ichop5s.imp: *drop_15 ./chopsupe/old/ichop5s.imp: *l_1,len; *l_2,ad; *l_3,i ./chopsupe/old/ichop5s.imp: *la_0,256 ./chopsupe/old/ichop5s.imp: *basr_15,0 ./chopsupe/old/ichop5s.imp: *using_15 ./chopsupe/old/ichop5s.imp: *clr_1,0; *bc_4, ./chopsupe/old/ichop5s.imp: *tr_0(256,2),0(3) ./chopsupe/old/ichop5s.imp: *alr_2,0; *slr_1,0 ./chopsupe/old/ichop5s.imp: *bcr_15,15 ./chopsupe/old/ichop5s.imp: *bctr_1,0; *ex_1, ./chopsupe/old/ichop5s.imp: *drop_15 ./chopsupe/old/ichop5s.imp: *lpsw_psw ./chopsupe/old/ichop5s.imp: *l_1,len; *l_2,ad; *l_3,transtabad ./chopsupe/old/ichop5s.imp: *basr_15,0; *using_15 ./chopsupe/old/ichop5s.imp: *bctr_1,0; *ex_1,; *drop_15 ./chopsupe/old/ichop5s.imp: *lpsw_psw ./chopsupe/old/ichop5s.imp: *lm_0,3,pc; *lh_4,2(1) ./chopsupe/old/ichop5s.imp: *lpsw_psw ./chopsupe/old/ichop5s.imp: *l_1,ad ./chopsupe/old/ichop5s.imp: *ic_0,j+2; *stc_0,0(1) ./chopsupe/old/ichop5s.imp: *ic_0,j+3; *stc_0,1(1) ./chopsupe/old/ichop5s.imp: *basr_15,0 ./chopsupe/old/ichop5s.imp: *using_15 ./chopsupe/old/ichop5s.imp: *stck_rtc1 ./chopsupe/old/ichop5s.imp: *bc_8,; *drop_15 ./chopsupe/old/ichop5s.imp: *l_2,rtc1; *l_3,rtc2; ./chopsupe/old/ichop5s.imp: *srdl_2,16; *l_4,sec ./chopsupe/old/ichop5s.imp: *dr_2,4; ! to seconds//2 ./chopsupe/old/ichop5s.imp: *st_3,rtc1 ./chopsupe/old/ichop5s.imp:*L _1,AD ./chopsupe/old/ichop5s.imp:*L _2,LEN ./chopsupe/old/ichop5s.imp:*PUT _X'8312'; *PUT _X'0008'; ! DIAGNOSE 1,2,8 - call CP to execute command ./chopsupe/old/ichop5s.imp: *basr_15,0 ./chopsupe/old/ichop5s.imp: *using_15 ./chopsupe/old/ichop5s.imp: *l_1,i; *l_2,j; *l_3,k ./chopsupe/old/ichop5s.imp: *ex_1, ./chopsupe/old/ichop5s.imp: *drop_15 ./chopsupe/old/ichop5s.imp: *basr_15,0; *using_15 ./chopsupe/old/ichop5s.imp: *sck_l; *bc_8,; *drop_15 ./chopsupe/old/ichop5s.imp: *basr_15,0 ./chopsupe/old/ichop5s.imp: *using_15 ./chopsupe/old/ichop5s.imp: *la_0,; *st_0,i; *drop_15 ./chopsupe/old/ichop5s.imp: *lpsw_psw ./chopsupe/old/ichop5s.imp: *l_1,i ./chopsupe/old/ichop5s.imp: *ssch_orb ./chopsupe/old/ichop5s.imp: *ipm_1 ./chopsupe/old/ichop5s.imp: *srl_1,28 ./chopsupe/old/ichop5s.imp: *st_1,cc ./chopsupe/old/ichop5s.imp: *l_1,i ./chopsupe/old/ichop5s.imp: *sio_0(1) ./chopsupe/old/ichop5s.imp: *balr_1,0 ./chopsupe/old/ichop5s.imp: *sll_1,2 ./chopsupe/old/ichop5s.imp: *srl_1,30 ./chopsupe/old/ichop5s.imp: *st_1,cc ./chopsupe/old/ichop5s.imp: *l_1,i ./chopsupe/old/ichop5s.imp: *sio_0(1) ./chopsupe/old/ichop5s.imp: *balr_1,0 ./chopsupe/old/ichop5s.imp: *sll_1,2 ./chopsupe/old/ichop5s.imp: *srl_1,30 ./chopsupe/old/ichop5s.imp: *st_1,acc ./chopsupe/old/ichop5s.imp: *l_1,i; *l_2,irb ./chopsupe/old/ichop5s.imp: *tsch_0(2) ./chopsupe/old/ichop5s.imp: *ipm_1 ./chopsupe/old/ichop5s.imp: *srl_1,28 ./chopsupe/old/ichop5s.imp: *st_1,cc ./chopsupe/old/ichop5s.imp: *l_1,i ./chopsupe/old/ichop5s.imp: *tio_0(1) ./chopsupe/old/ichop5s.imp: *balr_1,0 ./chopsupe/old/ichop5s.imp: *sll_1,2 ./chopsupe/old/ichop5s.imp: *srl_1,30 ./chopsupe/old/ichop5s.imp: *st_1,cc ./chopsupe/old/ichop5s.imp: *l_1,i ./chopsupe/old/ichop5s.imp: *tio_0(1) ./chopsupe/old/ichop5s.imp: *balr_1,0 ./chopsupe/old/ichop5s.imp: *sll_1,2 ./chopsupe/old/ichop5s.imp: *srl_1,30 ./chopsupe/old/ichop5s.imp: *st_1,acc ./chopsupe/old/ichop5s.imp: *l_1,i ./chopsupe/old/ichop5s.imp: *hsch_I {param is a dummy} ./chopsupe/old/ichop5s.imp: *ipm_1 ./chopsupe/old/ichop5s.imp: *srl_1,28 ./chopsupe/old/ichop5s.imp: *st_1,cc ./chopsupe/old/ichop5s.imp: *l_1,i ./chopsupe/old/ichop5s.imp: *hio_0(1) ./chopsupe/old/ichop5s.imp: *balr_1,0 ./chopsupe/old/ichop5s.imp: *sll_1,2 ./chopsupe/old/ichop5s.imp: *srl_1,30 ./chopsupe/old/ichop5s.imp: *st_1,cc ./chopsupe/old/ichop5s.imp: *l_1,i ./chopsupe/old/ichop5s.imp: *hio_0(1) ./chopsupe/old/ichop5s.imp: *balr_1,0 ./chopsupe/old/ichop5s.imp: *sll_1,2 ./chopsupe/old/ichop5s.imp: *srl_1,30 ./chopsupe/old/ichop5s.imp: *st_1,acc ./chopsupe/old/ichop5s.imp: *l_1,i ./chopsupe/old/ichop5s.imp: *l_2,schib ./chopsupe/old/ichop5s.imp: *stsch_0(2) ./chopsupe/old/ichop5s.imp: *ipm_1 ./chopsupe/old/ichop5s.imp: *srl_1,28 ./chopsupe/old/ichop5s.imp: *st_1,cc ./chopsupe/old/ichop5s.imp: *l_1,i ./chopsupe/old/ichop5s.imp: *l_2,schib ./chopsupe/old/ichop5s.imp: *msch_0(2) ./chopsupe/old/ichop5s.imp: *ipm_1 ./chopsupe/old/ichop5s.imp: *srl_1,28 ./chopsupe/old/ichop5s.imp: *st_1,cc ./chopsupe/old/ichop5s.imp: *l_1,ccwa; *lra_0,0(1); *st_0,rccwa ./chopsupe/old/ichop5s.imp: *la_1,fcr; *PUT_x'8302'; *PUT_x'1000'; ! feature control reg ./chopsupe/old/ichop5s.imp: *balr_15,0; *using_15 ./chopsupe/old/ichop5s.imp: *la_1,fcr; *PUT_x'8301'; *PUT_x'1000' ./chopsupe/old/ichop5s.imp: *bc_8,; *drop_15 ./chopsupe/old/ichop5s.imp: *lpsw_psw ./chopsupe/old/idev10s.imp: *stck_clock; MSEC = CLOCK>>22&x'ffff' ./chopsupe/old/idev10s.imp: *stck_clock ./chopsupe/old/ibmchopsupe/ichop5s.imp: *stm_0,15,2048(0) ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_0,0(10); *st_0,2112 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *stm_0,15,2048(0) ./chopsupe/old/ibmchopsupe/ichop5s.imp: *stm_0,15,2048(0) ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_0,i ./chopsupe/old/ibmchopsupe/ichop5s.imp: *la_1,; *stm_0,1,120 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *la_1,; *stm_0,1,88 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *la_1,; *stm_0,1,104 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *la_1,; *stm_0,1,112 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *la_1,; *stm_0,1,96 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *stidp_i ./chopsupe/old/ibmchopsupe/ichop5s.imp: *stctl_0,0,i ./chopsupe/old/ibmchopsupe/ichop5s.imp: *lctl_0,1,i ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_1,j; *la_2,24 {18}; ! SSK 1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *sske_2,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ssk_2,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_1,k; *la_2,24 {18}; ! SSK 1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *sske_2,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ssk_2,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *DENT SIZE+CFH_NDISCS*DDENT EX SIZE+CFH_NSLDEVS*SLOT SIZE+SLDEVTAB HDR SIZE+OPERLOG %C ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_1,k; *la_2,16 {10}; ! key 1, read permitted ./chopsupe/old/ibmchopsupe/ichop5s.imp: *sske_2,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ssk_2,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_0,zeropageaddr; *l_1,pagesize; ! clear the zero page at x1000 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *lr_2,0; *slr_3,3; *mvcl_0,2 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ssm_smask ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ssm_smask ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ssm_smask ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ssm_smask ./chopsupe/old/ibmchopsupe/ichop5s.imp: *spt_timer; ! set cpu timer for 1 sec. ./chopsupe/old/ibmchopsupe/ichop5s.imp: *lpsw_wpsw; ! idle ./chopsupe/old/ibmchopsupe/ichop5s.imp: *lpsw_psw ./chopsupe/old/ibmchopsupe/ichop5s.imp: *basr_3,0 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *using_3 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_1,i ./chopsupe/old/ibmchopsupe/ichop5s.imp: *la_2,irb ./chopsupe/old/ibmchopsupe/ichop5s.imp: *tsch_0(2) ./chopsupe/old/ibmchopsupe/ichop5s.imp: *bc_1,; ! failed to get interrupt data ./chopsupe/old/ibmchopsupe/ichop5s.imp: *drop_3 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *lpsw_psw ./chopsupe/old/ibmchopsupe/ichop5s.imp: *lpsw_psw ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_1,k; *la_2,32 {20}; ! SSK 2 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *sske_2,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ssk_2,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_1,k; *la_2,16 {10}; ! SSK 1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *sske_2,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ssk_2,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_1,k; *la_2,24 {18}; ! SSK 1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *sske_2,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ssk_2,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *la_1,0; *la_2,24 {18}; ! SSK 1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *sske_2,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ssk_2,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_1,zeropageaddr; *la_2,16 {10}; ! SSK 1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *sske_2,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ssk_2,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_1,k; *la_2,24 {18}; ! SSK 1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *sske_2,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ssk_2,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *basr_15,0 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *using_15 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *la_1,; *st_1,108; *drop_15 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *st_11,i ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_0,i; *l_1,pagesize; ! clear - pe if off top of store ./chopsupe/old/ibmchopsupe/ichop5s.imp: *lr_2,0; *slr_3,3; *mvcl_0,2 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *alr_0,1; *st_0,i ./chopsupe/old/ibmchopsupe/ichop5s.imp: *lpsw_psw ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_1,i; *la_2,120 {78} ./chopsupe/old/ibmchopsupe/ichop5s.imp: *sske_2,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ssk_2,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_1,i ./chopsupe/old/ibmchopsupe/ichop5s.imp: *iske_0,1; *srl_0,3; *sll_0,3; *sske_0,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *isk_0,1; *srl_0,3; *sll_0,3; *ssk_0,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *isk_0,1; *srl_0,3; *sll_0,3 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ssk_0,1; *la_1,2048(1); *ssk_0,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_1,i; *l_2,j; *lm_11,14,0(1) ./chopsupe/old/ibmchopsupe/ichop5s.imp: *lpsw_0(2); ! enter supervisor ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_0,to; *l_1,len ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_2,from; *lr_3,1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *mvcl_0,2 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_1,len; *l_2,ad; *l_3,i ./chopsupe/old/ibmchopsupe/ichop5s.imp: *la_0,256 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *basr_15,0 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *using_15 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *clr_1,0; *bc_4, ./chopsupe/old/ibmchopsupe/ichop5s.imp: *tr_0(256,2),0(3) ./chopsupe/old/ibmchopsupe/ichop5s.imp: *alr_2,0; *slr_1,0 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *bcr_15,15 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *bctr_1,0; *ex_1, ./chopsupe/old/ibmchopsupe/ichop5s.imp: *drop_15 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_1,len; *l_2,ad; *l_3,i ./chopsupe/old/ibmchopsupe/ichop5s.imp: *la_0,256 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *basr_15,0 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *using_15 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *clr_1,0; *bc_4, ./chopsupe/old/ibmchopsupe/ichop5s.imp: *tr_0(256,2),0(3) ./chopsupe/old/ibmchopsupe/ichop5s.imp: *alr_2,0; *slr_1,0 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *bcr_15,15 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *bctr_1,0; *ex_1, ./chopsupe/old/ibmchopsupe/ichop5s.imp: *drop_15 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *lpsw_psw ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_1,len; *l_2,ad; *l_3,transtabad ./chopsupe/old/ibmchopsupe/ichop5s.imp: *basr_15,0; *using_15 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *bctr_1,0; *ex_1,; *drop_15 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *lpsw_psw ./chopsupe/old/ibmchopsupe/ichop5s.imp: *lm_0,3,pc; *lh_4,2(1) ./chopsupe/old/ibmchopsupe/ichop5s.imp: *lpsw_psw ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_1,ad ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ic_0,j+2; *stc_0,0(1) ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ic_0,j+3; *stc_0,1(1) ./chopsupe/old/ibmchopsupe/ichop5s.imp: *basr_15,0 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *using_15 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *stck_rtc1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *bc_8,; *drop_15 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_2,rtc1; *l_3,rtc2; ./chopsupe/old/ibmchopsupe/ichop5s.imp: *srdl_2,16; *l_4,sec ./chopsupe/old/ibmchopsupe/ichop5s.imp: *dr_2,4; ! to seconds//2 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *st_3,rtc1 ./chopsupe/old/ibmchopsupe/ichop5s.imp:*L _1,AD ./chopsupe/old/ibmchopsupe/ichop5s.imp:*L _2,LEN ./chopsupe/old/ibmchopsupe/ichop5s.imp:*PUT _X'8312'; *PUT _X'0008'; ! DIAGNOSE 1,2,8 - call CP to execute command ./chopsupe/old/ibmchopsupe/ichop5s.imp: *basr_15,0 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *using_15 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_1,i; *l_2,j; *l_3,k ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ex_1, ./chopsupe/old/ibmchopsupe/ichop5s.imp: *drop_15 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *basr_15,0; *using_15 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *sck_l; *bc_8,; *drop_15 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *basr_15,0 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *using_15 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *la_0,; *st_0,i; *drop_15 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *lpsw_psw ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_1,i ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ssch_orb ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ipm_1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *srl_1,28 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *st_1,cc ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_1,i ./chopsupe/old/ibmchopsupe/ichop5s.imp: *sio_0(1) ./chopsupe/old/ibmchopsupe/ichop5s.imp: *balr_1,0 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *sll_1,2 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *srl_1,30 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *st_1,cc ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_1,i ./chopsupe/old/ibmchopsupe/ichop5s.imp: *sio_0(1) ./chopsupe/old/ibmchopsupe/ichop5s.imp: *balr_1,0 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *sll_1,2 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *srl_1,30 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *st_1,acc ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_1,i; *l_2,irb ./chopsupe/old/ibmchopsupe/ichop5s.imp: *tsch_0(2) ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ipm_1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *srl_1,28 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *st_1,cc ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_1,i ./chopsupe/old/ibmchopsupe/ichop5s.imp: *tio_0(1) ./chopsupe/old/ibmchopsupe/ichop5s.imp: *balr_1,0 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *sll_1,2 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *srl_1,30 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *st_1,cc ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_1,i ./chopsupe/old/ibmchopsupe/ichop5s.imp: *tio_0(1) ./chopsupe/old/ibmchopsupe/ichop5s.imp: *balr_1,0 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *sll_1,2 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *srl_1,30 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *st_1,acc ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_1,i ./chopsupe/old/ibmchopsupe/ichop5s.imp: *hsch_I {param is a dummy} ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ipm_1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *srl_1,28 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *st_1,cc ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_1,i ./chopsupe/old/ibmchopsupe/ichop5s.imp: *hio_0(1) ./chopsupe/old/ibmchopsupe/ichop5s.imp: *balr_1,0 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *sll_1,2 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *srl_1,30 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *st_1,cc ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_1,i ./chopsupe/old/ibmchopsupe/ichop5s.imp: *hio_0(1) ./chopsupe/old/ibmchopsupe/ichop5s.imp: *balr_1,0 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *sll_1,2 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *srl_1,30 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *st_1,acc ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_1,i ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_2,schib ./chopsupe/old/ibmchopsupe/ichop5s.imp: *stsch_0(2) ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ipm_1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *srl_1,28 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *st_1,cc ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_1,i ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_2,schib ./chopsupe/old/ibmchopsupe/ichop5s.imp: *msch_0(2) ./chopsupe/old/ibmchopsupe/ichop5s.imp: *ipm_1 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *srl_1,28 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *st_1,cc ./chopsupe/old/ibmchopsupe/ichop5s.imp: *l_1,ccwa; *lra_0,0(1); *st_0,rccwa ./chopsupe/old/ibmchopsupe/ichop5s.imp: *la_1,fcr; *PUT_x'8302'; *PUT_x'1000'; ! feature control reg ./chopsupe/old/ibmchopsupe/ichop5s.imp: *balr_15,0; *using_15 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *la_1,fcr; *PUT_x'8301'; *PUT_x'1000' ./chopsupe/old/ibmchopsupe/ichop5s.imp: *bc_8,; *drop_15 ./chopsupe/old/ibmchopsupe/ichop5s.imp: *lpsw_psw ./chopsupe/old/ibmchopsupe/idev10s.imp: *stck_clock; MSEC = CLOCK>>22&x'ffff' ./chopsupe/old/ibmchopsupe/idev10s.imp: *stck_clock ./eutils/itest1s.imp:*l_1,k; *l_2,i; *ex_0,0(2) ./eutils/itest1s.imp:*balr_1,0; *st_1,i ./eutils/ibmrecode.imp: *ldtb_dr0 ./eutils/ibmrecode.imp: *lda_adr ./eutils/ibmrecode.imp: *val_psr ./eutils/ibmrecode.imp: *jcc_8, ./eutils/ibmrecode.imp: *jcc_4, ./eutils/ibmrecode.imp: *jcc_2, ./eutils/iop3270s.imp: *ipk _0; ! Get current PSW key ./eutils/iop3270s.imp: *st _2,l; ! Save it ./eutils/iop3270s.imp: *spka _0; ! Set key 0 for access ./eutils/iop3270s.imp: *l _2,l; ! Get saved PSW key ./eutils/iop3270s.imp: *spka _0(2); ! Reset key ./eutils/iop3270s.imp: *l_0,j; *l_1,k ./eutils/iop3270s.imp: *lr_2,0; *slr_3,3; *mvcl_0,2; ! clear buffer ./eutils/iop3270s.imp: *ipk _0; ! Get current PSW key ./eutils/iop3270s.imp: *st _2,flag; ! Save it ./eutils/iop3270s.imp: *spka _0; ! Set key 0 for access ./eutils/iop3270s.imp: *l _2,flag; ! Get saved PSW key ./eutils/iop3270s.imp: *spka _0(2); ! Reset key ./eutils/iop3270s.imp: *l_0,i; *l_3,ad ./eutils/iop3270s.imp: *basr_15,0; *using_15 ./eutils/iop3270s.imp: *l_4,trta0; *ltr_4,4; *bc_8,; *ex_1, ./eutils/iop3270s.imp: *l_1,llen1; *ltr_1,1; *bc_12, ./eutils/iop3270s.imp: *lr_2,3; *bctr_2,0; *mvi_0(2),x'4f' ./eutils/iop3270s.imp: *l_2,pica1; *ex_1, ./eutils/iop3270s.imp: *l_4,trta1; *ltr_4,4; *bc_8,; *ex_1, ./eutils/iop3270s.imp: *bct_0,; *drop_15 ./eutils/iop3270s.imp: *st_3,ad ./eutils/iop3270s.imp: *l_1,ad; *mvi_0(1),x'60'; *mvc_1(79,1),0(1) ./eutils/iop3270s.imp: *l_0,i; *l_3,ad; *la_3,80(3) ./eutils/iop3270s.imp: *basr_15,0; *using_15 ./eutils/iop3270s.imp: *l_4,trta2; *ltr_4,4; *bc_8,; *ex_1, ./eutils/iop3270s.imp: *l_1,llen3; *ltr_1,1; *bc_12, ./eutils/iop3270s.imp: *lr_2,3; *bctr_2,0; *mvi_0(2),x'4f' ./eutils/iop3270s.imp: *l_2,pica3; *ex_1, ./eutils/iop3270s.imp: *l_4,trta3; *ltr_4,4; *bc_8,; *ex_1, ./eutils/iop3270s.imp: *bct_0,; *drop_15 ./eutils/iop3270s.imp:*l _0,j ./eutils/iop3270s.imp:*l _1,k ./eutils/iop3270s.imp:*lr _2,0 ./eutils/iop3270s.imp:*la _3,32; ! Space character ./eutils/iop3270s.imp:*sll _3,24 ./eutils/iop3270s.imp:*mvcl _0,2; ! Clear screen buffer to spaces ./eutils/iop3270s.imp: *basr _15,0 ./eutils/iop3270s.imp: *using_15 ./eutils/iop3270s.imp: *l _1,k ./eutils/iop3270s.imp: *l _2,llen ./eutils/iop3270s.imp: *bctr _2,0 ./eutils/iop3270s.imp: *bctr _2,0 ./eutils/iop3270s.imp: *mvi _0(1),x'2d'; ! Minus sign ./eutils/iop3270s.imp: *ex _2, ./eutils/iop3270s.imp: *bc _15, ./eutils/iop3270s.imp: *drop _15 ./eutils/iop3270s.imp: *mvc _1(0,1),0(1) ./eutils/iop3270s.imp: *l _0,sstart ./eutils/iop3270s.imp: *l _1,ssize ./eutils/iop3270s.imp: *lr _2,0 ./eutils/iop3270s.imp: *la _3,32; ! Space character ./eutils/iop3270s.imp: *sll _3,24 ./eutils/iop3270s.imp: *mvcl _0,2 ./eutils/maint24.imp: *lm_0,2,s ./eutils/maint24.imp: *lm_0,1,12(2) ./eutils/maint24.imp: *stm_0,1,lo ./eutils/maint24.imp: *LA_2,W1 ./eutils/maint24.imp: *SRL_2,3 ./eutils/maint24.imp: *SLL_2,3 ./eutils/maint24.imp: *STCK_0(2) ./eutils/maint24.imp: *LM_0,1,0(2) ./eutils/maint24.imp: *SRDL_0,24 ./eutils/maint24.imp: *D_0,JMS ./eutils/maint24.imp: *ST_1,W0 ./eutils/maint24.imp: *BASR_15,0 ./eutils/maint24.imp: *USING_15 ./eutils/maint24.imp: *L_0,j { addr of page } ./eutils/maint24.imp: *LA_1,1 ./eutils/maint24.imp: *SLL_1,12 { length of page } ./eutils/maint24.imp: *LR_2,0 ./eutils/maint24.imp: *SLR_3,3 ./eutils/maint24.imp: *CLCL_0,2 ./eutils/maint24.imp: *BC_8, ./eutils/maint24.imp: *DROP_15 ./eutils/ioper4s.imp: *ipk_0; *st_2,l; *spka_0; ! key 0 ./eutils/ioper4s.imp: *l_2,l; *spka_0(2); ! reset key ./eutils/ioper4s.imp: *l_0,j; *l_1,k ./eutils/ioper4s.imp: *lr_2,0; *slr_3,3; *mvcl_0,2; ! clear buffer ./eutils/ioper4s.imp: *ipk_0; *st_2,flag; *spka_0; ! key 0 ./eutils/ioper4s.imp: *l_2,flag; *spka_0(2); ! restore key ./eutils/ioper4s.imp: *l_0,i; *l_3,ad ./eutils/ioper4s.imp: *basr_15,0; *using_15 ./eutils/ioper4s.imp: *l_4,trta0; *ltr_4,4; *bc_8,; *ex_1, ./eutils/ioper4s.imp: *l_1,llen1; *ltr_1,1; *bc_12, ./eutils/ioper4s.imp: *lr_2,3; *bctr_2,0; *mvi_0(2),x'4f' ./eutils/ioper4s.imp: *l_2,pica1; *ex_1, ./eutils/ioper4s.imp: *l_4,trta1; *ltr_4,4; *bc_8,; *ex_1, ./eutils/ioper4s.imp: *bct_0,; *drop_15 ./eutils/ioper4s.imp: *st_3,ad ./eutils/ioper4s.imp: *l_1,ad; *mvi_0(1),x'60'; *mvc_1(79,1),0(1) ./eutils/ioper4s.imp: *l_0,i; *l_3,ad; *la_3,80(3) ./eutils/ioper4s.imp: *basr_15,0; *using_15 ./eutils/ioper4s.imp: *l_4,trta2; *ltr_4,4; *bc_8,; *ex_1, ./eutils/ioper4s.imp: *l_1,llen3; *ltr_1,1; *bc_12, ./eutils/ioper4s.imp: *lr_2,3; *bctr_2,0; *mvi_0(2),x'4f' ./eutils/ioper4s.imp: *l_2,pica3; *ex_1, ./eutils/ioper4s.imp: *l_4,trta3; *ltr_4,4; *bc_8,; *ex_1, ./eutils/ioper4s.imp: *bct_0,; *drop_15 ./eutils/ioper4s.imp: *l_0,j; *l_1,k ./eutils/ioper4s.imp: *lr_2,0; *slr_3,3; *mvcl_0,2; ! clear screen buffer ./eutils/ioper4s.imp: *basr_15,0; *using_15 ./eutils/ioper4s.imp: *l_1,k; *l_2,llen; *bctr_2,0; *bctr_2,0 ./eutils/ioper4s.imp: *mvi_0(1),x'2e'; *ex_2,; *bc_15,; *drop_15 ./eutils/ioper4s.imp: *l_0,sstart; *l_1,ssize ./eutils/ioper4s.imp: *lr_2,0; *slr_3,3; *mvcl_0,2 ./eutils/trput.imp: *LSS_FROM ./eutils/trput.imp: *LUH_I ./eutils/trput.imp: *LDTB_I ./eutils/trput.imp: *LDA_TO ./eutils/trput.imp: *MV_ %L = %DR ./eutils/trput.imp: *LDTB_I ./eutils/trput.imp: *LDA_FROM ./eutils/trput.imp: *LB_FILLER ./eutils/trput.imp: *MVL_ %L = %DR ./eutils/ichop5s.imp: *stm_0,15,2048(0) ./eutils/ichop5s.imp: *l_0,0(10); *st_0,2112 ./eutils/ichop5s.imp: *stm_0,15,2048(0) ./eutils/ichop5s.imp: *stm_0,15,2048(0) ./eutils/ichop5s.imp: *l_0,i ./eutils/ichop5s.imp: *la_1,; *stm_0,1,120 ./eutils/ichop5s.imp: *la_1,; *stm_0,1,88 ./eutils/ichop5s.imp: *la_1,; *stm_0,1,104 ./eutils/ichop5s.imp: *la_1,; *stm_0,1,112 ./eutils/ichop5s.imp: *la_1,; *stm_0,1,96 ./eutils/ichop5s.imp: *stidp_i ./eutils/ichop5s.imp: *stctl_0,0,i ./eutils/ichop5s.imp: *lctl_0,1,i ./eutils/ichop5s.imp: *l_1,j; *la_2,24 {18}; ! SSK 1 ./eutils/ichop5s.imp: *sske_2,1 ./eutils/ichop5s.imp: *ssk_2,1 ./eutils/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./eutils/ichop5s.imp: *l_1,k; *la_2,24 {18}; ! SSK 1 ./eutils/ichop5s.imp: *sske_2,1 ./eutils/ichop5s.imp: *ssk_2,1 ./eutils/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./eutils/ichop5s.imp: *DENT SIZE+CFH_NDISCS*DDENT EX SIZE+CFH_NSLDEVS*SLOT SIZE+SLDEVTAB HDR SIZE+ %C ./eutils/ichop5s.imp: *l_1,k; *la_2,16 {10}; ! key 1, read permitted ./eutils/ichop5s.imp: *sske_2,1 ./eutils/ichop5s.imp: *ssk_2,1 ./eutils/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./eutils/ichop5s.imp: *stck_i; ! timeeval will report if invalid ./eutils/ichop5s.imp: *l_0,zeropageaddr; *l_1,pagesize; ! clear the zero page at x1000 ./eutils/ichop5s.imp: *lr_2,0; *slr_3,3; *mvcl_0,2 ./eutils/ichop5s.imp: *ssm_smask ./eutils/ichop5s.imp: *ssm_smask ./eutils/ichop5s.imp: *ssm_smask ./eutils/ichop5s.imp: *ssm_smask ./eutils/ichop5s.imp: *spt_timer; ! set cpu timer for 1 sec. ./eutils/ichop5s.imp: *lpsw_wpsw; ! idle ./eutils/ichop5s.imp: *lpsw_psw ./eutils/ichop5s.imp: *basr_3,0 ./eutils/ichop5s.imp: *using_3 ./eutils/ichop5s.imp: *l_1,i ./eutils/ichop5s.imp: *la_2,irb ./eutils/ichop5s.imp: *tsch_0(2) ./eutils/ichop5s.imp: *bc_1,; ! failed to get interrupt data ./eutils/ichop5s.imp: *drop_3 ./eutils/ichop5s.imp: *lpsw_psw ./eutils/ichop5s.imp: *lpsw_psw ./eutils/ichop5s.imp: *l_1,k; *la_2,32 {20}; ! SSK 2 ./eutils/ichop5s.imp: *sske_2,1 ./eutils/ichop5s.imp: *ssk_2,1 ./eutils/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./eutils/ichop5s.imp: *l_1,k; *la_2,16 {10}; ! SSK 1 ./eutils/ichop5s.imp: *sske_2,1 ./eutils/ichop5s.imp: *ssk_2,1 ./eutils/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./eutils/ichop5s.imp: *l_1,k; *la_2,24 {18}; ! SSK 1 ./eutils/ichop5s.imp: *sske_2,1 ./eutils/ichop5s.imp: *ssk_2,1 ./eutils/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./eutils/ichop5s.imp: *la_1,0; *la_2,24 {18}; ! SSK 1 ./eutils/ichop5s.imp: *sske_2,1 ./eutils/ichop5s.imp: *ssk_2,1 ./eutils/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./eutils/ichop5s.imp: *l_1,zeropageaddr; *la_2,16 {10}; ! SSK 1 ./eutils/ichop5s.imp: *sske_2,1 ./eutils/ichop5s.imp: *ssk_2,1 ./eutils/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./eutils/ichop5s.imp: *l_1,k; *la_2,24 {18}; ! SSK 1 ./eutils/ichop5s.imp: *sske_2,1 ./eutils/ichop5s.imp: *ssk_2,1 ./eutils/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./eutils/ichop5s.imp: *basr_15,0 ./eutils/ichop5s.imp: *using_15 ./eutils/ichop5s.imp: *la_1,; *st_1,108; *drop_15 ./eutils/ichop5s.imp: *st_11,i ./eutils/ichop5s.imp: *l_0,i; *l_1,pagesize; ! clear - pe if off top of store ./eutils/ichop5s.imp: *lr_2,0; *slr_3,3; *mvcl_0,2 ./eutils/ichop5s.imp: *lpsw_psw ./eutils/ichop5s.imp: *l_1,i; *la_2,120 {78} ./eutils/ichop5s.imp: *sske_2,1 ./eutils/ichop5s.imp: *ssk_2,1 ./eutils/ichop5s.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./eutils/ichop5s.imp: *l_1,i ./eutils/ichop5s.imp: *iske_0,1; *srl_0,3; *sll_0,3; *sske_0,1 ./eutils/ichop5s.imp: *isk_0,1; *srl_0,3; *sll_0,3; *ssk_0,1 ./eutils/ichop5s.imp: *isk_0,1; *srl_0,3; *sll_0,3 ./eutils/ichop5s.imp: *ssk_0,1; *la_1,2048(1); *ssk_0,1 ./eutils/ichop5s.imp: *l_1,i; *l_2,j; *lm_11,14,0(1) ./eutils/ichop5s.imp: *lpsw_0(2); ! enter supervisor ./eutils/ichop5s.imp: *l_0,to; *l_1,len ./eutils/ichop5s.imp: *l_2,from; *lr_3,1 ./eutils/ichop5s.imp: *mvcl_0,2 ./eutils/ichop5s.imp: *l_1,len; *l_2,ad; *l_3,i ./eutils/ichop5s.imp: *la_0,256 ./eutils/ichop5s.imp: *basr_15,0 ./eutils/ichop5s.imp: *using_15 ./eutils/ichop5s.imp: *clr_1,0; *bc_4, ./eutils/ichop5s.imp: *tr_0(256,2),0(3) ./eutils/ichop5s.imp: *alr_2,0; *slr_1,0 ./eutils/ichop5s.imp: *bcr_15,15 ./eutils/ichop5s.imp: *bctr_1,0; *ex_1, ./eutils/ichop5s.imp: *drop_15 ./eutils/ichop5s.imp: *l_1,len; *l_2,ad; *l_3,i ./eutils/ichop5s.imp: *la_0,256 ./eutils/ichop5s.imp: *basr_15,0 ./eutils/ichop5s.imp: *using_15 ./eutils/ichop5s.imp: *clr_1,0; *bc_4, ./eutils/ichop5s.imp: *tr_0(256,2),0(3) ./eutils/ichop5s.imp: *alr_2,0; *slr_1,0 ./eutils/ichop5s.imp: *bcr_15,15 ./eutils/ichop5s.imp: *bctr_1,0; *ex_1, ./eutils/ichop5s.imp: *drop_15 ./eutils/ichop5s.imp: *lpsw_psw ./eutils/ichop5s.imp: *l_1,len; *l_2,ad; *l_3,transtabad ./eutils/ichop5s.imp: *basr_15,0; *using_15 ./eutils/ichop5s.imp: *bctr_1,0; *ex_1,; *drop_15 ./eutils/ichop5s.imp: *lpsw_psw ./eutils/ichop5s.imp: *lm_0,3,pc; *lh_4,2(1) ./eutils/ichop5s.imp: *lpsw_psw ./eutils/ichop5s.imp: *l_1,ad ./eutils/ichop5s.imp: *ic_0,j+2; *stc_0,0(1) ./eutils/ichop5s.imp: *ic_0,j+3; *stc_0,1(1) ./eutils/ichop5s.imp: *basr_15,0 ./eutils/ichop5s.imp: *using_15 ./eutils/ichop5s.imp: *stck_rtc1 ./eutils/ichop5s.imp: *bc_8,; *drop_15 ./eutils/ichop5s.imp: *l_2,rtc1; *l_3,rtc2; ./eutils/ichop5s.imp: *srdl_2,16; *l_4,sec ./eutils/ichop5s.imp: *dr_2,4; ! to seconds//2 ./eutils/ichop5s.imp: *st_3,rtc1 ./eutils/ichop5s.imp: *basr_15,0 ./eutils/ichop5s.imp: *using_15 ./eutils/ichop5s.imp: *l_1,i; *l_2,j; *l_3,k ./eutils/ichop5s.imp: *ex_1, ./eutils/ichop5s.imp: *drop_15 ./eutils/ichop5s.imp: *basr_15,0; *using_15 ./eutils/ichop5s.imp: *sck_l; *bc_8,; *drop_15 ./eutils/ichop5s.imp: *basr_15,0 ./eutils/ichop5s.imp: *using_15 ./eutils/ichop5s.imp: *la_0,; *st_0,i; *drop_15 ./eutils/ichop5s.imp: *lpsw_psw ./eutils/ichop5s.imp: *l_1,i ./eutils/ichop5s.imp: *ssch_orb ./eutils/ichop5s.imp: *ipm_1 ./eutils/ichop5s.imp: *srl_1,28 ./eutils/ichop5s.imp: *st_1,cc ./eutils/ichop5s.imp: *l_1,i ./eutils/ichop5s.imp: *sio_0(1) ./eutils/ichop5s.imp: *balr_1,0 ./eutils/ichop5s.imp: *sll_1,2 ./eutils/ichop5s.imp: *srl_1,30 ./eutils/ichop5s.imp: *st_1,cc ./eutils/ichop5s.imp: *l_1,i ./eutils/ichop5s.imp: *sio_0(1) ./eutils/ichop5s.imp: *balr_1,0 ./eutils/ichop5s.imp: *sll_1,2 ./eutils/ichop5s.imp: *srl_1,30 ./eutils/ichop5s.imp: *st_1,acc ./eutils/ichop5s.imp: *l_1,i; *l_2,irb ./eutils/ichop5s.imp: *tsch_0(2) ./eutils/ichop5s.imp: *ipm_1 ./eutils/ichop5s.imp: *srl_1,28 ./eutils/ichop5s.imp: *st_1,cc ./eutils/ichop5s.imp: *l_1,i ./eutils/ichop5s.imp: *tio_0(1) ./eutils/ichop5s.imp: *balr_1,0 ./eutils/ichop5s.imp: *sll_1,2 ./eutils/ichop5s.imp: *srl_1,30 ./eutils/ichop5s.imp: *st_1,cc ./eutils/ichop5s.imp: *l_1,i ./eutils/ichop5s.imp: *tio_0(1) ./eutils/ichop5s.imp: *balr_1,0 ./eutils/ichop5s.imp: *sll_1,2 ./eutils/ichop5s.imp: *srl_1,30 ./eutils/ichop5s.imp: *st_1,acc ./eutils/ichop5s.imp: *l_1,i ./eutils/ichop5s.imp: *hsch_I {param is a dummy} ./eutils/ichop5s.imp: *ipm_1 ./eutils/ichop5s.imp: *srl_1,28 ./eutils/ichop5s.imp: *st_1,cc ./eutils/ichop5s.imp: *l_1,i ./eutils/ichop5s.imp: *hio_0(1) ./eutils/ichop5s.imp: *balr_1,0 ./eutils/ichop5s.imp: *sll_1,2 ./eutils/ichop5s.imp: *srl_1,30 ./eutils/ichop5s.imp: *st_1,cc ./eutils/ichop5s.imp: *l_1,i ./eutils/ichop5s.imp: *hio_0(1) ./eutils/ichop5s.imp: *balr_1,0 ./eutils/ichop5s.imp: *sll_1,2 ./eutils/ichop5s.imp: *srl_1,30 ./eutils/ichop5s.imp: *st_1,acc ./eutils/ichop5s.imp: *l_1,i ./eutils/ichop5s.imp: *l_2,schib ./eutils/ichop5s.imp: *stsch_0(2) ./eutils/ichop5s.imp: *ipm_1 ./eutils/ichop5s.imp: *srl_1,28 ./eutils/ichop5s.imp: *st_1,cc ./eutils/ichop5s.imp: *l_1,i ./eutils/ichop5s.imp: *l_2,schib ./eutils/ichop5s.imp: *msch_0(2) ./eutils/ichop5s.imp: *ipm_1 ./eutils/ichop5s.imp: *srl_1,28 ./eutils/ichop5s.imp: *st_1,cc ./eutils/ichop5s.imp: *l_1,ccwa; *lra_0,0(1); *st_0,rccwa ./eutils/ichop5s.imp: *la_1,fcr; *PUT_x'8302'; *PUT_x'1000'; ! feature control reg ./eutils/ichop5s.imp: *balr_15,0; *using_15 ./eutils/ichop5s.imp: *la_1,fcr; *PUT_x'8301'; *PUT_x'1000' ./eutils/ichop5s.imp: *bc_8,; *drop_15 ./eutils/ichop5s.imp: *lpsw_psw ./eutils/oper38s.imp: *INCT_CCTSEMA ./eutils/oper38s.imp: *JCC_8, ./eutils/oper38s.imp: *J_%TOS ./eutils/oper38s.imp: *J_%TOS ./eutils/oper38s.imp: *JLK_; ! last or only fragment ./eutils/oper38s.imp: *JLK_; ! any remaining fragments ./eutils/oper38s.imp: *JLK_ ./eutils/oper38s.imp: *INCT_CCTSEMA ./eutils/oper38s.imp: *JCC_8, ./eutils/ichop6cs.imp: *stm_0,15,2048(0) ./eutils/ichop6cs.imp: *l_0,0(10); *st_0,2112 ./eutils/ichop6cs.imp: *stm_0,15,2048(0) ./eutils/ichop6cs.imp: *stm_0,15,2048(0) ./eutils/ichop6cs.imp: *l_0,i ./eutils/ichop6cs.imp: *la_1,; *stm_0,1,120 ./eutils/ichop6cs.imp: *la_1,; *stm_0,1,88 ./eutils/ichop6cs.imp: *la_1,; *stm_0,1,104 ./eutils/ichop6cs.imp: *la_1,; *stm_0,1,112 ./eutils/ichop6cs.imp: *la_1,; *stm_0,1,96 ./eutils/ichop6cs.imp: *stidp_i ./eutils/ichop6cs.imp: *stctl_0,0,i ./eutils/ichop6cs.imp: *lctl_0,1,i ./eutils/ichop6cs.imp: *l_1,j; *la_2,24 {18}; ! SSK 1 ./eutils/ichop6cs.imp: *sske_2,1 ./eutils/ichop6cs.imp: *ssk_2,1 ./eutils/ichop6cs.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./eutils/ichop6cs.imp: *l_1,k; *la_2,24 {18}; ! SSK 1 ./eutils/ichop6cs.imp: *sske_2,1 ./eutils/ichop6cs.imp: *ssk_2,1 ./eutils/ichop6cs.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./eutils/ichop6cs.imp: *DENT SIZE+CFH_NDISCS*DDENT EX SIZE+CFH_NSLDEVS*SLOT SIZE+SLDEVTAB HDR SIZE+ %C ./eutils/ichop6cs.imp: *l_1,k; *la_2,16 {10}; ! key 1, read permitted ./eutils/ichop6cs.imp: *sske_2,1 ./eutils/ichop6cs.imp: *ssk_2,1 ./eutils/ichop6cs.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./eutils/ichop6cs.imp: *stck_i; ! timeeval will report if invalid ./eutils/ichop6cs.imp: *stap_MYPORT ./eutils/ichop6cs.imp: *l_0,zeropageaddr; *l_1,pagesize; ! clear the zero page at x1000 ./eutils/ichop6cs.imp: *lr_2,0; *slr_3,3; *mvcl_0,2 ./eutils/ichop6cs.imp: *ssm_smask ./eutils/ichop6cs.imp: *ssm_smask ./eutils/ichop6cs.imp: *ssm_smask ./eutils/ichop6cs.imp: *ssm_smask ./eutils/ichop6cs.imp: *spt_timer; ! set cpu timer for 1 sec. ./eutils/ichop6cs.imp: *lpsw_wpsw; ! idle ./eutils/ichop6cs.imp: *lpsw_psw ./eutils/ichop6cs.imp: *basr_3,0 ./eutils/ichop6cs.imp: *using_3 ./eutils/ichop6cs.imp: *l_1,i ./eutils/ichop6cs.imp: *la_2,irb ./eutils/ichop6cs.imp: *tsch_0(2) ./eutils/ichop6cs.imp: *bc_1,; ! failed to get interrupt data ./eutils/ichop6cs.imp: *drop_3 ./eutils/ichop6cs.imp: *lpsw_psw ./eutils/ichop6cs.imp: *lpsw_psw ./eutils/ichop6cs.imp: *l_1,k; *la_2,32 {20}; ! SSK 2 ./eutils/ichop6cs.imp: *sske_2,1 ./eutils/ichop6cs.imp: *ssk_2,1 ./eutils/ichop6cs.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./eutils/ichop6cs.imp: *l_1,k; *la_2,16 {10}; ! SSK 1 ./eutils/ichop6cs.imp: *sske_2,1 ./eutils/ichop6cs.imp: *ssk_2,1 ./eutils/ichop6cs.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./eutils/ichop6cs.imp: *l_1,k; *la_2,24 {18}; ! SSK 1 ./eutils/ichop6cs.imp: *sske_2,1 ./eutils/ichop6cs.imp: *ssk_2,1 ./eutils/ichop6cs.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./eutils/ichop6cs.imp: *l_1,k; *la_2,24 {18}; ! SSK 1 ./eutils/ichop6cs.imp: *sske_2,1 ./eutils/ichop6cs.imp: *ssk_2,1 ./eutils/ichop6cs.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./eutils/ichop6cs.imp: *la_1,0; *la_2,24 {18}; ! SSK 1 ./eutils/ichop6cs.imp: *sske_2,1 ./eutils/ichop6cs.imp: *ssk_2,1 ./eutils/ichop6cs.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./eutils/ichop6cs.imp: *l_1,zeropageaddr; *la_2,16 {10}; ! SSK 1 ./eutils/ichop6cs.imp: *sske_2,1 ./eutils/ichop6cs.imp: *ssk_2,1 ./eutils/ichop6cs.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./eutils/ichop6cs.imp: *l_1,k; *la_2,24 {18}; ! SSK 1 ./eutils/ichop6cs.imp: *sske_2,1 ./eutils/ichop6cs.imp: *ssk_2,1 ./eutils/ichop6cs.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./eutils/ichop6cs.imp: *basr_15,0 ./eutils/ichop6cs.imp: *using_15 ./eutils/ichop6cs.imp: *la_1,; *st_1,108; *drop_15 ./eutils/ichop6cs.imp: *st_11,i ./eutils/ichop6cs.imp: *l_0,i; *l_1,pagesize; ! clear - pe if off top of store ./eutils/ichop6cs.imp: *lr_2,0; *slr_3,3; *mvcl_0,2 ./eutils/ichop6cs.imp: *lpsw_psw ./eutils/ichop6cs.imp: *l_1,i; *la_2,120 {78} ./eutils/ichop6cs.imp: *sske_2,1 ./eutils/ichop6cs.imp: *ssk_2,1 ./eutils/ichop6cs.imp: *ssk_2,1; *la_1,2048(1); *ssk_2,1 ./eutils/ichop6cs.imp: *l_1,i ./eutils/ichop6cs.imp: *iske_0,1; *srl_0,3; *sll_0,3; *sske_0,1 ./eutils/ichop6cs.imp: *isk_0,1; *srl_0,3; *sll_0,3; *ssk_0,1 ./eutils/ichop6cs.imp: *isk_0,1; *srl_0,3; *sll_0,3 ./eutils/ichop6cs.imp: *ssk_0,1; *la_1,2048(1); *ssk_0,1 ./eutils/ichop6cs.imp: *l_1,i; *l_2,j; *lm_11,14,0(1) ./eutils/ichop6cs.imp: *lpsw_0(2); ! enter supervisor ./eutils/ichop6cs.imp: *SR_0,0; *LM_1,4,Param ./eutils/ichop6cs.imp: *SIGP_0,2,0(3) ./eutils/ichop6cs.imp: *ST_0,0(4); ! into status ./eutils/ichop6cs.imp: *IPM_1; *SRL_1,28(0); *st_1,CC ./eutils/ichop6cs.imp: *l_0,to; *l_1,len ./eutils/ichop6cs.imp: *l_2,from; *lr_3,1 ./eutils/ichop6cs.imp: *mvcl_0,2 ./eutils/ichop6cs.imp: *l_1,len; *l_2,ad; *l_3,i ./eutils/ichop6cs.imp: *la_0,256 ./eutils/ichop6cs.imp: *basr_15,0 ./eutils/ichop6cs.imp: *using_15 ./eutils/ichop6cs.imp: *clr_1,0; *bc_4, ./eutils/ichop6cs.imp: *tr_0(256,2),0(3) ./eutils/ichop6cs.imp: *alr_2,0; *slr_1,0 ./eutils/ichop6cs.imp: *bcr_15,15 ./eutils/ichop6cs.imp: *bctr_1,0; *ex_1, ./eutils/ichop6cs.imp: *drop_15 ./eutils/ichop6cs.imp: *l_1,len; *l_2,ad; *l_3,i ./eutils/ichop6cs.imp: *la_0,256 ./eutils/ichop6cs.imp: *basr_15,0 ./eutils/ichop6cs.imp: *using_15 ./eutils/ichop6cs.imp: *clr_1,0; *bc_4, ./eutils/ichop6cs.imp: *tr_0(256,2),0(3) ./eutils/ichop6cs.imp: *alr_2,0; *slr_1,0 ./eutils/ichop6cs.imp: *bcr_15,15 ./eutils/ichop6cs.imp: *bctr_1,0; *ex_1, ./eutils/ichop6cs.imp: *drop_15 ./eutils/ichop6cs.imp: *lpsw_psw ./eutils/ichop6cs.imp: *l_1,len; *l_2,ad; *l_3,transtabad ./eutils/ichop6cs.imp: *basr_15,0; *using_15 ./eutils/ichop6cs.imp: *bctr_1,0; *ex_1,; *drop_15 ./eutils/ichop6cs.imp: *lpsw_psw ./eutils/ichop6cs.imp: *lm_0,3,pc; *lh_4,2(1) ./eutils/ichop6cs.imp: *lpsw_psw ./eutils/ichop6cs.imp: *l_1,ad ./eutils/ichop6cs.imp: *ic_0,j+2; *stc_0,0(1) ./eutils/ichop6cs.imp: *ic_0,j+3; *stc_0,1(1) ./eutils/ichop6cs.imp: *basr_15,0 ./eutils/ichop6cs.imp: *using_15 ./eutils/ichop6cs.imp: *stck_rtc1 ./eutils/ichop6cs.imp: *bc_8,; *drop_15 ./eutils/ichop6cs.imp: *l_2,rtc1; *l_3,rtc2; ./eutils/ichop6cs.imp: *srdl_2,16; *l_4,sec ./eutils/ichop6cs.imp: *dr_2,4; ! to seconds//2 ./eutils/ichop6cs.imp: *st_3,rtc1 ./eutils/ichop6cs.imp: *basr_15,0 ./eutils/ichop6cs.imp: *using_15 ./eutils/ichop6cs.imp: *l_1,i; *l_2,j; *l_3,k ./eutils/ichop6cs.imp: *ex_1, ./eutils/ichop6cs.imp: *drop_15 ./eutils/ichop6cs.imp: *basr_15,0; *using_15 ./eutils/ichop6cs.imp: *sck_l; *bc_8,; *drop_15 ./eutils/ichop6cs.imp: *basr_15,0 ./eutils/ichop6cs.imp: *using_15 ./eutils/ichop6cs.imp: *la_0,; *st_0,i; *drop_15 ./eutils/ichop6cs.imp: *lpsw_psw ./eutils/ichop6cs.imp: *l_1,i ./eutils/ichop6cs.imp: *ssch_orb ./eutils/ichop6cs.imp: *ipm_1 ./eutils/ichop6cs.imp: *srl_1,28 ./eutils/ichop6cs.imp: *st_1,cc ./eutils/ichop6cs.imp: *l_1,i ./eutils/ichop6cs.imp: *sio_0(1) ./eutils/ichop6cs.imp: *balr_1,0 ./eutils/ichop6cs.imp: *sll_1,2 ./eutils/ichop6cs.imp: *srl_1,30 ./eutils/ichop6cs.imp: *st_1,cc ./eutils/ichop6cs.imp: *l_1,i ./eutils/ichop6cs.imp: *sio_0(1) ./eutils/ichop6cs.imp: *balr_1,0 ./eutils/ichop6cs.imp: *sll_1,2 ./eutils/ichop6cs.imp: *srl_1,30 ./eutils/ichop6cs.imp: *st_1,acc ./eutils/ichop6cs.imp: *l_1,i; *l_2,irb ./eutils/ichop6cs.imp: *tsch_0(2) ./eutils/ichop6cs.imp: *ipm_1 ./eutils/ichop6cs.imp: *srl_1,28 ./eutils/ichop6cs.imp: *st_1,cc ./eutils/ichop6cs.imp: *l_1,i ./eutils/ichop6cs.imp: *tio_0(1) ./eutils/ichop6cs.imp: *balr_1,0 ./eutils/ichop6cs.imp: *sll_1,2 ./eutils/ichop6cs.imp: *srl_1,30 ./eutils/ichop6cs.imp: *st_1,cc ./eutils/ichop6cs.imp: *l_1,i ./eutils/ichop6cs.imp: *tio_0(1) ./eutils/ichop6cs.imp: *balr_1,0 ./eutils/ichop6cs.imp: *sll_1,2 ./eutils/ichop6cs.imp: *srl_1,30 ./eutils/ichop6cs.imp: *st_1,acc ./eutils/ichop6cs.imp: *l_1,i ./eutils/ichop6cs.imp: *hsch_I {param is a dummy} ./eutils/ichop6cs.imp: *ipm_1 ./eutils/ichop6cs.imp: *srl_1,28 ./eutils/ichop6cs.imp: *st_1,cc ./eutils/ichop6cs.imp: *l_1,i ./eutils/ichop6cs.imp: *hio_0(1) ./eutils/ichop6cs.imp: *balr_1,0 ./eutils/ichop6cs.imp: *sll_1,2 ./eutils/ichop6cs.imp: *srl_1,30 ./eutils/ichop6cs.imp: *st_1,cc ./eutils/ichop6cs.imp: *l_1,i ./eutils/ichop6cs.imp: *hio_0(1) ./eutils/ichop6cs.imp: *balr_1,0 ./eutils/ichop6cs.imp: *sll_1,2 ./eutils/ichop6cs.imp: *srl_1,30 ./eutils/ichop6cs.imp: *st_1,acc ./eutils/ichop6cs.imp: *L_1,i ./eutils/ichop6cs.imp: *CSCH_0(0) ./eutils/ichop6cs.imp: *IPM_1 ./eutils/ichop6cs.imp: *SRL_1,28 ./eutils/ichop6cs.imp: *ST_1,cc ./eutils/ichop6cs.imp: *l_1,i ./eutils/ichop6cs.imp: *l_2,schib ./eutils/ichop6cs.imp: *stsch_0(2) ./eutils/ichop6cs.imp: *ipm_1 ./eutils/ichop6cs.imp: *srl_1,28 ./eutils/ichop6cs.imp: *st_1,cc ./eutils/ichop6cs.imp: *l_1,i ./eutils/ichop6cs.imp: *l_2,schib ./eutils/ichop6cs.imp: *msch_0(2) ./eutils/ichop6cs.imp: *ipm_1 ./eutils/ichop6cs.imp: *srl_1,28 ./eutils/ichop6cs.imp: *st_1,cc ./eutils/ichop6cs.imp: *l_1,ccwa; *lra_0,0(1); *st_0,rccwa ./eutils/ichop6cs.imp: *la_1,fcr; *PUT_x'8302'; *PUT_x'1000'; ! feature control reg ./eutils/ichop6cs.imp: *balr_15,0; *using_15 ./eutils/ichop6cs.imp: *la_1,fcr; *PUT_x'8301'; *PUT_x'1000' ./eutils/ichop6cs.imp: *bc_8,; *drop_15 ./eutils/ichop6cs.imp: *lpsw_psw ./eutils/indiag2s.imp: *la_1,; *st_1,i ./eutils/indiag2s.imp: *l_1,i; *l_2,regs; *mvc_0(100,2),0(1) ./eutils/indiag2s.imp: *l_2,l; *mvc_0(64,2),0(1) ./eutils/indiag2s.imp: *l_2,regs; *mvc_0(64,2),0(10) ./eutils/indiag2s.imp: *mvc_2056(64,0),0(10); ! for dump print ./eutils/indiag2s.imp: *stctl_0,15,2152(0) ./eutils/indiag2s.imp: *ipk_0; *st_2,pswk; *spka_0; ! key 0 ./eutils/indiag2s.imp: *st_1,i; *l_1,myregs; *stm_0,15,0(1) ./eutils/indiag2s.imp: *stctl_1,1,i ./eutils/indiag2s.imp: *lpsw_psw ./eutils/indiag2s.imp: *l_2,pswk; *spka_0(2); ! reset key ./eutils/indiag2s.imp: *lpsw_2224(0); ! set up by supervisor ./eutils/indiag2s.imp: *lpsw_psw ./eutils/indiag2s.imp: *basr_15,0; *using_15 ./eutils/indiag2s.imp: *l_1,n; *lra_0,0(1); *bc_8, ./eutils/indiag2s.imp: *drop_15 ./eutils/rand01s.imp: *l_1,rconst; *m_0,mult; *st_1,rconst ./eutils/goodies.imp: *basr_0,0; *st_0,pc ./eutils/goodies.imp: *st_10,lnb ./eutils/idev7s.imp: *basr_15,0 ./eutils/idev7s.imp: *using_15 ./eutils/idev7s.imp: *l_1,cuu ./eutils/idev7s.imp: *tch_0(1) ./eutils/idev7s.imp: *bc_8, ./eutils/idev7s.imp: *bc_2, ./eutils/idev7s.imp: *bc_4, ./eutils/idev7s.imp: *drop_15 ./eutils/ienter2s.imp: *sckc_sos timer; ! maximum ./eutils/ienter2s.imp: *basr_15,0; *using_15 ./eutils/ienter2s.imp: *la_0,; *st_0,i; *la_0,; *st_0,count; *drop_15 ./eutils/ienter2s.imp: *spt_sos timer ./eutils/ienter2s.imp: *stosm_i,1; ! allow external ints. ./eutils/ienter2s.imp: *spt_sos timer ./eutils/ienter2s.imp: *stosm_i,1 ./eutils/ienter2s.imp: *spt_hsec ./eutils/ienter2s.imp: *lpsw_wpsw ./eutils/ienter2s.imp: *basr_15,0; *using_15 ./eutils/ienter2s.imp: *la_0,; *st_0,i; *drop_15 ./eutils/ienter2s.imp: *stosm_i,2; ! allow I/O ints. ./eutils/ienter2s.imp: *stnsm_i,x'fd'; ! mask I/O ints. ./eutils/ienter2s.imp: *basr_1,0; *using_1; ! set up restart PSWs ./eutils/ienter2s.imp: *la_2,; *st_2,i; *drop_1 ./eutils/ienter2s.imp: *stm_10,14,560 {rca}; ! my context ./eutils/ienter2s.imp: *la_0,238 {EE}; *st_0,2116(0) ./eutils/ienter2s.imp: *lpsw_2112 ./ftrans/newstdiags.imp: *L_15,pc ./ftrans/newstdiags.imp: *L_2,lnbabove ./ftrans/newstdiags.imp: *LM_0,1,par1 ./ftrans/newstdiags.imp: *LM_4,14,16(2) ./ftrans/newstdiags.imp: *BCR_15,15 ./ftrans/newstdiags.imp: *st_10,j ./ftrans/newstdiags.imp: *L_1,lnb ./ftrans/newstdiags.imp: *LM_4,15,16(1); !restore regs ./ftrans/newstdiags.imp: *BCR_15,15 ./ftrans/newstdiags.imp: *st_11,my11 ./ftrans/newstdiags.imp: *l_1,com36 ./ftrans/newstdiags.imp: *LM_4,15,16(1); !restore regs ./ftrans/newstdiags.imp: *BCR_15,15 ./ftrans/newstdiags.imp: *bas_1, ./ftrans/newstdiags.imp: *st_1,pc3 ./ftrans/newstdiags.imp: *l_1,context3 ./ftrans/newstdiags.imp: *stm_4,14,24(1) ./ftrans/newstdiags.imp: *bas_1, ./ftrans/newstdiags.imp: *st_1,pc3 ./ftrans/newstdiags.imp: *l_1,diagscontext ./ftrans/newstdiags.imp: *stm_4,14,24(1) ./ftrans/newstdiags.imp: *st_11,diagsbase; !base address for diagnostics ./ftrans/ft.imp: *stln_temp; !TO ALLOW NDIAGS TO EXIT FROM CONTROL ./ftrans/ft.imp: *st_10,temp ./ftrans/ft.imp: *stln_temp; !TO ALLOW NDIAGS TO EXIT FROM CONTROL ./ftrans/ft.imp: *st_9,temp ./ftrans/ft.imp: *ldtb_x'18000000' ./ftrans/ft.imp: *ldb_length ./ftrans/ft.imp: *lda_from ./ftrans/ft.imp: *cyd_0 ./ftrans/ft.imp: *lda_to ./ftrans/ft.imp: *mv_%l=%dr ./ftrans/ft.imp: *LDTB_FTPr0 ./ftrans/ft.imp: *LDA_FTPr1 ./ftrans/ft.imp: *LB_10 ./ftrans/ft.imp: *PUT_x'A300' ./ftrans/ft.imp: *JCC_8, ./ftrans/ft.imp: *MODD_1 ./ftrans/ft.imp: *STD_FTPr0 ./ftrans/iocp.imp: *ld_dr ./ftrans/iocp.imp: *val_(%lnb+1) ./ftrans/iocp.imp: *jcc_8, ./ftrans/iocp.imp: *jcc_4, ./ftrans/iocp.imp: *jcc_2, ./ftrans/iocp.imp: *lb_l ./ftrans/iocp.imp: *ldtb_x'18000000' ./ftrans/iocp.imp: *ldb_%b ./ftrans/iocp.imp: *lda_ad ./ftrans/iocp.imp: *lss_j ./ftrans/iocp.imp: *luh_x'18000100' ./ftrans/iocp.imp: *ttr_%l=%dr ./ftrans/iocp.imp: *lb_l ./ftrans/iocp.imp: *ldtb_x'18000000' ./ftrans/iocp.imp: *ldb_%b ./ftrans/iocp.imp: *lda_ad ./ftrans/iocp.imp: *lss_j ./ftrans/iocp.imp: *luh_x'18000100' ./ftrans/iocp.imp: *ttr_%l=%dr ./ftrans/iocp.imp: *ldtb_x'18000000' ./ftrans/iocp.imp: *ldb_length ; *lda_from ./ftrans/iocp.imp: *cyd_0 ; *lda_to ./ftrans/iocp.imp: *mv_%l=%dr ./ftrans/iocp.imp: *lb_length ./ftrans/iocp.imp: *ldtb_x'18000000' ./ftrans/iocp.imp: *ldb_%b ./ftrans/iocp.imp: *lda_from ./ftrans/iocp.imp: *lb_filler ./ftrans/iocp.imp: *mvl_%l=%dr ./ftrans/iocp.imp: *lss_n; *cdec_0 ./ftrans/iocp.imp: *ld_s; *inca_1; ! PAST LENGTH BYTE ./ftrans/iocp.imp: *cpb_%b; ! SET CC=0 ./ftrans/iocp.imp: *supk_%l=15,0,32; ! UNPACK 15 DIGITS SPACE FILL ./ftrans/iocp.imp: *std_d2; ! FINAL DR FOR LENGTH CALCS ./ftrans/iocp.imp: *jcc_8,; ! N=0 CASE ./ftrans/iocp.imp: *lsd_%tos; *st_d0; ! SIGN DESCRIPTOR STKED BY SUPK ./ftrans/iocp.imp: *ld_s; *inca_1 ./ftrans/iocp.imp: *mvl_%l=15,15,48; ! FORCE IN ISO ZONE CODES ./ftrans/iocp.imp: *lss_value; *cdec_0 ./ftrans/iocp.imp: *ld_s; *inca_1; *std_%tos ./ftrans/iocp.imp: *cpb_%b; ! SET CC=0 ./ftrans/iocp.imp: *supk_%l=15,0,32; ! UNPACK & SPACE FILL ./ftrans/iocp.imp: *std_d2; *jcc_8, ./ftrans/iocp.imp: *ld_%tos; *std_d0; ! FOR SIGN INSERTION ./ftrans/iocp.imp: *ld_%tos ./ftrans/iocp.imp: *mvl_%l=15,63,0; ! FORCE ISO ZONE CODES ./ftrans/iocp.imp: *ld_s; *lss_places; *st_(%dr) ./ftrans/iocp.imp: *inca_1; *std_%tos; *std_%tos ./ftrans/iocp.imp: *lss_value; *luh_0; *ush_i ./ftrans/iocp.imp: *mpsr_x'24'; ! SET CC=1 ./ftrans/iocp.imp: *supk_%l=8 ./ftrans/iocp.imp: *ld_%tos; *ands_%l=8,0,15; ! THROW AWAY ZONE CODES ./ftrans/iocp.imp: *lss_hex+4; *luh_x'18000010' ./ftrans/iocp.imp: *ld_%tos; *ttr_%l=8 ./ftrans/iocp.imp: *lda_start; !CHECK IF SAME AS PREVIOUS LINE ./ftrans/iocp.imp: *ldtb_x'18000020' ./ftrans/iocp.imp: *cyd_0 ./ftrans/iocp.imp: *inca_-32 ./ftrans/iocp.imp: *cps_ %l = %dr ./ftrans/iocp.imp: *jcc_7, < printline > ./ftrans/iocp.imp: *ldtb_x'18000020' ./ftrans/iocp.imp: *lda_start ./ftrans/iocp.imp: *cyd_0 ./ftrans/iocp.imp: *lda_j ./ftrans/iocp.imp: *mv_%l=%dr ./ftrans/iocp.imp: *lb_32 ./ftrans/iocp.imp: *ldtb_x'18000000' ./ftrans/iocp.imp: *ldb_%b ./ftrans/iocp.imp: *lda_j ./ftrans/iocp.imp: *lss_i ./ftrans/iocp.imp: *luh_x'18000100' ./ftrans/iocp.imp: *ttr_%l=%dr ./subsystem/new/s01s.imp: *mvc_64(28,11),64(10) ./subsystem/new/s01s.imp: *l_1,epad ./subsystem/new/s01s.imp: *stm_4,14,16(11) ./subsystem/new/s01s.imp: *lm_12,14,0(1) ./subsystem/new/s01s.imp: *basr_15,14 ./subsystem/new/s01s.imp: *basr_15,0; ! *BALR_15,0 ./subsystem/new/s01s.imp: *USING_15 ./subsystem/new/s01s.imp: *LA_1,clock ./subsystem/new/s01s.imp: *STCK_1(1); ! Store TOD clock ./subsystem/new/s01s.imp: *BC_7, ./subsystem/new/s01s.imp: *DROP_15 ./subsystem/new/s01s.imp: *st_11,stkfront; !we need our stack front for next command ./subsystem/new/s01s.imp: *st_11,i ./subsystem/new/s01s.imp: *st_11,i ./subsystem/new/s01s.imp: *l_11,i ./subsystem/new/s01s.imp: *st_10,i; ! save stack base ./subsystem/new/s01s.imp: *st_11,i ./subsystem/new/s01s.imp: *l_11,i ./subsystem/new/s01s.imp: *mvc_64(28,11),64(10) ./subsystem/new/s01s.imp: *l_1,epad ./subsystem/new/s01s.imp: *stm_4,14,16(11) ./subsystem/new/s01s.imp: *lm_12,14,0(1) ./subsystem/new/s01s.imp: *basr_15,14 ./subsystem/new/s01s.imp: *st_11,dum ./subsystem/new/s01s.imp: *st_11,flag ./subsystem/new/s01s.imp: *st_11,i; !current stack front ./subsystem/new/s01s.imp: *l_11,i ./subsystem/new/s01s.imp: *L_2,I ./subsystem/new/s01s.imp: *L_3,J ./subsystem/new/s01s.imp: *BAS_1, ./subsystem/new/s01s.imp: *bas_4,; !set r4=addr(startpc) ./subsystem/new/s01s.imp: *la_1,1 ./subsystem/new/s01s.imp: *st_1,0(3); !set resflg=1 ./subsystem/new/s01s.imp: *bcr_15,15; !return through r15 ./subsystem/new/s01s.imp: *st_4,i ./subsystem/new/s01s.imp: *ST_1,0(0,2); ! Save PC in PSW1 pointing to the label DIRTRAPL. ./subsystem/new/s01s.imp: *STM_0,15,0(3); ! Save general registers in GR(0:15). ./subsystem/new/s01s.imp: *ST_11,I ./subsystem/new/s01s.imp: *L_11,I ./subsystem/new/s01s.imp: *ST_10,LNB ./subsystem/new/s01s.imp: *l_1,ad; *stm_4,14,16(11); *lm_12,4,0(1); *basr_15,14 ./subsystem/new/s02s.imp: *l_5, adr ./subsystem/new/s02s.imp: *l_6, len ./subsystem/new/s02s.imp: *l_3, upptab; !address of UPPTAB(0) ./subsystem/new/s02s.imp: *l_4, upptab2; !address of UPPTAB2(0) ./subsystem/new/s02s.imp: *la_0, 256 ./subsystem/new/s02s.imp: *basr_15, 0; !base register ./subsystem/new/s02s.imp: *using_15 ./subsystem/new/s02s.imp: *sr_6, 0; !r6=r6-256 ./subsystem/new/s02s.imp: *bc_4, ./subsystem/new/s02s.imp: *trt_0(256, 5), 0(4); !first see if there IS any lower-caseletter present ./subsystem/new/s02s.imp: *bc_8, ; !to save the page-fault, possibly ./subsystem/new/s02s.imp: *tr_0(256, 5), 0(3) ./subsystem/new/s02s.imp: *la_5, 256(5); !r5=r5+256 ./subsystem/new/s02s.imp: *bc_15, ./subsystem/new/s02s.imp: *ar_6, 0; !r6=r6+256 ./subsystem/new/s02s.imp: *bctr_6, 0; !r6=r6-1 ./subsystem/new/s02s.imp: *ltr_6, 6 ./subsystem/new/s02s.imp: *bc_4, ; !return if r6<0 ./subsystem/new/s02s.imp: *ex_6, ; !again, see first if there IS a lower-case letter present ./subsystem/new/s02s.imp: *bc_8, ; !return if not ./subsystem/new/s02s.imp: *ex_6, ./subsystem/new/s02s.imp: *drop_15 ./subsystem/new/s02s.imp: *mvc_64(32, 11), 64(10) ./subsystem/new/s02s.imp: *l_1, epad ./subsystem/new/s02s.imp: *stm_4, 14, 16(11) ./subsystem/new/s02s.imp: *lm_12, 14, 0(1) ./subsystem/new/s02s.imp: *basr_15, 14 ./subsystem/new/s02s.imp: *la_2, b ./subsystem/new/s02s.imp: *srl_2, 3 ./subsystem/new/s02s.imp: *sll_2, 3 ./subsystem/new/s02s.imp: *stck_0(2) ./subsystem/new/s02s.imp: *lm_0, 1, 0(2) ./subsystem/new/s02s.imp: *srdl_0, 24 ./subsystem/new/s02s.imp: *st_1, a ./subsystem/new/s02s.imp: *l_0, to ./subsystem/new/s02s.imp: *l_2, from ./subsystem/new/s02s.imp: *l_1, length ./subsystem/new/s02s.imp: *lr_3, 1 ./subsystem/new/s02s.imp: *mvcl_0, 2 ./subsystem/new/s02s.imp: *basr_15, 0 ./subsystem/new/s02s.imp: *using_15 ./subsystem/new/s02s.imp: *bc_8, ./subsystem/new/s02s.imp: *drop_15 ./subsystem/new/s02s.imp: *l_0, from ./subsystem/new/s02s.imp: *lr_2, 0 ./subsystem/new/s02s.imp: *l_1, length ./subsystem/new/s02s.imp: *l_3, filler ./subsystem/new/s02s.imp: *sll_3, 24 ./subsystem/new/s02s.imp: *mvcl_0, 2 ./subsystem/new/s02s.imp: *l_1, nad ./subsystem/new/s02s.imp: *l_2, nl ./subsystem/new/s02s.imp: *l_3, p ./subsystem/new/s02s.imp: *la_0, 256 ./subsystem/new/s02s.imp: *basr_15, 0; !base register ./subsystem/new/s02s.imp: *using_15 ./subsystem/new/s02s.imp: *sr_2, 0; !r2=r2-256 ./subsystem/new/s02s.imp: *bc_4, ./subsystem/new/s02s.imp: *tr_0(256, 1), 0(3) ./subsystem/new/s02s.imp: *la_1, 256(1); !r1=r1+256 ./subsystem/new/s02s.imp: *bc_15, ./subsystem/new/s02s.imp: *ar_2, 0; !r2=r2+256 ./subsystem/new/s02s.imp: *bctr_2, 0; !r2=r2-1 ./subsystem/new/s02s.imp: *ltr_2, 2 ./subsystem/new/s02s.imp: *bc_4, ; !returnif r2<0 ./subsystem/new/s02s.imp: *ex_2, ./subsystem/new/s02s.imp: *drop_15 ./subsystem/new/s02s.imp: *l_1, nad ./subsystem/new/s02s.imp: *l_2, nl ./subsystem/new/s02s.imp: *l_3, p ./subsystem/new/s02s.imp: *la_0, 256 ./subsystem/new/s02s.imp: *basr_15, 0; !base register ./subsystem/new/s02s.imp: *using_15 ./subsystem/new/s02s.imp: *sr_2, 0; !r2=r2-256 ./subsystem/new/s02s.imp: *bc_4, ./subsystem/new/s02s.imp: *tr_0(256, 1), 0(3) ./subsystem/new/s02s.imp: *la_1, 256(1); !r1=r1+256 ./subsystem/new/s02s.imp: *bc_15, ./subsystem/new/s02s.imp: *ar_2, 0; !r2=r2+256 ./subsystem/new/s02s.imp: *bctr_2, 0; !r2=r2-1 ./subsystem/new/s02s.imp: *ltr_2, 2 ./subsystem/new/s02s.imp: *bc_4, ; !returnif r2<0 ./subsystem/new/s02s.imp: *ex_2, ./subsystem/new/s02s.imp: *drop_15 ./subsystem/new/s02s.imp: *l_0, x; *st_0, i ./subsystem/new/s05s.imp: *L_0,a1 ./subsystem/new/s05s.imp: *L_2,a2 ./subsystem/new/s05s.imp: *L_1,L ./subsystem/new/s05s.imp: *LR_3,1 ./subsystem/new/s05s.imp: *LR_15,1 ./subsystem/new/s05s.imp: *CLCL_0,2 ./subsystem/new/s05s.imp: *SR_15,1 ./subsystem/new/s05s.imp: *ST_15,L ./subsystem/new/s05s.imp: *st_13,glaseg ./subsystem/new/s06s.imp: *l_15,pc ./subsystem/new/s06s.imp: *l_2,prevlnb ./subsystem/new/s06s.imp: *lm_0,1,par1; ! info for the ON sequence ?? ./subsystem/new/s06s.imp: *lm_4,14,16(2); ! LNB TO RT AFTER EXIT RT ./subsystem/new/s06s.imp: *bcr_15,15; ! To required environment ./subsystem/new/s06s.imp: *mvc_64(24,11),64(10) ./subsystem/new/s06s.imp: *stm_4,14,16(11) ./subsystem/new/s06s.imp: *la_1,e4 ./subsystem/new/s06s.imp: *lm_12,14,0(1) ./subsystem/new/s06s.imp: *basr_15,14 ./subsystem/new/s06s.imp: *ipm_1; ! *balr_1,0 ./subsystem/new/s06s.imp: *st_1,progmask ./subsystem/new/s06s.imp: *sr_1,1 ./subsystem/new/s06s.imp: *spm_1 ./subsystem/new/s06s.imp: *st_11,userstk; !use current stack for %stop ./subsystem/new/s06s.imp: *st_10,j ./subsystem/new/s06s.imp: *l_1,progmask; *spm_1 ./subsystem/new/s06s.imp: *l_1,progmask; *spm_1 ./subsystem/new/s06s.imp: *l_11,userstk; !back to user stack for %stop ./subsystem/new/s06s.imp: *ST_10,LNB ./subsystem/new/s06s.imp: *st_10,stkfront; !stkfront of routine which called us ./subsystem/new/s06s.imp: *ST_10,MYLNB; ! LNB of NEW TRAP. ./subsystem/new/s06s.imp: *L_1,I ./subsystem/new/s06s.imp: *LM_3,15,12(1); !reg 3=resflg address, rest as req ./subsystem/new/s06s.imp: *LA_1,1 ./subsystem/new/s06s.imp: *ST_1,0(3); !set resflg=1 ./subsystem/new/s06s.imp: *BCR_15,15 ./subsystem/new/s06s.imp: *st_10,stkfront; !stack front of routine which called us ./subsystem/new/s06s.imp: *st_10,stkfront; !stack front of routine which called us ./subsystem/new/s06s.imp: *st_10,stkfront; !lnb of routine which called us ./subsystem/new/s06s.imp: *ST_10,LNB; ! LNB (stack frame pointer) for FILL INTINFO is in register 10 ./subsystem/new/s06s.imp: *st_10,stkfront; !stack front of routine which called us ./subsystem/new/s06s.imp: *st_10,stkfront; !stack front of routine which called us ./subsystem/new/s06s.imp: *st_10,stkfront ./subsystem/new/s07s.imp: *l_2, i; *l_0, j; *l_1, k; *stm_4, 1, 16(11); *lm_12, 14, 0(2); *basr_15, 14 ./subsystem/new/s07s.imp: *l_3, cur ./subsystem/new/s07s.imp: *l_2, len ./subsystem/new/s07s.imp: *bctr_2, 0 ./subsystem/new/s07s.imp: *l_1, arad ./subsystem/new/s07s.imp: *ex_2, ./subsystem/new/s07s.imp: *bc_8, ./subsystem/new/s07s.imp: *la_0, 27 ./subsystem/new/s07s.imp: *cr_2, 0 ./subsystem/new/s07s.imp: *bc_7, ./subsystem/new/s07s.imp: *l_0, fourdotscount ./subsystem/new/s07s.imp: *ltr_0, 0 ./subsystem/new/s07s.imp: *bc_8, ./subsystem/new/s07s.imp: *st_1, next ./subsystem/new/s07s.imp: *sr_1, 3 ./subsystem/new/s07s.imp: *st_1, res ./subsystem/new/s07s.imp: *ltr_1, 1 ./subsystem/new/s07s.imp: *bc_8, ./subsystem/new/s07s.imp: *bctr_1, 0 ./subsystem/new/s07s.imp: *l_2, parm {"To-address"} ./subsystem/new/s07s.imp: *ex_1, ./subsystem/new/s07s.imp: *l_2, i; *l_0, j; *l_1, k; *stm_4, 1, 16(11); *lm_12, 14, 0(2) ./subsystem/new/s07s.imp: *basr_15, 14 ./subsystem/new/s07s.imp: *l_2, parm {"To-address"} ./subsystem/new/s07s.imp: *l_3, cur ./subsystem/new/s07s.imp: *l_1, len ./subsystem/new/s07s.imp: *bctr_1, 0 ./subsystem/new/s07s.imp: *ex_1, ./subsystem/new/s07s.imp: *l_0, to ./subsystem/new/s07s.imp: *l_2, from ./subsystem/new/s07s.imp: *l_1, max ./subsystem/new/s07s.imp: *lr_3, 1 ./subsystem/new/s07s.imp: *mvcl_0, 2; ! It has to work ./subsystem/new/s07s.imp: *l_0, to ./subsystem/new/s07s.imp: *l_2, from ./subsystem/new/s07s.imp: *l_1, len ./subsystem/new/s07s.imp: *lr_3, 1 ./subsystem/new/s07s.imp: *mvcl_0, 2 ./subsystem/new/s07s.imp: *l_0, to ./subsystem/new/s07s.imp: *lr_2, 0 ./subsystem/new/s07s.imp: *l_1, max ./subsystem/new/s07s.imp: *l_3, j ./subsystem/new/s07s.imp: *mvcl_0, 2; ! It has to work ./subsystem/new/s07s.imp: *l_0, to ./subsystem/new/s07s.imp: *lr_2, 0 ./subsystem/new/s07s.imp: *l_1, len ./subsystem/new/s07s.imp: *l_3, j ./subsystem/new/s07s.imp: *mvcl_0, 2 ./subsystem/new/s07s.imp: *l_2, i; *l_0, j; *l_1, k; *stm_4, 1, 16(11); *lm_12, 14, 0(2); *basr_15, 14 ./subsystem/new/s07s.imp: *lsd_opnd; *st_typebnd ./subsystem/new/s07s.imp: *mvc_typebnd(8), opnd ./subsystem/new/s07s.imp: *lsd_=X'7F'; *ush_=25 ./subsystem/new/s07s.imp: *or_=1; *ush_=31; ! ACC=X'7F00000080000000' ./subsystem/new/s07s.imp: *and_rwork; *rad_rwork; ! SOFTWARE ROUND ./subsystem/new/s07s.imp: *stuh_(typebnd) ./subsystem/new/s07s.imp: *lsd_=X'7F'; *ush_=56; *and_rwork ./subsystem/new/s07s.imp: *slsd_=1; *ush_=55; *and_rwork+8 ./subsystem/new/s07s.imp: *luh_TOS; *rad_rwork; ! SOFTWARE ROUND ./subsystem/new/s07s.imp: *stuh_(typebnd) ./subsystem/new/s07s.imp: *lsd_opnd; *st_typebnd ./subsystem/new/s07s.imp: *mvc_typebnd(8), opnd ./subsystem/new/s07s.imp: *lsd_=X'7F'; *ush_=25 ./subsystem/new/s07s.imp: *or_=1; *ush_=31; ! ACC=X'7F00000080000000' ./subsystem/new/s07s.imp: *and_rwork; *rad_rwork; ! SOFTWARE ROUND ./subsystem/new/s07s.imp: *stuh_(typebnd) ./subsystem/new/s07s.imp: *lsd_=X'7F'; *ush_=56; *and_rwork ./subsystem/new/s07s.imp: *slsd_=1; *ush_=55; *and_rwork+8 ./subsystem/new/s07s.imp: *luh_TOS; *rad_rwork; ! SOFTWARE ROUND ./subsystem/new/s07s.imp: *stuh_(typebnd) ./subsystem/new/s07s.imp: *st_10, lnb ./subsystem/new/s10s.imp: *l_1,stack ./subsystem/new/s10s.imp: *mvc_64(256,11),0(1) ./subsystem/new/s10s.imp: *la_1,e4 ./subsystem/new/s10s.imp: *lm_12,14,0(1) ./subsystem/new/s10s.imp: *basr_15,14 ./subsystem/new/s10s.imp: *st_1,int ./subsystem/new/s10s.imp: *std_0,lreal ./subsystem/new/s10s.imp: *st_11,innerbase ./subsystem/new/s10s.imp: *st_11, innerbase ./subsystem/new/s10s.imp: *l_1,i ./subsystem/new/s10s.imp: *lm_4,15,16(1) ./subsystem/new/s10s.imp: *bcr_15,15 ./subsystem/new/s11s.imp: *basr_15, 0 ./subsystem/new/s11s.imp: *using_15 ./subsystem/new/s11s.imp: *l_0, from; !1st op address ./subsystem/new/s11s.imp: *l_1, part; !1st op length ./subsystem/new/s11s.imp: *sr_2, 2; !r2=0..2nd op address ./subsystem/new/s11s.imp: *sr_3, 3; !r3=0..pad=0, 2nd op length=0 ./subsystem/new/s11s.imp: *clcl_0, 2 ./subsystem/new/s11s.imp: *bc_8, ./subsystem/new/s11s.imp: *drop_15 ./subsystem/new/s11s.imp: *l_0, to; !1st op address ./subsystem/new/s11s.imp: *l_1, part; !1st op length ./subsystem/new/s11s.imp: *l_2, from; !2nd op address ./subsystem/new/s11s.imp: *lr_3, 1; !2nd op length ./subsystem/new/s11s.imp: *mvcl_0, 2; !move 2nd op (from) to 1st op (to) ./subsystem/new/s11s.imp: *st_11, curstack ./subsystem/new/s11s.imp: *st_11, newlnb ./subsystem/new/s11s.imp: *l_1, newlnb ./subsystem/new/s11s.imp: *stm_4, 14, 16(1) ./subsystem/new/s11s.imp: *l_11, newlnb ./subsystem/new/s11s.imp: *ipm_1; ! *BALR_1,0 ./subsystem/new/s11s.imp: *st_1, pmask ./subsystem/new/s11s.imp: *la_1, 8; *sll_1, 24; *spm_1 ./subsystem/new/s11s.imp: *la_1, param ./subsystem/new/s11s.imp: *mvc_64(256, 11), 0(1) ./subsystem/new/s11s.imp: *l_1, ent4; *lm_12, 14, 0(1) ./subsystem/new/s11s.imp: *sr_0, 0; *sr_1, 1; *sr_2, 2; *sr_3, 3; *sr_4, 4; *sr_5, 5 ./subsystem/new/s11s.imp: *sr_6, 6; *sr_7, 7; *sr_8, 8; *sr_9, 9; *sr_10, 10 ./subsystem/new/s11s.imp: *basr_15, 14 ./subsystem/new/s11s.imp: *l_1, pmask ./subsystem/new/s11s.imp: *spm_1 ./subsystem/new/s11s.imp: *st_11, ourr11 ./subsystem/new/s11s.imp: *l_2, i ./subsystem/new/s11s.imp: *lm_4, 15, 16(2) ./subsystem/new/s11s.imp: *bcr_15, 15 ./subsystem/new/s14s.imp: *lm_0,2,s ./subsystem/new/s14s.imp: *lm_0,1,12(2) ./subsystem/new/s14s.imp: *stm_0,1,lo ./subsystem/new/s14s.imp: *mvc_64(16,11),64(10) ./subsystem/new/s14s.imp: *stm_4,14,16(11) ./subsystem/new/s14s.imp: *la_1,e4 ./subsystem/new/s14s.imp: *lm_12,14,0(1) ./subsystem/new/s14s.imp: *basr_15,14 ./subsystem/new/s14s.imp: *mvc_64(32,11),64(10) ./subsystem/new/s14s.imp: *stm_4,14,16(11) ./subsystem/new/s14s.imp: *la_1,e4 ./subsystem/new/s14s.imp: *lm_12,14,0(1) ./subsystem/new/s14s.imp: *basr_15,14 ./subsystem/new/s14s.imp: *mvc_64(36,11),64(10) ./subsystem/new/s14s.imp: *stm_4,14,16(11) ./subsystem/new/s14s.imp: *la_1,e4 ./subsystem/new/s14s.imp: *lm_12,14,0(1) ./subsystem/new/s14s.imp: *basr_15,14 ./subsystem/new/s14s.imp: *mvc_64(16,11),64(10) ./subsystem/new/s14s.imp: *stm_4,14,16(11) ./subsystem/new/s14s.imp: *la_1,e4 ./subsystem/new/s14s.imp: *lm_12,14,0(1) ./subsystem/new/s14s.imp: *basr_15,14 ./subsystem/new/s15s.imp: *l_1,ent4 ./subsystem/new/s15s.imp: *L_2,64(10) ./subsystem/new/s15s.imp: *mvc_0(16,1),0(2) ./subsystem/new/s15s.imp: *LA_1, ./subsystem/new/s15s.imp: *ST_1,PC ./subsystem/new/s15s.imp: *la_1, ./subsystem/new/s15s.imp: *st_1,pc ./subsystem/new/s15s.imp: *using_14 ./subsystem/new/s15s.imp: *st_15,60(11); ! Put away return link ./subsystem/new/s15s.imp: *la_15,16; ! indicator for Dyn/Unsat and offset into ssowns ./subsystem/new/s15s.imp: *bc_15, ./subsystem/new/s15s.imp: *drop_14 ./subsystem/new/s15s.imp: *st_15,60(11); ! Put away return link ./subsystem/new/s15s.imp: *sr_15,15; ! indicator for Dyn/Unsat ./subsystem/new/s15s.imp: *lr_0,12; ! Pointer to esc table entry: param1 for DYNAMICREF ./subsystem/new/s15s.imp: *l_1,8(12) ./subsystem/new/s15s.imp: *l_2,16(12); ! Get paramword from escape table ./subsystem/new/s15s.imp: *basr_14,0 ./subsystem/new/s15s.imp: *using_14 ./subsystem/new/s15s.imp: *la_3,1 ./subsystem/new/s15s.imp: *ar_2,3; ! if paramword was -1, R2 is now zero ./subsystem/new/s15s.imp: *bc_7, ./subsystem/new/s15s.imp: *la_2,2048 ./subsystem/new/s15s.imp: *bc_15, ./subsystem/new/s15s.imp: *drop_14 ./subsystem/new/s15s.imp: *la_3,6; ! We want to round the number of param ./subsystem/new/s15s.imp: *ar_2,3 ./subsystem/new/s15s.imp: *sll_2,16(0) ./subsystem/new/s15s.imp: *srl_2,19(0); ! Get rid of top half, leaving number of bytes ./subsystem/new/s15s.imp: *sll_2,3(0) ./subsystem/new/s15s.imp: *lr_3,11; ! Save R11 to put in the fifth word of the workspace ./subsystem/new/s15s.imp: *la_11,64(2,11); ! Past stackframe and params ./subsystem/new/s15s.imp: *lr_2,11; ! Points to 24 bytes of workspace, the first ./subsystem/new/s15s.imp: *st_3,16(11); ! Save previous R11 in workspace ./subsystem/new/s15s.imp: *la_11,24(11); ! past the workspace and pad word ./subsystem/new/s15s.imp: *l_14,24(13); ! load const table pointer to enable ssown to be addressed ./subsystem/new/s15s.imp: *l_3,ssown; ! Address of the DYNAMICREF entry four-words ./subsystem/new/s15s.imp: *ar_3,15; ! Or of the UNSATREF four-words ./subsystem/new/s15s.imp: *stm_4,2,16(11); ! Stack the environment plus three one-word params ./subsystem/new/s15s.imp: *lm_12,14,0(3); ! Ep-words ./subsystem/new/s15s.imp: *basr_15,14; ! To DYNAMICREF ./subsystem/new/s15s.imp: *la_0,8 ./subsystem/new/s15s.imp: *sr_11,0; ! To point to the word containing the original value of R11 ./subsystem/new/s15s.imp: *l_3,0(11); ! Save it for later ./subsystem/new/s15s.imp: *la_0,16 ./subsystem/new/s15s.imp: *sr_11,0; ! To point to the entry four-words ./subsystem/new/s15s.imp: *lm_12,14,0(11); ! Pick up code, GLA and EP addresses ./subsystem/new/s15s.imp: *lr_11,3; ! To where it was when control arrived here from the dynamic call ./subsystem/new/s15s.imp: *l_15,60(11) ./subsystem/new/s15s.imp: *bcr_15,14; ! To the dynamic procedure ./subsystem/new/s15s.imp: *st_11,j ./subsystem/new/s15s.imp: *st_11,j ./subsystem/new/s88s.imp: *stck_millisecs ./subsystem/new/s88s.imp: *st_10, lnb ./subsystem/new/s88s.imp: *st_10, lnb ./subsystem/new/s88s.imp: *st_10, lnb ./subsystem/new/s88s.imp: *st_10, lnb ./subsystem/new/s88s.imp: *st_10, lnb ./subsystem/new/s88s.imp: *st_10, lnb ./subsystem/new/s88s.imp: *l_1, i; *xc_0(256, 1), 0(1) ./subsystem/new/s88s.imp: *la_0, 256; *l_1, len; *l_2, ad; *l_3, i ./subsystem/new/s88s.imp: *basr_15, 0; *using_15 ./subsystem/new/s88s.imp: *cr_1, 0; *bc_4, ; ! < 256 bytes left ./subsystem/new/s88s.imp: *trt_0(256, 2), 0(3); *bc_6, ; ! -> 1st occurrence found ./subsystem/new/s88s.imp: *ar_2, 0; *sr_1, 0; *bcr_15, 15; ! -> process next chunk ./subsystem/new/s88s.imp: *ltr_1, 1; *bc_12, ; ! -> <=0 bytes left ./subsystem/new/s88s.imp: *bctr_1, 0; *ex_1, ; *bc_8, ; ! -> not in last chunk ./subsystem/new/s88s.imp: *st_1, res; ! address of 1st occurrence ./subsystem/new/s88s.imp: *drop_15 ./subsystem/new/s88s.imp: *trt_0(0, 2), 0(3) ./subsystem/new/s88s.imp: *st_10, lnb ./subsystem/new/s88s.imp: *lm_0, 2, s ./subsystem/new/s88s.imp: *lm_0, 1, 12(2) ./subsystem/new/s88s.imp: *stm_0, 1, lo ./subsystem/new/s88s.imp: *ipm_1; ! *balr_1,0 ./subsystem/new/s88s.imp: *n_1, j ./subsystem/new/s88s.imp: *spm_1; ! Mask out Underflow (Should already be masked) ./subsystem/new/s88s.imp: *st_10, lnb ./subsystem/new/s30s.imp: *l_1, arraybytes ./subsystem/new/s30s.imp: *st_11, arrayad ./subsystem/new/s30s.imp: *ar_11, 1 ./subsystem/new/s30s.imp: *l_11, j ./subsystem/new/s51s.imp: *st_11, ad; *a_11, len; *la_11, 11(11) ./subsystem/new/s51s.imp: *srl_11, 2(0); *sll_11, 2(0) ./subsystem/new/s51s.imp: *st_11, ad; *la_11, 16(11) ./subsystem/new/s51s.imp: *st_11, ad; *la_11, 16(11) ./subsystem/new/s51s.imp: *la_0, ad; ! Set ad as the %integername parameter ./subsystem/new/s51s.imp: *l_1, ad; *stm_4, 0, 16(11); *lm_12, 15, 0(1) ./subsystem/new/s51s.imp: *basr_15, 14 ;! Enter the function ./subsystem/new/s51s.imp: *st_1, j;! Store the result in j ./subsystem/old/emas3.imp: *st_10,lnb ./subsystem/old/emas3.imp: *l_0,inc ./subsystem/old/emas3.imp: *l_1,addrvar ./subsystem/old/emas3.imp: *l_2,0(1) { value of variable } ./subsystem/old/emas3.imp: *basr_4,0 { get a base register } ./subsystem/old/emas3.imp: *using_4 ./subsystem/old/emas3.imp: *lr_3,2 { R3 is a copy of R2 } ./subsystem/old/emas3.imp: *ar_3,0 { add on 'by' } ./subsystem/old/emas3.imp: *cs_2,3,0(1) { if R2 still valid, store R3 else reload R2 } ./subsystem/old/emas3.imp: *bcr_4,4 { failed, try again } ./subsystem/old/emas3.imp: *drop_4 ./subsystem/old/emas3.imp: *st_2,lres { original value of variable } ./subsystem/old/emas3.imp: *lm_0,2,s ./subsystem/old/emas3.imp: *lm_0,1,12(2) ./subsystem/old/emas3.imp: *stm_0,1,lo ./subsystem/old/help48.imp: *L_0,j { copy of FILL routine } ./subsystem/old/help48.imp: *LR_2,0 ./subsystem/old/help48.imp: *L_1,L ./subsystem/old/help48.imp: *LR_3,0 ./subsystem/old/help48.imp: *SLL_3,24 ./subsystem/old/help48.imp: *MVCL_0,2 ./subsystem/old/ecce69.imp: *la_0, 256; *l_1, len; *l_2, ad; *l_3, i ./subsystem/old/ecce69.imp: *basr_15, 0; *using_15 ./subsystem/old/ecce69.imp: *cr_1, 0; *bc_4, ; ! < 256 bytes left ./subsystem/old/ecce69.imp: *trt_0(256, 2), 0(3); *bc_6, ; ! -> 1st occurrence found ./subsystem/old/ecce69.imp: *ar_2, 0; *sr_1, 0; *bcr_15, 15; ! -> process next chunk ./subsystem/old/ecce69.imp: *ltr_1, 1; *bc_12, ; ! -> <=0 bytes left ./subsystem/old/ecce69.imp: *bctr_1, 0; *ex_1, ; *bc_8, ; ! -> not in last chunk ./subsystem/old/ecce69.imp: *st_1, res; ! address of 1st occurrence ./subsystem/old/ecce69.imp: *drop_15 ./subsystem/old/ecce69.imp: *trt_0(0, 2), 0(3) ./subsystem/old/ecce69.imp: *st_11, com36 ./subsystem/old/extract32.imp: *lm_0,2,inputfile ./subsystem/old/extract32.imp: *lm_0,1,12(2) ./subsystem/old/extract32.imp: *stm_0,1,inlo ./subsystem/old/extract32.imp: *lm_0,2,stopfile ./subsystem/old/extract32.imp: *lm_0,1,12(2) ./subsystem/old/extract32.imp: *stm_0,1,stoplo ./subsystem/old/analyse14.imp: *L_2,nextentry; ! First opd address ./subsystem/old/analyse14.imp: *L_3,hashconst; ! No of words in array ./subsystem/old/analyse14.imp: *SLL_3,2; ! No of bytes in array ./subsystem/old/analyse14.imp: *LA_4,hno; ! Second opd address is arbitray and not required ./subsystem/old/analyse14.imp: *LA_5,255; ! Pad byte ./subsystem/old/analyse14.imp: *SLL_5,24; ! Pad byte to top, second opd length=0 ./subsystem/old/analyse14.imp: *MVCL_2,4 ./subsystem/old/analyse14.imp: *L_2,fptrs; ! First opd address ./subsystem/old/analyse14.imp: *L_3,j; ! No of words in array ./subsystem/old/analyse14.imp: *SLL_3,2; ! No of bytes in array ./subsystem/old/analyse14.imp: *LA_4,hno; ! Second opd address is arbitray and not required ./subsystem/old/analyse14.imp: *LA_5,255; ! Pad byte ./subsystem/old/analyse14.imp: *SLL_5,24; ! Pad byte to top, second opd length=0 ./subsystem/old/analyse14.imp: *MVCL_2,4 ./subsystem/old/analyse14.imp: *l_1,arraybytes ./subsystem/old/analyse14.imp: *st_11,arrayad ./subsystem/old/analyse14.imp: *ar_11,1 ./subsystem/old/analyse14.imp: *l_11,j ./mailer/iocp4s.imp: *l_0, to ./mailer/iocp4s.imp: *l_2, from ./mailer/iocp4s.imp: *l_1, length ./mailer/iocp4s.imp: *lr_3, 1 ./mailer/iocp4s.imp: *mvcl_0, 2 ./mailer/iocp4s.imp: *basr_15, 0 ./mailer/iocp4s.imp: *using_15 ./mailer/iocp4s.imp: *bc_8, ./mailer/iocp4s.imp: *drop_15 ./mailer/iocp4s.imp: *l_0, from ./mailer/iocp4s.imp: *lr_2, 0 ./mailer/iocp4s.imp: *l_1, length ./mailer/iocp4s.imp: *l_3, filler ./mailer/iocp4s.imp: *sll_3, 24 ./mailer/iocp4s.imp: *mvcl_0, 2 ./mailer/mdiag6s.imp: *L_15,pc ./mailer/mdiag6s.imp: *L_2,lnbabove ./mailer/mdiag6s.imp: *LM_0,1,par1 ./mailer/mdiag6s.imp: *LM_4,14,16(2) ./mailer/mdiag6s.imp: *BCR_15,15 ./mailer/mdiag6s.imp: *st_10,j ./mailer/mdiag6s.imp: *L_1,lnb ./mailer/mdiag6s.imp: *LM_4,15,16(1); !restore regs ./mailer/mdiag6s.imp: *BCR_15,15 ./mailer/mdiag6s.imp: *st_11,my11 ./mailer/mdiag6s.imp: *l_1,com36 ./mailer/mdiag6s.imp: *LM_4,15,16(1); !restore regs ./mailer/mdiag6s.imp: *BCR_15,15 ./mailer/mdiag6s.imp: *bas_1, ./mailer/mdiag6s.imp: *st_1,pc3 ./mailer/mdiag6s.imp: *l_1,context3 ./mailer/mdiag6s.imp: *stm_4,14,24(1) ./mailer/mdiag6s.imp: *bas_1, ./mailer/mdiag6s.imp: *st_1,pc3 ./mailer/mdiag6s.imp: *l_1,diagscontext ./mailer/mdiag6s.imp: *stm_4,14,24(1) ./mailer/mdiag6s.imp: *st_11,diagsbase; !base address for diagnostics ./mailer/mailer8ms.imp: *st_10, temp; !to allow ndiags to exit from control ./mailer/mailer8ms.imp: *st_9, temp; !textual level 2, lnb in R9 ./mailer/mailer8ms.imp: *l_1, item; *st_1, size ./mailer/mailer8ms.imp: *l_1, len; *l_2, address; *l_3, trtad ./mailer/mailer8ms.imp: *la_0, 256 ./mailer/mailer8ms.imp: *basr_15, 0 ./mailer/mailer8ms.imp: *using_15 ./mailer/mailer8ms.imp: *clr_1, 0; *bc_4, ./mailer/mailer8ms.imp: *tr_0(256, 2), 0(3) ./mailer/mailer8ms.imp: *alr_2, 0; *slr_1, 0 ./mailer/mailer8ms.imp: *bcr_15, 15 ./mailer/mailer8ms.imp: *bctr_1, 0; *ex_1, ./mailer/mailer8ms.imp: *drop_15 ./mailer/mail6ls.imp: *la_0, 256; *l_1, len; *l_2, ad; *l_3, i ./mailer/mail6ls.imp: *basr_15, 0; *using_15 ./mailer/mail6ls.imp: *cr_1, 0; *bc_4, ; ! < 256 bytes left ./mailer/mail6ls.imp: *trt_0(256, 2), 0(3); *bc_6, ; ! -> 1st occurrence found ./mailer/mail6ls.imp: *ar_2, 0; *sr_1, 0; *bcr_15, 15; ! -> process next chunk ./mailer/mail6ls.imp: *ltr_1, 1; *bc_12, ; ! -> <=0 bytes left ./mailer/mail6ls.imp: *bctr_1, 0; *ex_1, ; *bc_8, ; ! -> not in last chunk ./mailer/mail6ls.imp: *st_1, res; ! address of 1st occurrence ./mailer/mail6ls.imp: *drop_15 ./mailer/mail6ls.imp: *trt_0(0, 2), 0(3) ./mailer/mail6ls.imp: *ldtb_16_18000000; !DESCRIPTOR AND... ./mailer/mail6ls.imp: *ldb_nbytes; !...BOUND ./mailer/mail6ls.imp: *lda_list2; !START OF SECOND 'STRING' ./mailer/mail6ls.imp: *cyd_0; !PUT IN ACC ./mailer/mail6ls.imp: *lda_list1; !START OF FIRST 'STRING' ./mailer/mail6ls.imp: *ands_L=DR; !AND STRINGS ./mailer/mail6ls.imp: *ldtb_16_18000000 ./mailer/mail6ls.imp: *ldb_nbytes ./mailer/mail6ls.imp: *lda_list2 ./mailer/mail6ls.imp: *cyd_0 ./mailer/mail6ls.imp: *lda_list1 ./mailer/mail6ls.imp: *ors_L=DR; !OR STRINGS ./mailer/mail6ls.imp: *ldtb_16_18000000 ./mailer/mail6ls.imp: *ldb_nbytes ./mailer/mail6ls.imp: *lda_list ./mailer/mail6ls.imp: *neqs_L=DR,0,255; !NEGATE EACH BYTE ./mailer/mail6ls.imp: *rrtc_0; *ush_-1 ./mailer/mail6ls.imp: *shs_1; *ush_1 ./mailer/mail6ls.imp: *imdv_mill ./mailer/mail6ls.imp: *isb_secs70; *stuh_B ./mailer/mail6ls.imp: *exit_-64 ./managr/maint36s.imp: *lm_0,2,s ./managr/maint36s.imp: *lm_0,1,12(2) ./managr/maint36s.imp: *stm_0,1,lo ./managr/maint36s.imp: *LA_2,W1 ./managr/maint36s.imp: *SRL_2,3 ./managr/maint36s.imp: *SLL_2,3 ./managr/maint36s.imp: *STCK_0(2) ./managr/maint36s.imp: *LM_0,1,0(2) ./managr/maint36s.imp: *SRDL_0,24 ./managr/maint36s.imp: *D_0,JMS ./managr/maint36s.imp: *ST_1,W0 ./managr/maint36s.imp: *BASR_15,0 ./managr/maint36s.imp: *USING_15 ./managr/maint36s.imp: *L_0,j { addr of page } ./managr/maint36s.imp: *LA_1,1 ./managr/maint36s.imp: *SLL_1,12 { length of page } ./managr/maint36s.imp: *LR_2,0 ./managr/maint36s.imp: *SLR_3,3 ./managr/maint36s.imp: *CLCL_0,2 ./managr/maint36s.imp: *BC_8, ./managr/maint36s.imp: *DROP_15 ./volumes/s1u.imp: *st_10,temp; ! textual level 1, lnb in R10 ./volumes/s1u.imp:*st_9,temp; ! textual level 2, lnb in R9 ./volumes/diag4s.imp: *L_15,pc ./volumes/diag4s.imp: *L_2,lnbabove ./volumes/diag4s.imp: *LM_0,1,par1 ./volumes/diag4s.imp: *LM_4,14,16(2) ./volumes/diag4s.imp: *BCR_15,15 ./volumes/diag4s.imp: *st_10,j ./volumes/diag4s.imp: *L_1,lnb ./volumes/diag4s.imp: *LM_4,15,16(1); !restore regs ./volumes/diag4s.imp: *BCR_15,15 ./volumes/diag4s.imp: *st_11,my11 ./volumes/diag4s.imp: *l_1,com36 ./volumes/diag4s.imp: *LM_4,15,16(1); !restore regs ./volumes/diag4s.imp: *BCR_15,15 ./volumes/diag4s.imp: *bas_1, ./volumes/diag4s.imp: *st_1,pc3 ./volumes/diag4s.imp: *l_1,context3 ./volumes/diag4s.imp: *stm_4,14,24(1) ./volumes/diag4s.imp: *bas_1, ./volumes/diag4s.imp: *st_1,pc3 ./volumes/diag4s.imp: *l_1,diagscontext ./volumes/diag4s.imp: *stm_4,14,24(1) ./volumes/diag4s.imp: *st_11,diagsbase; !base address for diagnostics ./xautils/idump3cs.imp: *lda_start ./xautils/idump3cs.imp: *ldtb_x'18000020' ./xautils/idump3cs.imp: *cyd_0 ./xautils/idump3cs.imp: *lda_oldline ./xautils/idump3cs.imp: *cps_ %l = %dr ./xautils/idump3cs.imp: *jcc_7, < printline > ./xautils/idump3cs.imp: *lda_start; !CHECK IF SAME AS PREVIOUS LINE ./xautils/idump3cs.imp: *ldtb_x'18000020' ./xautils/idump3cs.imp: *cyd_0 ./xautils/idump3cs.imp: *inca_-32 ./xautils/idump3cs.imp: *cps_ %l = %dr ./xautils/idump3cs.imp: *jcc_7, < printline > ./xautils/idump3cs.imp: *mpsr_x'2180'