print           EQU 9
gemdos          EQU 1

                TEXT
                pea     message(PC)
                move.w  #print,-(SP)
                trap    #gemdos
                addq.l  #6,SP
                rts

message:        DC.B 27,'p'
                DC.B '              ',$0D,$0A
                DC.B ' Hello world! ',$0D,$0A
                DC.B '              ',$0D,$0A
                DC.B 27,'q',$0D,$0A,$0A,0
                EVEN
                END
