IDMACH.I

[Table of Contents]

The IDMACH.I include file resides on the Kyan Pascal 2.x Utilities Disk 1.

• FUNCTION ID_Machine: Char;

Source Code

FUNCTION ID_Machine: Char;
   VAR
      Holder: Integer;
   BEGIN
#A
 LDY #5      ;offset to Holder LSB
 LDA $E40F   ;get value here
 STA (_SP),Y ;...store in Holder
 INY         ;offset to MSB
 LDA #$00    ;zero out
 STA (_SP),Y ;...the MSB
#
IF Holder = 56 THEN
        ID_Machine:='A'
               ELSE
 IF Holder = 0 THEN
        ID_Machine:='B'
               ELSE
        ID_Machine:='?'
END;(* get the ROM version procedure *)