PROC Configure( BYTE inout)¢ ;sets PORTA for output if¢ ;inout=$255, for input if¢ ;inout=$0¢¢ Poke(54018,56)¢ Poke(54016,inout)¢ Poke(54018,60)¢RETURN¢¢PROC OutByte( BYTE data,outsignal)¢ ;puts out 'data' byte¢ ;puts DAtaValid on PORTA¢ ;bit 7 & 'outsignal' on¢ ;PORTA bit 8 when both¢ ;nibbles have been latched¢ ;outsignal must =0 for Lo¢ ;or =128 for Hi¢¢BYTE var¢CARD porta=[54016]¢ ;latching LSBs¢var=data&$0F¢var==%$20¢Poke(porta,var) ¢ ;PrintF("%H%E",var)¢var==%$30¢Poke(porta,var)¢ ;PrintF("%H%E",var)¢ ;tackling MSBs now¢var=data RSH 4¢var==%$10¢poke(porta,var)¢ ;PrintF("%H%E",var)¢var==%$70¢var==%outsignal¢Poke(porta,var)¢ ;PrintF("%H%E",var)¢RETURN¢¢PROC main()¢ BYTE data,outsignal=[128],END=[0]¢¢WHILE END=0¢DO¢ Put('?):data=InputB()¢ OutByte(data,outsignal)¢OD¢RETURN¢¢;NOTE: PROC main & the PrintF's in¢; PROC OutByte can be used to¢; follow the workings of the¢; PROC. Just remove the ';'s¢; from the PrintF statements.¢¢
