; Platform/2 SYSCAL bridge, donor r006 mechanism, SOURCE CANDIDATE.
; Mechanism is byte-for-byte transplanted from RS232C/platform/bridge.s,
; except this file excludes the donor INKEY and exposes own EQU aliases.
; Stub source is at 0C20..0C4C; copied to caller-RESERVED RCS_RAM.
; Never use historical 0EFE (overlaps APP_ENTRY and SHOW_MENU).
SETBK:  EQU     &H0276
RCS:    EQU     RCS_RAM

        ORG     &H0C20

RCS_TOP:
        GST     UA,$6
        PHS     $6
        LDW     $6,SETBK-1
        PHSW    $7
        PST     UA,&H54
        JP      $28

_SYSCAL:
        PST     UA,&H45
        LDW     $6,&H0C10
        ST      $31,($6)
        CAL     RCS
        PST     UA,&H45
        LDW     $6,&H0C10
        LD      $28,3
        ST      $28,($6)
        PST     UA,&H54
        RTN
RCS_END:

        ORG     &H0C50

SYSCAL:
        PST     UA,&H55
        JP      RCS+(_SYSCAL-RCS_TOP)
; end of include