Previous Page Single Page Next Page  

* 0500-001-6612 (016-11T1) CCD NO. 70180294000 REV. D PAGE 16

0750 02042 0 04 01600 STA CNST 0751 02043 0 02 01615 LDA KT2 0752 02044 0 04 01601 STA TOTL 0753 02045 0 01 01751 JMP DV1 0754 * 0755 * ROUTINE WHICH CHECKS ADDRESSES IN 'JLXX' LOCATIONS DUE TO 'JST *+1' 0756 * INSTRUCTIONS. 0757 * 0758 02046 0 35 02633 JLCK LDX =-28 SET UP FOR 28 PASSES THROUGH THIS ROUTINE 0759 02047 -1 02 02225 CHK2 LDA* CKTB+28,1 GET CONTENTS OF ONE OF THE 'JLXX' LOCS. 0760 02050 1 11 02225 CAS CKTB+28,1 AND CHECK IT AGAINST THE 'CKTB' ENTRY 0761 02051 000000 HLT STOP, IF ERROR 0762 02052 0 01 02054 JMP *+2 GO ON, IF OK 0763 02053 000000 HLT STOP, IF ERROR 0764 02054 0 12 00000 IRS 0 INCRESENT INDEX REGISTER 0765 02055 0 01 02047 JMP CHK2 GO BACK UNTIL FINISHED 0766 * 0767 * PASS-COUNTING ROUTINE 0768 * 0769 02056 0 12 02170 IRS NPAS+8 INCREMENT ONES COUNTER 0770 02057 0 01 02113 JMP END IF NOT 0771 02060 0 02 02710 LDA =-10 IF =0, 0772 02061 0 04 02170 STA NPAS+8 RESTORE TO -10, 0773 02062 0 12 02167 IRS NPAS+7 INCREMENT TENS COUNTER. ETC. 0774 02063 0 01 02113 JMP END 0775 02064 0 04 02167 STA NPAS+7 0776 02065 0 12 02166 IRS NPAS+6 0777 02066 0 01 02113 JMP END 0778 02067 0 04 02166 STA NPAS+6 0779 02070 0 12 02165 IRS NPAS+5 0780 02071 0 01 02113 JMP END 0781 02072 0 04 02165 STA NPAS+5 0782 02073 0 12 02164 IRS NPAS+4 0783 02074 0 01 02113 JMP END 0784 02075 0 04 02164 STA NPAS+4 0785 02076 0 12 02163 IRS NPAS+3 0786 02077 0 01 02113 JMP END 0787 02100 0 04 02163 STA NPAS+3 0788 02101 0 12 02162 IRS NPAS+2 0789 02102 0 01 02113 JMP END 0790 02103 0 04 02162 STA NPAS+2 0791 02104 0 12 02161 IRS NPAS+1 0792 02105 0 01 02113 JMP END 0793 02106 0 04 02161 STA NPAS+1 0794 02107 0 12 02160 IRS NPAS 0795 02110 0 01 02113 JMP END 0796 02111 0 04 02160 STA NPAS 0797 02112 000000 HLT 1,000,000,000 PASSES 0798 * 0799 02113 0 12 02157 END IRS CTR2 BUMP TIMED PRINTOUT
  Previous Page Single Page Next Page