C210-001-6601 (FRTN) 3C NO.180463000 REV. D

* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 123

5937 12377 0410 60 LLL 16 5938 12400 0 04 14634 STA OCI+2 5939 12401 0 02 00572 LDA NAMF+2 5940 12402 0 04 14714 STA PRI+10 5941 12403 000201 IAB 5942 12404 0 02 00571 LDA NAMF+1 5943 12405 0410 70 LLL 8 5944 12406 0 04 14635 STA OCI+3 5945 12407 0410 60 LLL 16 5946 12410 0 04 14636 STA OCI+4 5947 12411 0 02 00746 LDA K128 ='14 5948 12412 0 04 00602 STA OCNT OCNT = 6 5949 12413 0 02 12433 LDA CN90 5950 12414 0 04 14707 STA PRI+5 5951 12415 0 02 12434 LDA CN90+1 5952 12416 0 04 14710 STA PRI+6 5953 12417 0 02 00060 LDA RPL 5954 12420 0 10 14150 JST OR80 5955 12421 0 014702 DAC PRI 5956 12422 100010 SR2 5957 12423 0 01 12426 JMP *+3 INHIBIT SYMBOLIC OUTPUT 5958 12424 0 10 00000 CALL F4$SYM OUTPUT SYMBOLIC LINE, 5959 12425 0 014702 DAC PRI 5960 12426 0 12 00060 IRS RPL RPL = RPL + 1 5961 12427 0 10 14301 JST PRSP SET PRINT BUFFER TO SPACES 5962 12430 0 10 14523 JST FS00 FLUSH 5963 12431 -0 01 12363 JMP* CN00 RETURN 5964 12432 055000 K147 OCT 55000 5965 12433 141701 CN90 BCI 2,CALL 12434 146314 5966 * ************* 5967 * *OUTPUT PACK* 5968 * ************* 5969 * OUTPUT THE PACK WORD WHEN IT IS FULL. 5970 12435 0 00 00000 PKF PZE 0 PACK FLAG 5971 12436 0 00 00000 T0OK PZE 0 5972 12437 0 000000 OK00 DAC ** 5973 12440 0 11 00756 CAS CRET IF (A) = C/R 5974 12441 0 01 12443 JMP *+2 5975 12442 0 01 12460 JMP OK30 GO TO OK30 5976 12443 0 12 12435 IRS PKF PKF = PKF + 1 5977 12444 0 01 12453 JMP OK20 IF NON-ZERO, GO TO OK20 5978 12445 0 06 12436 OK10 ADD T0OK (A) = (A) + T0 5979 12446 0400 60 LRL 16 5980 12447 0 04 00640 STA DF 5981 12450 000201 IAB 5982 12451 0 10 14127 JST OA00 OUTPUT ABS 5983 12452 -0 01 12437 JMP* OK00 5984 12453 0414 70 OK20 LGL 8 5985 12454 0 04 12436 STA T0OK