00000 45 00000 00066 Jump to start. 00001 47 13501 60140 Constant number. 00002 00 00000 00000 Random number. 00003 71 00002 00001 \ 00004 32 00001 00105 | Random number generator. 00005 11 32000 00002 | 00006 45 00000 00000 / 00007 11 32000 31000 \ 00010 54 32000 00025 | 00011 15 32000 00012 | Random number punch routine. 00012 63 00000 31000 | 00013 45 00000 00000 / 00014 17 00000 00164 \ Step Ferranti. 00015 37 00006 00003 | Jump to generate random number. 00016 11 00062 31000 | Mask to Q. 00017 51 32000 32000 | Mask Lower 7 bits to A. 00020 76 00000 31000 | Compare routine read 1 line tape to Q. 00021 43 31000 00023 | Check for correct data from tape. 00022 56 00022 00100 | error stop. 00023 41 00056 00025 | Count Line index down 1. 00024 45 00000 00066 | jump to print "OK". 00025 41 00061 00014 / Count down mode index 1. 00026 45 00000 00000 Jump to next selection. 00027 45 47150 40104 \ 00030 01 20240 10404 | Packed Flex codes. 00031 47 03360 45704 / 00032 11 00162 31000 Line index to Q. 00033 56 10000 00034 MS-1 to change line index. 00034 11 31000 32000 Line index to A. 00035 41 32000 00037 Reduce index by 1. 00036 56 00036 00032 error stop. 00037 11 32000 00055 \ Store index. 00040 11 32000 00053 / 00041 75 00140 00043 \ Punch leader 00042 63 00000 00034 / 00043 63 10000 00034 Punch 7th Level. 00044 75 00040 00046 \ Punch 32 lines of zeroes. 00045 63 00000 00034 / 00046 37 00006 00003 Jump to generate number. 00047 37 00013 00007 Jump to punch generated number. 00050 41 00053 00046 Count line index down 1. 00051 75 00100 00054 \ Punch trailer. 00052 63 00000 00034 / 00053 00 00000 00000 Line index (punching). 00054 56 00000 00100 00055 00 00000 00000 Line index storage, K. 00056 00 00000 00000 Line index (reading). 00057 00 00000 00036 \ Leader index (reading). 00060 00 00000 00000 / 00061 00 00000 00000 Mode index k. 00062 00 00000 00177 Mask. 00063 00 00000 00017 \ 00064 00 00000 00010 | Program constants. 00065 00 00000 00100 / 00066 11 00157 31000 Print mask to Q. 00067 31 00027 00052 1st flex code to A_0 - 5. 00070 61 00000 32000 Print flex code. 00071 54 32000 00006 Shift next flex code to A_0 - 5. 00072 44 00070 00073 Check for finished packed flex word. 00073 15 00160 00067 Change packed word setup inst. 00074 37 00072 00067 Modify jumpout at end packed flex word. 00075 15 00161 00067 Changed packed word setup inst. 00076 37 00072 00032 Modify jumpout at end packed flex word. 00077 56 00000 00100 Stop, go to read routine. 00100 17 00000 00164 \ Clear IOA. 00101 76 00000 01770 / 00102 11 00055 00056 Set line index (read). 00103 17 00000 00165 Start Ferranti. 00104 76 00000 32000 Read 1 line data to A. 00105 47 00106 00104 Check for information. 00106 43 00065 00110 Check for 7th level. 00107 56 00107 00100 Error stop. 00110 11 00057 00060 Set Leader index (read). 00111 76 00000 32000 Read 1 ine leader to A. 00112 41 00060 00111 Count leader 1 index (read) down 1. 00113 17 00000 00166 Stop Ferranti. 00114 76 00000 32000 Read last line leader to A. 00115 11 00002 31000 Random number to Q. 00116 23 00002 00002 Clear random number storage. 00117 51 00063 00061 Set up mode index. 00120 42 00064 00123 Select mode of operation. 00121 37 00026 00014 Jump to read step mode. 00122 45 00000 00124 Jump to next selection. 00123 37 00150 00137 Jump to read free run mode. 00124 11 00002 31000 Random number to Q. 00125 45 00000 00117 Jump to select mode of operation. 00126 00 00000 00000 00127 37 00006 00003 Jump to generate random number. 00130 11 00062 31000 Mask to Q. 00131 51 32000 32000 Mask lower 7 bits to A. 00132 76 00000 31000 Read 1 line of tape to Q. 00133 43 31000 00136 Check for correct data from tape. 00134 17 00000 00166 Stop Ferranti. 00135 56 00135 00100 Error stop. 00136 45 00000 00000 Jump back to free run program. 00137 41 00056 00141 Count down line index (reading). 00140 45 00000 00154 Jumpt o step Ferranti. 00141 17 00000 00165 Start Ferranti. 00142 37 00136 00127 Jump to read and check one line. 00143 41 00056 00145 Count down line index. 00144 45 00000 00151 Jump to stop Ferranti. 00145 41 00061 00142 Count down mode index. 00146 17 00000 00166 Stop Ferranti. 00147 37 00136 00127 Jump to read and check one line. 00150 45 00000 00000 Jump to next selection. 00151 17 00000 00166 Stop Ferranti. 00152 37 00136 00127 Jump to read and check one line. 00153 45 00000 00066 Jump to print "OK". 00154 17 00000 00164 Step Ferranti. 00155 37 00136 00127 Jump to read and check one line. 00156 45 00000 00066 Jump to type "OK". 00157 76 76767 67676 Printing mask. 00160 00 00030 00000 \ Print constants. 00161 00 00031 00000 / 00162 00 00000 05000 Line index-K. 00163 26 26262 62626 00164 10 00003 00000 Code for step Ferranti. 00165 10 00002 00000 Code for start Ferranti. 00166 10 00001 00000 Code for stop Ferranti.