PAOUT V01L02 1130 PLAN (1130-CX-25X) 08/30/71 * // ASM PAO00020 *XREF PAO00040 *LIST PAO00060 *MACLIB PMAC1 PAO00080 ENT PAOUT PAO00100 DATE PAOUT PAO00120 HDNG PAOUT - A-FORMAT OUT CONVERSION PAO00140 *PLAN SYSTEM I/O SUBROUTINES PAO00160 **PAOUT - PLACE A FORMAT IN CURRENT I/O BUFFER PAO00180 GO LD 2 0 GET INPUT WORD PAO00200 AND XFF SECOND CHARACTER PAO00220 LIBF PBPUT PLACE IN BUFFER PAO00240 LD CNTRL NEW PAO00260 EOR XFF PLAN PAO00280 STO CNTRL WORD PAO00300 BSC Z NO PAO00320 MDX 2 -4 YES, GET NEXT PAO00340 MDX 2 +1 GET NEXT WORD PAO00360 MDX 1 -1 LAST CHARACTER PAO00380 MDX LOOP NO, GET NEXT PAO00400 EXIT LIBF PBUFX YES, EXIT PAO00420 PAOUT DC *-* PAO00440 LIBF PBUFG SAVE REGS AND GET PARAMS PAO00460 MDX L PAOUT,+4 GET RETURN ADDRESS PAO00480 BZ EXIT IF NO BUFFER, EXIT PAO00500 LD I2 2 GET CHARACTER COUNT PAO00520 BNP EXIT IF NOT POSITIVE EXIT PAO00540 STO LDX1+1 SAVE PAO00560 LD 2 3 GET INPUT ARRAY ADD PAO00580 STO LDX2+1 SAVE PAO00600 LD XFF SET WORD PAO00620 STO CNTRL CONTROL PAO00640 LDX1 LDX L1 *-* GET COUNT AND PAO00660 LDX2 LDX L2 *-* INPUT ARRAY PAO00680 LOOP LD 2 0 GET INPUT WORD PAO00700 SRA 8 FIRST CHARACTER PAO00720 LIBF PBPUT PLACE IN BUFFER PAO00740 MDX 1 -1 LAST CHAR PAO00760 MDX GO NO, GET NEXT PAO00780 B EXIT YES EXIT PAO00800 XFF DC /FF PAO00820 CNTRL DC 0 PAO00840 END PAO00860 // DUP PAO00880 *DUMP WS CD PAOUT PAO00900 *DELETE PAOUT PAO00920 *STORE WS UA PAOUT PAO00940