,0080121001 LOAD COMPARE 0110A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0110A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0110A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 0110A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 0110A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 0110A 06 L0313961001B389 USE WHEN TESTS ARE RUN FROM TAPE 0110A 07 L0314041001BS88 ,, 0110A 08 L0314081001N000 ,, 0110A 09 L0314121001M360392 ,, 0110A 10 L0314191001/332 START TEST 0110A 11 L0314231001/ 0110A 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 0110A 13 L0314321001/080 CLEAR READ AREA 0110A 14 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 0110A 15 L0314401001,001078 LOAD PRINT AREA 0110A 16 L0314471001L080299 ,, 0110A 17 L0314541001L072272 ,, 0110A 18 L0314611001,210241 ,, 0110A 19 L0314681001L210270 LOAD OP WITH CHAINING 0110A 20 L0314751001L ,, 0110A 21 L0314761001B449B B ON TO SCOPE 0110A 22 L0314811001)270 TEST FOR ERROR 0110A 23 L0314851001C270250 ,, 0110A 24 L0314921001B900/ BRANCH TO ERROR PRINT ROUTINE IF UNEQ 0110A 25 L0314971001B950C C ON TO CORRECT PRINT ROUTINE 0110A 26 L0315021001B958 BRANCH TO SENSE D 0110A 27 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 0110A 28 L0319261001B916E E ON TO ERROR STOP 0110A 29 L03193110012958 ERROR PRINT 0110A 30 L0319351001.958 ERROR STOP 0110A 31 L0319391001 WORD MARK 0110A 32 L0319691001L/19285 CORRECT PRINT ROUTINE 0110A 33 L03197610012 ,, 0110A 34 L0319771001B421D D ON TO REPEAT 0110A 35 L0319821001B417 BRANCH TO READ NEXT RECORD 0110A 36 L031/291001ERROR CONSTANTS 0110A 37 L031/341001 ,, 0110A 38 L031/391001A FIELD ,, 0110A 39 L031/591001B FIELD ,, 0110A 40 L031/791001RESULT SHOULD BE ,, 0110A 41 L031/991001RESULT IS ,, 0110A 42 ,019027,031,038042B031T98"B400L046352BW04BS88 LOAD COMPARE 0110A 43 1111111111 1111111111 0110A 44 2222222222 2222222222 0110A 45 4444444444 4444444444 0110A 46 8888888888 8888888888 0110A 47 ////////// ////////// 0110A 48 ---------- ---------- 0110A 49 AKT4 BLU5 AKT4 BLU5 0110A 50 CMV6 DNW7 CMV6 DNW7 0110A 51 EOX8 FPY9 EOX8 FPY9 0110A 52 GQZ0 HR`# GQZ0 HR`# 0110A 53 I-,@ &$%0 I-,@ &$%0 0110A 54 1.*/ )JS3 1.*/ )JS3 0110A 55