F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 97

4219 * 4220 * **** S->D **** 4221 * HEAD FNUL,S->D,STOD 4222 004430 TLNK SET * 4223 04430 002323 VFD 1,0,1,FNUL,6,4,8,'323 4224 * =<FNUL,4>,'S' 4225 04431 126676 BCI 1,-> 4226 04432 042000 VFD 8,'104 ='D' 4227 04433 0 004423 DAC LINK 4228 004430 LINK SET TLNK 4229 004434 STOD EQU * 4230 04434 1 02 00001 LDA 1,1 4231 04435 140320 CSA COPY SIGN TO CARRY 4232 04436 140040 CRA 4233 04437 101001 SSC NEGATIVE? 4234 04440 0 01 00116 JMP PUSH NO - PUSH ZERO 4235 04441 0 02 00715 LDA =-1 4236 04442 0 01 00116 JMP PUSH YES - SIGN EXTEND 4237 * 4238 * NOTE - THIS SYSTEM DOESN'T NEED THE OPERATIONS '+-' AND 'D+-', 4239 * BECAUSE 'M*' AND 'M/' ARE DEFINED IN CODE. 4240 * 4241 * **** ABS **** 4242 * HEAD FNUL,ABS,ABS,DOCL 4243 004443 TLNK SET * 4244 04443 001701 VFD 1,0,1,FNUL,6,3,8,'301 4245 * =<FNUL,3>,'A' 4246 04444 141123 VFD 8,'302,8,'123 ='BS' 4247 04445 0 004430 DAC LINK 4248 004443 LINK SET TLNK 4249 04446 0 10 00130 ABS JST DOCL 4250 04447 0 001541 DAC DUP 4251 04450 0 001435 DAC ZLES 4252 04451 0 000277 DAC ZBRA 4253 04452 0 004454 DAC ABS1 4254 04453 0 001472 DAC MINS 4255 04454 0 001361 ABS1 DAC SMIS 4256 * 4257 * **** DABS **** 4258 * HEAD FNUL,DABS,DABS,DOCL 4259 004455 TLNK SET * 4260 04455 002304 VFD 1,0,1,FNUL,6,4,8,'304 4261 * =<FNUL,4>,'D' 4262 04456 140702 BCI 1,AB 4263 04457 051400 VFD 8,'123 ='S' 4264 04460 0 004443 DAC LINK 4265 004455 LINK SET TLNK 4266 04461 0 10 00130 DABS JST DOCL 4267 04462 0 001541 DAC DUP 4268 04463 0 001435 DAC ZLES