% Section 2.1, Program A
% Author Andrey Dubinchak kachnibud@gmail.com
% Beta-test version
%
% Each term has the two-octabyte form
%
%   +----+----+----+----+----+----+----+----+
%   |TAG |SUIT|RANK|PILE|       TITLE       |
%   +----+----+----+----+----+----+----+----+
%   |                 NEXT                  |
%   +----+----+----+----+----+----+----+----+
%
% 

TOP     IS $0
NEWCARD IS $1
ZERO    IS $2
TAG     IS 0
NEXT    IS 8
     LOC  Data_Segment+#100
        GREG @
Card1   OCTA   #01010A0131302043
        OCTA   #0000000000000000
     LOC  Data_Segment+#380
        GREG @
Card2   OCTA   #0004030120332053
        OCTA   #2000000000000100
     LOC  Data_Segment+#240
        GREG @
Card3   OCTA   #0002020120322044
        OCTA   #2000000000000380
     LOC Data_Segment+#90
        GREG @
New	OCTA   #01020A0132302043
        OCTA   #0000000000000000 
     LOC #100
Main   LDA TOP,Card3
       LDA NEWCARD,New
       SET ZERO,0
       STO TOP,NEWCARD,NEXT      A1
       SET TOP,NEWCARD           A2
       STB ZERO,NEWCARD,TAG      A3