blob: 60893a662366aefa17c6efb2b64f142c4df817f8 [file] [log] [blame]
/*
* sim710.scr - Copyright (C) 1999 Richard Hirst
*/
/* Offsets from DSA, allow 128 elements of scatter/gather */
ABSOLUTE dsa_select = 0
ABSOLUTE dsa_msgout = 8
ABSOLUTE dsa_cmnd = 16
ABSOLUTE dsa_status = 24
ABSOLUTE dsa_msgin = 32
ABSOLUTE dsa_datain = 40 /* 8 * 128 = 1024 bytes */
ABSOLUTE dsa_dataout = 1064 /* 8 * 128 = 1024 bytes */
ABSOLUTE dsa_size = 2088
ABSOLUTE reselected_identify = 0
ABSOLUTE msgin_buf = 0
/* Interrupt values passed back to driver */
ABSOLUTE int_bad_extmsg1a = 0xab930000
ABSOLUTE int_bad_extmsg1b = 0xab930001
ABSOLUTE int_bad_extmsg2a = 0xab930002
ABSOLUTE int_bad_extmsg2b = 0xab930003
ABSOLUTE int_bad_extmsg3a = 0xab930004
ABSOLUTE int_bad_extmsg3b = 0xab930005
ABSOLUTE int_bad_msg1 = 0xab930006
ABSOLUTE int_bad_msg2 = 0xab930007
ABSOLUTE int_bad_msg3 = 0xab930008
ABSOLUTE int_cmd_bad_phase = 0xab930009
ABSOLUTE int_cmd_complete = 0xab93000a
ABSOLUTE int_data_bad_phase = 0xab93000b
ABSOLUTE int_msg_sdtr1 = 0xab93000c
ABSOLUTE int_msg_sdtr2 = 0xab93000d
ABSOLUTE int_msg_sdtr3 = 0xab93000e
ABSOLUTE int_no_msgout1 = 0xab93000f
ABSOLUTE int_no_msgout2 = 0xab930010
ABSOLUTE int_no_msgout3 = 0xab930011
ABSOLUTE int_not_cmd_complete = 0xab930012
ABSOLUTE int_sel_no_ident = 0xab930013
ABSOLUTE int_sel_not_cmd = 0xab930014
ABSOLUTE int_status_not_msgin = 0xab930015
ABSOLUTE int_resel_not_msgin = 0xab930016
ABSOLUTE int_reselected = 0xab930017
ABSOLUTE int_selected = 0xab930018
ABSOLUTE int_disc1 = 0xab930019
ABSOLUTE int_disc2 = 0xab93001a
ABSOLUTE int_disc3 = 0xab93001b
ABSOLUTE int_not_rej = 0xab93001c
/* Bit field settings used to record status in SCRATCH */
ABSOLUTE had_select = 0x01
ABSOLUTE had_msgout = 0x02
ABSOLUTE had_cmdout = 0x04
ABSOLUTE had_datain = 0x08
ABSOLUTE had_dataout = 0x10
ABSOLUTE had_status = 0x20
ABSOLUTE had_msgin = 0x40
ABSOLUTE had_extmsg = 0x80
/* These scripts are heavily based on the examples in the NCR 53C710
* Programmer's Guide (Preliminary).
*/
ENTRY do_select
do_select:
CLEAR TARGET
MOVE SCRATCH0 & 0 TO SCRATCH0
; Enable selection timer
MOVE CTEST7 & 0xef TO CTEST7
SELECT ATN FROM dsa_select, reselect
JUMP get_status, WHEN STATUS
; Disable selection timer
MOVE CTEST7 | 0x10 TO CTEST7
MOVE SCRATCH0 | had_select TO SCRATCH0
INT int_sel_no_ident, IF NOT MSG_OUT
MOVE SCRATCH0 | had_msgout TO SCRATCH0
MOVE FROM dsa_msgout, when MSG_OUT
ENTRY done_ident
done_ident:
JUMP get_status, IF STATUS
redo_msgin1:
JUMP get_msgin1, WHEN MSG_IN
INT int_sel_not_cmd, IF NOT CMD
ENTRY resume_cmd
resume_cmd:
MOVE SCRATCH0 | had_cmdout TO SCRATCH0
MOVE FROM dsa_cmnd, WHEN CMD
ENTRY resume_pmm
resume_pmm:
redo_msgin2:
JUMP get_msgin2, WHEN MSG_IN
JUMP get_status, IF STATUS
JUMP input_data, IF DATA_IN
JUMP output_data, IF DATA_OUT
INT int_cmd_bad_phase
get_status:
; Disable selection timer
MOVE CTEST7 | 0x10 TO CTEST7
MOVE FROM dsa_status, WHEN STATUS
INT int_status_not_msgin, WHEN NOT MSG_IN
MOVE FROM dsa_msgin, WHEN MSG_IN
INT int_not_cmd_complete, IF NOT 0x00
CLEAR ACK
ENTRY wait_disc_complete
wait_disc_complete:
WAIT DISCONNECT
INT int_cmd_complete
input_data:
MOVE SCRATCH0 | had_datain TO SCRATCH0
ENTRY patch_input_data
patch_input_data:
JUMP 0
MOVE FROM dsa_datain+0x0000, WHEN DATA_IN
MOVE FROM dsa_datain+0x0008, WHEN DATA_IN
MOVE FROM dsa_datain+0x0010, WHEN DATA_IN
MOVE FROM dsa_datain+0x0018, WHEN DATA_IN
MOVE FROM dsa_datain+0x0020, WHEN DATA_IN
MOVE FROM dsa_datain+0x0028, WHEN DATA_IN
MOVE FROM dsa_datain+0x0030, WHEN DATA_IN
MOVE FROM dsa_datain+0x0038, WHEN DATA_IN
MOVE FROM dsa_datain+0x0040, WHEN DATA_IN
MOVE FROM dsa_datain+0x0048, WHEN DATA_IN
MOVE FROM dsa_datain+0x0050, WHEN DATA_IN
MOVE FROM dsa_datain+0x0058, WHEN DATA_IN
MOVE FROM dsa_datain+0x0060, WHEN DATA_IN
MOVE FROM dsa_datain+0x0068, WHEN DATA_IN
MOVE FROM dsa_datain+0x0070, WHEN DATA_IN
MOVE FROM dsa_datain+0x0078, WHEN DATA_IN
MOVE FROM dsa_datain+0x0080, WHEN DATA_IN
MOVE FROM dsa_datain+0x0088, WHEN DATA_IN
MOVE FROM dsa_datain+0x0090, WHEN DATA_IN
MOVE FROM dsa_datain+0x0098, WHEN DATA_IN
MOVE FROM dsa_datain+0x00a0, WHEN DATA_IN
MOVE FROM dsa_datain+0x00a8, WHEN DATA_IN
MOVE FROM dsa_datain+0x00b0, WHEN DATA_IN
MOVE FROM dsa_datain+0x00b8, WHEN DATA_IN
MOVE FROM dsa_datain+0x00c0, WHEN DATA_IN
MOVE FROM dsa_datain+0x00c8, WHEN DATA_IN
MOVE FROM dsa_datain+0x00d0, WHEN DATA_IN
MOVE FROM dsa_datain+0x00d8, WHEN DATA_IN
MOVE FROM dsa_datain+0x00e0, WHEN DATA_IN
MOVE FROM dsa_datain+0x00e8, WHEN DATA_IN
MOVE FROM dsa_datain+0x00f0, WHEN DATA_IN
MOVE FROM dsa_datain+0x00f8, WHEN DATA_IN
MOVE FROM dsa_datain+0x0100, WHEN DATA_IN
MOVE FROM dsa_datain+0x0108, WHEN DATA_IN
MOVE FROM dsa_datain+0x0110, WHEN DATA_IN
MOVE FROM dsa_datain+0x0118, WHEN DATA_IN
MOVE FROM dsa_datain+0x0120, WHEN DATA_IN
MOVE FROM dsa_datain+0x0128, WHEN DATA_IN
MOVE FROM dsa_datain+0x0130, WHEN DATA_IN
MOVE FROM dsa_datain+0x0138, WHEN DATA_IN
MOVE FROM dsa_datain+0x0140, WHEN DATA_IN
MOVE FROM dsa_datain+0x0148, WHEN DATA_IN
MOVE FROM dsa_datain+0x0150, WHEN DATA_IN
MOVE FROM dsa_datain+0x0158, WHEN DATA_IN
MOVE FROM dsa_datain+0x0160, WHEN DATA_IN
MOVE FROM dsa_datain+0x0168, WHEN DATA_IN
MOVE FROM dsa_datain+0x0170, WHEN DATA_IN
MOVE FROM dsa_datain+0x0178, WHEN DATA_IN
MOVE FROM dsa_datain+0x0180, WHEN DATA_IN
MOVE FROM dsa_datain+0x0188, WHEN DATA_IN
MOVE FROM dsa_datain+0x0190, WHEN DATA_IN
MOVE FROM dsa_datain+0x0198, WHEN DATA_IN
MOVE FROM dsa_datain+0x01a0, WHEN DATA_IN
MOVE FROM dsa_datain+0x01a8, WHEN DATA_IN
MOVE FROM dsa_datain+0x01b0, WHEN DATA_IN
MOVE FROM dsa_datain+0x01b8, WHEN DATA_IN
MOVE FROM dsa_datain+0x01c0, WHEN DATA_IN
MOVE FROM dsa_datain+0x01c8, WHEN DATA_IN
MOVE FROM dsa_datain+0x01d0, WHEN DATA_IN
MOVE FROM dsa_datain+0x01d8, WHEN DATA_IN
MOVE FROM dsa_datain+0x01e0, WHEN DATA_IN
MOVE FROM dsa_datain+0x01e8, WHEN DATA_IN
MOVE FROM dsa_datain+0x01f0, WHEN DATA_IN
MOVE FROM dsa_datain+0x01f8, WHEN DATA_IN
MOVE FROM dsa_datain+0x0200, WHEN DATA_IN
MOVE FROM dsa_datain+0x0208, WHEN DATA_IN
MOVE FROM dsa_datain+0x0210, WHEN DATA_IN
MOVE FROM dsa_datain+0x0218, WHEN DATA_IN
MOVE FROM dsa_datain+0x0220, WHEN DATA_IN
MOVE FROM dsa_datain+0x0228, WHEN DATA_IN
MOVE FROM dsa_datain+0x0230, WHEN DATA_IN
MOVE FROM dsa_datain+0x0238, WHEN DATA_IN
MOVE FROM dsa_datain+0x0240, WHEN DATA_IN
MOVE FROM dsa_datain+0x0248, WHEN DATA_IN
MOVE FROM dsa_datain+0x0250, WHEN DATA_IN
MOVE FROM dsa_datain+0x0258, WHEN DATA_IN
MOVE FROM dsa_datain+0x0260, WHEN DATA_IN
MOVE FROM dsa_datain+0x0268, WHEN DATA_IN
MOVE FROM dsa_datain+0x0270, WHEN DATA_IN
MOVE FROM dsa_datain+0x0278, WHEN DATA_IN
MOVE FROM dsa_datain+0x0280, WHEN DATA_IN
MOVE FROM dsa_datain+0x0288, WHEN DATA_IN
MOVE FROM dsa_datain+0x0290, WHEN DATA_IN
MOVE FROM dsa_datain+0x0298, WHEN DATA_IN
MOVE FROM dsa_datain+0x02a0, WHEN DATA_IN
MOVE FROM dsa_datain+0x02a8, WHEN DATA_IN
MOVE FROM dsa_datain+0x02b0, WHEN DATA_IN
MOVE FROM dsa_datain+0x02b8, WHEN DATA_IN
MOVE FROM dsa_datain+0x02c0, WHEN DATA_IN
MOVE FROM dsa_datain+0x02c8, WHEN DATA_IN
MOVE FROM dsa_datain+0x02d0, WHEN DATA_IN
MOVE FROM dsa_datain+0x02d8, WHEN DATA_IN
MOVE FROM dsa_datain+0x02e0, WHEN DATA_IN
MOVE FROM dsa_datain+0x02e8, WHEN DATA_IN
MOVE FROM dsa_datain+0x02f0, WHEN DATA_IN
MOVE FROM dsa_datain+0x02f8, WHEN DATA_IN
MOVE FROM dsa_datain+0x0300, WHEN DATA_IN
MOVE FROM dsa_datain+0x0308, WHEN DATA_IN
MOVE FROM dsa_datain+0x0310, WHEN DATA_IN
MOVE FROM dsa_datain+0x0318, WHEN DATA_IN
MOVE FROM dsa_datain+0x0320, WHEN DATA_IN
MOVE FROM dsa_datain+0x0328, WHEN DATA_IN
MOVE FROM dsa_datain+0x0330, WHEN DATA_IN
MOVE FROM dsa_datain+0x0338, WHEN DATA_IN
MOVE FROM dsa_datain+0x0340, WHEN DATA_IN
MOVE FROM dsa_datain+0x0348, WHEN DATA_IN
MOVE FROM dsa_datain+0x0350, WHEN DATA_IN
MOVE FROM dsa_datain+0x0358, WHEN DATA_IN
MOVE FROM dsa_datain+0x0360, WHEN DATA_IN
MOVE FROM dsa_datain+0x0368, WHEN DATA_IN
MOVE FROM dsa_datain+0x0370, WHEN DATA_IN
MOVE FROM dsa_datain+0x0378, WHEN DATA_IN
MOVE FROM dsa_datain+0x0380, WHEN DATA_IN
MOVE FROM dsa_datain+0x0388, WHEN DATA_IN
MOVE FROM dsa_datain+0x0390, WHEN DATA_IN
MOVE FROM dsa_datain+0x0398, WHEN DATA_IN
MOVE FROM dsa_datain+0x03a0, WHEN DATA_IN
MOVE FROM dsa_datain+0x03a8, WHEN DATA_IN
MOVE FROM dsa_datain+0x03b0, WHEN DATA_IN
MOVE FROM dsa_datain+0x03b8, WHEN DATA_IN
MOVE FROM dsa_datain+0x03c0, WHEN DATA_IN
MOVE FROM dsa_datain+0x03c8, WHEN DATA_IN
MOVE FROM dsa_datain+0x03d0, WHEN DATA_IN
MOVE FROM dsa_datain+0x03d8, WHEN DATA_IN
MOVE FROM dsa_datain+0x03e0, WHEN DATA_IN
MOVE FROM dsa_datain+0x03e8, WHEN DATA_IN
MOVE FROM dsa_datain+0x03f0, WHEN DATA_IN
MOVE FROM dsa_datain+0x03f8, WHEN DATA_IN
JUMP end_data_trans
output_data:
MOVE SCRATCH0 | had_dataout TO SCRATCH0
ENTRY patch_output_data
patch_output_data:
JUMP 0
MOVE FROM dsa_dataout+0x0000, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0008, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0010, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0018, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0020, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0028, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0030, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0038, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0040, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0048, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0050, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0058, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0060, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0068, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0070, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0078, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0080, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0088, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0090, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0098, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x00a0, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x00a8, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x00b0, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x00b8, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x00c0, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x00c8, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x00d0, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x00d8, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x00e0, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x00e8, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x00f0, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x00f8, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0100, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0108, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0110, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0118, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0120, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0128, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0130, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0138, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0140, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0148, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0150, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0158, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0160, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0168, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0170, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0178, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0180, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0188, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0190, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0198, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x01a0, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x01a8, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x01b0, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x01b8, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x01c0, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x01c8, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x01d0, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x01d8, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x01e0, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x01e8, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x01f0, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x01f8, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0200, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0208, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0210, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0218, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0220, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0228, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0230, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0238, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0240, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0248, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0250, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0258, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0260, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0268, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0270, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0278, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0280, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0288, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0290, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0298, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x02a0, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x02a8, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x02b0, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x02b8, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x02c0, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x02c8, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x02d0, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x02d8, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x02e0, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x02e8, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x02f0, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x02f8, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0300, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0308, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0310, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0318, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0320, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0328, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0330, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0338, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0340, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0348, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0350, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0358, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0360, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0368, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0370, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0378, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0380, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0388, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0390, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x0398, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x03a0, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x03a8, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x03b0, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x03b8, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x03c0, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x03c8, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x03d0, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x03d8, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x03e0, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x03e8, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x03f0, WHEN DATA_OUT
MOVE FROM dsa_dataout+0x03f8, WHEN DATA_OUT
ENTRY end_data_trans
end_data_trans:
redo_msgin3:
JUMP get_status, WHEN STATUS
JUMP get_msgin3, WHEN MSG_IN
INT int_data_bad_phase
get_msgin1:
MOVE SCRATCH0 | had_msgin TO SCRATCH0
MOVE 1, msgin_buf, WHEN MSG_IN
JUMP ext_msg1, IF 0x01 ; Extended Message
JUMP ignore_msg1, IF 0x02 ; Save Data Pointers
JUMP ignore_msg1, IF 0x03 ; Save Restore Pointers
JUMP disc1, IF 0x04 ; Disconnect
INT int_bad_msg1
ignore_msg1:
CLEAR ACK
JUMP redo_msgin1
ext_msg1:
MOVE SCRATCH0 | had_extmsg TO SCRATCH0
CLEAR ACK
MOVE 1, msgin_buf + 1, WHEN MSG_IN
JUMP ext_msg1a, IF 0x03
INT int_bad_extmsg1a
ext_msg1a:
CLEAR ACK
MOVE 1, msgin_buf + 2, WHEN MSG_IN
JUMP ext_msg1b, IF 0x01 ; Must be SDTR
INT int_bad_extmsg1b
ext_msg1b:
CLEAR ACK
MOVE 2, msgin_buf + 3, WHEN MSG_IN
INT int_msg_sdtr1
disc1:
CLEAR ACK
ENTRY wait_disc1
wait_disc1:
WAIT DISCONNECT
INT int_disc1
ENTRY resume_msgin1a
resume_msgin1a:
CLEAR ACK
JUMP redo_msgin1
ENTRY resume_msgin1b
resume_msgin1b:
SET ATN
CLEAR ACK
INT int_no_msgout1, WHEN NOT MSG_OUT
MOVE SCRATCH0 | had_msgout TO SCRATCH0
MOVE FROM dsa_msgout, when MSG_OUT
JUMP redo_msgin1
get_msgin2:
MOVE SCRATCH0 | had_msgin TO SCRATCH0
MOVE 1, msgin_buf, WHEN MSG_IN
JUMP ext_msg2, IF 0x01 ; Extended Message
JUMP ignore_msg2, IF 0x02 ; Save Data Pointers
JUMP ignore_msg2, IF 0x03 ; Save Restore Pointers
JUMP disc2, IF 0x04 ; Disconnect
INT int_bad_msg2
ignore_msg2:
CLEAR ACK
JUMP redo_msgin2
ext_msg2:
MOVE SCRATCH0 | had_extmsg TO SCRATCH0
CLEAR ACK
MOVE 1, msgin_buf + 1, WHEN MSG_IN
JUMP ext_msg2a, IF 0x03
INT int_bad_extmsg2a
ext_msg2a:
CLEAR ACK
MOVE 1, msgin_buf + 2, WHEN MSG_IN
JUMP ext_msg2b, IF 0x01 ; Must be SDTR
INT int_bad_extmsg2b
ext_msg2b:
CLEAR ACK
MOVE 2, msgin_buf + 3, WHEN MSG_IN
INT int_msg_sdtr2
disc2:
CLEAR ACK
ENTRY wait_disc2
wait_disc2:
WAIT DISCONNECT
INT int_disc2
ENTRY resume_msgin2a
resume_msgin2a:
CLEAR ACK
JUMP redo_msgin2
ENTRY resume_msgin2b
resume_msgin2b:
SET ATN
CLEAR ACK
INT int_no_msgout2, WHEN NOT MSG_OUT
MOVE SCRATCH0 | had_msgout TO SCRATCH0
MOVE FROM dsa_msgout, when MSG_OUT
JUMP redo_msgin2
get_msgin3:
MOVE SCRATCH0 | had_msgin TO SCRATCH0
MOVE 1, msgin_buf, WHEN MSG_IN
JUMP ext_msg3, IF 0x01 ; Extended Message
JUMP ignore_msg3, IF 0x02 ; Save Data Pointers
JUMP ignore_msg3, IF 0x03 ; Save Restore Pointers
JUMP disc3, IF 0x04 ; Disconnect
INT int_bad_msg3
ignore_msg3:
CLEAR ACK
JUMP redo_msgin3
ext_msg3:
MOVE SCRATCH0 | had_extmsg TO SCRATCH0
CLEAR ACK
MOVE 1, msgin_buf + 1, WHEN MSG_IN
JUMP ext_msg3a, IF 0x03
INT int_bad_extmsg3a
ext_msg3a:
CLEAR ACK
MOVE 1, msgin_buf + 2, WHEN MSG_IN
JUMP ext_msg3b, IF 0x01 ; Must be SDTR
INT int_bad_extmsg3b
ext_msg3b:
CLEAR ACK
MOVE 2, msgin_buf + 3, WHEN MSG_IN
INT int_msg_sdtr3
disc3:
CLEAR ACK
ENTRY wait_disc3
wait_disc3:
WAIT DISCONNECT
INT int_disc3
ENTRY resume_msgin3a
resume_msgin3a:
CLEAR ACK
JUMP redo_msgin3
ENTRY resume_msgin3b
resume_msgin3b:
SET ATN
CLEAR ACK
INT int_no_msgout3, WHEN NOT MSG_OUT
MOVE SCRATCH0 | had_msgout TO SCRATCH0
MOVE FROM dsa_msgout, when MSG_OUT
JUMP redo_msgin3
ENTRY resume_rej_ident
resume_rej_ident:
CLEAR ATN
MOVE 1, msgin_buf, WHEN MSG_IN
INT int_not_rej, IF NOT 0x07 ; Reject
CLEAR ACK
JUMP done_ident
ENTRY reselect
reselect:
; Disable selection timer
MOVE CTEST7 | 0x10 TO CTEST7
WAIT RESELECT resel_err
INT int_resel_not_msgin, WHEN NOT MSG_IN
MOVE 1, reselected_identify, WHEN MSG_IN
INT int_reselected
resel_err:
MOVE CTEST2 & 0x40 TO SFBR
JUMP selected, IF 0x00
MOVE SFBR & 0 TO SFBR
ENTRY patch_new_dsa
patch_new_dsa:
MOVE SFBR | 0x11 TO DSA0
MOVE SFBR | 0x22 TO DSA1
MOVE SFBR | 0x33 TO DSA2
MOVE SFBR | 0x44 TO DSA3
JUMP do_select
selected:
INT int_selected