Previous File Previous Page Single Page Next Page Next File

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

1056 01753 0 10 02764 JST CIB CHECK FOR .NOT. OPERATOR 1057 01754 1 002543 DAC KNOT+3,1 CHECK FOR .NOT. OPERATOR 1058 01755 0 01 02342 JMP DN9N OPERATOR IS .NOT. 1059 01756 140040 DN63 CRA IM = 0 1060 01757 0 04 00653 STA IM 1061 01760 0 01 01772 JMP DN67 GO TO DN67 (18) 1062 01761 0 02 00717 DN64 LDA K101 1063 01762 0 04 01475 STA TID 1064 01763 0 02 00717 DN66 LDA K101 1065 01764 0 04 00573 STA NT NAME TAG = 1 (CONSTANT) 1066 01765 0 02 00720 LDA K102 IU=VAR 1067 01766 0 04 00655 STA IU 1068 01767 0 02 00721 LDA K103 1069 01770 0 04 00653 STA IM IM = LOG 1070 01771 0 10 01256 JST CH00 1071 01772 0 10 01412 DN67 JST FN00 FINISH OPERATOR 1072 01773 0 02 01516 DN68 LDA F6 IF F6 = 0, 1073 01774 101040 SNZ GO TO DN70 (21) 1074 01775 0 01 02000 JMP DN70 1075 01776 0 02 00675 DN69 LDA K10 1076 01777 0 04 00607 STA TC TC = . 1077 02000 140040 DN70 CRA 1078 02001 0 04 01516 STA F6 F6 = SXF = 0 1079 02002 0 04 00050 STA SXF 1080 02003 0 02 00653 LDA IM (A) = IM 1081 02004 -0 01 01521 JMP* DN00 RETURN 1082 02005 0 02 01511 DN72 LDA F1 IF F1 = 0, GO TO DN74 1083 02006 101040 SNZ 1084 02007 0 01 02013 JMP DN74 1085 02010 0 02 01511 LDA F1 ELSE, TC = F1 1086 02011 0 04 00607 STA TC 1087 02012 0 01 01737 JMP DN58 GO TO DN58 (14) 1088 02013 0 02 00607 DN74 LDA TC IF TC = -, GO TO DN82 1089 02014 0 07 00676 SUB K12 1090 02015 101040 SNZ 1091 02016 0 01 02052 JMP DN82 1092 02017 0 06 00720 ADD K102 CHECK FOR TC = + 1093 02020 101040 SNZ 1094 02021 0 01 02052 JMP DN82 1095 02022 0 02 00643 LDA DFL IF DFL = NON-ZERO 1096 02023 100040 SZE 1097 02024 0 01 01756 JMP DN63 GO TO DN63 (15) 1098 02025 0 02 00607 LDA TC 1099 02026 0 11 00712 CAS K43 1100 02027 0 01 02032 JMP *+3 1101 02030 0 01 02035 JMP DN78 1102 02031 0 01 02037 JMP DN80 1103 02032 0 11 02545 CAS K62 1104 02033 0 01 02037 JMP DN80 1105 02034 101000 NOP
Previous File Previous Page Single Page Next Page Next File