( SENDER ROUTINE )                                              HEX C000 C= BLKPTR C002 C= CSTAT C004 C= DBUF DECIMAL           CODE LDIR EXX, B POP, D POP, H POP, LDIR, EXX, NEXT             : 4. FLD B@ 4 FLD ! SWAP . FLD ! ;                              EDIT DEFINITIONS                                                : SENDER E-C NOFILES 0 BLKPTR ! 0 CSTAT B! CR                   309 1 DO                                                        BEGIN CSTAT B@ 0= END ( AWAIT CLEAR BUFFER )                    I DRIVE+ BLOCK DBUF 1024 LDIR ( SHOVEL TO INTERCHANGE BUFFER )  I BLKPTR ! ( SET BLOCK POINTER )                                1 CSTAT B! ( SET DATA READY )                                   I 4.                                                            LOOP ;                                                          -->                                                                                                                                                                                             ( RECIEVER ROUTINE )                                            : RECV E-C NOFILES CR                                           309 1 DO                                                        BEGIN CSTAT B@ END ( AWAIT XMITED BUFFER )                      BLKPTR @ 4.                                                     DBUF BLKPTR @ DRIVE+ BUFFER 1024 LDIR ( GRAB FROM BUFFER )      0 CSTAT B! ( SET DATA USED )                                    UPDATE FLUSH                                                    LOOP ;                                                          -->                                                                                                                                                                                                                                                                                                                                                                                                                                                             ( GAS MULTI DISK TRANSCIEVERS )                                 : GS CR SWAP 1+ SWAP DO                                         ." INSTALL DISK # " I 4. ."  INTO ICEBOX THEN TYPE A CHAR"      GETC CR I DRIVE SENDER                                          CR ." TRANSFER COMPLETE" CR LOOP ;                              : GR CR SWAP 1+ SWAP DO                                         ." INSTALL DISK # " I 4. ."  INTO ICEBOX " CR                   ." TYPE A CHAR AFTER ICEBOX IS CUED TO GO"                      GETC CR I DRIVE RECV                                            CR ." TRANSFER COMPLETE" CR LOOP ;                              -->                                                                                                                                                                                                                                                                                                                                                                                             ( ICE MULTI DISK ROUTINES )                                     : IS CR SWAP 1+ SWAP DO                                         ." INSTALL DISK # " I 4. ."  INTO ICEBOX THEN TYPE A CHAR"      GETC CR SENDER                                                  CR ." TRANSFER COMPLETE" CR LOOP ;                              : IR CR SWAP 1+ SWAP DO                                         ." INSTALL DISK # " I 4. ."  INTO ICEBOX " CR                   ." TYPE A CHAR AFTER GAS WAS CUED TO GO"                        GETC CR RECV                                                    CR ." TRANSFER COMPLETE" CR LOOP ;                              TERSE DEFINITIONS                                               -->                                                                                                                                                                                                                                                                                                                             