/FMTRUL -- WRITE RULERS 0-9 TO FLOPPY 0 AND CLEAR FIRST BLOCK OF CUT-PAST AREA / ******************************************************************** / E D I T H I S T O R Y C O M M E N T S / ******************************************************************** / / 001 EJL 20-JUN-84 EXPAND RULER SIZE FORM 160 TO 238 / / ******************* END EDIT HISTORY ******************************* *RXLDLS RXEWT;0;RXQBLK . DLRLRE;200;CDF 20;-DSRLRE DLCUTB;400;CDF 0;-1 0 *200 SKP CLA JMP I (7605) TAD (177) DCA X0 / INIT PTR TAD (-12) DCA T1 / INIT RULER COUNT CDF 20 / SET DATA FIELD 2 A1, TAD (COSCNT) DCA I X0 / SET COS COUNT WORD TAD (501) DCA I X0 / SET L=1 TAD (-37) DCA T2 / SET COUNT =62 TAD (101) DCA I X0 ISZ T2 JMP .-3 / 62 NULS TAD (601) DCA I X0 / SET R=65 TAD (42-170) / M001 Fill out page DCA T2 / SET CNT TO CLEAR REST OF RULER TAD (101) DCA I X0 ISZ T2 JMP .-3 DCA I X0 / SET 0 FOR STOPPER AC0001 DCA I X0 / SET LEFT MARGIN VALUE TAD (101) DCA I X0 / SET RIGHT MARGIN VALUE TAD (173-200) / M001 DCA T2 / CLEAR REST OF STORAGE DCA I X0 ISZ T2 JMP .-2 ISZ T1 JMP A1 / LOOP FOR ALL RULERS CDF 0 / RESET DATA FIELD JMP I (RXLOAD) / JUMP TO WRITE OUT ROUTINE PAGE ZBLOCK 400 / EMPTY BLOCK FOR CUT-PAST AREA