_main:
jsr genlib::init
genlib::PUSH_DSCREEN d0
jsr genlib::set_dscreen_int
jsr genlib::set_dscreen_function
lea.l Map(pc),a3
lea.l Tiles(pc),a4
suba.l a5,a5
moveq.l #16,d3
jsr genlib::init_plane
move.l a0,PlanePtr
jsr genlib::put_plane
jsr genlib::wait_a_key
movea.l PlanePtr(pc),a0
jsr genlib::free_plane
genlib::POP_DSCREEN
jsr genlib::quit
rts
PlanePtr: dc.l 0
Map: dc.b 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
dc.b 1,0,0,0,0,0,0,0,1,0,0,0,0,1,0,1
dc.b 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
dc.b 1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,1
dc.b 1,0,0,0,0,1,0,1,0,0,1,1,1,0,0,1
dc.b 1,0,0,0,0,0,0,0,1,0,0,0,0,1,0,1
dc.b 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
dc.b 1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,1
dc.b 1,0,0,0,0,1,0,1,0,0,1,1,1,0,0,1
dc.b 1,0,0,0,0,0,0,0,1,0,0,0,0,1,0,1
dc.b 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
dc.b 1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,1
dc.b 1,0,0,0,0,1,0,1,0,0,1,1,1,0,0,1
dc.b 1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,1
dc.b 1,0,0,0,0,1,0,1,0,0,1,1,1,0,0,1
dc.b 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
Tiles: dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ; spr1
dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dc.w 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 ; spr2
dc.w 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1