F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 109

4659 IFN DISK 4660 ****************************************************************** 4661 * 4662 * DISK I/O (SECTION COMMON TO ALL OPERATING SYSTEMS) 4663 * NOTE THAT EACH OPERATING SYSTEM DEFINED 'R/W' - READ 4664 * OR WRITE A 1024-BYTE RANDOM-ACCESS BLOCK. 4665 * 4666 ****************************************************************** 4667 * 4668 * **** +BUF **** 4669 * HEAD FNUL,+BUF,PBUF,DOCL 4670 TLNK SET * 4671 VFD 1,0,1,FNUL,6,4,8,'253 4672 * =<FNUL,4>,'+' 4673 BCI 1,BU 4674 VFD 8,'106 ='F' 4675 DAC LINK 4676 LINK SET TLNK 4677 PBUF JST DOCL 4678 DAC BBUF 4679 DAC LIT 4680 OCT 4 4681 DAC PLUS 4682 DAC PLUS 4683 DAC DUP 4684 DAC LIMT 4685 DAC AT 4686 DAC EQAL 4687 DAC ZBRA 4688 DAC PBF1 4689 DAC DROP 4690 DAC FRST 4691 DAC AT 4692 PBF1 DAC DUP 4693 DAC PREV 4694 DAC AT 4695 DAC SUB 4696 DAC SMIS 4697 * 4698 * **** UPDATE **** 4699 * HEAD FNUL,UPDATE,UPDT,DOCL 4700 TLNK SET * 4701 VFD 1,0,1,FNUL,6,6,8,'325 4702 * =<FNUL,6>,'U' 4703 BCI 2,PDAT 4704 VFD 8,'105 ='E' 4705 DAC LINK 4706 LINK SET TLNK 4707 UPDT JST DOCL 4708 DAC PREV