LEX    'STKLEX'
        ID     #71
        MSG    0
        POLL   0
        ENTRY  STKe
        CHAR   #D
        KEY    'STACK'
        TOKEN  27
        ENDTXT

A-MULT  EQU    #1B349
CLCBFR  EQU    #2F576
EXPEXC  EQU    #0F186
RNDAHX  EQU    #136CB
FIXDC   EQU    #05493
FIXP    EQU    #02A6E
MAXCMD  EQU    #2F976
NXTSTM  EQU    #08A48

        REL(5) STKd
        REL(5) STKp
STKe    SETHEX
        GOSBVL EXPEXC
        GOSBVL RNDAHX
        GOC    STEXQ1
        A=0    A
STEXQ1  ?A#0   A
        GOYES  STEXQ
        A=A+1  A
STEXQ   C=0    A
        LC(2)  16
        ?A<=C  A
        GOYES  STK10
        A=C    A
STK10   R0=A
        D1=(5) CLCBFR
        C=DAT1 A
        D=C    A
        C=0    A
        LC(1)  6
        GOSBVL A-MULT
        C=D    A
        C=C+A  A
        D1=D1+ 5
        P=     2
BCL     D1=D1+ 5
        DAT1=C A
        P=P-1
        GONC   BCL
        C=D    A
        D1=C
        A=R0
        A=A-1  A
        B=A    A
        P=     3
        C=0    W
        LC(1)  3
Boucle  DAT1=C 6
        D1=D1+ 6
        A=A-1  A
        GONC   Boucle
        D1=(5) MAXCMD
        A=B    A
        DAT1=A 1
        GOVLNG NXTSTM

STKp    GOVLNG FIXP

STKd    GOVLNG FIXDC

        END