UNCOD V02L00 73 8 1130 DPS (1130-CX-14X) V02M00 2-28-69 UNCOD * // JOB UNCO0010 // ASM UNCO0040 *LIST UNCO0050 HDNG UNCOD - MONTHLY CODE GENERATION UNCO0060 ENT UNCOD UNCO0070 UNCOD DC 0 UNCO0080 STX 1 SAVE&1 SAVE INDEX REGISTERS UNCO0090 STX 2 SAVE&3 UNCO0100 LDX I1 UNCOD ARGUMENT LIST ADDRESS UNCO0110 LD I1 0 UNCO0120 SLA 1 MULTIPLY BY 2 UNCO0130 STO NMON&1 ADDRESS OF MONTH NUMBER UNCO0140 LD 1 1 UNCO0150 STO COUNT&1 LABEL COUNT UNCO0160 LD 1 2 UNCO0170 STO PCHAR&3 ADDRESS OF CHARACTER TABLE UNCO0180 LD 1 3 UNCO0190 STO PCHAR&6 ADDRESS OF ROTATION UNCO0200 NMON LDX L1 0 UNCO0210 LD L1 MTAB-2 FIRST TWO CHARACTERS UNCO0220 BSI SEP SEPARATE TO TWO WORDS UNCO0230 COUNT LDX I2 0 UNCO0240 BSI PCHAR PLOT FIRST UNCO0250 LD N2 UNCO0260 STO N1 MOVE 2ND TO FIRST UNCO0270 BSI PCHAR PLOT 2ND UNCO0280 LD L1 MTAB-1 GET 3RD AND 4TH UNCO0290 BSI SEP BREAK TO 2 WORDS UNCO0300 PN5 BSI PCHAR PLOT 3RD UNCO0310 MDX 2 -3 ARE THREE ENOUGH UNCO0320 MDX PN4 NO UNCO0330 SAVE LDX L1 0 RESTORE INDEX REGISTERS UNCO0340 LDX L2 0 UNCO0350 MDX L UNCOD,4 UNCO0360 BSC I UNCOD EXIT UNCO0370 MTAB EBC .JAN . LABEL MONTH TABLE UNCO0380 EBC .FEB . UNCO0390 EBC .MAR . UNCO0400 EBC .APR . UNCO0410 EBC .MAY . UNCO0420 EBC .JUN . UNCO0430 EBC .JUL . UNCO0440 EBC .AUG . UNCO0450 EBC .SEP . UNCO0460 EBC .OCT . UNCO0470 EBC .NOV . UNCO0480 EBC .DEC . UNCO0490 SEP DC 0 UNCO0500 SRT 16 TO EXTENSION UNCO0510 SLA 8 SET UP CLEAR ON ACCUM UNCO0520 SLT 8 FIRST CHARACTER UNCO0530 STO N1 TO N1 UNCO0540 SLA 8 SET UP CLEAR ON ACCUM UNCO0550 SLT 8 SECOND CHARACTER UNCO0560 STO N2 TO N2 UNCO0570 BSC I SEP EXIT UNCO0580 N1 DC 0 UNCO0590 N2 DC 0 UNCO0600 PN4 LD N2 & TO PLOT CHARACTER UNCO0610 STO N1 UNCO0620 MDX PN5 UNCO0630 PCHAR DC 0 UNCO0640 CALL VCGEN UNCO0650 DC 0 CHARACTER TABLE UNCO0660 DC K2 XSIZE UNCO0670 DC K2 YSIZE UNCO0680 DC 0 ROTATION UNCO0690 DC N1 CHARACTER UNCO0700 BSC I PCHAR UNCO0710 K2 DEC 2. UNCO0720 END UNCO0730 // DUP UNCO0740 *DELETE UNCOD UNCO0742 *DUMP WS CD UNCOD UNCO0745 *STORE WS UA UNCOD UNCO0750