BREAK V01L02 1130 PLAN (1130-CX-25X) 08/30/71 * // ASM BRE00020 *LIST BRE00040 *SEPARATE BYTES TO INTEGER ARRAY BRE00060 ENT BREAK BRE00080 HDNG BREAK - SET BYTES TO INTEGER ARRAY BRE00100 BREAK DC 0 STORE ARG LIST ADDRESS BRE00120 STX 1 SAVE+1 SAVE BRE00140 STX 2 SAVE+3 INDEX BRE00160 STX 3 SAVE+5 REGISTERS BRE00180 LD BREAK ADDRESS OF FROM BRE00200 STO P1+1 BRE00220 STO P1+3 BRE00240 MDX L P1+3,1 TO ADDRESS BRE00260 P1 LDX I1 *-* A(FROM) TO XR1 BRE00280 LDX I2 *-* A(TO) TO XR2 BRE00300 LDX 3 2 LOOP CONTROL BRE00320 SLT 32 CLEAR ACC + EXT BRE00340 LOOP LD 1 0 LOAD LEFT HALF WORD BRE00360 RTE 8 STORE BRE00380 STO 2 0 BYTE 1 BRE00400 SLA 8 SETUP BRE00420 SLT 8 BYTE 2 BRE00440 STO 2 -2 AND STORE BRE00460 MDX 2 -4 ADJUST TO ADD FOR BYTE 3,4 BRE00480 MDX 1 1 TO RIGHT HALF PLAN WORD BRE00500 MDX 3 -1 LOOP CONTROL BRE00520 MDX LOOP SKIP OVER FOR EXIT BRE00540 SAVE LDX L1 *-* RESTORE BRE00560 LDX L2 *-* INDEX BRE00580 LDX L3 *-* REGISTERS BRE00600 MDX L BREAK,2 BRE00620 BSC I BREAK EXIT BRE00640 END BRE00660 // DUP BRE00680 *DUMP WS CD BREAK BRE00700 *DELETE BREAK BRE00720 *STORE WS UA BREAK BRE00740