GT40 munching squares - Githubissues

PDP-10 / its

Incompatible Timesharing System

Other

834 stars 80 forks source link

GT40 munching squares #1782

Open larsbrinkhoff opened 4 years ago

larsbrinkhoff commented 4 years ago

GT40; MUNCH BIN

larsbrinkhoff commented 4 years ago

Takes input from switches, for example 000001.

GT40-munch

larsbrinkhoff commented 4 years ago

@Isysxp came up with this lovely tranlation:


        .TITLE MUNCH
DPC=172000
SR=177570
START: NOP
S0:     INC R2
        CMP R2,#1777
        BLE S1
        CLR R2
        ADD @#SR,R3
S1:     MOV R3,R0
        MOV R2,R1
        BIC R3,R1
        BIC R2,R0
        BIS R0,R1
        BIC #176000,R1
        MOV R1,@#DBUF+4
        MOV R2,@#DBUF+2
        BIS #40000,@#DBUF+2
        MOV #DBUF,@#DPC
        BR S0
DBUF:   117124,0,0,172000
        .END START