JOB LOADER * ,008015,019026,030,034041,045,053,0570571026 0001 * L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 0002 * ,008015,022029,036040,047054,061068,072/061039 ,00100110400003 * /633////,500350,200 L019118,104105,106107,10811510400004 * M174632Z6323322M632482A482632,200 L033151,126133,134141,14804010400005 * C176201B126SF1.100B1001 L025176,159164,166170,17417510400006 * /100080 0007 * CTL 6611 *6=16,000C;6=16,000T;1=OBJDECK;,1=MODADD * 1 2 3 4 5 6 7 8 *78901234567890123456789012345678901234567890123456789012345678901234567890 * label | op | OPERATION |xxxxxxx ORG 1 * *PRINTD CS 633 * start clearing down to 200, PRINT AREA * CARD #1 * ,008015,019026,030,034041,045,053,0570571026 0001 * 1 2 3 4 5 6 7 8 *78901234567890123456789012345678901234567890123456789012345678901234567890 * label | op | OPERATION |xxxxxxx START1 SW A008,A015 * ,008015 - actually ,008 is also done by hardware A008 SW A019,A026 * ,019026 - set word mark A015 SW A030 * ,030 A019 SW A034,A041 * ,034041 A026 SW 045 * ,045 A030 SW 053 * ,053 A034 SW 057,057 * ,057057 A041 R 026 * 1026 - read and branch to 026 * CARD #2 * L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 0002 ORG 1 B001 MLCWA 068,112 * L068112 - load character to a word mark B008 SW 102,106 * ,102106 B015 SW 113 * ,113 B019 CS 101,099 * /101099 Clear Storage and Branch B026 CS I99 * /I99 Clear block of storage B030 SW 027 * ,027 modify clear instruction B034 A 070,028 * A070028 ADD 070 to 028 to next lowest block B041 CW 027 * )027 ) is losenge - Clear Word Mark B045 BCE 001,027,0 * B0010270 - Branch if Character = ?? check for clear address of 099 B053 B 026 * B026 branch to clear block of storage B057 R * 1 read card B058 SW 001 * ,001 set word mark in 1 B062 CS 001,113 * /001113 clear storage and branch * CARD #3 * ,008015,022029,036040,047054,061068,072/061039 ,00100110400003 END START1