DOSPLUS 3.5 for the Model I - SYS13/SYS Disassembled

SYS13/SYS

Other Navigation

DOSPLUS 3.5 SYS13/SYS Disassembly - The Library Commands DO, FORMS and RS232 (Model I)

SYS13/SYS is the fifth of the high overlays: it loads at 5200H and holds three library commands, routines 3 to 5 of its table at 5200H with the request codes C3H to C5H: DO, FORMS and RS232. CMNDI@ takes the codes from SYS1/SYS's table of the library commands and passes them to the overlay request handler, which loads SYS13/SYS and calls the routine with Register Pair HL at the rest of the command line. No file of the diskette requests routine 2 (C2H). The file is a load module of 5 blocks, 1145 bytes, from 5200H to 5678H, with the transfer address 5200H and no gaps; the work area after the file starts at 5679H.

The Parts of SYS13/SYS

DO

DO (520AH) takes the file and the parameters HIGH and BREAK through EVAL@ with its block at 557BH; all three field blocks are the one at 5679H, and a missing field or a field without a name (a drive or a device) is error 2FH. HIGH, by default HMEM$ as it is, becomes HMEM$ (4049H). BREAK, by default Y, clears bit 0 of SFLAG1$ (4302H), so that the BREAK key works, and BREAK=N sets it. Unless bit 6 of SFLAG1$ shows that a DO already took its memory, DO sets that bit and takes the 288 bytes below HMEM$: HMEM$ is lowered by 0120H, and the file control block starts at the new HMEM$ plus 1, followed by its 256 byte buffer; its address goes to DODCB$ (435AH). FSPEC@ puts the file into that block, FEXT@ gives it the extension TXT when it has none, OPEN@ opens it, and bit 5 of SFLAG1$ is set: a DO file is running.

FORMS

FORMS (5285H) works on the control block of @PR (device 2, from LOCDCB%): +03H the page length (PAGE), +07H the lines used on a page (LINES), +06H the width (WIDTH). Without parameters it shows $02 @PR Page=n,Lines=n,Width=n (52FCH), the name taken from @PR's entry of SYS0/SYS's DCB table (4388H). With parameters, PARAM@ takes PAGE, LINES, WIDTH, TOP and CODE through the table at 5597H into words at 5679H (CODE into an operand of FORMS); an unknown parameter is error 2EH and a value above 255 error 2DH. The three values go back into the control block; then CODE sends its high byte and then its low byte to the printer through the ROM's 003BH, each only when it is not 00H, and TOP sends a form feed (0CH).

RS232

RS232 (533DH) keeps the settings of the RS-232 interface at 4305H-4306H, in SYS0/SYS's system area: 4305H the baud rate byte for port E9H (bits 7-4 the sending rate, bits 3-0 the receiving rate, each an index into the 16 rates at 555BH) and 4306H the control byte for port EAH. Without parameters it shows $03 @RS Baud=n,Word=n,Stops=n,Parity=x and the marks ,BRK ,DTR ,RTS (5348H); the baud rate shown is the receiving one. In both cases the settings are then sent to the interface (54DAH): a byte to port E8H resets it, the baud rate byte goes to port E9H and the control byte to port EAH.

With parameters (53E4H) PARAM@ takes BAUD, WORD, STOPS, EVEN, ODD, PARITY, DTR, RTS, BREAK and WAIT through the table at 55C0H, each value into the operand of an instruction further on: BAUD's operand is first set to 0000H and the other nine to 80H in their low byte, the mark of a parameter not given. BAUD must be one of the 16 rates and sets both halves of the baud rate byte; WORD (5-8) sets bits 6-5 of the control byte (00 for 5 bits, 10 for 6, 01 for 7, 11 for 8), STOPS (1 or 2) bit 4, PARITY=N bit 3 (no parity), EVEN bit 7 (even parity); DTR=N sets bit 1, RTS=N bit 0 and BREAK=N bit 2, and each of them given as Y clears its bit. A rate not in the table, a word length outside 5-8, STOPS 3 or more, or EVEN and ODD with the same value is error 2DH; an unknown parameter is error 2EH. WAIT is taken and not used.

Differences from the Manual

