,0080121001 ,0080121001 ORG 333 RELOAD L0313521001,008012 SW 8,12 GET READY L0313591001,001 SW 1 GET READY... L03136310011001 R 1 LOAD IT L03136710011 R READ A CARD L0313681001B3610801 B *&5,80,A IS IT A HEADER CARD? L0313761001B421 B 421 WHAT WILL BE HERE? L0313801001/340080 CS RELOAD,80 l0313871001 DCW #1 ,0080121001 HDRS EQU 1120 ALL PROGRAMS PUT HEADERS HERE ,0080121001 TITLEX EQU 413 ALL PROGRAMS RETURN HERE ,0080121001 ORG 1200 TITLE PRINT ROUTINE L031S1910012 TITLPR W PRINT (SPACE). 1 1200 2 6 L031S201001,049 SW 49 SET WM FOR TITLE AND BLOCK NO. 4 1201 , 049 6 L031S241001L077277 LCA 77,277 LOAD TITLE AND BLOCK NO. IN PRINT AREA. 7 1205 L 077 277 6 L031S3110012 W PRINT TITLE AND BLOCK NO. 1 1212 2 6 L031S321001/277 CS 277 CLEAR PRINT AREA 4 1213 / 277 6 L031S3610012 W PRINT (SPACE). 1 1217 2 6 L031S371001)/40/60 CW HDRS&20,HDRS&40 CLEAR WORD MARKS IN SECOND 7 1218 ) /40 /60 6 L031S441001)/80 CW HDRS&60 LINE STORED INFORMATION. 4 1225 ) /80 7 L031S481001L/99280 LCA HDRS&79,280 LOAD SECOND LINE. 7 1229 L /99 280 7 L031S5510012 W PRINT SECOND LINE. 1 1236 2 7 L031S561001/280 CS 280 CLEAR PRINT AREA. 4 1237 / 280 7 L031S6010012413 W TITLEX PRINT (SPACE) AND BRANCH TO MAIN PROGRA 4 1241 2 413 7 L031S641001 DCW #1 1 1245 7 .111111