' ' ' ' ' ' ' ' ' ' ' ' ' ' ' Using PicBASIC Pro to execute the PASS routine to talk to ' the I/O coprocessor ' ' ' ' ' ' ' ' ' ' ' ' ' ' B19 var byte 'COMMAND [FOR PASS] B20 var byte 'LSB OF PARAMETER [FOR PASS] B21 var byte 'MSB OF PARAMETER [FOR PASS] start: SEROUT2 7,16780,["Enter a command # and two parameters",10,13] SEROUT2 7,16780,[" COMMAND #? "] SERIN2 6,16780,[#B19] : SEROUT2 7,16780,[#B19,10,13] SEROUT2 7,16780,[" PARAMETER LSB? "] SERIN2 6,16780,[#B20] : SEROUT2 7,16780,[#B20,10,13] SEROUT2 7,16780,[" PARAMETER MSB? "] SERIN2 6,16780,[#B21] : SEROUT2 7,16780,[#B21,10,13] CALL PASS if B19=0 and B20=0 and B21=0 then error Rspns: SEROUT2 7,16780,["I have received back these three bytes",10,13] SEROUT2 7,16780,[#B19," ",#B20," ",#B21,10,13,10,13] goto start error: SEROUT2 7,16780,["There has been an error communicating",10,13] goto Rspns