F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 28

1129 * FIRST WORD DOES MATCH - CHECK THE REST 1130 00467 -0 02 00105 FNDS LDA* T2 GET LENGTH 1131 00470 0404 70 LGR 8 MOVE TO LOWER BYTE 1132 00471 0 03 00723 ANA ='077 LOSE FLAGS 1133 00472 140407 TCA WE COUNT -N TO -1 1134 00473 0 04 00107 STA T4 1135 00474 0 01 00507 JMP FNDZ 1136 * 1137 00475 0 12 00105 FNDT IRS T2 STEP POINTERS 1138 00476 0 12 00106 IRS T3 1139 00477 -0 02 00105 LDA* T2 PICK UP TWO BYTES FROM EACH STRING 1140 00500 -0 05 00106 ERA* T3 1141 00501 0 12 00107 IRS T4 FIRST OF TWO INCREMENTS IN LOOP 1142 00502 100000 SKP 1143 00503 0 01 00521 JMP FNDY 1144 00504 0 03 00722 ANA ='077577 LOSE MS BITS 1145 00505 100040 SZE 1146 00506 0 01 00453 JMP FNDX DON'T MATCH GO TO NEXT DIRECTORY ENTRY 1147 00507 0 12 00107 FNDZ IRS T4 1148 00510 0 01 00475 JMP FNDT 1149 * 1150 * MATCH - RETURN REQUIRED VALUES 1151 00511 0 02 00106 FNDM LDA T3 POINTS AT LAST BYTES OF NAME 1152 00512 0 06 00730 ADD =3 SKIP OVER LINK AND CODE ADDRESS 1153 00513 1 04 00002 STA 2,1 1154 00514 0 02 00110 LDA T5 GET SAVED (NFA) 1155 00515 0404 70 LGR 8 PUT LENGTH IN LOW BYTE 1156 00516 1 04 00001 STA 1,1 1157 00517 0 02 00736 LDA =1 1158 00520 0 01 00116 JMP PUSH 1159 * 1160 * FIRST IRS SKIPPED - SO ONLY THE TOP 1161 * BYTE SHOULD BE COMPARED, NOT BOTH 1162 00521 0 03 00721 FNDY ANA ='077400 LOSE MS BIT AND LOWER BYTE 1163 00522 100040 SZE MATCHED 1164 00523 0 01 00453 JMP FNDX 1165 00524 0 01 00511 JMP FNDM 1166 * 1167 * THE STRINGS DON'T MATCH 1168 00525 140040 FNDN CRA 1169 00526 0 01 00124 JMP BINA 1170 EJCT