;%^ ; &dDSTATE TRANSITION TABLE ; ; ; 1-10 INITIALIZATION ; 1, 1, 1, 2, 9 2, 2, 3, 121, 141 3, 10, 4, -1, 4, 4, Reads header of LST file 4, 3, 11, 41,161, 5 5, 4, 101, -1, -1, -1 6, -1 7, -1 8, 17, 1 9, 9, -1 ;%^ ; 11-40 FOR Listings ; 10, -1 11, 10, 12, -1, 12, 12, Reads second line of header 12, 35, 14 13, -1 14, 10, 15, -1, -1, 17, Reads first program line -- looking for C% 15, 16, 18, 9 16, -1 17, 15, 37 18, 13, 21 19, 14, 22 20, 10, 21, 8, 25, 17, Reads detail line 21, 11, 22, 19 22, 12, 20, 23 23, 13, 20 24, 10, 20, 8, -1, -1, Dummy read of second line of header 25, 32, 28, 29,,, Causes crossover when map encountered 26, -1 27, 13, 24,,,, Forces new page after map 28, 31, 24, 27 29, 13, 33,,,, Forces new page before map 30, 32, 27, 33,,, Tests for continuation of map 31, 14, 32 32, 33, 35 33, 10, 34, 8, 30, 34, Reads map line 34, 11, 35, 31 35, 34, 33, 36 36, 13, 33 37, 13, 20 38, -1 39, -1 40, -1 ;%^ ; 41-60 F4P Listing -- Program ; 41, 10, 42, -1, 42, 42, Reads second line of header 42, 36, 44 43, -1 44, 10, 45, -1, -1, 47, Reads first line of program -- looking for C% 45, 16, 48, 9 46, -1 47, 15, 56 48, 13, 52 49, 14, 53 50, 10, 57, 8, 55, 47, Reads detail line 51, 38, 52, 70,,, Causes crossover when map encountered 52, 11, 53, 49 53, 12, 50, 54 54, 13, 50 55, 10, 50, 8, 50, 50, Dummy read of second line of header 56, 13, 50 57, 41, 51, 50 58, -1 59, -1 60, -1 ;%^ ; 61-80 F4P Listing -- Ignore short map ; 61, 10, 61, 8, 62, 61, Reads line of short map 62, 40, 61, 63 63, 10, 64, 8, 64, 64, Dummy read of second line of header 64, 13, 65 65, 10, 66, 8, 66, 47, Reads to next non-null line 66, 41, 67, 65 67, 42, 52, 61 68, -1 69, -1 70, 10, 71, 8, 79, 71, Reads to first non-null line of map 71, 41, 72, 70 72, 43, 61, 76,,, Processing of long map branches off here 73, -1 74, -1 75, -1 76, 13, 77 77, 14, 78 78, 44, 92 79, 10, 70, 8, 70, 70, Dummy read of second line of header 80, -1 ;%^ ; 81-100 F4P Listing -- Print long map ; 81, 13, 52 82, 10, 83, 8, -1, 47, Reads to next non-null line 83, 41, 84, 82 84, 42, 81, 92 85, -1 86, 10, 82, 8, -1, 82, Dummy read of second line of header 87, -1 88, 40, 89, 86 89, 10, 91, 8, -1, 91, Dummy read of second line of header 90, 14, 93 91, 10, 92, 8, 88, 92, Reads map detail line 92, 11, 93, 90 93, 39, 91, 94 94, 13, 91 95, -1 96, -1 97, -1 98, -1 99, -1 100, -1 ;%^ ; 101-120 RATFOR Listing ; 101, 46, 102 102, 10, 103, 8, -1, -1, Dummy read of second line of header (null) 103, 10, 118, 8, -1, 105, Reads first line of program -- looking for #% 104, 16, 108, 9 105, 15, 107 106, -1 107, 13, 110 108, 13, 112 109, 14, 113 110, 10, 111, 8, -1, 105, Reads detail line 111, 48, 112, 115 112, 11, 113, 109 113, 12, 110, 114 114, 13, 110 115, 45, 117, 116 116, 13, 117 117, 10, 110, 8, -1, -1, Dummy read of second line of header 118, 48, 104, -1 119, -1 120, -1 ;%^ ; 121-140 TXT or FCC ; 121, 49, 123 122, -1 123, 10, 135, 8, 123, 125, Reads first line of file -- looking for % 124, 16, 128, 9 125, 15, 127 126, -1 127, 13, 130 128, 13, 132 129, 14, 133 130, 10, 131, 8, 130, 125, Reads detail line 131, 51, 132, 128 132, 11, 133, 129 133, 12, 130, 134 134, 13, 130 135, 51, 124, 124 136, -1 137, -1 138, -1 139, -1 140, -1 ;%^ ; 141-160 General files ; ; Detailed comments are given to clarify the basic loop. ; 141, 52, 143,,,, Initializes heading and pointers 142, -1 143, 10, 144, 8, 143, 145, Reads first line of file -- looking for % 144, 16, 148, 9,,, Reads heading from TI since none in file 145, 15, 147,,,, Copies heading from % line 146, -1 147, 13, 150,,,, Forces new page for new heading 148, 13, 151,,,, " " " " " " 149, 14, 152,,,, Prints heading 150, 10, 151, 8, 150, 145, Reads detail line 151, 11, 152, 149,,, Detects header time 152, 12, 150, 153,,, Prints detail line 153, 13, 150,,,, Forces new page when page is full 154, -1 155, -1 156, -1 157, -1 158, -1 159, -1 160, -1 ;%^ ; 161 - 190 MAC Initialization ; 161, 53, 162 162, 10, 163, -1, -1, 163, Reads subtitle 163, 54, 164, 165 164, 10, 164, -1, 162, 164, Reads through to next header 165, 10, 166, -1, -1, -1, Dummy read of null line after subtitle 166, 10, 167, -1, -1, 168, Read first line for % 167, 16, 169, 9 168, 15, 169 169, 55, 170,,,, Rewind the file 170, 13, 191 171, -1,,,,, Section reserved for fixing the TOC 172, -1 173, -1 174, -1 175, -1 176, -1 177, -1 178, -1 179, -1 180, -1 181, -1 182, -1 183, -1 184, -1 185, -1 186, -1 187, -1 188, -1 189, -1 190, -1 ;%^ ; MAC Listing ; 191, 10, 194, 8, 199, 192, Main read 192, 15, 193 193, 13, 191 194, 56, 195,, ,, Blank page number in TOC 195, 11, 197, 196 196, 18, 197 197, 12, 191, 198 198, 13, 191 199, 57, 201, 200, -1,, Test for page break 200, 13, 201 201, 10, 202, 8, -1, 202, Read subtitle 202, 54, 204, 204, 203 203, 13, 204 204, 10, 191, 8, -1, 191, Dummy read of null line 205, -1 206, -1 207, -1 208, -1 209, -1 210, -1