.TITLE GTGRIN .PSECT GT .ENABL LC ; ; This subroutine swaps bytes and output data to the GRINNELL. ; All output is sent via the GT handler which buffers the data. ; ; FORTRAN calling sequence: ; ; CALL GTGRIN(ICMD) ; ; where ICMD is the 16 bit GRINNELL command ; ; h gregg 2/83 ; ;--------------------------------------------------------------------------- ; O.ICMD= 2 BUFFER: .BLKB 2 ; GTGRIN::MOV #BUFFER,R1 ; get the buffer's address MOV @O.ICMD(R5),(R1) ; put the command in our buffer SWAB (R1) ; change it for the GRINNELL MOV #2,R0 ; 2 bytes to output CALL GTA ; and ship the word out. RETURN ; then go home .END