CODE sends the high byte of its value first and the low byte second (FORMS (CODE=0F1BH) sends 0FH, then 1BH); the manual says the last byte given, 1BH, is sent first. Only EVEN decides the parity sense: ODD=N alone gives odd parity, where the manual says ODD=N is the same as EVEN=Y, and ODD=Y with EVEN=Y, or ODD=N with EVEN=N, is refused. STOPS=0 is not refused: 0 less 1 gives FFH, so every bit of the control byte is set. RS232 also takes a parameter WAIT, which the manual does not list (on the Model I it has no effect; on the Model III it is the ROM's wait switch). DO's BREAK sets the BREAK key flag of SFLAG1$ itself, for the system, and DO without BREAK turns the BREAK key on even after BREAK OFF; SYS13/SYS does not keep the old setting. The entry 554BH that posts error 2CH (Illegal filespec) is reached by nothing.

The bits DOSPLUS gives the control lines: the DTR parameter sets or clears bit 1 of the control byte and RTS bit 0, and the display follows the same bits. The ports page of this site gives bit 0 as DTR and bit 1 as RTS; the page follows the bytes.

5200H - The Routine Table

Data: SYS13/SYS's table of routines 2-5, one word each, used by SYS0/SYS's overlay request handler (its 49C9H-49DCH) for the request codes C2H-C5H. CMNDI@ takes the codes of the library commands from SYS1/SYS's table: DO C3H (51CAH), FORMS C4H (51CFH), RS232 C5H (51DBH). No file of the diskette requests C2H.

5208H - Routine 2

Nothing to do when SYS0/SYS's record locator brings SYS13/SYS back.

520AH - DO

Routine 3, entered from CMNDI@ through the overlay request handler with Register Pair HL at the rest of the command line. EVAL@ takes the file and the parameters HIGH (the top of memory, by default HMEM$ as it is) and BREAK (by default Y) with the block at 557BH; a missing field, or a field that is a drive or a device, is error 2FH. HMEM$ is set to HIGH, and BREAK=N sets bit 0 of SFLAG1$ (the BREAK key is disabled) while BREAK=Y clears it. The first DO (bit 6 of SFLAG1$ clear) sets that bit and takes 288 bytes below HMEM$: HMEM$ is lowered by 0120H and the file control block starts at the new HMEM$ plus 1, followed by its 256 byte buffer; the address goes to DODCB$ (435AH). A DO while that memory is taken uses the same block. The file is opened (default extension TXT) and bit 5 of SFLAG1$ is set: a DO file is running. Register B is not loaded before OPEN@.

5285H - FORMS

Routine 4, entered from CMNDI@ through the overlay request handler with Register Pair HL at the rest of the command line. Index Register IX gets the control block of @PR (device 2) from LOCDCB%: +03H the page length (PAGE), +07H the lines used on a page (LINES), +06H the width (WIDTH). Without parameters the settings are shown (52FCH). Otherwise the three values are copied as words into 5679H-567EH (Index Register IY), PARAM@ takes PAGE, LINES, WIDTH, TOP and CODE with the table at 5597H (an unknown parameter is error 2EH), a value above 255 is error 2DH, and the values go back into the control block. CODE then sends its high byte and then its low byte to the printer, each only when it is not 00H, and TOP sends a form feed (0CH).

52FCH - Show the Settings of @PR

One line on the display: $02 @PR Page=n,Lines=n,Width=n, the name taken from @PR's entry of the DCB table (4388H), the numbers in decimal from +03H, +07H and +06H of the control block at Index Register IX.

5338H - Show a Byte in Decimal

Shows the number in Register E (0-255) on the display in decimal without leading zeros.

533DH - RS232

Routine 5, entered from CMNDI@ through the overlay request handler with Register Pair HL at the rest of the command line. Index Register IX points to 4305H: +00H the baud rate byte for port E9H (bits 7-4 the sending rate, bits 3-0 the receiving rate, both an index into the table at 555BH), +01H the control byte for port EAH. Without parameters the settings are shown and sent to the interface again (53E1H); with parameters they are changed first (53E4H).

5348H - Show the RS-232 Settings

One line on the display: $03 @RS Baud=n,Word=n,Stops=n,Parity=None, Even or Odd, then ,BRK when a break is sent (bit 2 clear), ,DTR when bit 1 is clear and ,RTS when bit 0 is clear; then the settings are sent to the interface (54DAH).

53E4H - Change the RS-232 Settings

PARAM@ takes BAUD, WORD, STOPS, EVEN, ODD, PARITY, DTR, RTS, BREAK and WAIT with the table at 55C0H (an unknown parameter is error 2EH). Each value goes into the operand of an LD DE,0000H (EVEN's into that of an LD BC,0000H) below; BAUD's operand is first set to 0000H and the other nine to 80H in their low byte, the mark of a parameter not given. Each parameter given then changes its bits of the control byte, and a wrong value is error 2DH.

5408H - BAUD

The value must be one of the 16 rates of the table at 555BH (else error 2DH); its index n (0-15) is stored as nnH, the same rate for sending and receiving, into the baud rate byte. 0 or no BAUD keeps the byte as it is.

5433H - WORD

The control byte is built in Register L from its old value. WORD must be 5, 6, 7 or 8 (else error 2DH) and sets bits 6-5: 00 for 5, 10 for 6, 01 for 7, 11 for 8.

5459H - STOPS

STOPS 1 clears bit 4 and STOPS 2 sets it; a value of 3 or more is error 2DH. STOPS=0 is not refused: 0 less 1 is FFH, so every bit of the control byte is set (8 bits, two stop bits, no parity, even, no break, DTR and RTS off).

5476H - PARITY

PARITY=Y (or PARITY alone) clears bit 3, parity used; PARITY=N sets it, no parity.

5487H - EVEN and ODD

Bit 7 is set for even parity and cleared for odd. EVEN and ODD with the same value (both given as Y, or both as N) are error 2DH. Otherwise bit 6 of EVEN's value decides alone: EVEN=Y gives even, EVEN=N or no EVEN gives odd, so ODD=N alone gives odd parity, where the manual says it is the same as EVEN=Y.

54A1H - DTR, RTS and BREAK

Each switch given as Y (or alone) clears its bit and as N sets it: DTR bit 1, RTS bit 0, BREAK bit 2. WAIT is taken into the operand at 54D8H and not used on the Model I.

54DAH - Send the Settings to the Interface

A byte to port E8H resets the RS-232 interface; the baud rate byte goes to port E9H and the control byte to port EAH.

54E8H - Show a Number in Decimal

Shows the number in Register Pair DE (0-65535) on the display in decimal without leading zeros: 54FDH puts the digits at 5679H, and DSPLY@ shows them.

54F2H - The End of the Line

Tests the character at Register Pair HL: a control code (below 20H) or a semicolon is the end of the line, returned with the C FLAG and Register Pair HL unchanged; any other character is returned in Register A with the NC FLAG and Register Pair HL past it.

54FDH - Decimal Digits

Puts the number in Register Pair DE (0-65535) at Register Pair HL as decimal digits without leading zeros (at least one digit), ended by 03H, and returns Register Pair HL at the digits and Register Pair DE at the 03H. The number is turned into six BCD digits at 5679H-567BH (sixteen doublings by ADC and DAA), and the digits into ASCII at 567CH-5681H by RLD; the digits after the leading zeros are then copied to Register Pair HL, which may be 5679H itself.

554BH - The Error Exits

Four entries, each loading its error code into Register A: 554BH 2CH Illegal filespec (entered by nothing), 554EH 2FH I/o field not found, 5551H 2DH Invalid data provided, 5554H 2EH Invalid parameter. Each LD A,n after the first is the operand of an LD BC,nn entered from the entry above it. 5556H posts the error in Register A by ERROR@ with bit 6 set (no frame), and ERROR@ ends with ABORT@.

555BH - The Baud Rates

Data: the 16 baud rates RS232 accepts, one word each, in the order of their index 0-15, the value of each half of the baud rate byte.

557BH - DO's Evaluation Block

Data: the block that Index Register IX points to for EVAL@ (5217H): EVAL@'s flags, the addresses of the source, destination and wildmask blocks (all three 5679H, so the one field given lands there), and the parameter table. Each entry of the table is the name (6 characters), the address its value is stored to and a type byte.

5597H - FORMS's Parameter Table

Data: the table for PARAM@ (52BDH), eight bytes an entry: the name, then the address its value is stored to. The values of PAGE, LINES, WIDTH and TOP go into the work area at 5679H, CODE's into an operand of FORMS.

55C0H - RS232's Parameter Table

Data: the table for PARAM@ (53FFH), eight bytes an entry: the name, then the address its value is stored to, each the operand of an LD DE,0000H (EVEN's of an LD BC,0000H) in RS232. The first entry that starts with an abbreviation is taken, so B is BAUD and BR is BREAK.

5611H - The Texts

Data: DO's default extension and the parts of the lines of FORMS and RS232, each ended by 03H for DSPLY@.

5679H - The Work Area

Not in the file: SYS13/SYS uses the memory after its last byte (5678H) for the field of DO's EVAL@ block, the values of FORMS, the digits of a number, and the values of HIGH and BREAK.