* Assembly language file to poke values into system table to make
* the 1040 st look like a 512 for HACKER II.

* Three locations are modified, and a jump to restart is done to
* return control to the user.

globl _main


_main:  move.l  #doit, -(SP)
        move.w  #38, -(SP)
        trap    #14
        addq.l  #6, SP
        rts

 doit:  move.l #$80000, $42E
        move.l #$78000, $436
        move.l #$78000, $44E
        rts