challenge-148/abigail/mmix/ch-2.mms


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

%
% See https://theweeklychallenge.org/blog/perl-weekly-challenge-148
%

%
% Run as: mmixal -o ch-2.mmo ch-2.mms; mmix -q ch-2.mmo
%
        LOC     Data_Segment
        GREG    @
Text    BYTE    "2 1 5",10
        BYTE    "5 2 13",10
        BYTE    "8 3 21",10
        BYTE    "17 18 5",10
        BYTE    "11 4 29",10,0

        LOC     #100

Main    LDA     $255,Text
        TRAP    0,Fputs,StdOut
        TRAP    0,Halt,0