inst_inp.asm (541B)
1stdin X0 Y0 DOWN 2 3tpu X0 Y0 4 ## ${ADDR_INST_INP} 5 6 # get req 7 mov UP, LEFT 8 mov UP, NIL 9 mov UP, ACC 10 mov UP, NIL 11 sav 12 13 # get input 14 mov DOWN, ACC 15 swp 16 17 # write reg 18 mov ${ADDR_GPR}, RIGHT 19 mov ${ADDR_INST_INP}, RIGHT 20 mov ${MEM_OP_WRITE}, RIGHT 21 mov ACC, RIGHT 22 swp 23 mov ACC, RIGHT 24 25 # get ack 26 mov UP, NIL 27 mov UP, NIL 28 mov UP, NIL 29 mov UP, NIL 30 31 # send ACK 32 mov LEFT, RIGHT 33 mov ${ADDR_INST_INP}, RIGHT 34 mov ${OP_ACK}, RIGHT 35 mov ${OP_NIL}, RIGHT 36 mov ${OP_NIL}, RIGHT 37end 38 39tpu X1 Y0 40 mov LEFT, UP 41end 42 43tpu X-1 Y0 44 mov RIGHT, RIGHT 45end