Previous File Previous Page Single Page Next Page Next File

* 0520-001-H002 (O16-DPT9) DRAWING NO. 41285751-001-01 PAGE 20

0883 01766 0 01 01764 JMP *-2 MOVE PLOTTER NEXT STEP 0884 01767 0 02 04431 LDA =-8 NUMBER OF ROWS IN THE PATTERN 0885 01770 0 04 04344 STA ROWC 0886 01771 0 02 04405 P1NR LDA =-60 NUMBER OF PAIRS OF UNITS TO BE MOVED 0887 01772 0 04 04324 STA CNTR UNIT-PAIR COUNTER 0888 * 0889 01773 0 10 03461 P101 JST MPDN 0890 01774 0 35 04340 LDX NUNT STEP COUNTER (NO OF STEPS IN 1 UNIT) 0891 01775 0 02 04344 P102 LDA ROWC 0892 01776 100100 SLZ SKIP IF BIT 16 RESET (TEST FOR ODD/EVEN ROW) 0893 01777 0 01 02002 JMP *+3 BIT 16 SET (EVEN NUMBERED ROW) 0894 02000 0 10 03241 JST MPET 0895 02001 100000 SKP 0896 02002 0 10 03263 JST MPWT 0897 02003 0 12 00000 IRS 0 INCREMENT STEP COUNTER 0898 02004 0 01 01775 JMP P102 PLOT NEXT STEP 0899 02005 0 10 03507 JST MPUP 0900 02006 0 35 04340 LDX NUNT STEP COUNTER (NO OF STEPS IN 1 UNIT) 0901 02007 0 02 04344 P103 LDA ROWC 0902 02010 100100 SLZ SKIP IF BIT 16 RESET (TEST FOR ODD/EVEN ROW) 0903 02011 0 01 02014 JMP *+3 BIT 16 SET (EVEN NUMBERED RON) 0904 02012 0 10 03241 JST MPET 0905 02013 100000 SKP 0906 02014 0 10 03263 JST MPWT 0907 02015 0 12 00000 IRS 0 INCREMENT STEP COUNTER 0908 02016 0 01 02007 JMP P103 MOVE PLOTTER NEXT STEP 0909 02017 0 12 04324 IRS CNTR INCREMENT UNIT-PAIR COUNTER 0910 02020 0 01 01773 JMP P101 MOVE PLOTTER NEXT PAIR OF UNITS LENGTH 0911 * 0912 02021 0 12 04344 IRS ROWC INCREMENT ROW COUNTER 0913 02022 100000 SKP MOVE PLOTTER NORTH TO PLOT NEXT ROW 0914 02023 0 01 02031 JMP P104 ALL ROWS PLOTTED IN THE PATTERN 0915 02024 0 35 04340 LDX NUNT STEP COUNTER (NO OF STEPS IN 1 UNIT) 0916 02025 0 10 03305 JST MPNT 0917 02026 0 12 00000 IRS 0 INCREMENT STEP COUNTER 0918 02027 0 01 02025 JMP *-2 MOVE PLOTTER NEXT STEP 0919 02030 0 01 01771 JMP P1NR PLOT NEXT ROW 0920 * 0921 02031 0 35 04350 P104 LDX 20NU STEP COUNTER (NO OF STEPS IN 20 UNITS) 0922 02032 0 10 03305 JST MPNT 0923 02033 0 12 00000 IRS 0 INCREMENT STEP COUNTER 0924 02034 0 01 02032 JMP *-2 MOVE PLOTTER NEXT STEP 0925 * 0926 02035 0 02 04341 LDA PALL 0927 02036 101040 SNZ TEST FOR REQUIREMENT 0F PLUTTING ALL PATRNS 0928 02037 0 01 02043 JMP PAT2 PLOT PATTERN TWO 0929 02040 0 01 01722 JMP AQTN ASK QUESTION: TEST NO? 0930 * 0931 02041 0 11 04447 P002 CAS ='262 '262 = CHARACTER TWO 0932 02042 0 01 02341 JMP P003 INPUT CHARACTER OTHER THAN TWO
Previous File Previous Page Single Page Next Page Next File