section text,code

PopAll          equ -$fc
Wait            equ -$13e
OpenLibrary     equ -$228
CloseLibrary    equ -$19e

start:
    move.l  4,a6                ; get exec.library
    lea     PPName(PC),a1       ; get popper.library
    moveq.l #0,d0               ; any version
    jsr     OpenLibrary(a6)     ;
    move.l  d0,d6               ; verify we have the library
    beq     byebye              ;

    move.l  d6,a6               ; Pop all
    moveq.l #1,d0               ;
    jsr     PopAll(a6)          ;

    move.l  4,a6                ; wait for Ctrl-C
    moveq.l #0,d0               ;
    bset.l  #12,d0              ;
    jsr     Wait(a6)            ;

    move.l  d6,a6               ; Pop not
    moveq.l #0,d0               ;
    jsr     PopAll(a6)          ;

    move.l  4,a6                ; close newgad
    move.l  d6,a1               ;
    jsr     CloseLibrary(a6)    ;

byebye:
    rts

PPName:
    dc.b    'popper.library',0

    end