MARGINS.I

[Table of Contents]

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

• PROCEDURE Set_Left_Margin(Num:Integer);
• PROCEDURE Set_Right_Margin(Num:Integer);

Source Code

PROCEDURE Set_Left_Margin(Num:Integer);
    BEGIN
#A
  LDY #5      ;offset
  LDA (_SP),Y ;get the value and store
  STA $52     ;...in LMARGIN (82)
#
END;(* Set Left Margin procedure *)

PROCEDURE Set_Right_Margin(Num:Integer);
    BEGIN
#A
  LDY #5      ;offset to Num
  LDA (_SP),Y ;get the value and store
  STA $53     ;...in RMARGIN (83)
#
END;(* Set Right Margin procedure *)