{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: PMINPRIN)}} ====== PMINPRIN ====== (George Source) **Macros used:** [[george:macro:MHUNTX|MHUNTX]], [[george:macro:P|P]], [[george:macro:SIX|SIX]], [[george:macro:SMODE|SMODE]], [[george:macro:UP|UP]] 228N ...[ 22CB ...[ THIS IS A COPY OF SEGMENT INPRIN FOR THE USE OF 22L4 ...[ POSTMORTEM SYSTEM ONLY. HOWEVER, ANY CHANGE IN 22SQ ...[ PMINPRIN MUST BE DONE IN INPRIN AND VICE-VERSA. 233D ...[ 23=6 ...[ 23DW # 23YG ...#OPT K0PMINPRIN=0 24D6 ...#LIS K0PMINPRIN>K0POST>K0ALLGEO 24XQ # 25CB ...#SEG PMINPRIN [RAYBARNES 25X2 ... 10HPMINPRIN 26BL ...K1PMINPRIN 26W= ... BRN ZK1PMINPRIN 27*W ...K2PMINPRIN 27TG ... BRN ZK2PMINPRIN 28*6 ...K3PMINPRIN 28SQ ... BRN ZK3PMINPRIN 29#B MNEM 48HLDX ADX NGX SBX LDXCADXCNGXCSBXCSTO ADS NGS SBS 29S2 48HSTOCADSCNGSCSBSCANDXORX ERX OBEYLDCHLDEXTXU TXL 2=?L 48HANDSORS ERS STOZDCH DEX DSA DLA MPY MPR MPA CDB 2=R= 48HDVD DVR DVS CBD BZE BNZ BPZ BNG BUX BDX BCHXBCT 2?=W 48HCALLEXITBRN BVS BVSRBVC BVCRBCS BCC BVCISUSTDIST 2?QG 48HDELTSUSWDISPDEL LDN ADN NGN SBN LDNCADNCNGNCSBNC 2#=6 OPMOD +0 2#PQ SLINK +0 2*9B TEN5 +100000 2*P2 THREE +3 2B8L NM 4HNORM 2BN= ZOCT +#77777700 2C7W 48HMVCHSMO ANDNORN ERN NULLLDCTMODEMOVESUM FLOAFIX 2CMG 48HFAD FSB FMPYFDVDLFP SFP SLC SLL SLA SLA SRC SRL 2D76 40HSRA SRAVSUSBREL DIS ISBYCONTSUSDALLOPERI 2DLQ SMODE +0 2F6B TEN +10 2FL2 8HSUSMAUTO 2G5L TWO +2 2GK= 16HGIVERRQ SUSASUSI 2H4W XFIVE +5 2HJG XONE +1 2J46 XSIX +6 2JHQ MBFP 4HBFP 2K3B MLFPZ 4HLFPZ 2KH2 MBFPCT +0 [ COUNT FOR BFP 2L2L ...ZK1PMINPRIN 2LG= STO 0 SLINK(1) [INTERFACE INDICATOT AND PM LINK 2L^W BRN START [J TO MAIN ROUTINE 2MFG ...ZK2PMINPRIN 2M^6 #SKI APTF7<1$1 2NDQ ( 2NYB LDX 3 EXEC3(2) [LOAD JUMP MODE 2PD2 LDX 4 EXEC2(2) [LOAD OUTPUT MODIFIER 2PXL LDX 5 EXEC1(2) [LOAD INSTRUCTION TO BE CONVERTED 2QC= ) 2QWW #SKI APTF7 2RBG ( 2RW6 LDX 4 ACOMMUNE8(2) [OUTPUT MODIFIER 2S*Q ADX 4 FX2 [AS REPLACEMENT IN (FX2) 2STB BRN RFJR 2T*2 ...ZK3PMINPRIN 2TSL MHUNTX 3,ACOMMUNE6(2) [GET ADDRESS OF OUTPUT BLOCK 2W#= ADX 3 ACOMMUNE8(2) [ADDRESS IN BLOCK 2WRW LDX 4 3 2X?G RFJR LDX 3 ACOMMUNE9(2) [BRANCH MODE 2XR6 LDX 5 ACOMMUNE7(2) [INSTRUCTION TO CONVERT 2Y=Q ) 2YQB STO 4 AWORK1(2) [OUTPUT MODIFIER 2^=2 STO 3 AWORK2(2) [BRANCH MODE 2^PL START 329= LDN 6 0 32NW SRL 56 21 [ACCUMULATOR FUNCTION AND 14 BIT 338G SRL 67 17 [OPERAND FIELDS 33N6 LDX 3 6 347Q SRC 3 2 34MB SMO 1 3572 LDCH 0 WORD(3) [LOAD SWITCH USING OPERAND AS 35LL LDN 3 MNEM(1) [MODIFIER 366= SMO 0 36KW BRN P [BRANCH TO APPROPRIATE ROUTINE 375G P LDN 5 #20 [RUPPRERS X FIELD 37K6 ORD ADX 3 6 [ADD FUNCTION TO LIST MODIFIER 384Q ORD2 CALL 0 PSM [RTORE MNELONIC 38JB ORDX CALL 0 SX [STORE X 3942 NOUT SRL 70 22 [UNPACK MODIFIER 39HL STO 0 6 3=3= SRL 6 12 [SHIFT DOWN OPERAND 3=GW OUTR CALL 4 OPSTO [CONVERT OPERAND 3?2G BZE 7 OUT [BRANCH IF NOT MODIFIED 3?G6 REPOU LDN 4 #30 [LOAD AND STORE BRACKET 3?^Q DCH 4 0(3) 3#FB BCHX 3 SM1 3#^2 NORM LDN 3 NM(1) [SET MODIFIER FOR PSM 3*DL BRN RET 3*Y= SHIFT BRN ZHIFT 3BCW SHIF1 BRN ZHIF1 3BXG Z136 BRN Z136A 3CC6 Z137 BRN Z137A 3CWQ Z076 BRN Z076B 3DBB Z164 BZE 7 ZS1 [J IF OPERAND ZERO 3DW2 OCTAL LDX 3 4 [SET OUTPUT MODIFIER 3F*L SRC 6 6 [TRANSLATE TO OCTAL 3FT= LDN 4 2 3G#W STOCT DCH 6 0(3) 3GSG BCHX 3 OCT2 3H#6 Z161 ADN 3 3 [RET PSM MNDIFIER FOR 161 GROUP 3HRQ Z160 ADN 3 58 [RET FOR 160 GROUP 3J?B TXL 5 THREE(1) [TEST AND BRANCH IF X ILLEFAL 3JR2 BCC OCTAL 3K=L ADX 3 5 3KQ= LDN 5 #20 [SUPPRESS X 3L9W BRN ORD2 3LPG TYPES ADN 3 112 [SET PSM MODIFIER FOR GEO 3M96 BRN ORD2 3MNQ O1 ADX 3 5 [ADD X TO PSM MODIFIER FOR 074 JUMPS 3N8B LDN 5 #20 [SUPPRESS X 3NN2 O2 LDX 0 SLINK(1) 3P7L BNZ 0 POST [J IF PM INTERFACE 3PM= LDX 0 AWORK2(2) 3Q6W BZE 0 OCOMP 3QLG POST SRC 6 1 [SET MODIFIER 3R66 NP1 ADX 3 MBFPCT(1) 3RKQ STOZ MBFPCT(1) 3S5B SMO 6 3SK2 ADN 3 20 3T4L CALL 0 PSM [STORE MNEMONIC 3TJ= CALL 0 SX [STORE X 3W3W BNG 6 REPLJ [BRANCH FOR REPLACED JUMPS 3WHG OUMOP LDX 5 SLINK(1) 3X36 BNZ 5 POST1 [J IF PM INTERFACE 3XGQ LDX 5 AWORK2(2) 3Y2B BZE 5 OUMP4-1 [J IF COMPACT 3YG2 POST1 SRA 7 10 [GET SIGNED RELATIVE OPERAND 3Y^L LDN 0 #33 [LOAD PLUS SIGN 3^F= BPZ 7 OUMP3 [BRANCH IF +VE OPERAND 3^YW NGX 7 7 [MAKE NEGATIVE POSITIVE 42DG LDN 0 #35 [LOAD MINUS SIGN 42Y6 OUMP3 DCH 0 0(3) [STORE SIGN 43CQ BCHX 3 OUMP4 43XB YEXIT ADN 3 49 [SET PSM MODIFIER FOR EXIT 44C2 CALL 0 PSM [STORE MNEMONIC 44WL CALL 0 SX [STORE X 45B= SRL 67 1 [GET 15 BIT OPERAND 45TW SRL 7 9 46*G OUMP4 SLL 67 24 [STORE JUMP OPERAND ZEROISING 46T6 BRN OUTR [MODIFIER WORD 47#Q ZHIFT ADN 3 4 [SET MODIFIER FOR 112 AND 113 SHIFTS 47SB ZHIF1 ADN 3 96 48#2 LDCT 0 #140 [ADD N BITS 48RL ANDX 0 7 49?= ERX 7 0 49QW SRL 0 20 4==G ADX 3 0 4=Q6 RET CALL 0 PSM [STORE MNEMONIC 4?9Q ANDN 6 1 4?PB BZE 6 ORDX [BRANCH FOR SINGLE LENGTH 4#92 CALL 0 SXS [STORE X FOR DOUBLE LENGTH 4#NL BRN NOUT 4*8= ZS1 ADN 3 3 [SET PSM MODIFIER FOR 164 GROUP 4*MW TXL 5 TWO(1) 4B7G BCS ORD [J IF SUSAR INSTRUCTION 4BM6 ADN 3 1 4C6Q TXL 5 XFIVE(1) 4CLB BCS ORD [J IF SUSIN INSTR. 4D62 BRN OCTAL 4DKL OCT2 ANDX 6 ZOCT(1) [CLEAR LAST CHAR 4F5= SLC 6 3 [GET NEXT 4FJW BCT 4 STOCT 4G4G DCH 6 0(3) 4GJ6 BCHX 3 £ 4H3Q OCTA3 CALL 0 SUPX 4HHB BRN ORDX 4J32 REPLJ SRL 7 10 [14 BIT REPLACER 4JGL BRN REPOU 4K2= PSM MVCH 3 4 [STORE MNEMONIC 4KFW LDX 3 4 4K^G BCHX 3 REFF2 4LF6 SX DCH 5 0(3) [STORE X 4LYQ SUPX BCHX 3 REFF1 [UPDATE MODIFIER 4MDB SXS DCH 5 0(3) [STORE X 4MY2 BCHX 3 £ [GENERATE X 4NCL SXS1 ADN 5 1 4NX= ANDN 5 7 4PBW DCH 5 0(3) 4PWG REFF1 BCHX 3 £ 4QB6 REFF2 4QTQ BCHX 3 (0) 4R*B SM1 STO 7 6 4RT2 CALL 4 OPSTO [TRANSLATE MODIFIER OR OPERAND FOR 4S#L LDN 7 #31 [REPLACED JUMPS STORE OTHER 4SS= DCH 7 0(3) [BRACKET 4T?W BRN OUT [EXIT 4TRG OCOMP SRL 67 1 4W?6 BRN NP1 4WQQ OPSTO DCH 6 0(3) [DEPOSIT ONE CHAR 4X=B TXL 6 TEN(1) [BRANCH IF LESS THAN 10 4XQ2 BCS TROP 4Y9L MODE 0 [CONVERT NO 4YP= LDX 5 6 4^8W DVD 5 TEN5(1) 4^NG ADN 6 1 5286 LDX 5 6 52MQ LDCT 6 8 537B LDN 0 0 53M2 ZCBD CBD 5 0 546L BZE 0 ZCBD [BRANCH TO SUPPRESS ZEROS 54L= DCH 0 0(3) 555W ZCBD2 BCHX 3 £ 55KG ZCBD1 CBD 5 0(3) 5656 BNZ 6 ZCBD2 56JQ TROP 574B BCHX 3 (4) 57J2 OUT LDX 0 SLINK(1) [ RELOAD LINK & OUTPUT MODIFIER. 583L BNZ 0 (0) [EXIT IF PM ENTRY 58H= LDX 4 AWORK1(2) 592W ADN 4 4 [ UPDATE. 59GG UP 5=26 Z136A BZE 5 P 5=FQ TXU 5 XONE(1) 5=^B BCS OCTAL 5?F2 BNZ 7 OCTAL 5?YL LDN 3 MLFPZ(1) [ PUT MNEMONIC INTO BUFFER 5#D= MVCH 3 4 5#XW BRN OUT [ EXIT 5*CG Z137A LDN 2 #20 [ RESET TO SFP 5*X6 SMO 1 5BBQ DCH 2 ZOCT+18 5BWB TXL 5 XONE(1) [ ACC 0 QUESTION 5CB2 BCS P 5CTL TXU 5 XONE(1) [ACC IS EQUAL TO 1 QUESTION 5D*= BCS OCTAL 5DSW LDN 2 #72 [ CHANGE TO SFPZ 5F#G SMO 1 5FS6 DCH 2 ZOCT+18 5G?Q BRN P 5GRB Z076B TXL 5 XSIX(1) [ VALID ACC? 5H?2 BCS Z076A 5HQL BRN OCTAL [ AND PRINT AS OCTAL 5J== Z076A LDN 0 73 [ SET MNEMONIC PTR 5JPW ADS 0 MBFPCT(1) 5K9G BRN O2 [ TREAT AS BRANCH INSTRUCTION 5KP6 WORD SIX ORD,ORD,ORD,ORD,P 5L8Q SIX ORD,ORD,ORD,ORD,P 5LNB SIX ORD,ORD,ORD,ORD,P 5M82 SIX ORD,ORD,ORD,ORD,P 5MML SIX ORD,ORD,ORD,P,P 5N7= SIX ORD,ORD,ORD,ORD,P 5NLW SIX ORD,ORD,ORD,P,P 5P6G SIX ORD,ORD,ORD,ORD,P 5PL6 SIX ORD,ORD,ORD,ORD,P 5Q5Q SIX ORD,ORD,ORD,ORD,P 5QKB SIX O2,O2,O2,O2,P 5R52 SIX O2,O2,O2,O2,P 5RJL SIX O2,O2,O2,O2,P 5S4= SIX O2,O2,O2,O2,P 5SHW SIX O2,O2,YEXIT,YEXIT,P 5T3G SIX O1,O1,Z076,Z076,P 5TH6 SIX ORD,ORD,ORD,ORD,P 5W2Q SIX ORD,ORD,ORD,ORD,P 5WGB SIX SHIF1,SHIF1,SHIFT,SHIFT,P 5X22 SIX NORM,NORM,ORD,P,P 5XFL SIX ORD,ORD,ORD,P,P 5X^= SIX ORD,P,ORD,ORD,P 5YDW SIX ORD,ORD,ORD,ORD,P 5YYG SIX ORD,ORD,Z136,Z137,P 5^D6 SIX OCTAL,OCTAL,OCTAL,OCTAL,P 5^XQ SIX OCTAL,OCTAL,OCTAL,OCTAL,P 62CB SIX ORD,ORD,ORD,ORD,P 62X2 SIX ORD,ORD,ORD,ORD,P 63BL SIX Z160,Z161,ORD,ORD,P 63W= SIX Z164,ORD,ORD,OCTAL,P 64*W SIX OCTAL,OCTAL,OCTAL,OCTAL,P 64TG SIX OCTAL,OCTAL,OCTAL,OCTAL,P 65*6 #END ^^^^ ...66277666000100000000