4Data Telesoftware Adaptor Issue 1.2 | Routines |
Prev: 1532 | Up: Map | Next: 1582 |
Used by the routine at download_complete.
|
||||
This routine replaces code from the OEL Issue 2.3 ROM.
|
||||
parse_download | 1538 | LD HL,(page_receive_buffer_pointer) | Set DE to page_receive_buffer_pointer + 940 (row 23, column 20). | |
153B | LD DE,$03AC | |||
153E | ADD HL,DE | |||
153F | EX DE,HL | |||
1540 | LD HL,prog_length | Set HL to address of prog_length. | ||
1543 | CALL load_next_nibbles | Call load_next_nibbles. | ||
1546 | LD HL,vars_length | Set HL to address of vars_length. | ||
1549 | CALL load_next_nibbles | Call load_next_nibbles. | ||
154C | LD HL,command_length | Set HL to address of command_length. | ||
154F | CALL load_next_nibbles | Call load_next_nibbles. | ||
1552 | LD HL,start_address | Set HL to address of start_address. | ||
1555 | CALL load_next_nibbles | Call load_next_nibbles. | ||
1558 | LD A,(footer_buffer) | Load first byte of footer_buffer and strip parity bit. | ||
155B | AND $7F | |||
155D | CP $42 | If character is not $42 (B) skip to parse_download_0. | ||
155F | JR NZ,parse_download_0 | |||
1561 | LD A,($5B8A) | Load second byte of footer_buffer and strip parity bit. | ||
1564 | AND $7F | |||
1566 | CP $48 | If character is $48 (H) jump to execute_basic_stop. | ||
1568 | JP Z,execute_basic_stop | |||
156B | CP $52 | If character is $52 (R) jump to execute_basic_continue. | ||
156D | JP Z,execute_basic_continue | |||
1570 | CP $45 | If character is $45 (E) jump to setup_vars_eline. | ||
1572 | JP Z,setup_vars_eline | |||
parse_download_0 | 1575 | LD A,($5B8A) | Load second byte of footer_buffer and strip parity bit. | |
1578 | AND $7F | |||
157A | CP $52 | If character is $52 (R) jump to execute_code. | ||
157C | JP Z,execute_code | |||
157F | JP return_to_STOP | Else jump to return_to_STOP. |
Prev: 1532 | Up: Map | Next: 1582 |