75B GetStartByte¶

Stub MON 75B (61 decimal) · Mnemonic REABT · Group: File Operations (manual section 2.4)

Available from: All programs (manual compatibility box)

Emulation source: src/handlers/mon_75B_GetStartByte.c

Description¶

Gets the number of the next byte to access in a file. The bytes in a file are numbered from 0.

The file must be opened for sequential access.
You cannot use this monitor call for peripheral files.

Parameters¶

Name	Type	Direction	Description
`FileNumber`	INTEGER	In	File number. See OpenFile.
`BytePointer`	INTEGER4	Out	The number of the next byte to access (32-bit value).

Direction: In = the program supplies the value, Out = the call returns it, In/Out = both.

Compatibility¶

Machines	Users	Programs
ND-100 and ND-500	All users	All programs

The manual's compatibility box for this call, word for word.

Yes/no fields from the YAML extraction (not in the manual's words):

ND-100	ND-500	User programs	RT programs	System programs
Yes	Yes	No	No	No

Examples¶

From the manual (OCR text, not corrected).

PLANCFORTRANPascalCOBOLASSEMBLY-500MAC

INTEGER : FileNumber
INTEGER4 : BytePointer
...
ON ROUTINEERROR DO
   IF ErrCode >< 0 THEN ...
ENDON

Monitor_Call('GetStartByte', FileNumber, BytePointer)

INTEGER FileNumber
INTEGER*4 BytePointer
...
Monitor Call1('GetStartByte', FileNumber, BytePointer)
IF (ErrCode .NE. 0) THEN ...

FileNumber : INTEGER2;
BytePointer : LONGINT;
...
GetStartByte(FileNumber, BytePointer);
IF ErrCode <> 0 THEN ...

01 FileNumber COMP.
01 BytePointer COMP PIC S9(10).
01 ErrCode COMP.
...
MONITOR-CALL "GetStartByte" USING FileNumber, BytePointer.
CALL "CbError" USING ErrCode.
IF ErrCode NOT = 0 GO ...

FileNumber : W BLOCK 1
BytePointer : W BLOCK 1
ErrCode : W BLOCK 1
GetStartByte : EQU 37B9 + 75B
...
CALLG GetStartByte, 2, FileNumber, BytePointer
IF K GO ERROR
...
ERROR : W1 =: ErrCode          %ErrorCode in W1 register.

LDT FILNO        %File number returned from earlier open.
MON 75           %Monitor call GetStartByte.
JMP ERROR        %Error return from monitor call.
STD POINT        %Normal return, store byte pointer.
...
ERROR, ...       %Error number in register A.
...
FILNO, ...
POINT, 0         %A double word.
0                %

ndmonlib implementation¶

Stub Registered MON_STATUS_NOT_IMPLEMENTED: the handler is a stub. mon_dispatch() in src/core/mon_dispatch.c reports the call as unimplemented without calling it.


Handler	`mon_75B_GetStartByte`
Code lines	6 (non-blank, non-comment lines in the file)

Source¶

SINTRAN III Monitor Calls (ND-860228.2 EN), page 283.