home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 201.lha / ClockDJ_v3.01 / clockdj.asm < prev    next >
Encoding:
Assembly Source File  |  1988-12-28  |  116.7 KB  |  5,637 lines
  1. * * Clockdj *
  2.  
  3.     nolist
  4.  
  5. mvc    macro
  6.     lea    \1,a0        source
  7.     lea    \2,a1        destination
  8.     moveq    #\3-1,d0    count
  9. move\@    move.b    (a0)+,(a1)+    move byte
  10.     dbra    d0,move\@
  11.      endm
  12.  
  13. clc    macro
  14.     lea    \1,a0        source
  15.     lea    \2,a1        destination
  16.     moveq    #\3-1,d0    count
  17. comp\@    cmpm.b    (a0)+,(a1)+    move byte
  18.     dbne    d0,comp\@
  19.      endm
  20.  
  21.  
  22.     
  23.     
  24. ********* assembler offset files needed for this to work
  25.     include    "exec/types.i"
  26.     include    "exec/nodes.i"
  27.     include    "exec/lists.i"
  28.     INCLUDE    "exec/interrupts.i"
  29.     INCLUDE    "devices/input.i"
  30.     INCLUDE    "hardware/intbits.i"
  31.     INCLUDE    "devices/inputevent.i"
  32.     include    "offsets/rom.ofs"
  33.     include "exec/io.i"
  34.     include "graphics/view.i"
  35.     include "graphics/sprite.i"
  36.     include "graphics/copper.i"
  37.     include "graphics/gfxbase.i"
  38.  
  39.     include "intuition/preferences.i"
  40.     include "intuition/screens.i"
  41.     include    "exec/memory.i"
  42.     include    "intuition/intuition.i"
  43.     include    "libraries/dos.i"
  44.     list
  45. *    llen    80
  46.     
  47.  
  48.     bra    clockdjstart
  49.  
  50.     dc.b    'Clockdj V3.01'    
  51.     dc.b    '29 Nov 88'
  52.     cnop     0,2
  53. clockdjstart
  54.  
  55.     cmpi.b    #10,(a0)    any data
  56.     beq    noparm        no
  57.     move.b    (a0),revswitch    set reverse button switch
  58.     moveq    #80,d0        maximum initial length
  59.     lea    itext0,a1    Text for menu
  60.     lea    newcli,a2    command area    
  61.     lea    2(a0),a0    next field
  62.     moveq    #0,d2
  63.     moveq    #0,d3
  64. newinit    cmpi.b    #10,(a0)    end
  65.     beq    noparm
  66. newinit2 
  67.     cmpi.b    #10,(a0)    end
  68.     beq    clrend
  69.     tst.l    d2
  70.     bne.s    3$
  71.     cmpi.b    #8,d3        end?
  72.     beq.s    2$
  73.     cmpi.b    #' ',(a0)    end of initial command?
  74.     bne.s    1$    
  75. 2$    not.l    d2        set switch    
  76.     bra    3$
  77. 1$    move.b    (a0),(a1)+    
  78. 3$    move.b    (a0)+,(a2)+    
  79.     addq.b    #1,d3
  80.     dbra    d0,newinit2
  81. clrend
  82.     clr.b    (a2)        end of newcli 
  83.  
  84. noparm
  85.     lea     layersname,a1
  86.     MOVEQ   #0,D0        ; load version number
  87.     MOVEA.L 4,A6        ; load exec library address
  88.     JSR     OpenLibrary(A6)    ; call OpenLibrary
  89.     TST.L   D0        ok?
  90.     bne    layok        yes
  91.     rts
  92. layok    MOVE.L    D0,layers        save
  93.  
  94.  
  95.     lea     dosname,A1
  96.     MOVEQ   #0,D0        ; load version number
  97.     MOVEA.L 4,A6        ; load exec library address
  98.     JSR     OpenLibrary(A6)    ; call OpenLibrary
  99.     TST.L   D0        ok?
  100.     bne    4$        yes
  101.     bra    layerbye
  102.  
  103. 4$    MOVE.L    D0,a6        save
  104.     move.l    d0,doslib
  105. *
  106. * Read in key definitions
  107. *
  108.     bsr    readkeys
  109.     lea    savefile,a0    name of save string
  110.     move.l    a0,d1        move into right reg
  111.     move.l    #MODE_OLDFILE,d2 old file
  112.     jsr    Open(a6)    Open
  113.     tst.l    d0        file there?
  114.     beq.s    closedos    no use defaults
  115.  
  116.     move.l    d0,d1        file handle
  117.     move.l    #diskbufferl,d4    length expected
  118.     lea    diskbuffer,a4
  119. readin
  120.     move.l    a4,d2        data
  121.     move.l    #1,d3        data length
  122.     move.l    d1,-(a7)    save handle
  123.     jsr    Read(a6)    read it in
  124.     move.l    (a7)+,d1    restore file handle
  125.     tst.l    d0        test result
  126.     beq    closein        eof
  127.     bmi    closein        error
  128.     adda    #1,a4        next
  129.     dbra    d4,readin
  130. closein
  131.     jsr    Close(a6)    close file
  132. closedos
  133.     MOVE.L    a6,a1        dos Library
  134.     movea.l    4,a6        Exec base 
  135.     jsr    CloseLibrary(A6) call CloseLibrary
  136. nofile            
  137.     lea    window,a0    new window structure
  138.     move.w    windowleft,nw_LeftEdge(a0)    restore 
  139.     move.w    windowtop,nw_TopEdge(a0)        window
  140.     
  141.     cmpi.b    #memtot,memory    total memory display?
  142.     beq.s    2$        yes
  143.  
  144. ******* set up window for chip/fast memory display *********
  145.  
  146.     lea    itext1b,a1    new text
  147.     move.w    #312,nw_Width(a0)    set new width
  148.     lea    sepmsg,a2        new message text
  149.     bra.s    3$
  150.  
  151. ******** set up window for total memory display
  152.  
  153. 2$    lea    itext1,a1    new text
  154.     lea    totmsg,a2        new message text
  155. 3$    move.l    a1,memtext    set up text
  156.     lea    Date_Text,a0    message structure 
  157.     move.l    a2,it_IText(a0)    set up message address
  158.     move.w    colours,Date_Text restore colours
  159.  
  160. ****** set up priority check mark ********
  161.  
  162.     lea    priindex,a0    index of fields
  163.     moveq    #0,d0
  164.     move.b    priority,d0    get priority
  165.     ext.w    d0        extend sign
  166.     addq    #3,d0        create
  167.     lsl.l    #2,d0                index
  168.     movea.l    0(a0,d0),a1
  169.     ori.w    #CHECKED,0(a1)     set check mark
  170.  
  171.  
  172. ****** set up refresh check mark ********    
  173.  
  174.     cmpi.l    #100000,refrate    
  175.     bne.s    not10
  176.     ori.w    #CHECKED,ref1
  177.     bra    blankcheck
  178. not10    cmpi.l    #200000,refrate    
  179.     bne.s    not20
  180.     ori.w    #CHECKED,ref2
  181.     bra    blankcheck
  182. not20    cmpi.l    #500000,refrate    
  183.     bne.s    not50
  184.     ori.w    #CHECKED,ref3
  185.     bra    blankcheck
  186. not50    cmpi.l    #999999,refrate    
  187.     bne.s    not10
  188.     ori.w    #CHECKED,ref4
  189.  
  190. ********* Set up blank check mark ********
  191.  
  192. blankcheck
  193.     cmpi.w    #0,blanktime
  194.     bne.s    notb0
  195.     ori.w    #CHECKED,blach1
  196.     bra    pointcheck
  197. notb0    cmpi.w    #5*60,blanktime
  198.     bne.s    notb5
  199.     ori.w    #CHECKED,blach2
  200.     bra    pointcheck
  201. notb5    cmpi.w    #10*60,blanktime
  202.     bne.s    notb10
  203.     ori.w    #CHECKED,blach3
  204.     bra    pointcheck
  205. notb10    cmpi.w    #20*60,blanktime
  206.     bne.s    notb20
  207.     ori.w    #CHECKED,blach4
  208.     bra    pointcheck
  209. notb20    cmpi.w    #30*60,blanktime
  210.     bne.s    notb30
  211.     ori.w    #CHECKED,blach5
  212.     bra    pointcheck
  213. notb30    ori.w    #CHECKED,blach6
  214.     
  215. ********* Set up blank check mark ********
  216.  
  217. pointcheck
  218.     
  219.     cmpi.w    #0,pointtime
  220.     bne.s    notp0
  221.     ori.w    #CHECKED,poich1
  222.     bra    speedset
  223. notp0    cmpi.w    #5,pointtime
  224.     bne.s    notp5
  225.     ori.w    #CHECKED,poich2
  226.     bra    speedset
  227. notp5    cmpi.w    #10,pointtime
  228.     bne.s    notp10
  229.     ori.w    #CHECKED,poich3
  230.     bra    speedset
  231. notp10    cmpi.w    #20,pointtime
  232.     bne.s    notp20
  233.     ori.w    #CHECKED,poich4
  234.     bra    speedset
  235. notp20    cmpi.w    #30,pointtime
  236.     bne.s    notp30
  237.     ori.w    #CHECKED,poich5
  238.     bra    speedset
  239. notp30    ori.w    #CHECKED,poich6
  240.     
  241. **** set mouse speed check mark
  242.  
  243. speedset
  244.     moveq    #0,d0
  245.     move.b    mousespeed,d0        get speed
  246.     lsl.l    #2,d0            *4
  247.     lea    mousecheck,a0        addreses
  248.     movea.l    0(a0,d0),a1        get address
  249.     ori.w    #CHECKED,(a1)        set check mark
  250.  
  251. ****** set sun mouse check mark
  252.  
  253.     tst.b    sunswitch        sun mouse on?
  254.     beq    ftest            no
  255.     ori.w    #CHECKED,suncheck    set tick
  256.  
  257. ****** set window to front check mark
  258.  
  259. ftest    tst.b    wtfcount        neg?
  260.     bmi    fset0x            yes
  261. fcheckdo
  262.     moveq    #0,d0
  263.     move.b    wtfcount,d0        get speed
  264.     lsl.l    #2,d0            *4
  265.     lea    frontcheckr,a0        addreses
  266.     movea.l    0(a0,d0),a1        get address
  267.     ori.w    #CHECKED,(a1)        set check mark
  268.     bra    btest
  269. fset0x    clr.b    wtfcount
  270.     bra    fcheckdo
  271. ****** set window to back check mark
  272.  
  273. btest    tst.b    backswitch        sun mouse on?
  274.     bmi    bset0x            no
  275. bcheckdo
  276.     moveq    #0,d0
  277.     move.b    wtbcount,d0        get speed
  278.     lsl.l    #2,d0            *4
  279.     lea    backcheckr,a0        addreses
  280.     movea.l    0(a0,d0),a1        get address
  281.     ori.w    #CHECKED,(a1)        set check mark
  282.     bra    ctest
  283. bset0x    clr.b    wtbcount
  284.     bra    bcheckdo
  285.  
  286. ****** set screen cycle check mark
  287.  
  288. ctest    tst.b    cycleswitch        screen cycle on?
  289.     beq    ktest            no
  290.     ori.w    #CHECKED,cyclecheck    set tick
  291.  
  292.  
  293. ****** set key to front check mark
  294.  
  295. ktest    tst.b    keyswitch        key to front on?
  296.     beq    ptest            no
  297.     ori.w    #CHECKED,keycheck    set tick
  298.  
  299. ****** set pop to front check mark
  300.  
  301. ptest    tst.b    popswitch        key to front on?
  302.     beq    matest            no
  303.     ori.w    #CHECKED,wtfcheck    set tick
  304.  
  305. ****** set key map check mark
  306.  
  307. matest    tst.b    mapswitch        key to front on?
  308.     beq    setwh            no
  309.     ori.w    #CHECKED,mapcheck    set tick
  310.  
  311. setwh
  312. ****** set window height
  313.     move.b    windowheight,newwindowheight+1
  314. ***** open intuition library and store its pointer  *****
  315.         
  316. iopen    LEA     IntuitionName(PC),A1
  317.     MOVEQ   #0,D0        ; load version number
  318.     MOVEA.L 4,A6        ; load exec library address
  319.     JSR     OpenLibrary(A6)    ; call OpenLibrary
  320.     TST.L   D0
  321.     BNE.S   *+4
  322.     RTS            ; FAIL: couldn't open intuition library
  323.     MOVE.L    D0,intuit    ; store intuition library pointer
  324.  
  325.  
  326. ********* open window
  327.  
  328.     lea    window,a0
  329.     movea.l  intuit,A6
  330.     JSR     OpenWindow(A6)    ; call OpenWindow
  331.  
  332.     TST.L   D0
  333.     BEQ.L   FailOpenWindow
  334.     movea.l    d0,a0
  335.     move.l    wd_WLayer(a0),layer    window layer
  336.     movea.l    wd_WScreen(a0),a1    screen pointer
  337.     lea    sc_LayerInfo(a1),a0     get Layer_info address
  338.     move.l    a0,layerinfo        save
  339.     
  340.  
  341. ****** set up menu strip
  342.  
  343.     movea.l    d0,a3        save window pointer
  344.     move.l    d0,windowpoint    
  345.     movea.l    d0,a0        
  346.     lea    menu0,a1    menu structure
  347.     jsr    SetMenuStrip(a6) set up menu
  348.  
  349.  
  350. WindowOpened:
  351.  
  352. ****
  353. * Initialise the intput handler structure.
  354. ***
  355.  
  356.     move.b    #NT_INTERRUPT,inthandler+LN_TYPE  set the node type
  357.     move.b    #127,inthandler+LN_PRI    I want to be first
  358.     move.l    #datarea,inthandler+IS_DATA handler can see data
  359.     move.l    #intcode,inthandler+IS_CODE    point to code
  360.  
  361. *****
  362. * get a signal bit for input handler 
  363. ****
  364.     movea.l    4,a6            using exec.library again
  365.     moveq.l    #-1,d0            any signal will do
  366.     jsr    AllocSignal(a6)
  367.     moveq.l    #0,d1            convert signum to a mask
  368.     bset.l    d0,d1
  369.     move.l    d1,insig        save
  370.     move.l    d1,d7            stash  sig bit
  371.         
  372.  
  373. ; get ClockWindow->UserPort->mp_SigBit into D0
  374.     MOVEA.L wd_UserPort(A3),A0   A0 = ClockWindow->UserPort
  375.     MOVEQ   #0,D0
  376.     MOVE.B  MP_SIGBIT(A0),D0  D0 = the ClockWindow's mp_SigBit
  377.     MOVEQ   #1,D4
  378.     LSL.L   D0,D4        ; D4 = windowSigs
  379.     or.l    D4,D7        ; D7 = waitFlags
  380.  
  381. ***** create timer port *****
  382.  
  383.     movea.l 4,A6        load exec library address
  384.     ; get a signal bit
  385.     MOVEQ   #-1,D0
  386.     JSR     AllocSignal(A6)    ; call AllocSignal
  387.     MOVE.L  D0,D3        ; D3 = sigBit
  388.     BMI    FailCreateTimer1
  389.  
  390.  
  391. * alloc sprite data
  392.  
  393.     moveq    #11*4,D0        size of structure
  394.     MOVE.L  #MEMF_CLEAR+MEMF_CHIP,D1 memory type = CLEAR and CHIP
  395.     JSR     AllocMem(A6)    ; call AllocMem
  396.     MOVE.L  D0,spriteblank
  397.  
  398.  
  399. ; alloc port structure
  400.     moveq   #MP_SIZE,D0        size of structure
  401.     MOVE.L  #MEMF_CLEAR+MEMF_PUBLIC,D1 memory type = CLEAR and PUBLIC
  402.     JSR     AllocMem(A6)    ; call AllocMem
  403.     MOVE.L  D0,D5        ; D5 = timer Port
  404.     BNE.S   SkipFailCode
  405.     ; AllocMem failed
  406.     MOVE.L  D3,D0
  407.     JSR     FreeSignal(A6)    ; call FreeSignal
  408.     BRA     FailCreateTimer2
  409. SkipFailCode:
  410.     ; fill port fields
  411.     MOVEA.L D5,A2
  412.     ADDQ.L  #LN_TYPE,A2    ; A2 now points to the LN_TYPE field        
  413.     MOVE.W  #NT_MSGPORT+LN_PRI,(A2)+ LN_TYPE = NT_MSGPORT, LN_PRI = 0
  414.     LEA    TimerPortName(PC),A0
  415.     MOVE.L  A0,(A2)+    ; LN_NAME = address of timer port name
  416.     MOVE.W  D3,(A2)+    ; MP_FLAGS = (#PA_SIGNAL=0), MP_SIGBIT = sigBit
  417.     MOVEQ   #0,D0
  418.     MOVEA.L D0,A1
  419.     JSR     FindTask(A6)    ; call FindTask ( 0 arg means this task)
  420.     MOVE.L  D0,(A2)        ; MP_SIGTASK = pointer to found task
  421.     move.l    d0,task        save task pointer
  422.     move.l    d0,a1        my task
  423.     moveq    #0,d0
  424.     move.b    #50,d0        Priority 2                            
  425.     jsr    SetTaskPri(a6)    call SetTaskPri
  426.  
  427.  
  428. ** get input device port space 
  429.  
  430.     movea.l    4,a6            exec base
  431.     moveq   #MP_SIZE,d0        size of structure
  432.     move.l  #MEMF_CLEAR+MEMF_PUBLIC,d1 memory type = CLEAR and PUBLIC
  433.     jsr     AllocMem(a6)    call AllocMem
  434.  
  435.     move.l  d0,inputport    save input Port
  436.     bne    gotsp
  437.     moveq    #8,d0
  438.     rts            Big trouble. give up
  439.  
  440.  
  441. ** fill in  port fields 
  442.  
  443. gotsp    movea.l    inputport,a1
  444.     move.b  #NT_MESSAGE,LN_TYPE(a1) LN_TYPE = NT_MESSAGE(5)
  445.     move.l    #inputportname,LN_NAME(a1)    name
  446.  
  447. * stick task in the msg port.
  448.  
  449.     move.l    task,MP_SIGTASK(a1)    task pointer
  450.  
  451.  
  452.     BRA     SkipFailSection
  453.  
  454. ********** FAILURE SECTION ************
  455. ClosedWindow:
  456. * abort any standing timer request
  457.     movea.l    4,a6        exec base
  458.     MOVEA.L timer,A1    timer IORequest
  459.     ABORTIO
  460.     ; close timer device
  461.     movea.l timer,A1    timer IORequest
  462.     JSR     CloseDevice(A6)    ; call CloseDevice
  463.  
  464. * Free timer request storage
  465.  
  466.     movea.l timer,A1    timer IORequest
  467.     moveq   #MP_SIZE,D0    size of structure
  468.     jsr     FreeMem(A6)    call FreeMem
  469.  
  470. FailOpenDevice:
  471. FailTimeRequestAlloc:
  472.     ; close timer port
  473.     MOVEA.L D5,A1
  474.     JSR     RemPort(A6)    ; call RemPort
  475.     MOVEA.L D5,A2
  476.     MOVEQ   #-1,D6
  477.     MOVE.B  D6,$A(A2)
  478.     MOVE.L  D6,(A2)
  479.     MOVE.L  (SP)+,D0    ; get the sigBit
  480.     JSR     FreeSignal(A6)    ; call FreeSignal
  481.     move.l    insig,d0    input handler signal
  482.     JSR     FreeSignal(A6)    ; call FreeSignal
  483.     MOVEA.L D5,A1
  484.     MOVEQ   #$22,D0
  485.     JSR     FreeMem(A6)    ; call FreeMem
  486.  
  487. FailCreateTimer2:
  488. FailCreateTimer1:
  489.     MOVEA.L A3,A0
  490.     movea.l  intuit,A6
  491.     jsr    ClearMenuStrip(a6) remove menu
  492.     MOVEA.L A3,A0
  493.     JSR     CloseWindow(A6)    ; call CloseWindow
  494.  
  495. FailOpenWindow:
  496.     movea.l    intuit,A1    Intuition Library
  497.     movea.l    4,a6        exec base
  498.     JSR    CloseLibrary(A6) call CloseLibrary    
  499.  
  500.  
  501. ;============================================================================
  502. ;  remove intput handler 
  503. ;============================================================================
  504.  
  505.     movea.l    4,a6        using exec.library
  506.     lea    inputreq,a1    
  507.     move.l    #inthandler,IO_DATA(a1)     
  508.     move.l    #IS_SIZE,IO_LENGTH(a1)    set length 
  509.     move.w    #IND_REMHANDLER,IO_COMMAND(a1)    remove handler 
  510.  
  511.     move.l    4,a6
  512.     jsr    DoIO(a6)
  513.  
  514.     lea    inputreq,A1    input IORequest
  515.     JSR     CloseDevice(A6)    ; call CloseDevice
  516.  
  517.     movea.l  inputport,a1      Remove the input Port
  518.         jsr      RemPort(a6)
  519.  
  520.     movea.l inputport,a1    input port
  521.     moveq   #MP_SIZE,D0    size of structure
  522.     jsr     FreeMem(A6)    call FreeMem
  523.  
  524.     movea.l spriteblank,a1    input port
  525.     moveq      #11*4,D0    size of structure
  526.     jsr     FreeMem(A6)    call FreeMem
  527.  
  528.     bsr    freekeymem
  529.  
  530. layerbye MOVE.L    layers,a1    layers
  531.     MOVEA.L 4,A6        ; load exec library address
  532.     JSR     CloseLibrary(A6)     call CloseLibrary
  533.     moveq    #0,d0
  534.     rts
  535.  
  536. ********* FAILURE END **********
  537.  
  538. SkipFailSection:
  539. ; add the ports
  540.     MOVEA.L D5,A1
  541.     movea.l    4,a6        Exec base
  542.     JSR     AddPort(A6)    ; call AddPort
  543.  
  544.         move.l   inputport,a1     Message Port
  545.         jsr      AddPort(a6)   Add another Port to list
  546.  
  547.  
  548. ** Set up input IOReq structures
  549.     
  550.  
  551.     lea    inputreq,a1    IORequest
  552.     move.b  #NT_MESSAGE,LN_TYPE(a1) LN_TYPE = NT_MESSAGE(5)
  553.     move.b  #0,LN_PRI(a1)     LN_PRI = 0
  554.     move.l  inputport,MN_REPLYPORT(a1) move in message port pointer
  555.  
  556. ** open input device 
  557.  
  558.  
  559.  
  560.     lea    inputname,a0        device name
  561.     moveq    #0,d0            unit number        
  562.     lea    inputreq,a1        IOReq
  563.     moveq    #0,d1            flags
  564.     jsr    OpenDevice(a6)    
  565.     lea    inputreq,a1        IOReq
  566.     cmpi.b    #0,IO_ERROR(a1)        ok?
  567.     beq.s    openok            yes
  568.     moveq    #0,d0
  569.     move.b    IO_ERROR(a1),d0
  570.     rts
  571.  
  572. openok
  573.     move.l    #inthandler,IO_DATA(a1)     
  574.     move.l    #IS_SIZE,IO_LENGTH(a1)    set length 
  575.     move.w    #IND_ADDHANDLER,IO_COMMAND(a1) 
  576. ******
  577. * now that everything is initialised,  add the input handler
  578. ******
  579.     lea    inputreq,a1    
  580.     move.l    4,a6
  581.     jsr    DoIO(a6)
  582.  
  583.  
  584. ***** use the timer port sigBit(D3) to set the timeOutSig(D6) *****
  585.  
  586.     MOVE.L  D3,D0
  587.     MOVE.L    D3,-(SP)    ; save the sigBit
  588.     MOVEQ   #1,D6
  589.     LSL.L   D0,D6
  590.     OR.L    D6,D7        ; update the waitFlags
  591.  
  592. ***** initialize timeRequest structure *****
  593.  
  594.     MOVEQ   #IOTV_SIZE,D0        D0 = IOTV_SIZE
  595.     MOVE.L  #MEMF_CLEAR+MEMF_PUBLIC,D1 memory type = clear it, and public
  596.     JSR     AllocMem(A6)    ; call AllocMem
  597.     TST.L   D0
  598.     BEQ     FailTimeRequestAlloc
  599.     MOVEA.L D0,A5        ; A5 = timeRequest
  600.     move.l    d0,timer    save timer IORequest
  601.     move.b  #NT_MESSAGE,LN_TYPE(A5) LN_TYPE = NT_MESSAGE(5)
  602.     move.b  #0,LN_PRI(A5)     LN_PRI = 0
  603.     MOVE.L  D5,MN_REPLYPORT(A5) MN_REPLYPORT = timerPort
  604.                 ; AllocMem set to zero the IO_FLAGS, IO_ERROR fields
  605.  
  606. ***** open vblank timer device *****
  607.  
  608.     LEA     TimerName(PC),A0    ; A0 = timer name
  609.     MOVEA.L A5,A1        ; A1 = timeRequest
  610.     MOVEQ   #1,D0        ; D0 = UNIT_VBLANK(1)
  611.     MOVEQ   #0,D1
  612.     JSR     OpenDevice(A6)    ; call OpenDevice
  613.     TST.L   D0
  614.     BNE     FailOpenDevice
  615.     MOVE.W  #TR_ADDREQUEST,IO_COMMAND(A5) IO_COMMAND = TR_ADDREQUEST(9)
  616.  
  617. ***** initialize main loop *****
  618.  
  619.     LEA     buffer(PC),A2    ; A2 = bufferPTR
  620.     LEA    InitMainLoop(PC),A4
  621.     BRA     InitializeTime
  622. InitMainLoop:    
  623.     LEA    WhileMoreMessages(PC),A4
  624. MainLoop:
  625.     MOVE.L  D7,D0        ; D0 = waitFlags
  626.     movea.l    4,a6        Exec base
  627.     JSR     Wait(A6)    ; call Wait
  628.     move.l    d0,d3        save
  629.     move.l    insig,d1    sigbit for input device
  630.     and.l    d0,d1        input signal
  631.     beq    notinput    not input device
  632.  
  633. **  process input events
  634.  
  635. processinput
  636. *** test for window re-size
  637.  
  638.     cmp.b    #'>',action        do increase?
  639.     bne.s    testless        no
  640.  
  641.     move.l    intuit,a6
  642.     movea.l    a3,a0    
  643.     moveq    #0,d0
  644.     move.w    wd_TopEdge(a0),d0
  645.     add.w    wd_Height(a0),d0
  646.     cmpi.w    #199,d0            at maximum?
  647.     bcc    notinput        d0>=199
  648.     moveq    #0,d0            Dx
  649.     moveq    #1,d1            Dy
  650.     JSR     SizeWindow(A6)        alter size
  651.     addq.b    #1,windowheight
  652.     bra    notinput
  653.     
  654. testless
  655.     cmp.b    #'<',action        do increase?
  656.     bne.s    keymaptest            no
  657.  
  658.     move.l    intuit,a6
  659.     movea.l    a3,a0    
  660.     moveq    #0,d0        Dx
  661.     moveq    #-1,d1        Dy
  662.     JSR     SizeWindow(A6)    alter size
  663.     cmpi.b    #1,windowheight
  664.     beq    notinput
  665.     subq.b    #1,windowheight
  666.     bra    notinput
  667.  
  668. *** test for keymap translate
  669. keymaptest
  670.     cmp.b    #'m',action        do key map?
  671.     bne    exwindow        no
  672.     move.l    mapbuffer,a0        key map buffer
  673.     adda.l    #9,a0    
  674. 1$    cmpi.b    #$fe,(a0)+        look for end of string
  675.     bne    1$
  676.     cmpi.b    #'s',1(a0)        is it a string?
  677.     bne    docommand        no
  678.     movem.l    a2-a4/d7,-(sp)    
  679.     moveq    #0,d7
  680.     cmpi.b    #$ff,2(a0)        is there a delay?
  681.     beq    nodelay        no
  682.     move.b    2(a0),d7        get delay
  683.     and.b    #$0f,d7
  684.     mulu.w    #10000,d7        convert to microsecs
  685. nodelay
  686.     move.l    mapbuffer,a0        key map buffer
  687.     adda.l    #9,a0    
  688.     move.l    a0,a2            keep
  689.     move.l    4,a6
  690. nexteventgen
  691.     cmpi.b    #$fe,(a2)        end of string?
  692.     beq    resstack        yes - out
  693.  
  694. * test for qualifiers and special keys    
  695.     move.w    #$8000,d1    no qualifier
  696.     cmpi.b    #'%',(a2)    is it qualifier?
  697.     bne.s    nosqual        no
  698.  
  699. nextqual1
  700.     adda.l    #1,a2        next one
  701.     lea    qualifiers,a3    get all qualifiers    
  702. qualloop1
  703.     cmpi.b    #$fe,(a3)    end yet?
  704.     beq    nosqual           ****** error    *********
  705.     clc    (a2),(a3),3    are these the same
  706.     beq.s    gotqual1    yes
  707.     adda.l    #6,a3        next qualifier
  708.     bra.s    qualloop1
  709. gotqual1
  710.     or.w    4(a3),d1    get qualifier
  711. nextqual3
  712.     adda.l    #3,a2        next key qualifier
  713.     cmpi.b    #',',(a2)    end of qualifiers?
  714.     bne.s    nosqual        yes
  715.     adda.l    #1,a2        next one
  716.     cmpi.b    #'%',(a2)    end of qualifiers?
  717.     bne.s    nosqual        yes
  718.     beq.s    nextqual1    
  719. nosqual    
  720.     lea    event,a0        
  721.     move.w    d1,ie_Qualifier(a0)
  722.     
  723.     cmpi.b    #'&',(a2)    special key?
  724.     bne    notspec
  725.     lea    tim,a0
  726.     clc    (a0),1(a2),3    is it time request?
  727.     bne    trydate
  728.     cmpi.b    #memtot,memory    total memory? 
  729.     beq.s    1$        yes
  730.     lea    buffer2+1,a0    time
  731.     bra.s    2$
  732. 1$    lea    buffer+1,a0    time
  733. 2$    move.l    #11,d0        set length
  734.     bsr    subchars    
  735.     add.l    #4,a2        next field    
  736.     bra    nexteventgen
  737.         
  738. trydate
  739.     lea    dat,a0
  740.     clc    (a0),1(a2),3    is it date request?
  741.     bne    notdate
  742.     bsr    getdate        get date        
  743.     lea    datefield,a0    date field
  744.     move.l    #11,d0        set length
  745.     bsr    subchars
  746.     add.l    #4,a2        next field    
  747.     bra    nexteventgen
  748.     
  749. notdate    
  750.     lea    funnykeys,a4    get special keys
  751. nextspec2
  752.     cmpi.b    #$fe,(a4)    end?
  753.     beq    notspec        yes     *********** error *********
  754.     clc    1(a2),(a4),3    equal?
  755.     beq    gotfunny2    yes
  756.     adda.l    #4,a4        next entry
  757.     bra    nextspec2
  758. gotfunny2
  759.     move.b    3(a4),d0    move in funny key code
  760.     adda.l    #3,a2        point to last byte
  761.     bra.s    setbyte    
  762. notspec    
  763.  
  764.     move.b    (a2),d0
  765.  
  766.     bsr    rawtrans        translate to raw keys
  767. setbyte
  768.     lea    event,a0        
  769.     lea    inputreq,a1        IOReq
  770.     move.b    d0,ie_Code+1(a0)
  771.     and.b    #$80,d0            shifted?
  772.     beq.s    norcode            no
  773.     and.b    #$7f,ie_Code+1(a0)    turn off shift bit 
  774.     or.w    #IEQUALIFIER_LSHIFT,ie_Qualifier(a0)    set to shifted
  775. norcode    move.b    #IECLASS_RAWKEY,ie_Class(a0)
  776.     move.l    a0,IO_DATA(a1)     
  777.     move.l    #ie_SIZEOF,IO_LENGTH(a1)    set length 
  778.     move.w    #IND_WRITEEVENT,IO_COMMAND(a1) 
  779.     jsr    DoIO(a6)
  780.     adda.l    #1,a2            next byte
  781.     tst.l    d7            delay?
  782.     beq    nexteventgen        no
  783.  
  784. *******
  785. *** Delay submission of characters
  786.  
  787.     movem.l    a0/a5/a1,-(sp)
  788.     lea    pause,a1        new ioreq
  789.     move.l    a5,a0            old ioreq
  790.     moveq    #IOTV_SIZE/4-1,d0
  791. 1$    
  792.     move.l    (a0)+,(a1)+
  793.     dbra    d0,1$
  794.     lea    pause,a1
  795.     MOVE.W  #TR_ADDREQUEST,IO_COMMAND(A1) IO_COMMAND = TR_ADDREQUEST(9)
  796.     MOVE.l  #0,IO_SIZE+TV_SECS(A1)    TV_SECS = $01(01 seconds) ||dj
  797.     MOVE.L  d7,IO_SIZE+TV_MICRO(A1)    TV_MICRO= specified time
  798.     movea.l    4,a6        set Exec base
  799.     JSR     DoIO(A6)    wait
  800.  
  801.     movem.l    (sp)+,a0/a5/a1
  802.     bra    nexteventgen
  803. resstack
  804.     movem.l    (sp)+,a2-a4/d7    
  805.     bra    notinput
  806. docommand
  807.     lea    keybuffer,a2        command buffer
  808.     move.l    mapbuffer,a0        key map buffer
  809.     adda.l    #9,a0    
  810. 1$    cmpi.b    #$fe,(a0)        look for end of string    
  811.     beq    comex
  812.     move.b    (a0)+,(a2)+        move in byte
  813.     bra    1$
  814. comex    clr.b    (a2)
  815.  
  816.     LEA     dosname,a1
  817.     MOVEQ   #0,D0        ; load version number
  818.     MOVEA.L 4,A6        ; load exec library address
  819.     JSR     OpenLibrary(A6)    ; call OpenLibrary
  820.     TST.L   D0        ok?
  821.     beq.s   resstack    no
  822.     MOVE.L    D0,a6        save
  823.  
  824.     move.l    d3,-(a7)    save d3    
  825.     lea    keybuffer,a0    newcli command string
  826.     moveq    #0,d2        accept default
  827.     moveq    #0,d3        accept default
  828.     move.l  a0,d1
  829.     jsr    Execute(a6)    Execute
  830.     move.l    (a7)+,d3    restore d3
  831. * close dos library
  832.     MOVE.L    a6,a1        dos Library
  833.     movea.l    4,a6        Exec base 
  834.     jsr    CloseLibrary(A6) call CloseLibrary
  835.     bra    notinput
  836.  
  837. *** test for window expand
  838. exwindow
  839.     cmp.b    #'e',action        do get window back?
  840.     bne    delwintest        no
  841.  
  842.  
  843.     move.l    #windowtabl/16-1,d0    entries
  844.     lea    windowtab,a1        start of table 
  845.     add.l    #windowtabl-16,a1    end of table
  846. wtab2    tst.l    (a1)            free?
  847.     bne    gotlast            yes
  848.     suba.l    #16,a1            down 1
  849.     dbra    d0,wtab2            
  850.     bra    notinput        no more - ignore
  851.  
  852. gotlast 
  853.     movem.l    a2-a5/d2-d7,-(sp)
  854.     move.l    intuit,a6        intuition base
  855.     move.l    (a1),a0        window
  856.  
  857.     move.l    ib_ActiveScreen(a6),d1     get active screen
  858.  
  859.     move.l    #windowtab,d2        start of table 
  860.     move.l    #windowtabl/16-1,d0    entries
  861. slook    cmp.l    4(a1),d1        same screen?
  862.     beq    gotwscreen        yes
  863.     suba.l    #16,a1            next entry
  864.     cmp    a1,d2            at start?            
  865.     bne    slook
  866.     movem.l    (sp)+,a2-a5/d2-d7
  867.     bra    notinput
  868.  
  869. gotwscreen
  870.  
  871. ***  look for window
  872.     move.l    d1,a0            
  873.     move.l    sc_FirstWindow(a0),a2    get first window    
  874.     move.l    a2,d2    
  875. nextlwin2
  876.     move.l    d2,a2
  877.     cmp.l    0(a1),d2    right one?    
  878.     beq    gotewind            yes
  879.     move.l    wd_NextWindow(a2),d2    get next window
  880.     beq    weend                no more
  881.     bra    nextlwin2
  882.  
  883. gotewind
  884.     moveq    #0,d0
  885.     moveq    #0,d1
  886.     move.l    (a1),a0
  887.     move.w    12(a1),d0    x position
  888.     move.w    14(a1),d1    y position
  889.     move.l    a1,-(sp)
  890.     jsr    MoveWindow(a6)
  891.     move.l    (sp)+,a1
  892.     move.l    (a1),a0        window
  893.     moveq    #0,d0
  894.     moveq    #0,d1
  895.     move.w    8(a1),d0    x amount
  896.     move.w    10(a1),d1    y amount
  897.     subq    #1,d0
  898.     subq    #1,d1
  899.     move.l    a1,-(sp)            delete entry
  900.     jsr    SizeWindow(a6)        like a rabbit out of a hat
  901.     move.l    (sp)+,a1
  902. weend    move.l    a1,d0
  903.     sub.l    #windowtab,d0
  904.     move.l    #windowtabl,d1
  905.     sub.l    d0,d1        get move length
  906.     sub.l    #16,d1        
  907.     divu    #4,d1        in long words
  908.     ext.l    d1
  909.     subq    #1,d1
  910.     lea    (a1),a2        to address
  911.     lea    16(a1),a3    from address
  912. clearentry
  913.     move.l    (a3)+,(a2)+
  914.     dbra    d1,clearentry
  915.     movem.l    (sp)+,a2-a5/d2-d7
  916.     bra    notinput
  917.     
  918. *** test for window shrink
  919.  
  920. delwintest
  921.     cmp.b    #'d',action    do delete window?
  922.     bne    newclitst        no
  923.  
  924. * get next available slot
  925.     lea    windowtab,a1        start of table 
  926.     move.l    #windowtabl/16-1,d0    entries
  927. wtab    tst.l    (a1)            free?
  928.     beq    gotwspace        yes
  929.     adda.l    #16,a1            next entry
  930.     dbra    d0,wtab            
  931.     bra    notinput        no space - ignore
  932. gotwspace    
  933.     move.l    a1,-(sp)
  934.     bsr    windowpointer        find where pointer is
  935.     move.l    (sp)+,a1
  936.     tst.l    d0            got window?
  937.     beq    notinput        no    
  938.     move.l    d0,a0        
  939.     tst.l    wd_UserPort(a0)
  940.     bne.s    1$
  941.     tst.l    wd_WindowPort(a0)
  942.     beq    notinput
  943. 1$    
  944.     move.l    d0,(a1)            save window pointer
  945.     moveq    #0,d0
  946.     moveq    #0,d1
  947.     move.l    wd_WScreen(a0),4(a1)    save screen
  948.     move.w    wd_Width(a0),d0        width
  949.     move.w    wd_Height(a0),d1    height
  950.     move.w    wd_Width(a0),8(a1)    width
  951.     move.w    wd_Height(a0),10(a1)    height
  952.     move.w    wd_LeftEdge(a0),12(a1)    x position
  953.     move.w    wd_TopEdge(a0),14(a1)    y position
  954.     subq    #1,d0
  955.     subq    #1,d1
  956.     neg.l    d0
  957.     neg.l    d1
  958.  
  959.     move.l    intuit,a6
  960.     move.l    a0,-(sp)    
  961.     jsr    SizeWindow(a6)        vapourize
  962.     move.l    (sp)+,a0
  963.     moveq    #0,d0
  964.     moveq    #0,d1
  965.     move.w    wd_LeftEdge(a0),d0    x position
  966.     move.w    wd_TopEdge(a0),d1    y position
  967.     neg.l    d0
  968.     neg.l    d1
  969.     move.l    a0,-(sp)    
  970.     jsr    MoveWindow(a6)
  971.     move.l    (sp)+,a0
  972. *
  973. * Make next window active
  974. *
  975.     move.l    wd_NextWindow(a0),d0    get next window
  976.     beq.s    get1stwin
  977. actnextwin
  978.     move.l    d0,a0            activate this window
  979.     jsr    ActivateWindow(a6)    activate the window
  980.     bra    notinput
  981. get1stwin
  982.     move.l    wd_WScreen(a0),d0    get screen
  983.     beq    notinput        none
  984.     move.l    d0,a0
  985.     move.l    sc_FirstWindow(a0),d0    get 1st window
  986.     beq    notinput        none
  987.     bra.s    actnextwin
  988.  
  989. *** test for newcli
  990.  
  991. newclitst
  992.  
  993. sunact    cmp.b    #'f',action    flip windows?
  994.     bne    winflip
  995.  
  996.     bsr    windowpointer        find where pointer is
  997.     tst.l    d0            got window?
  998.     beq    notinput        no
  999.     move.l    intuit,a6
  1000.      cmp.l    ib_ActiveWindow(a6),d0     active window?    
  1001.     beq    notinput        yes
  1002.  
  1003.  
  1004.     move.l    a0,-(sp)
  1005.     move.l    d0,a0            activate this window
  1006.     jsr    ActivateWindow(a6)    activate the window
  1007.     movea.l    (sp)+,a0    
  1008.     bra    notinput
  1009. winflip
  1010.     move.l    intuit,a6        get intuition base
  1011.     cmp.b    #'w',action        window to back?
  1012.     bne    flipscreen        no
  1013.  
  1014. wtoback
  1015.     lea    pause,a1        new ioreq
  1016.     move.l    a5,a0            old ioreq
  1017.     moveq    #IOTV_SIZE/4-1,d0
  1018. copyreqw    
  1019.     move.l    (a0)+,(a1)+
  1020.     dbra    d0,copyreqw
  1021.     lea    pause,a1
  1022.     MOVE.W  #TR_ADDREQUEST,IO_COMMAND(A1) IO_COMMAND = TR_ADDREQUEST(9)
  1023.     MOVE.l  #0,IO_SIZE+TV_SECS(A1)    TV_SECS = $01(01 seconds) ||dj
  1024.     MOVE.L  #10000,IO_SIZE+TV_MICRO(A1)    TV_MICRO= 10 ms
  1025.     movea.l    4,a6        set Exec base
  1026.     JSR     DoIO(A6)    wait
  1027.  
  1028.     bsr    windowpointer        find where pointer is
  1029.     tst.l    d0            got window?
  1030.     beq    SetAndPrintTime        no
  1031.     move.l    d0,a0            get window
  1032.     cmp.l    backwin,d0        same window?
  1033.     bne    clrswb            no
  1034.  
  1035.  
  1036.     move.l    wtbsecsnew,d0        get seconds
  1037.     sub.l    wtbsecs,d0        minus old secs
  1038.     beq    addoneb            increase count
  1039.     cmpi.l    #1,d0            one second difference?
  1040.     bhi    clrswb            more
  1041.  
  1042.     move.l    wtbsecsnew+4,d0    get micros
  1043.     sub.l    wtbsecs+4,d0        minus old micros
  1044.     bmi    addoneb
  1045.     beq    addoneb
  1046. clrswb    clr.b    backswitch        set count to 0
  1047.     move.l    a0,backwin        save window
  1048.     move.l    wtbsecsnew,wtbsecs save
  1049.     move.l    wtbsecsnew+4,wtbsecs+4 save micros
  1050. addoneb    add.b    #1,backswitch
  1051.     moveq    #0,d0            clear
  1052.     move.b    wtbcount,d0        get count
  1053.     cmp.b    backswitch,d0
  1054.     bne    SetAndPrintTime            no
  1055.     clr.b    backswitch
  1056.     clr.l    wtbsecs
  1057.     clr.l    wtbsecs+4
  1058.     clr.b    frontswitch    
  1059.  
  1060.     move.l    wd_Flags(a0),d0        get window flags
  1061.     andi.l    #BACKDROP,d0        backdrop window?
  1062.     bne    SetAndPrintTime        yes - no window to back
  1063.  
  1064.     movea.l    intuit,a6        layers base    
  1065.     jsr    WindowToBack(a6) 
  1066.  
  1067.     bra    SetAndPrintTime
  1068.  
  1069. *** Subroutine to find which window the pointer is in
  1070. *** Return window in d0
  1071.  
  1072. windowpointer
  1073.     movea.l    intuit,a6        get intuition base
  1074.     movea.l    ib_FirstScreen(a6),a1    get first screen
  1075.     move.l    ib_ActiveScreen(a6),d0    get Active screen  
  1076.     cmp.l    a1,d0            top screen active one?    
  1077.     bne    winret0            no - don't look for layer
  1078.     moveq    #0,d0
  1079.     moveq    #0,d1
  1080.     move.l    layers,a6        get layers library
  1081.     lea    sc_LayerInfo(a1),a0    get layer info
  1082.     move.l    a0,-(sp)    
  1083.     jsr    LockLayerInfo(a6)    lock the layer info
  1084.     move.w    sc_MouseX(a1),d0    get X pointer
  1085.     move.w    sc_MouseY(a1),d1    get Y pointer
  1086.     move.l    (sp),a0            get pointer back
  1087.     jsr    WhichLayer(a6)        find active layer    
  1088.     move.l    (sp)+,a0        get pointer back
  1089.     move.l    d0,-(sp)        save result
  1090.     jsr    UnlockLayerInfo(a6)
  1091.     move.l    (sp)+,d0        
  1092.     tst.l    d0            get one?
  1093.     bne    findwin            yes
  1094.     rts    
  1095.  
  1096. findwin
  1097.     movea.l    intuit,a6        get intuition base
  1098.     movea.l    ib_ActiveScreen(a6),a0     get active screen    
  1099.  
  1100.     move.l    sc_FirstWindow(a0),a1    get first window    
  1101. nextlwin
  1102.     cmp.l    wd_WLayer(a1),d0    right one?    
  1103.     beq    inwind            yes
  1104.     move.l    wd_NextWindow(a1),d1    get next window
  1105.     beq.s    winret0            no more
  1106.     movea.l    d1,a1    
  1107.     bra    nextlwin
  1108.  
  1109. winret0    
  1110.     moveq    #0,d0
  1111.     rts
  1112. inwind
  1113.     move.l    d0,d1            return layer in d1
  1114.     move.l    a1,d0
  1115.     rts
  1116.  
  1117.  
  1118. ** fall through for scrren cycle and WB to front
  1119.  
  1120. flipscreen
  1121.     lea    pause,a1        new ioreq
  1122.     move.l    a5,a0            old ioreq
  1123.     moveq    #IOTV_SIZE/4-1,d0
  1124. copyreq    move.l    (a0)+,(a1)+
  1125.     dbra    d0,copyreq
  1126.     lea    pause,a1
  1127.     MOVE.W  #TR_ADDREQUEST,IO_COMMAND(A1) IO_COMMAND = TR_ADDREQUEST(9)
  1128.     MOVE.l  #0,IO_SIZE+TV_SECS(A1)    TV_SECS = $01(01 seconds) ||dj
  1129.     MOVE.L  #10000,IO_SIZE+TV_MICRO(A1)    TV_MICRO= 10 ms
  1130.     movea.l    4,a6        set Exec base
  1131.     JSR     DoIO(A6)    wait
  1132.  
  1133.     
  1134.     movea.l    intuit,a6
  1135.     cmp.b    #'s',action        flip screen?
  1136.     beq.s    flscr            yes
  1137.     jsr    WBenchToFront(a6)    get WB
  1138.     bra.s    actwbwin
  1139. flscr
  1140.     moveq    #0,d0
  1141.     move.l    ib_FirstScreen(a6),a0     get first screen
  1142.     jsr    ScreenToBack(a6)    
  1143. actwbwin
  1144.     move.l    ib_FirstScreen(a6),a0     get first screen
  1145.     move.l    sc_FirstWindow(a0),d0    get window
  1146.     beq    SetAndPrintTime        no window
  1147.     move.l    d0,a0
  1148.     jsr    ActivateWindow(a6)    activate 1st window
  1149.     bra    SetAndPrintTime
  1150.  
  1151. notinput move.l d3,d0        restore    
  1152.     AND.L   D6,D0        ; was it the timeoutSig(D6)?
  1153.     BEQ.S   isItAWindowSig    ; if it wasn't branch 
  1154.     BRA     SetAndPrintTime 
  1155. isItAWindowSig:
  1156.     AND.L   D4,D3        ; was what woke the Wait up a windowSig(D4)?
  1157.     BEQ     WhileMoreMessages    ; if not restart the main loop
  1158.     ; keep doing the loop While there are window messages
  1159. WhileMoreMessages:
  1160.     movea.l    4,a6        set to Exec base
  1161.     MOVEA.L wd_UserPort(A3),A0 A0 = window's UserPort
  1162.     JSR     GetMsg(A6)    ; call GetMsg
  1163.     TST.L   D0        ; D0 = message
  1164.     BEQ     SetAndPrintTime    ; no more messages so see if any timer messages 
  1165.     MOVEA.L D0,A1
  1166.     move.l    im_Class(a1),class    save class
  1167.     move.w    im_Code(a1),code1    save code
  1168.     JSR     ReplyMsg(A6)     call ReplyMessage
  1169.     cmpi.l    #MENUPICK,class    menu?
  1170.     bne    refres        no
  1171.  
  1172.     bsr    menuscan    do changes
  1173.  
  1174.     cmpi.w    #MENUNULL,code1    item picked?
  1175.     beq    refres        no
  1176.     moveq    #0,d0        clear
  1177.     move.w    code1,d0    get code
  1178.     andi.w    #$7ff,d0    get item and menu numbers 
  1179.     lsr    #5,d0        remove menu number
  1180.     cmpi.w    #0,d0        item 0?
  1181.     beq    donewcli    yes - open cli
  1182.     cmpi.w    #17,d0        quit?
  1183.     beq    ClosedWindow    yes
  1184.     cmpi.w    #2,d0        colour?
  1185.     bne.s    tchip        no
  1186.     moveq    #0,d0        clear
  1187.     move.w    code1,d0    get code again
  1188.     lsr    #8,d0        get 
  1189.     lsr    #3,d0            subcode
  1190.     cmpi.w    #11,d0        got one?
  1191.     bhi    refres        no
  1192.     lea    newcol,a0    new colours
  1193.     lsl    #1,d0        * 2
  1194.     move.w    0(a0,d0.w),Date_Text    set new colours
  1195.     move.w    0(a0,d0.w),colours    save for save    
  1196.     bra    refres
  1197.  
  1198. tchip    cmpi.w    #1,d0        change memory display?
  1199.     bne    chpri        no
  1200.  
  1201. ***** swap memory display  *************
  1202.  
  1203.     eor.b    #1,memory    set to opposite
  1204.     movea.l    A3,A0        window
  1205.     movea.l intuit,A6
  1206.     jsr    ClearMenuStrip(a6) remove menu
  1207.     lea    window,a1
  1208.     cmpi.b    #memtot,memory    total memory display?
  1209.     beq.s    1$        yes
  1210.  
  1211. ******* set up window for chip/fast memory display *********
  1212.  
  1213.     lea    sepmsg,a2        new message text
  1214.     move.l    #itext1b,memtext    new text
  1215.     move.l    #(312-184),d2    set new width
  1216.     move.l    #-128,d0        move it
  1217.     cmpi.w    #128,wd_LeftEdge(a3)    neg?
  1218.     bcs    3$            yes
  1219.     bra.s    2$
  1220. 3$    moveq    #0,d0
  1221.  
  1222. 2$    MOVEA.L A3,A0
  1223.     moveq    #0,d1        Dy    
  1224.     JSR     MoveWindow(A6)    Move    
  1225.  
  1226.     movea.l    a3,a0    
  1227.     move.l    d2,d0        Dx
  1228.     moveq    #0,d1        Dy
  1229.     JSR     SizeWindow(A6)    alter size
  1230.  
  1231.     bra    setmen
  1232.  
  1233. ******** set up window for total memory display
  1234.  
  1235. 1$    moveq    #0,d0
  1236.     moveq    #0,d1
  1237.  
  1238.     move.l    #itext1,memtext    new text
  1239.     move.l    #(184-312),d0    set new width - dx
  1240.     lea    totmsg,a2    new message text
  1241.  
  1242.     movea.l    a3,a0    
  1243.     moveq    #0,d1        Dy
  1244.     JSR     SizeWindow(A6)    alter size 
  1245.  
  1246.     MOVEA.L A3,A0
  1247.     move.l    #128,d0        Dx value
  1248.     moveq    #0,d1        Dy    
  1249.     JSR     MoveWindow(A6)    Move    
  1250.  
  1251. setmen    lea    Date_Text,a0    message structure 
  1252.     move.l    a2,it_IText(a0)    set up message address
  1253.     movea.l    a3,a0    
  1254.     lea    menu0,a1    menu structure
  1255.     jsr    SetMenuStrip(a6) attach menu
  1256.  
  1257.     bra    refres
  1258.  
  1259. chpri
  1260.  
  1261. testref    
  1262.  
  1263. testblank    
  1264.  
  1265. testpoint    
  1266.  
  1267. testmouse    
  1268.  
  1269. testsun
  1270.  
  1271. testclickf
  1272.  
  1273. testcycle
  1274.  
  1275. ********* key load routine
  1276.     cmpi.w    #15,d0        load keys??    
  1277.     bne    testsave    no
  1278.  
  1279. ********* open window
  1280.  
  1281.     lea    keywindow,a0
  1282.     movea.l  intuit,A6
  1283.     JSR     OpenWindow(A6)    ; call OpenWindow
  1284.  
  1285.     move.l    d0,windowkey    save window
  1286.     beq    WhileMoreMessages  
  1287.     move.l    windowkey,a0
  1288.  
  1289. * get Window->UserPort->mp_SigBit into D0
  1290.     MOVEA.L wd_UserPort(A0),A1   A1 = ClockWindow->UserPort
  1291.     MOVEQ   #0,D0
  1292.     MOVE.B  MP_SIGBIT(A1),D0  D0 = the ClockWindow's mp_SigBit
  1293.     MOVEQ   #1,D1
  1294.     LSL.L   D0,D1        ; D1 = windowSigs
  1295.     move.l    D1,keywait        ;  waitFlags
  1296.  
  1297. *
  1298.  
  1299.     MOVEA.L wd_RPort(A0),A0 window's RPort
  1300.     LEA     keytext,A1         message structure
  1301.     MOVEQ   #0,D0
  1302.     MOVEQ   #0,D1
  1303.     movea.l  intuit,A6
  1304.     JSR     PrintIText(A6)    ; call PrintIText
  1305.     clr.b    keysw
  1306. dokeywait
  1307.     MOVE.L  keywait,D0        ; D0 = waitFlags
  1308.     movea.l    4,a6        Exec base
  1309.     JSR     Wait(A6)    ; call Wait
  1310. getkeymsg
  1311.     move.l    windowkey,a1
  1312.     movea.l    4,a6        set to Exec base
  1313.     MOVEA.L wd_UserPort(a1),A0 A0 = window's UserPort
  1314.     JSR     GetMsg(A6)    ; call GetMsg
  1315.     TST.L   D0        ; D0 = message
  1316.     bne.s    1$
  1317.     tst.b    keysw        time to close window?
  1318.     bne    closekeywin    yes
  1319.       bra    dokeywait
  1320.  
  1321. 1$    MOVEA.L D0,A1
  1322.     move.l    im_Class(a1),class    save class
  1323.     move.w    im_Code(a1),code1    save code
  1324.     move.l    im_IAddress(a1),a2        save gadget adderss
  1325.     JSR     ReplyMsg(A6)     call ReplyMessage
  1326. closekey
  1327.     cmp.l    #ACTIVEWINDOW,class
  1328.     bne.s    dokeycl
  1329.     movea.l  intuit,A6
  1330.     move.l    windowkey,a1
  1331.     lea    gad0,a0
  1332.     move.l    #0,a2
  1333.     jsr    ActivateGadget(a6)    
  1334.     bra    getkeymsg
  1335. dokeycl
  1336. *    cmpi.l    #GADGETUP,class    gadget selected?
  1337. *    bne    closekeywin    no  
  1338.     move.w    gg_GadgetID(a2),d0 get gadget number
  1339.     cmp.b    #1,d0        cancel?
  1340.     bne    1$
  1341.     not.b    keysw
  1342.     bra    getkeymsg
  1343.  
  1344. 1$    lea     dosname,A1
  1345.     MOVEQ   #0,D0        ; load version number
  1346.     MOVEA.L 4,A6        ; load exec library address
  1347.     JSR     OpenLibrary(A6)    ; call OpenLibrary
  1348.     move.l  d0,a6        ok?
  1349.     beq    WhileMoreMessages    no    
  1350.     lea    keyfile,a0    name of save string
  1351.     move.l    a0,d1        move into right reg
  1352.     move.l    #ACCESS_READ,d2 old file
  1353.     jsr    Lock(a6)    Open
  1354.     tst.l    d0        file there?
  1355.     bne.s    unlock        yes
  1356.  
  1357.     movem.l    a3/d2-d3,-(sp)
  1358.     move.l    intuit,a6    intuition base    
  1359.     move.l    windowpoint,a0
  1360.     lea    fileerrortext,a1
  1361.     lea    oktext,a2
  1362.     lea    oktext,a3
  1363.     moveq    #0,d0        flags
  1364.     moveq    #0,d1          "
  1365.     move.l    #200,d2        width
  1366.     move.l    #60,d3        height
  1367.     jsr    AutoRequest(a6)
  1368.     movem.l    (sp)+,a3/d2-d3
  1369.  
  1370.     move.l    doslib,a6    dos base
  1371.     move.l    a6,a1
  1372.     MOVEA.L 4,A6        ; load exec library address
  1373.     JSR     CloseLibrary(A6)    ; call CloseLibrary
  1374.  
  1375.     move.l    intuit,a6    intuition base    
  1376.     move.l    windowkey,a0
  1377.     jsr    ActivateWindow(a6)    activate the window
  1378.  
  1379.     bra    getkeymsg
  1380. unlock
  1381.     move.l    d0,d1        move into right reg
  1382.     jsr    UnLock(a6)    Open
  1383.     bsr    freekeymem    free old key memory
  1384.     bsr    readkeys    get new keys
  1385. doskclose
  1386.     move.l    doslib,a6    dos base
  1387.     move.l    a6,a1
  1388.     MOVEA.L 4,A6        ; load exec library address
  1389.     JSR     CloseLibrary(A6)    ; call CloseLibrary
  1390.  
  1391.  
  1392. closekeywin
  1393.     move.l    windowkey,a0
  1394.     movea.l intuit,A6
  1395.     JSR     CloseWindow(A6)    close window
  1396.     
  1397.     bra    WhileMoreMessages
  1398.  
  1399. ********* save routine
  1400.  
  1401. testsave cmpi.w    #16,d0        save?    
  1402.     beq    dosave
  1403.  
  1404.     cmpi.w    #16,d0        valid?
  1405.     bls    WhileMoreMessages     yes
  1406.  
  1407.     move.b    #1,owsw
  1408.     MOVEA.L wd_RPort(A3),A0 window's RPort
  1409.     LEA     ouch,A1         silly message structure
  1410.     MOVEQ   #0,D0
  1411.     MOVEQ   #0,D1
  1412.     movea.l  intuit,A6
  1413.     JSR     PrintIText(A6)    ; call PrintIText
  1414.  
  1415.     bra    WhileMoreMessages
  1416.  
  1417.  
  1418. dosave
  1419.     moveq    #0,d0
  1420.     move.w    #CHECKED,d0
  1421.     and.w    suncheck,d0        do sun mouse?
  1422.     beq    clrsun            no
  1423.     move.b    #$ff,sunswitch
  1424.     bra    cyccheck    
  1425. clrsun
  1426.     clr.b    sunswitch
  1427. cyccheck
  1428.     move.w    #CHECKED,d0
  1429.     and.w    cyclecheck,d0        do sun mouse?
  1430.     beq    clrcycle        no
  1431.     move.b    #$ff,cycleswitch
  1432.     bra    keych
  1433. clrcycle
  1434.     clr.b    cycleswitch
  1435. keych
  1436.     move.w    #CHECKED,d0
  1437.     and.w    keycheck,d0        do sun mouse?
  1438.     beq    clrkey        no
  1439.     move.b    #$ff,keyswitch
  1440.     bra    popch
  1441. clrkey
  1442.     clr.b    keyswitch
  1443. popch
  1444.     move.w    #CHECKED,d0
  1445.     and.w    wtfcheck,d0        do sun mouse?
  1446.     beq    clrpop        no
  1447.     move.b    #$ff,popswitch
  1448.     bra    mapch
  1449. clrpop
  1450.     clr.b    popswitch
  1451. mapch
  1452.     move.w    #CHECKED,d0
  1453.     and.w    mapcheck,d0        do sun mouse?
  1454.     beq    clrmap        no
  1455.     move.b    #$ff,mapswitch
  1456.     bra    dowrite
  1457. clrmap
  1458.     clr.b    mapswitch
  1459. dowrite
  1460.     LEA     dosname,A1
  1461.     MOVEQ   #0,D0        ; load version number
  1462.     MOVEA.L 4,A6        ; load exec library address
  1463.     JSR     OpenLibrary(A6)    ; call OpenLibrary
  1464.     TST.L   D0        ok?
  1465.     beq    refres        no
  1466.     MOVE.L    D0,a6        save
  1467.  
  1468.     lea    savefile,a0    name of save string
  1469.     move.l    a0,d1        move into right reg
  1470.     move.l    #MODE_OLDFILE,d2 old file
  1471.     jsr    Open(a6)    Open
  1472.     tst.l    d0        file there?
  1473.     bne.s    1$        yes, got file handle
  1474.     lea    savefile,a0    name of save string
  1475.     move.l    a0,d1        move into right reg
  1476.     move.l    #MODE_NEWFILE,d2 new file
  1477.     jsr    Open(a6)    Open
  1478.     tst.l    d0        got one ?
  1479.     beq    refres        no
  1480. 1$    move.l    d3,-(a7)    save d3    
  1481.     move.w    wd_LeftEdge(a3),windowleft set up window position
  1482.     move.w    wd_TopEdge(a3),windowtop         "
  1483.     lea    diskbuffer,a0
  1484.     move.l    a0,d2        data
  1485.     move.l    #diskbufferl,d3    data length
  1486.     move.l    d0,d1        file handle
  1487.     move.l    d0,-(a7)    save file handle
  1488.     
  1489.     jsr    Write(a6)    write it out
  1490.     move.l    (a7)+,d1    restore file handle
  1491.     jsr    Close(a6)    close file
  1492.     MOVE.L    a6,a1        dos Library
  1493.     movea.l    4,a6        Exec base 
  1494.     jsr    CloseLibrary(A6) call CloseLibrary
  1495.     move.l    (a7)+,d3    restore d3
  1496.     bra    refres        carry on
  1497.         
  1498.  
  1499. ************** do newcli
  1500.  
  1501. ************** Open dos library
  1502.  
  1503. donewcli LEA     dosname,A1
  1504.     MOVEQ   #0,D0        ; load version number
  1505.     MOVEA.L 4,A6        ; load exec library address
  1506.     JSR     OpenLibrary(A6)    ; call OpenLibrary
  1507.     TST.L   D0        ok?
  1508.     beq.s   refres        no
  1509.     MOVE.L    D0,a6        save
  1510.  
  1511.     move.l    d3,-(a7)    save d3    
  1512.     lea    nilname,a0    name of nil string
  1513.     move.l    a0,d1        move into right reg
  1514.     move.l    #MODE_NEWFILE,d2 new file
  1515.     jsr    Open(a6)    Open
  1516.     move.l    d0,d3        save out handle
  1517.     moveq    #0,d2        input handle
  1518.     lea    newcli,a0    newcli command string
  1519.     move.l  a0,d1
  1520.     jsr    Execute(a6)    Execute
  1521.     move.l    (a7)+,d3    restore d3
  1522. * close dos library
  1523.     MOVE.L    a6,a1        dos Library
  1524.     movea.l    4,a6        Exec base 
  1525.     jsr    CloseLibrary(A6) call CloseLibrary
  1526.     bra    SetAndPrintTime    get timer events        
  1527.                 
  1528. refres  move.b    #0,oldsecs    force refresh              
  1529.                   
  1530. ************************************
  1531.  
  1532. PrintTime:
  1533.     tst.b    owsw        ouch?    
  1534.     beq    noow        no
  1535.     clr.b    owsw        off
  1536.     bra    treturn
  1537.  
  1538. noow    tst.l    tswitch        do display
  1539.     beq    treturn        no
  1540.     cmpi.b    #memtot,memory    total memory? 
  1541.     beq.s    2$        yes
  1542.     lea    buffer2+8,a0    seconds
  1543.     bra.s    3$
  1544. 2$    lea    buffer+8,a0    seconds
  1545. 3$    move.b    oldsecs,d1
  1546.     move.l    a0,-(sp)    keep a0
  1547.     cmp.b    (a0),d1        do display?
  1548.     beq    nodisable    no
  1549.     tst.w    blanktime    off?
  1550.     beq    tespoint    yes
  1551.     tst.b    blankdone    already blank?
  1552.     bne    tespoint    yes
  1553.  
  1554.     move.w    blanktimer,d0
  1555.     cmp.w    blanktime,d0    time to blank?
  1556.     bcs    add1blank    no
  1557.     lea    newscreen,a0    
  1558.     move.l    intuit,a6
  1559.     jsr    OpenScreen(a6)
  1560.     move.l    d0,blankscreen    keep
  1561.     beq    showtime        didn't work
  1562.  
  1563.     lea     graphicsname,a1
  1564.     MOVEQ   #0,D0        ; load version number
  1565.     MOVEA.L 4,A6        ; load exec library address
  1566.     JSR     OpenLibrary(A6)    ; call OpenLibrary
  1567.     TST.L   D0        ok?
  1568.     beq    showtime        yes
  1569.     move.l    d0,a6        graphics base
  1570.     move.l    blankscreen,a1    get screen    
  1571.     lea    sc_ViewPort(a1),a0    get viewport
  1572.     move.l    d2,-(sp)
  1573.     moveq    #0,d1            R
  1574.     moveq    #0,d2            G
  1575.     moveq    #0,d3            B
  1576.     moveq    #0,d0            Register
  1577.     jsr    SetRGB4(a6)        nice black for CL    
  1578.     movea.l    a6,A1        graphics Library
  1579.     movea.l    4,a6        exec base
  1580.     JSR    CloseLibrary(A6) call CloseLibrary    
  1581.     move.l    (sp)+,d2
  1582.     not.b    blankdone    set to blanked
  1583.  
  1584. *    move.w    #$0020,$dff000+$96    turn off sprite dma        
  1585.     tst.w    pointtime    pointer blank on?
  1586.     bne    showtime    yes
  1587.  
  1588.     bra    killpoint
  1589.  
  1590.  
  1591. add1blank 
  1592.     addq.w    #1,blanktimer    add 1
  1593.     
  1594. tespoint
  1595.     tst.w    pointtime    off?
  1596.     beq    showtime    yes
  1597.     move.w    pointtimer,d0
  1598.     cmp.w    pointtime,d0    time to blank?
  1599.     bcs    add1point    no
  1600.  
  1601. killpoint
  1602.     lea     graphicsname,a1
  1603.     MOVEQ   #0,D0        ; load version number
  1604.     MOVEA.L 4,A6        ; load exec library address
  1605.     JSR     OpenLibrary(A6)    ; call OpenLibrary
  1606.     tst.l    d0
  1607.     beq    showtime        yes
  1608.     move.l  d0,a6        ok?
  1609.     move.l    gb_copinit(a6),a0    copper start-up
  1610.     lea    copinit_sprstrtup(a0),a1 sprite data
  1611. clrsprite
  1612.     tst.b    pointdone    pointer blank already?
  1613.     bne    checkpoint    yes
  1614.     not.b    pointdone        set switch
  1615. redopointer
  1616.     moveq    #0,d0
  1617.     move.w    2(a1),spritesave    high bytes
  1618.     move.w    6(a1),spritesave+2        get rest of address
  1619.     move.w    spriteblank,2(a1)    top    
  1620.     move.w    spriteblank+2,6(a1)            bottom
  1621.  
  1622.     movea.l    a6,A1        graphics Library
  1623.     movea.l    4,a6        exec base
  1624.     JSR    CloseLibrary(A6) call CloseLibrary    
  1625.  
  1626. *    move.w    #$0020,$dff000+$96    turn off sprite dma        
  1627.     bra    showtime
  1628. checkpoint
  1629.     move.w    2(a1),d1        high bytes
  1630.     swap    d1
  1631.     move.w    6(a1),d1        get rest of address
  1632.     cmp.l    spriteblank,d1        still my blank pointer?
  1633.     bne    redopointer
  1634.     bra    showtime    
  1635.  
  1636.  
  1637. add1point
  1638.     addq.w    #1,pointtimer
  1639.     bra    showtime
  1640.     
  1641. nodisable    
  1642.     move.l    (sp)+,a0
  1643.     cmpi.b    #memtot,memory    total memory? 
  1644.     beq.s    totmem        yes        
  1645.     move.l    oldchip,d0
  1646.     cmp.l    chipavail,d0    do display?
  1647.     bne.s    showtime2        yes
  1648.     move.l    oldfast,d0
  1649.     cmp.l    fastavail+1,d0    do display?
  1650.     beq    treturn        no
  1651.     bra.s    showtime2        do print
  1652. totmem    move.l    oldmem,d0
  1653.     cmp.l    avail+1,d0    do display?
  1654.     beq    treturn        no, return
  1655.     bra.s    showtime2
  1656. showtime
  1657.     move.l    (sp)+,a0
  1658. showtime2
  1659.     move.b    (a0),oldsecs
  1660.     move.l    avail+1,oldmem
  1661.     move.l    chipavail,oldchip    save for next test
  1662.     move.l    fastavail+1,oldfast    save for next test
  1663.     MOVEA.L wd_RPort(A3),A0 window's RPort
  1664.     LEA     Date_Text(PC),A1 Date_Text structure
  1665.     MOVEQ   #0,D0
  1666.     MOVEQ   #0,D1
  1667.     movea.l  intuit,A6
  1668.     JSR     PrintIText(A6)    ; call PrintIText
  1669.     moveq    #0,d0
  1670.     move.w    newminutes,d0
  1671.     cmp.w    oldminutes,d0    do popup?
  1672.     beq.s    nopop        no
  1673.     move.w    #CHECKED,d0
  1674.     and.w    wtfcheck,d0    do popup?
  1675.     beq    nopop        no
  1676.     move.w    newminutes,oldminutes
  1677.     movea.l    layers,a6    layers base    
  1678.     movea.l    layerinfo,a0    screen's layer info
  1679.     movea.l    layer,a1    window's layer 
  1680.  
  1681.     jsr    UpfrontLayer(a6) pop
  1682. nopop:  
  1683. treturn:
  1684.     JMP    (A4)        ; normally jumps to WhileMoreMessages
  1685.  
  1686. *****************************
  1687.  
  1688. SetAndPrintTime:
  1689.     MOVEA.L D5,A0        ; get message form timer port
  1690.     movea.l    4,a6        set Exec base
  1691.     JSR     GetMsg(A6)    ; call GetMsg
  1692.     TST.L   D0        ; D0 = message
  1693.     BEQ     MainLoop    ; no more messages so start Waiting
  1694.  
  1695. InitializeTime:
  1696.  
  1697. ************** initialize the buffer
  1698.     
  1699.     cmpi.b    #memtot,memory        display total memory?
  1700.     beq.s    1$            yes
  1701.     lea    buffer2+1,a2
  1702.     jsr    timeclear        clear buffer
  1703.     bra.s    2$
  1704. 1$    lea    buffer+1,a2        start of area to clear
  1705.     jsr    timeclear        clear buffer    
  1706.     ; set the timeRequest to wait for refresh time
  1707. 2$    MOVE.l  #0,IO_SIZE+TV_SECS(A5)    TV_SECS = $01(01 seconds) ||dj
  1708.     MOVE.L  refrate,IO_SIZE+TV_MICRO(A5)    TV_MICRO= 200 ms
  1709.     ; get the current time. It will be on the stack
  1710.     SUBQ.L  #4,A7    
  1711.     LEA     (A7),A1        ; address of micros
  1712.     SUBQ.L  #4,A7
  1713.     LEA     (A7),A0        ; address of seconds
  1714.     movea.l  intuit,A6
  1715.     JSR     CurrentTime(A6)    ; call CurrentTime
  1716.  
  1717.     MOVE.L  (A7)+,D0    ; secs
  1718.     MOVE.L  (A7)+,D1    ; micros
  1719.     move.l    d0,tswitch    save because of mach11
  1720.  
  1721.     CLR.W   -(A7)        ; push a zero word onto the stack => AM
  1722.     DIVU    #-$5740,D0    ; secs/#secs_in_12hrs
  1723.     LSR.B   #1,D0        ; test least sig. bit by shifting into C bit
  1724.     BCC.S   AM
  1725.     ; it is PM
  1726.     MOVE.W  #$C,(A7)    ; top of stack now 12 => PM
  1727. AM:
  1728.     SWAP    D0        ;"n lower half of D0 = #of secs in the half day
  1729.     MOVE.L  D0,D1        ; save D0 into D1
  1730.     MOVEQ   #0,D0        
  1731.     MOVE.W  D1,D0        ; 
  1732.     DIVU    #$3C,D0        ; #of_secs_in_half_day/60
  1733.     MOVE.W  D0,-(A7)    ; save the #of minutes*hrs in the half day
  1734.     SWAP    D0        ; D0.W = # of secs in the minute
  1735.     move.w    d0,seconds    save seconds      ||dj
  1736.  
  1737. ******** start the timer running
  1738.  
  1739.     MOVEA.L A5,A1
  1740.     movea.l    4,a6        set Exec base
  1741.     JSR     SendIO(A6)    ; call SendIO
  1742.  
  1743. *************** Find out available memory
  1744.     move.l  #1,d1          memory type =  PUBLIC
  1745.     jsr     AvailMem(A6)    ; call AvailMem
  1746.     move.l    d0,totalmemory    save all memory
  1747.     move.l  #2,d1          memory type =  PUBLIC
  1748.     jsr     AvailMem(A6)    ; call AvailMem
  1749.     move.l    d0,chipmemory    save all memory
  1750.     
  1751. *******    reformat memory
  1752.  
  1753.     cmpi.b    #memtot,memory    total memory?
  1754.     bne.s    1$        no
  1755.     lea    avail+1,a2    memory display area
  1756.     move.l    totalmemory,d0    move in total memory
  1757.     bsr     formatmem    format memory d isplay
  1758.     bra.s    2$
  1759. 1$    move.l    chipmemory,d0    move in chip memory    
  1760.     lea    chipavail,a2    
  1761.     bsr    formatmem    format memory display
  1762.     move.l    totalmemory,d0    get total
  1763.     sub.l    chipmemory,d0    get fast memory
  1764.     lea    fastavail+1,a2    fast memory
  1765.     bsr    formatmem
  1766.  
  1767. ****** figure out what time it is and load it in the buffer
  1768.  
  1769. 2$    cmpi.b    #memtot,memory    total memopry?
  1770.     bne.s    3$        no
  1771.     lea    buffer,a2
  1772.     bra.s    4$
  1773. 3$    lea    buffer2,a2
  1774. 4$    move.w    seconds,d1    get seconds
  1775.     ext.l    d1
  1776.     divu    #$a,d1         rem = ones digit; quot = tens ||dj
  1777.     add.b    d1,7(a2)    put in 10s seconds  ||dj
  1778.     swap    d1        get remainder       ||
  1779.     add.b    d1,8(a2)    put in ones seconds ||
  1780.     MOVEQ   #0,D0
  1781.     MOVE.W  (A7)+,D0    ; D0 has # of minutes*hrs in half day
  1782.     DIVU    #$3C,D0        ; divide it by 60; rem = minutes, quot = hrs
  1783.     MOVEQ   #0,D1        
  1784.     MOVE.W  (A7)+,D1    ; D1 = (0=AM), (12=PM)
  1785.     ADD.W   D0,D1        ; add quot to D1 giving # of hrs in the day
  1786.     SWAP    D0        ; get the rem = minutes
  1787.     move.w    d0,newminutes    save for popup  ||dj
  1788.     EXT.L   D0
  1789.     DIVU    #$A,D0        ; divide by 10; rem = ones digit, quot = tens digit
  1790.     ADD.B   D0,4(A2)    ; add tens digit to buffer[4]
  1791.     SWAP    D0
  1792.     ADD.B   D0,5(A2)    add ones digit to buffer[5]
  1793.     cmpi.w    #12,d1        is it pm?
  1794.     bgt    movepm        yes
  1795.     blt    moveam
  1796.     move.b    #'P',ampm1    set to pm since it's 12
  1797.     move.b    #'P',ampm2    set to pm since it's 12
  1798.     bra.s    dohours    
  1799. moveam    move.b    #'A',ampm1    set to am
  1800.     move.b    #'A',ampm2    set to am
  1801.     bra.s    dohours
  1802. movepm    move.b    #'P',ampm1    set to pm
  1803.     move.b    #'P',ampm2    set to pm
  1804.     subi.w    #12,d1        make it < 12
  1805. dohours DIVU    #$A,D1        divide hours by 10; rem = ones digit, quot = tens digit
  1806.     ADD.B   D1,1(A2)     add tens digit to buffer[1]
  1807.     SWAP    D1
  1808.     ADD.B   D1,2(A2)    add ones digit to buffer[2]
  1809.     cmpi.b    #'0',1(a2)    1st digit zero?    
  1810.     bne.s    1$        no - carry on
  1811.     cmpi.b    #'0',2(a2)    2nd digit zero?    
  1812.     bne.s    2$        no 
  1813.     move.b    #'1',1(a2)    set to 12 am
  1814.     move.b    #'2',2(a2)       "
  1815.     bra.s    1$
  1816. 2$    move.b    #' ',1(a2)    blank 1st digit    
  1817. 1$    BRA.L   PrintTime    ; PrintTime will return
  1818.  
  1819.  
  1820. *
  1821. *
  1822. *********************************************************
  1823. *                            *
  1824. *  Input handler                    *
  1825. *                            *
  1826. *********************************************************
  1827. *
  1828. *
  1829.  
  1830.  
  1831.  
  1832. intcode    movem.l    a0-a6/d1-d7,-(a7)    save
  1833.  
  1834. nextevent
  1835.     cmp.b    #IECLASS_TIMER,ie_Class(a0)  ignore timer 
  1836.     beq    intdone        
  1837.     bra    noinsave
  1838.  
  1839. * save to inspect
  1840.  
  1841.     lea    event,a1
  1842.     move.l    ie_TimeStamp(a0),ie_TimeStamp(a1)    move
  1843.     move.l    ie_TimeStamp+4(a0),ie_TimeStamp+4(a1)    move
  1844.  
  1845. noinsave
  1846.     tst.b    escsw            escape from processing input event?
  1847.     beq.s    procevent        no
  1848.     cmp.b    #IECLASS_RAWKEY,ie_Class(a0) got a key? 
  1849.     bne.s    1$            no
  1850.     cmpi.w    #$5f,ie_Code(a0)    qualifier key?    
  1851.     bhi.s    procevent        yes
  1852. 2$    clr.b    escsw            clear switch
  1853.     bra    blanktests
  1854. 1$    
  1855.     cmp.b    #IECLASS_RAWMOUSE,ie_Class(a0)  is it mouse? 
  1856.     bne.s    procevent        no        
  1857.     move.w    ie_Code(a0),d0        get code
  1858.     cmp.w    #IECODE_NOBUTTON,d0      mouse button?
  1859.     bne.s    2$            yes
  1860.  
  1861. procevent
  1862.     cmp.b    #IECLASS_RAWKEY,ie_Class(a0)      got a key? 
  1863.     bne    notkey            
  1864.  
  1865.     move.w    #CHECKED,d0
  1866.     and.w    mapcheck,d0    do keymap?
  1867.     beq.s    procqual    no
  1868.  
  1869.     cmpi.w    #$0,ie_Code(a0)        ` key?    
  1870.     bne.s    procqual        no
  1871.     move.w    ie_Qualifier(a0),d0    get qualifier    
  1872.     and.w    #$ffff-IEQUALIFIER_RELATIVEMOUSE,d0 set off unwanted bits
  1873.     cmpi.w    #IEQUALIFIER_CONTROL,d0        got ctrl?
  1874.     bne.s    tesrep            no
  1875.     move.b    #IECLASS_NULL,ie_Class(a0) remove 
  1876.  
  1877.     not.b    escsw            set switch
  1878.  
  1879. *
  1880. * Test to see if it's a window size
  1881. *
  1882. procqual
  1883.     move.w    ie_Qualifier(a0),d0    get qualifier    
  1884.     and.w    #$ffff-IEQUALIFIER_RELATIVEMOUSE,d0 set off unwanted bits
  1885.  
  1886.     cmpi.w    #IEQUALIFIER_LCOMMAND+IEQUALIFIER_LSHIFT+IEQUALIFIER_CONTROL,d0
  1887.     bne.s    tesrep            no
  1888.     cmpi.w    #$4d,ie_Code(a0)    up arrow?
  1889.     bne.s    tdowna            no
  1890.     move.b    #'>',action        increase
  1891.     move.b    #IECLASS_NULL,ie_Class(a0) remove 
  1892.     bra    signaltask
  1893.  
  1894. tdowna    cmpi.w    #$4c,ie_Code(a0)    up arrow?    
  1895.     bne.s    tesrep            no
  1896.     move.b    #'<',action        decrease
  1897.     move.b    #IECLASS_NULL,ie_Class(a0) remove 
  1898.     bra    signaltask
  1899.  
  1900.  
  1901.  
  1902. *
  1903. *
  1904. *** Test to see if the key should be mapped to somthing else.
  1905. *
  1906. *
  1907. tesrep
  1908.     move.w    #CHECKED,d0
  1909.     and.w    mapcheck,d0    do keymap?
  1910.     beq    endmap        no
  1911.  
  1912.     move.l    firstkey,d0    address of first buffer    
  1913. mapkeylook
  1914.     beq    endmap        no mapping to be done            
  1915.     move.l    d0,a1        
  1916.     move.w    ie_Code(a0),d0    get key
  1917.     cmp.b    8(a1),d0    keys match?
  1918.     beq.s    gotkeymap    yes
  1919. nextmapbuf
  1920.     move.l    2(a1),d0    next buffer
  1921.     bra.s    mapkeylook
  1922. gotkeymap
  1923.     move.w    ie_Qualifier(a0),d0    get qualifier
  1924.     
  1925.     and.w    #$01ff,d0 set off unwanted bits
  1926.     cmp.w    6(a1),d0    qualifiers match?
  1927.     bne.s    nextmapbuf    no
  1928.     btst    #IEQUALIFIERB_REPEAT-8,ie_Qualifier(a0) got repeat?
  1929.     beq.s    2$        no
  1930.     move.b    #IECLASS_NULL,ie_Class(a0) remove
  1931.     bra    blanktests
  1932.  
  1933. 2$    move.l    a1,mapbuffer    save buffer address
  1934.     adda.l    #9,a1        start of string
  1935. 1$    cmpi.b    #$fe,(a1)+    end?
  1936.     bne.s    1$
  1937.     cmpi.b    #'r',0(a1)    keep character?
  1938.     bne.s    keepch        yes
  1939.     move.b    #IECLASS_NULL,ie_Class(a0) remove l button
  1940. keepch    move.b    #'m',action    set to key map
  1941.     bra    signaltask
  1942. endmap
  1943.  
  1944.     cmpi.w    #$64,ie_Code(a0)        is it L-alt?
  1945.     bne    laltup                no
  1946.  
  1947.     move.w    ie_Qualifier(a0),d0    get qualifier    
  1948.     and.w    #$ffff-IEQUALIFIER_RELATIVEMOUSE,d0 set off unwanted bits
  1949.     cmpi.w    #IEQUALIFIER_LCOMMAND,d0
  1950.     beq    seti
  1951.     tst.b    lamiga                L-A down?
  1952.     beq    setlalt                no
  1953. seti
  1954.     move.b    #$ff,lsw            set switch left
  1955. setlalt
  1956.     move.b    #$ff,lalt            yes
  1957.     bra    blanktests
  1958. laltup
  1959.     cmpi.w    #$64+IECODE_UP_PREFIX,ie_Code(a0)    L-alt-up?
  1960.     bne    latest                no
  1961.     move.b    #0,lalt                reset
  1962.     move.b    #0,lsw                reset
  1963.     bra    blanktests
  1964. latest
  1965.     cmpi.w    #$66,ie_Code(a0)        is it L-A?
  1966.     bne    amiup                no
  1967.     move.b    #$ff,lamiga            set
  1968.     tst.b    lalt                L-alt down?
  1969.     beq    blanktests            no
  1970.     move.b    #$ff,lsw                set switch    
  1971. amiup
  1972.     cmpi.w    #$66+IECODE_UP_PREFIX,ie_Code(a0)    L-ami-up?
  1973.     bne    mtest                no
  1974.     clr.b    lamiga    
  1975.  
  1976. mtest
  1977.     cmpi.w    #$37,ie_Code(a0)        is it m?
  1978.     bne    ntest                no
  1979.     move.w    ie_Qualifier(a0),d0    get qualifier    
  1980.     and.w    #$ffff-(IEQUALIFIER_RELATIVEMOUSE+IEQUALIFIER_REPEAT),d0 set off unwanted bits
  1981.     cmpi.w    #IEQUALIFIER_LCOMMAND,d0
  1982.     bne    testkeysw
  1983.     btst    #IEQUALIFIERB_REPEAT-8,ie_Qualifier(a0) got repeat?
  1984.     beq.s    1$                    no
  1985.     move.b    #IECLASS_NULL,ie_Class(a0) remove the m
  1986.     bra    blanktests
  1987.  
  1988. 1$    moveq    #0,d0
  1989.     move.w    #CHECKED,d0
  1990.     and.w    cyclecheck,d0        do screen cycle?
  1991.     beq    testkeysw        no
  1992.     move.b    #IECLASS_NULL,ie_Class(a0) remove the m
  1993.     bra    doscreen
  1994.  
  1995.  
  1996. ntest
  1997.     cmpi.w    #$36,ie_Code(a0)        is it n?
  1998.     bne    testkeysw                no
  1999.     move.w    ie_Qualifier(a0),d0    get qualifier    
  2000.     and.w    #$ffff-(IEQUALIFIER_RELATIVEMOUSE+IEQUALIFIER_REPEAT),d0 set off unwanted bits
  2001.     cmpi.w    #IEQUALIFIER_LCOMMAND,d0
  2002.     bne    testkeysw
  2003.     btst    #IEQUALIFIERB_REPEAT-8,ie_Qualifier(a0) got repeat?
  2004.     beq.s    1$                    no
  2005.     move.b    #IECLASS_NULL,ie_Class(a0) remove the n
  2006.     bra    blanktests
  2007.  
  2008. 1$    moveq    #0,d0
  2009.     move.w    #CHECKED,d0
  2010.     and.w    cyclecheck,d0        do screen cycle?
  2011.     beq    testkeysw        no
  2012.     move.b    #IECLASS_NULL,ie_Class(a0) remove the n
  2013.     move.b    #'b',action        signal workbench to front
  2014.     bra    dowb
  2015.  
  2016. testkeysw
  2017.     moveq    #0,d0
  2018.     move.w    #CHECKED,d0
  2019.     and.w    keycheck,d0        do key to front?
  2020.     beq    blanktests        nope
  2021.     tst.b    lsw            got icon?
  2022.     bne    blanktests        maybe
  2023.     cmpi.b    #'l',mouseleft        left down ?
  2024.     beq    blanktests        yes don't do activate to avoid
  2025. *                    freeze when icon is picked up
  2026.  
  2027.     move.l    a0,-(sp)
  2028.     bsr    windowpointer        find where pointer is
  2029.     tst.l    d0            got window?
  2030.     beq    resa0            no
  2031.     move.l    d0,a0            window
  2032.     move.l    intuit,a6
  2033.     movea.l    ib_ActiveWindow(a6),a1     get active window    
  2034.     cmp.l    a1,d0            already active?
  2035.     beq    resa0        yes
  2036.  
  2037.     jsr    ActivateWindow(a6)
  2038. resa0    move.l    (sp)+,a0
  2039.  
  2040.     bra    blanktests
  2041.     
  2042. notkey    
  2043.     cmp.b    #IECLASS_RAWMOUSE,ie_Class(a0)  mouse event? 
  2044.     bne    blanktests        no 
  2045.  
  2046.     cmpi.w    #IECODE_LBUTTON,ie_Code(a0) left mouse button?
  2047.     bne    nothid            no
  2048. * 
  2049. * Don't allow user to touch hidden windows.
  2050. *
  2051.  
  2052.     move.l    a0,-(sp)
  2053.     bsr    windowpointer        find where pointer is
  2054.     move.l    (sp)+,a0
  2055.     tst.l    d0            got one?
  2056.     beq.s    nothid            no
  2057.     lea    windowtab,a1        start of table 
  2058.     move.l    #windowtabl/16-1,d1    entries
  2059. 1$    tst.l    (a1)            free?
  2060.     beq    nothid            yes
  2061.     cmp.l    (a1),d0            hidden window?
  2062.     bne.s    2$            no
  2063.     move.b    #IECLASS_NULL,ie_Class(a0) remove l button    
  2064.     bra    blanktests
  2065. 2$    adda.l    #16,a1            next entry
  2066.     dbra    d1,1$            
  2067. nothid
  2068.     moveq    #0,d0
  2069.     move.w    #CHECKED,d0
  2070.     and.w    suncheck,d0        do sun mouse?
  2071.     beq    speedtest        no
  2072.  
  2073.     cmpi.w    #IECODE_NOBUTTON,ie_Code(a0) mouse button pressed?
  2074.     bne    speedtest        yes
  2075.     cmpi.b    #'l',mouseleft        left down ?
  2076.     beq    speedtest        yes
  2077.  
  2078.     move.b    #'f',action    set up for sun mouse cycle
  2079.     move.l    insig,d0    we want to send this signal
  2080.     movea.l    task,a1        to this task
  2081.     move.l    4,a6        exec base
  2082.     move.l    a0,-(sp)    save
  2083.     jsr    Signal(a6)    so it wakes up
  2084.     movea.l    (sp)+,a0    restore
  2085.      
  2086. speedtest
  2087.     move.l    intuit,a6        get intuition base
  2088.     move.l    ib_ActiveScreen(a6),a1    get Active screen
  2089.     cmpi.w    #9,sc_MouseY(a1)    is Y pointer in menu area?
  2090.     bhi    notmen            no    
  2091.     cmpi.b    #'r',mouseright        right mouse button down?
  2092.     bne    notmen            no
  2093.     move.b    #$ff,menuswitch        set menuswitch
  2094. notmen
  2095.     moveq    #0,d0
  2096.     tst.b    mousespeed        no acceleration?
  2097.     beq    buttontest        no
  2098.     moveq    #0,d1            
  2099.     move.b    mousespeed,d1        get mouse speed
  2100.     add.w    #4,d1            get multiplyer
  2101.     moveq    #0,d0
  2102.     move.w    ie_X(a0),d0        get value
  2103. incx    cmp.w    #1,d0            is it 1
  2104.     beq.s    doynow            yes - leave it alone
  2105.     cmp.w    #-1,d0            is it 1
  2106.     beq.s    doynow            yes - leave it alone
  2107.     muls    d1,d0            calculate new relative mouse
  2108.     divs    #4,d0            
  2109.     move.w    d0,ie_X(a0)        put back
  2110. doynow    moveq    #0,d0
  2111.     move.w    ie_Y(a0),d0        get value
  2112. incy    cmp.w    #1,d0            is it 1?
  2113.     beq.s    buttontest        yes - leave it alone
  2114.     cmp.w    #-1,d0            is it 1?
  2115.     beq.s    buttontest        yes - leave it alone
  2116.     muls    d1,d0        
  2117.     divs    #4,d0            
  2118.     move.w    d0,ie_Y(a0)        put back
  2119.  
  2120. buttontest        
  2121.     cmpi.w    #IECODE_LBUTTON,ie_Code(a0) left mouse button?
  2122.     bne    testright        no
  2123. *
  2124. * code for window shrink
  2125. *
  2126.  
  2127. ;    tst.b    lamiga                L-A down?
  2128. ;    beq    1$                no
  2129.     move.w    ie_Qualifier(a0),d0    get qualifier    
  2130.     and.w    #IEQUALIFIER_LCOMMAND+IEQUALIFIER_LSHIFT+IEQUALIFIER_CONTROL,d0 set off unwanted bits
  2131.     cmpi.w    #IEQUALIFIER_LCOMMAND+IEQUALIFIER_LSHIFT+IEQUALIFIER_CONTROL,d0
  2132.     bne.s    1$
  2133.     move.b    #'d',action        delete window
  2134.     move.b    #IECLASS_NULL,ie_Class(a0) remove l button
  2135.     bra    signaltask
  2136. 1$
  2137.     cmp.b    #'r',mouseright        r set?
  2138.     beq    wsig            yes
  2139.     move.b    #'l',mouseleft        yes - set state
  2140.  
  2141.  
  2142. *** do window to front here to avoid lockup
  2143.     tst.b    lsw            got icon?
  2144.     bne    blanktests        maybe
  2145.  
  2146. dowtf    bsr    wtofront
  2147.  
  2148.     bra    blanktests
  2149.  
  2150. wtofront
  2151.         
  2152.     movem.l    a0/a1/a2/a6,-(sp)
  2153.     move.l    a0,-(sp)
  2154.     bsr    windowpointer        find where pointer is
  2155.     move.l    (sp)+,a0
  2156.     tst.l    d0            got window?
  2157.     beq    wtfend            no
  2158.     movea.l    intuit,a6        get intuition base
  2159.     move.l    d0,a2            get window
  2160.     cmp.l    frontwin,d0        same window
  2161.     bne    clrsw            no
  2162.  
  2163.     move.l    ie_TimeStamp(a0),d0    get seconds
  2164.     sub.l    wtfsecs,d0        minus old secs
  2165.     beq    addone            increase count
  2166.     cmpi.l    #1,d0            one second difference?
  2167.     bhi    clrsw            more
  2168.  
  2169.     move.l    ie_TimeStamp+4(a0),d0    get micros
  2170.     sub.l    wtfsecs+4,d0        minus old micros
  2171.     bmi    addone
  2172.     beq    addone
  2173. clrsw    clr.b    frontswitch        set count to 0
  2174.     move.l    a2,frontwin        save window
  2175.     move.l    ie_TimeStamp(a0),wtfsecs save
  2176.     move.l    ie_TimeStamp+4(a0),wtfsecs+4 save micros
  2177. addone    add.b    #1,frontswitch
  2178.     moveq    #0,d0            clear
  2179.     move.b    wtfcount,d0        get count
  2180.     cmp.b    frontswitch,d0
  2181.     bne    wtfend            no
  2182.     clr.b    frontswitch
  2183.     clr.l    wtfsecs
  2184.     clr.l    wtfsecs+4
  2185.     
  2186.     movea.l    ib_ActiveScreen(a6),a0     get active screen    
  2187.     lea    sc_LayerInfo(a0),a1    get layer info        
  2188.     cmp.l    li_top_layer(a1),d1    already on top layer?        
  2189.     beq    wtfend            yes
  2190.     movea.l    a2,a0            get window
  2191.     move.l    wd_Flags(a0),d0        get window flags
  2192.     andi.l    #BACKDROP,d0        backdrop window?
  2193.     bne    wtfend            yes - no window to front
  2194.     jsr    WindowToFront(a6)    bring it to the front
  2195. wtfend    movem.l    (sp)+,a0/a1/a2/a6
  2196.     rts
  2197.  
  2198.  
  2199. wsig
  2200.     cmpi.b    #'r',revswitch        reverse buttons?
  2201.     beq.s    dowtb            yes
  2202.     moveq    #0,d0
  2203.     move.w    #CHECKED,d0
  2204.     and.w    cyclecheck,d0        do screencycle?
  2205.     beq    blanktests        no
  2206.     tst.b    lsw            got icon?
  2207.     bne    blanktests        maybe
  2208.     tst.b    menuswitch        got a menu perhaps
  2209.     bne    blanktests        don't do screen cycle
  2210.  
  2211.     move.b    #'s',action        set action indicator
  2212.     move.w    #IECODE_RBUTTON+IECODE_UP_PREFIX,ie_Code(a0) alter to r up
  2213. * signal code
  2214.         
  2215.     move.l    insig,d0    we want to send this signal
  2216.     movea.l    task,a1        to this task
  2217.     move.l    4,a6        exec base
  2218.     move.l    a0,-(sp)    save
  2219.     jsr    Signal(a6)    so it wakes up
  2220.     movea.l    (sp)+,a0    restore
  2221.     bra    blanktests
  2222.  
  2223. dowtb
  2224.     move.l    ie_TimeStamp(a0),wtbsecsnew save
  2225.     move.l    ie_TimeStamp+4(a0),wtbsecsnew+4 save micros
  2226.  
  2227.     tst.b    lsw            got icon?
  2228.     bne    blanktests        maybe
  2229.  
  2230.     move.b    #'w',action    set up for window cycle
  2231.     move.w    #IECODE_RBUTTON+IECODE_UP_PREFIX,ie_Code(a0) alter to r up
  2232. signaltask
  2233.     move.l    insig,d0    we want to send this signal
  2234.     movea.l    task,a1        to this task
  2235.     move.l    4,a6        exec base
  2236.     move.l    a0,-(sp)    save
  2237.     jsr    Signal(a6)    so it wakes up
  2238.     movea.l    (sp)+,a0    restore
  2239.     bra    blanktests
  2240.      
  2241. testright
  2242.  
  2243.     cmpi.b    #'l',mouseleft    left down already?
  2244.     bne    testrightdown        no
  2245.     cmpi.w    #IECODE_RBUTTON,ie_Code(a0) right mouse button
  2246.     bne    testleftup        no
  2247.     move.w    #IECODE_LBUTTON+IECODE_UP_PREFIX,ie_Code(a0) change to l up
  2248.     move.b    #'r',mouseright        set state
  2249.  
  2250.  
  2251.     cmpi.b    #'r',revswitch        reverse buttons?
  2252.     beq    doscreen        yes
  2253.     move.b    #'w',action        set up for window to back
  2254.     move.l    ie_TimeStamp(a0),wtbsecsnew save
  2255.     move.l    ie_TimeStamp+4(a0),wtbsecsnew+4 save micros
  2256.     bra    signaltask
  2257. doscreen
  2258.     move.b    #'s',action        set action indicator
  2259. dowb
  2260.     moveq    #0,d0
  2261.     move.w    #CHECKED,d0
  2262.     and.w    cyclecheck,d0        do screen?
  2263.     beq    blanktests        no
  2264.     tst.b    lsw            got icon?
  2265.     bne    blanktests        maybe
  2266.  
  2267.     tst.b    pointdone    pointer off?
  2268.     beq    sigscreen    no
  2269.     bsr    hellopoint    get pointer back
  2270.  
  2271. sigscreen
  2272.     tst.b    lsw        got icon?
  2273.     bne    blanktests    maybe
  2274.     tst.b    menuswitch    got a menu perhaps
  2275.     bne    blanktests    don't do screen cycle
  2276. scode
  2277.  
  2278. * signal code
  2279.         
  2280.     move.l    insig,d0    we want to send this signal
  2281.     movea.l    task,a1        to this task
  2282.     move.l    4,a6        exec base
  2283.     move.l    a0,-(sp)    save
  2284.     jsr    Signal(a6)    so it wakes up
  2285.     movea.l    (sp)+,a0    restore
  2286.     bra    blanktests
  2287.  
  2288. testleftup
  2289.     cmpi.w    #IECODE_LBUTTON+IECODE_UP_PREFIX,ie_Code(a0) l up?
  2290.     bne    testrightup    no
  2291.     move.b    #0,mouseleft    reset
  2292.     bra    blanktests
  2293.  
  2294. testrightdown
  2295.     cmpi.w    #IECODE_RBUTTON,ie_Code(a0) right mouse button?
  2296.     bne    testrupnol    no        
  2297. *
  2298. * code for window expand
  2299. *
  2300. ;    tst.b    lamiga                L-A down?
  2301. ;    beq    1$                no
  2302.     move.w    ie_Qualifier(a0),d0    get qualifier    
  2303.     and.w    #IEQUALIFIER_LCOMMAND+IEQUALIFIER_LSHIFT+IEQUALIFIER_CONTROL,d0 set off unwanted bits
  2304.     cmpi.w    #IEQUALIFIER_LCOMMAND+IEQUALIFIER_LSHIFT+IEQUALIFIER_CONTROL,d0
  2305.     bne.s    1$
  2306.     move.b    #'e',action        delete window
  2307.     move.b    #IECLASS_NULL,ie_Class(a0) remove r button
  2308.     bra    signaltask
  2309. 1$
  2310.     move.b    #'r',mouseright    set r
  2311.     move.l    intuit,a6        get intuition base
  2312.     move.l    ib_ActiveScreen(a6),a1    get Active screen
  2313.     cmpi.w    #9,sc_MouseY(a1)    is Y pointer in menu area?
  2314.     bhi    blanktests        no    
  2315.     cmpi.b    #'r',mouseright        right mouse button down?
  2316.     bne    blanktests        no
  2317.     move.b    #$ff,menuswitch        set menuswitch
  2318.  
  2319.     bra    blanktests
  2320.  
  2321. testrupnol
  2322.     cmpi.w    #IECODE_RBUTTON+IECODE_UP_PREFIX,ie_Code(a0) r up?
  2323.     bne    testrset
  2324.     clr.b    menuswitch
  2325.     move.b    #0,mouseright    reset set state
  2326.     bra    blanktests
  2327. testrset
  2328.     cmpi.b    #'r',mouseright    r set?
  2329.     bne    blanktests    no
  2330.     cmpi.w    #IECODE_LBUTTON+IECODE_UP_PREFIX,ie_Code(a0) l up?
  2331.     bne    blanktests    no    
  2332.     tst.b    menuswitch    got a menu perhaps
  2333.     bne    blanktests    don't remove l up
  2334.     moveq    #0,d0
  2335.     move.w    #CHECKED,d0
  2336.     and.w    cyclecheck,d0    do screen cycle specified?
  2337.     beq    blanktests    no don't remove l up
  2338.     move.b    #IECLASS_NULL,ie_Class(a0) remove l button up
  2339.     bra    blanktests
  2340.     
  2341. testrightup
  2342.     cmpi.b    #'r',mouseright    left been down already?
  2343.     bne    blanktests        no
  2344.     cmpi.w    #IECODE_RBUTTON+IECODE_UP_PREFIX,ie_Code(a0) r up?
  2345.     bne    blanktests        no
  2346.     move.b    #IECLASS_NULL,ie_Class(a0) remove right mouse button up
  2347.     move.b    #0,mouseright    reset r button state
  2348.     
  2349. blanktests
  2350.     tst.w    blanktime    off?
  2351.     beq    intdone        yes
  2352.     tst.b    blankdone    screen blank?
  2353.     beq    zerblank    no
  2354.  
  2355.     move.l    a0,-(sp)
  2356.     move.l    blankscreen,a0    
  2357.     beq.s    1$
  2358.     clr.b    blankdone        reset switch
  2359.  
  2360. *    move.w    #$8020,$dff000+$96    turn on sprite dma        
  2361.     move.l    intuit,a6
  2362.     jsr    CloseScreen(a6)        give back normal display
  2363. 1$    move.l    (sp)+,a0
  2364.     move.w    #0,blanktimer    zero blank timer        
  2365.     bsr    hellopoint
  2366.     bra    intdone
  2367.  
  2368. zerblank
  2369.     move.w    #0,blanktimer    zero blank timer        
  2370.     cmp.b    #IECLASS_RAWMOUSE,ie_Class(a0)  mouse event? 
  2371.     bne    intdone        no         
  2372.     
  2373.     tst.w    pointtime    off?
  2374.     beq    intdone        yes
  2375.     tst.b    pointdone    pointer off?
  2376.     beq    pointclr    no
  2377.  
  2378.     bsr    hellopoint
  2379. pointclr
  2380.     move.w    #0,pointtimer        zero pointer time
  2381.     bra    intdone
  2382.  
  2383. hellopoint
  2384.     clr.b    pointdone
  2385.     move.l    a0,-(sp)
  2386.     lea     graphicsname,a1
  2387.     MOVEQ   #0,D0        ; load version number
  2388.     MOVEA.L 4,A6        ; load exec library address
  2389.     JSR     OpenLibrary(A6)    ; call OpenLibrary
  2390.     tst.l    d0
  2391.     beq    poiblank        yes
  2392.     move.l  d0,a6        ok?
  2393.     move.l    gb_copinit(a6),a0    copper start-up
  2394.     lea    copinit_sprstrtup(a0),a1 sprite data
  2395.  
  2396.     move.w    spritesave,2(a1)    top    
  2397.     move.w    spritesave+2,6(a1)    bottom    
  2398.  
  2399.     movea.l    a6,A1        graphics Library
  2400.     movea.l    4,a6        exec base
  2401.     JSR    CloseLibrary(A6) call CloseLibrary    
  2402.  
  2403.  
  2404. *    move.w    #$8020,$dff000+$96    turn on sprite dma        
  2405. poiblank    
  2406.     move.l    (sp)+,a0        restore    
  2407. poiblankn
  2408.     move.w    #0,pointtimer        zero pointer time
  2409.     rts
  2410.  
  2411. intdone
  2412.     move.l    ie_NextEvent(a0),d0 next event
  2413.     beq.s    eventout    none
  2414.     movea.l    d0,a0
  2415.     bra    nextevent    look at next
  2416. eventout
  2417.     tst.b    eventadd    add buttons?
  2418.     beq.s    inputout    no
  2419.     clr.b    eventadd
  2420.     move.l    #mouseevents,ie_NextEvent(a0)  throw in buttons
  2421.     clr.b    eventadd    clear switch
  2422. inputout
  2423.  
  2424.  
  2425.     movem.l    (a7)+,a0-a6/d1-d7    restore
  2426.     move.l    a0,d0        pass input event to next handler
  2427.     rts
  2428.  
  2429.  
  2430. ********** subroutine to clear time buffer **********
  2431.  
  2432. timeclear move.b #'0',(a2)+        clear    
  2433.     move.b    #'0',(a2)+        clear    
  2434.     addq    #1,a2
  2435.     move.b    #'0',(a2)+        clear    
  2436.     move.b    #'0',(a2)+        clear    
  2437.     addq    #1,a2
  2438.     move.b    #'0',(a2)+        clear    
  2439.     move.b    #'0',(a2)        clear    
  2440.     rts
  2441.  
  2442. ************* subroutine to format memory display  *******
  2443.  
  2444. formatmem moveq    #0,d1        clear
  2445.     move.l    a2,-(a7)    save a2
  2446.     MOVE.L  #$30303030,(a2)    clear    
  2447.     move.b    d0,d1        save low byte 
  2448.     lsr.l    #8,d0        divide by 256 first
  2449.     divu    #3906,d0    get millions
  2450.     add.b    d0,(a2)+    put into display buffer
  2451.     swap    d0        get remainder 
  2452.     ext.l    d0
  2453.     divu    #391,d0        get hundreds of thousands
  2454.     add.b    d0,(a2)+    make it printable
  2455.     swap     d0
  2456.     ext.l    d0
  2457.     lsl.l    #8,d0        get back the 256
  2458.     divu    #10000,d0    get tens of thousands
  2459.     add.b    d0,(a2)+    make it printable
  2460.     swap     d0
  2461.     ext.l    d0
  2462.     divu    #1000,d0    get thousands
  2463.     add.b    d0,(a2)        make it printable
  2464.     moveq    #3,d0        count
  2465.     move.l    (a7)+,a2    restore
  2466. 1$    cmpi.b    #'0',(a2)        is digit zero?
  2467.     bne.s    2$        no
  2468.     move.b    #' ',(a2)+    blank it
  2469.     dbra    d0,1$        next one
  2470. 2$    rts
  2471.     
  2472.  
  2473. ******** sub-routine to scan menus for changes
  2474.  
  2475. menuscan
  2476. * look at task priority
  2477.  
  2478.     moveq    #7,d0
  2479.     moveq    #0,d1
  2480.     lea    priindex,a0        table of entries
  2481. prsearch
  2482.     move.l    (a0)+,a1        get address
  2483.     move.w    (a1),d1            get check field    
  2484.     andi.w    #CHECKED,d1        is checked?    
  2485.     bne    gotpri            yes
  2486.     dbra    d0,prsearch
  2487.     bra    prinochange
  2488. gotpri
  2489.     moveq    #7,d1
  2490.     sub.w    d0,d1            get index
  2491.     lea    newpri,a0    
  2492.     moveq    #0,d0
  2493.     move.b    0(a0,d1),d0        get new priority    
  2494.     cmp.b    priority,d0        changed?    
  2495.     beq    prinochange        no
  2496.     move.b    d0,priority    save for save routine
  2497.     movea.l    task,a1        my task
  2498.     movea.l    4,a6        exec base
  2499.     jsr    SetTaskPri(a6)    call SetTaskPri
  2500.  
  2501. prinochange
  2502.  
  2503. * look at refresh rate
  2504.                     
  2505.     moveq    #0,d1
  2506.     move.w    ref1,d1            
  2507.     moveq    #0,d0
  2508.     andi.w    #CHECKED,d1        is it checked?
  2509.     bne    gotref            yes
  2510.  
  2511.     move.w    ref2,d1            
  2512.     moveq    #4,d0
  2513.     andi.w    #CHECKED,d1        is it checked?
  2514.     bne    gotref            yes
  2515.  
  2516.     move.w    ref3,d1            
  2517.     moveq    #8,d0
  2518.     andi.w    #CHECKED,d1        is it checked?
  2519.     bne    gotref            yes
  2520.  
  2521.     moveq    #12,d0
  2522. gotref
  2523.     
  2524.     lea    newref,a0        refresh table
  2525.     move.l    0(a0,d0),d1
  2526.     cmp.l    refrate,d1        new refresh rate?
  2527.     beq    norefchange
  2528.     move.l    d1,refrate
  2529. norefchange
  2530.  
  2531. * look at window to front
  2532.  
  2533.     moveq    #3,d0
  2534.     moveq    #0,d1
  2535.     lea    frontcheckr,a0        table of entries
  2536. frsearch
  2537.     move.l    (a0)+,a1        get address
  2538.     move.w    (a1),d1            get check field    
  2539.     andi.w    #CHECKED,d1        is checked?    
  2540.     bne    gotwtf            yes
  2541.     dbra    d0,frsearch
  2542.     bra    wtfnochange
  2543. gotwtf
  2544.     moveq    #3,d1
  2545.     sub.w    d0,d1            get index
  2546.     cmp.b    wtfcount,d1        changed?    
  2547.     beq    wtfnochange        no
  2548.     move.b    d1,wtfcount        save 
  2549.  
  2550. wtfnochange
  2551.  
  2552.  
  2553. * look at window to back
  2554.  
  2555.     moveq    #3,d0
  2556.     moveq    #0,d1
  2557.     lea    backcheckr,a0        table of entries
  2558. basearch
  2559.     move.l    (a0)+,a1        get address
  2560.     move.w    (a1),d1            get check field    
  2561.     andi.w    #CHECKED,d1        is checked?    
  2562.     bne    gotwtb            yes
  2563.     dbra    d0,basearch
  2564.     bra    wtbnochange
  2565. gotwtb
  2566.     moveq    #3,d1
  2567.     sub.w    d0,d1            get index
  2568.     cmp.b    wtbcount,d1        changed?    
  2569.     beq    wtbnochange        no
  2570.     move.b    d1,wtbcount        save 
  2571.  
  2572. wtbnochange
  2573.  
  2574. * look at screen blank
  2575.  
  2576.  
  2577.     moveq    #5,d0
  2578.     moveq    #0,d1
  2579.     lea    blankcheckr,a0        table of entries
  2580. blsearch
  2581.     move.l    (a0)+,a1        get address
  2582.     move.w    (a1),d1            get check field    
  2583.     andi.w    #CHECKED,d1        is checked?    
  2584.     bne    gotbla            yes
  2585.     dbra    d0,blsearch
  2586.     bra    blanknochange
  2587. gotbla
  2588.     moveq    #5,d1
  2589.     sub.w    d0,d1            get index
  2590.     lsl.l    #1,d1
  2591.     lea    newblank,a0    
  2592.     move.w    0(a0,d1),d0        get new blank time    
  2593.     cmp.w    blanktime,d0        changed?    
  2594.     beq    blanknochange        no
  2595.                     
  2596.     move.w    d0,blanktime new screen blank time
  2597.     clr.w    blanktimer    start new interval
  2598. blanknochange
  2599.  
  2600. * look at pointer blank
  2601.  
  2602.     moveq    #5,d0
  2603.     moveq    #0,d1
  2604.     lea    pointcheckr,a0        table of entries
  2605. posearch
  2606.     move.l    (a0)+,a1        get address
  2607.     move.w    (a1),d1            get check field    
  2608.     andi.w    #CHECKED,d1        is checked?    
  2609.     bne    gotpoi            yes
  2610.     dbra    d0,posearch
  2611.     bra    pointnochange
  2612. gotpoi
  2613.     moveq    #5,d1
  2614.     sub.w    d0,d1            get index
  2615.     lsl.l    #1,d1
  2616.     lea    newpoint,a0    
  2617.     move.w    0(a0,d1),d0        get new blank time    
  2618.     cmp.w    pointtime,d0        changed?    
  2619.     beq    pointnochange        no
  2620.                     
  2621.     move.w    d0,pointtime new screen blank time
  2622.     clr.w    pointtimer    start new interval
  2623. pointnochange
  2624.  
  2625. * look at mouse speed
  2626.  
  2627.     moveq    #5,d0
  2628.     moveq    #0,d1
  2629.     lea    mousecheck,a0        table of entries
  2630. mosearch
  2631.     move.l    (a0)+,a1        get address
  2632.     move.w    (a1),d1            get check field    
  2633.     andi.w    #CHECKED,d1        is checked?    
  2634.     bne    gotmou            yes
  2635.     dbra    d0,mosearch
  2636.     bra    mousenochange
  2637. gotmou
  2638.     moveq    #5,d1
  2639.     sub.w    d0,d1            get index
  2640.     lea    newmouse,a0    
  2641.     move.b    0(a0,d1),d0        get new blank time    
  2642.     cmp.b    mousespeed,d0        changed?    
  2643.     beq    mousenochange        no
  2644.                     
  2645.     move.b    d0,mousespeed         new mouse speed
  2646. mousenochange
  2647.  
  2648.     rts
  2649.  
  2650. ****
  2651. ********   Subroutine to read key definition file
  2652.  
  2653.  
  2654. readkeys
  2655.     movem.l    a0-a6/d1-d7,-(sp)
  2656.     move.l    doslib,a6    dos base
  2657.     lea    firstkey-2,a5    pointer to previous buffer    
  2658.     lea    keyfile,a0    name of save string
  2659.     move.l    a0,d1        move into right reg
  2660.     move.l    #MODE_OLDFILE,d2 old file
  2661.     jsr    Open(a6)    Open
  2662.     tst.l    d0        file there?
  2663.     beq    kret        no
  2664.     move.l    d0,keyhandle        file handle
  2665.     moveq    #0,d5
  2666. nextbuffer
  2667.     move.l    doslib,a6    put dos base back
  2668.     move.l    #1000,d4    length expected
  2669.     lea    keybuffer,a4
  2670.     moveq    #0,d6        zero count
  2671. readink
  2672.     addq    #1,d6        increment count
  2673.     move.l    a4,d2        data
  2674.     move.l    #1,d3        data length
  2675.     move.l    keyhandle,d1    handle
  2676.     jsr    Read(a6)    read it in
  2677.  
  2678.     tst.l    d0        test result
  2679.     beq    closeink    eof
  2680.     bmi    closeink    error
  2681.     cmpi.b    #$0a,(a4)    end of line?
  2682.     beq    gotline
  2683.     adda    #1,a4        next
  2684.     dbra    d4,readink
  2685.     
  2686. gotline
  2687.     addq    #1,d5        keep count
  2688.     cmpi.w    #9,d6        minimum    permissable length
  2689.     bcs    keyerror    get next
  2690.     move.l    4,a6        ExecBase
  2691.     add.w    #9,d6        buffer size difference
  2692.     move.l    d6,d0        
  2693.     move.l  #MEMF_CLEAR+MEMF_PUBLIC,d1 
  2694.     jsr     AllocMem(A6)    
  2695.     tst.l    d0        got some?    
  2696.     beq    closeink    no          **** error ***
  2697.     move.l    d0,2(a5)    store current buffer address in previous
  2698.     move.l    d0,a5        make previous the current
  2699.     move.l    d0,d7        save start
  2700.     move.w    d6,(a5)        store length    
  2701.     adda.l    #4,a5        room for pointer to next
  2702. **
  2703. ** test for qualifiers
  2704. **
  2705.     lea    keybuffer+1,a3    get first qualifier
  2706.     move.w    #0,2(a5)    set to no qualifier ** remove RELATIVE MOUSE
  2707.     cmpi.w    #'\\',keybuffer    no qualifiers?
  2708.     beq    testkeycode
  2709.  
  2710. nextqual
  2711.     lea    qualifiers,a2    get all qualifiers    
  2712. qualloop
  2713.     cmpi.b    #$ff,(a2)    end yet?
  2714.     beq    keyerror        ****** error    *********
  2715.     clc    (a3),(a2),3    are these the same
  2716.     beq.s    gotqual        yes
  2717.     adda.l    #6,a2        next qualifier
  2718.     bra.s    qualloop
  2719. gotqual
  2720.     move.w    4(a2),d0    get qualifier
  2721.     or.w    d0,2(a5)    set bit for qualifier
  2722. nextqual2
  2723.     adda.l    #3,a3        next key qualifier
  2724.     cmpi.b    #'\',(a3)    end of qualifiers?
  2725.     beq    testkeycode    yes
  2726.     cmpi.b    #',',(a3)    correct delimiter?
  2727.     bne    keyerror    no         ******** error ********
  2728.     adda.l    #1,a3        next one
  2729.     bra.s    nextqual    
  2730. testkeycode
  2731.     adda.l    #1,a3        get to key field
  2732.     cmpi.b    #'\',1(a3)    is it a 1 letter sequence?
  2733.     beq.s    doonekey    yes
  2734.     cmpi.b    #'\',3(a3)    is it a 3 letter sequence?
  2735.     beq    testspecial    yes - test for special key
  2736.     bra    keyerror           ************ error ***********
  2737. doonekey
  2738.     move.b    (a3),d0    
  2739.     bsr    rawtrans
  2740.  
  2741.     move.b    d0,4(a5)    move in raw key code
  2742.     adda.l    #1,a3        next field
  2743.     bra    movestring    move in string
  2744.     
  2745. ** translate key into raw key code
  2746. ** d0 contains key for translation
  2747.  
  2748. rawtrans
  2749.     move.l    a0,-(sp)    
  2750.     lea    rawkeys,a0    get raw key codes
  2751. 1$    cmpi.b    #$ff,(a0)    end of table - unknown key
  2752.     beq    noraw        ********  error   ********
  2753.     cmp.b    (a0),d0        found?
  2754.     beq.s    foundraw    yes
  2755.     adda.l    #2,a0        next
  2756.     bra.s    1$
  2757. foundraw
  2758.     moveq    #0,d0
  2759.     move.b    1(a0),d0    set up character
  2760.     move.l    (sp)+,a0
  2761.     rts
  2762. noraw
  2763.     move.l    (sp)+,a0
  2764.     moveq    #0,d0
  2765.     rts
  2766.  
  2767.     
  2768. ** translate special key into raw key code
  2769.  
  2770. testspecial
  2771.     lea    funnykeys,a2    get special keys
  2772. nextspec
  2773.     cmpi.b    #$ff,(a2)    end?
  2774.     beq    keyerror    yes     *********** error *********
  2775.     clc    (a3),(a2),3    equal?
  2776.     beq    gotfunny    yes
  2777.     adda.l    #4,a2        next entry
  2778.     bra    nextspec
  2779. gotfunny
  2780.     move.b    3(a2),4(a5)    move in funny key code
  2781.     adda.l    #3,a3        next field
  2782. **
  2783. ** move string into buffer
  2784. **
  2785. movestring
  2786.     move.l    #950,d6        set a maximum to avoid loop
  2787.     adda.l    #5,a5        string area
  2788.     cmpi.b    #'\',(a3)    got delimeter?
  2789.     bne    keyerror    no      ********** error **********
  2790.     adda.l    #1,a3        first character
  2791. movechar
  2792.     cmpi.b    #'\',(a3)    got delimeter?
  2793.     beq    stringend    finished    
  2794.     cmpi.b    #$0a,(a3)    end?
  2795.     beq    stringend    finished    
  2796.     cmpi.b    #'^',(a3)    got ctrl?
  2797.     bne.s    notctrl        no
  2798.     adda.l    #1,a3        next character
  2799.     cmpi.b    #'^',(a3)    allow ^
  2800.     beq.s    notctrl        no
  2801.     cmpi.b    #'\',(a3)    allow \
  2802.     beq.s    notctrl        no
  2803.     andi.b    #$1f,(a3)    convert
  2804. notctrl    
  2805.     move.b    (a3)+,(a5)+    move it in
  2806.     dbra    d6,movechar
  2807.     bra    keyerror
  2808.  
  2809. stringend
  2810.     move.b    #$fe,(a5)+    end of buffer
  2811.     move.b    1(a3),(a5)    move in keep/replace field
  2812.     ori.b    #$20,(a5)    make it small
  2813.     move.b    3(a3),1(a5)    move in command/string field
  2814.     ori.b    #$20,1(a5)    make it small
  2815.     cmpi.b    #'\',4(a3)    is there a delay field?
  2816.     bne.s    1$        no
  2817.     move.b    5(a3),2(a5)    move in delay
  2818. 1$    move.b    #$ff,3(a5)    end of buffer
  2819.     move.l    d7,a5        back to start of buffer
  2820.     bra    nextbuffer
  2821. keyerror
  2822.     move.l    intuit,a6    intuition base    
  2823.     move.l    windowpoint,a0
  2824.     lea    keyerrortext,a1
  2825.     lea    oktext,a2
  2826.     lea    oktext,a3
  2827.     moveq    #0,d0        flags
  2828.     moveq    #0,d1          "
  2829.     move.l    #300,d2        width
  2830.     move.l    #70,d3        height
  2831.     divu    #10,d5        convert to decimal
  2832.     or.b    #$30,d5        convert to ascii
  2833.     move.b    d5,statement    move to message
  2834.     swap    d5
  2835.     or.b    #$30,d5        convert to ascii
  2836.     move.b    d5,statement+1    move to message
  2837.     jsr    AutoRequest(a6)
  2838.  
  2839. closeink
  2840.     move.l    doslib,a6
  2841.     move.l    keyhandle,d1
  2842.     jsr    Close(a6)    close file
  2843. kret    movem.l    (sp)+,a0-a6/d1-d7
  2844.     rts
  2845.  
  2846. **
  2847. ** Subroutine to free memory used by key mapping routines
  2848. **
  2849.  
  2850. freekeymem
  2851.     movem.l    a0-a6/d1-d7,-(sp)
  2852.     tst.l    firstkey    any keys?
  2853.     beq.s    freekeyout
  2854.     move.l    4,a6        get execbase
  2855.     move.l    firstkey,a1    address of first buffer
  2856. 1$    moveq    #0,d0
  2857.     move.w    (a1),d0        length
  2858.     move.l    2(a1),d7    next buffer
  2859.     jsr     FreeMem(A6)    call FreeMem
  2860.     tst.l    d7        end?
  2861.     beq.s    freekeyout    yes
  2862.     move.l    d7,a1        next one
  2863.     bra.s    1$
  2864. freekeyout
  2865.     clr.l    firstkey
  2866.     movem.l    (sp)+,a0-a6/d1-d7
  2867.     rts
  2868.  
  2869. ********** Subroutine to submit characters to the input device
  2870.  
  2871. *  a0=address of string
  2872. *  d0=length of string
  2873. *  d7=delay between each character.
  2874.  
  2875. subchars
  2876.     movem.l    a1-a3/d6,-(sp)
  2877.     move.l    a0,a3            string
  2878.     move.l    d0,d6            length
  2879.     subq    #1,d6        
  2880. nextinchar
  2881.     move.b    (a3),d0            set up for raw translate
  2882.     bsr    rawtrans        translate to raw keys
  2883. setbyte2
  2884.     lea    event,a2        
  2885.     lea    inputreq,a1        IOReq
  2886.     move.w    #$8000,ie_Qualifier(a2)    set to no shift
  2887.     move.b    d0,ie_Code+1(a2)
  2888.     and.b    #$80,d0            shifted?
  2889.     beq.s    norcode2            no
  2890.     and.b    #$7f,ie_Code+1(a2)    turn off shift bit 
  2891.     or.w    #IEQUALIFIER_LSHIFT,ie_Qualifier(a2)    set to shifted
  2892. norcode2
  2893.     move.b    #IECLASS_RAWKEY,ie_Class(a2)
  2894.     move.l    a2,IO_DATA(a1)     
  2895.     move.l    #ie_SIZEOF,IO_LENGTH(a1)    set length 
  2896.     move.w    #IND_WRITEEVENT,IO_COMMAND(a1) 
  2897.     jsr    DoIO(a6)
  2898.     adda.l    #1,a3            next byte
  2899.     tst.l    d7            delay?
  2900.     bne    delinp
  2901. nexsub    dbra    d6,nextinchar        no
  2902.     movem.l    (sp)+,a1-a3/d6
  2903.     rts
  2904. *******
  2905. *** Delay submission of characters
  2906. delinp
  2907.     movem.l    a0/a5/a1,-(sp)
  2908.     lea    pause,a1        new ioreq
  2909.     move.l    a5,a0            old ioreq
  2910.     moveq    #IOTV_SIZE/4-1,d0
  2911. 1$    
  2912.     move.l    (a0)+,(a1)+
  2913.     dbra    d0,1$
  2914.     lea    pause,a1
  2915.     MOVE.W  #TR_ADDREQUEST,IO_COMMAND(A1) IO_COMMAND = TR_ADDREQUEST(9)
  2916.     MOVE.l  #0,IO_SIZE+TV_SECS(A1)    TV_SECS = $01(01 seconds) ||dj
  2917.     MOVE.L  d7,IO_SIZE+TV_MICRO(A1)    TV_MICRO= specified time
  2918.     movea.l    4,a6        set Exec base
  2919.     JSR     DoIO(A6)    wait
  2920.  
  2921.     movem.l    (sp)+,a0/a5/a1
  2922.     bra    nexsub
  2923.  
  2924. *************************************************************************
  2925. *                                    *
  2926. *                                        *
  2927. *                                    *
  2928. *    Date subroutine                                          *
  2929. *                                    *
  2930. *************************************************************************
  2931. *
  2932. *    
  2933. *
  2934. dosregs    reg    d0-d7/a0-a6        ;registers from dos entry point
  2935. EBASE    equr    a6            ;exec.library
  2936. DBASE    equr    a4            ;dos.library
  2937. *
  2938. *
  2939. getdate
  2940.     movem.l    dosregs,-(sp)        ;save registers at entry time
  2941. *
  2942. *    open libraries which will be used thoughout the application
  2943. *
  2944.     move.l    4,EBASE    ;exec.library is provided to us
  2945.     lea    dosname,a1
  2946.     moveq    #0,d0
  2947.     jsr    OpenLibrary(a6)
  2948.     move.l    d0,a6            save dos library
  2949. *
  2950. *    get system date and time.  the first two longwords returned
  2951. *    represent the number of days since January 1, 1978, and the
  2952. *    number of seconds since midnight.
  2953. *
  2954.     move.l    #dosdate,d1
  2955.     jsr    DateStampx(a6)
  2956. *
  2957. *    calculate the current year
  2958. *
  2959.     move.l    dosdate,d4        ;number of days since 78-01-01
  2960.     addq.l    #1,d4            ;correction offset
  2961.     moveq    #2,d5            ;counter for leap years
  2962.     moveq    #78,d2            ;counter for year
  2963. year1    move.l    #365,d3            ;assume this year has 365 days
  2964.     and.b    #$03,d5            ;but if leap year...
  2965.     bne.s    year2
  2966.     addq.l    #1,d3            ;make it 366
  2967. year2    cmp.l    d3,d4            ;have we found correct year?
  2968.     ble.s    year3
  2969.     sub.l    d3,d4            ;no, reduce by 365 or 366
  2970.     addq.w    #1,d2            ;try next year
  2971.     addq.b    #1,d5            ;bump leap year modulo 4
  2972.     bra.s    year1
  2973. year3    move.l    d2,d1            ;this is 19xx
  2974.     lea    dyy,a0            ;receiving area
  2975.     bsr    binasc            ;fill in xx part
  2976. *
  2977. *    calculate the current month
  2978. *
  2979.     lea    days,a2            ;regular table of days in each month
  2980.     and.b    #$03,d5
  2981.     bne.s    month1
  2982.     lea    dayslp,a2        ;alternate version for leap year
  2983. month1    moveq    #1,d2            ;counter for month
  2984. month2    cmp.w    (a2),d4            ;have we found proper month?
  2985.     ble.s    month3
  2986.     sub.w    (a2)+,d4        ;no, reduce # days
  2987.     addq.b    #1,d2            ;count month
  2988.     bra.s    month2
  2989. month3    move.l    d2,d1            ;this is the month
  2990.     subq    #1,d1            make it an offset
  2991.     lsl.l    #2,d1            *4
  2992.     lea    months(d1),a0        get month
  2993.     mvc    (a0),mmm,3        move in month
  2994.     
  2995.  
  2996. *    lea    dmm,a0            ;receiving area
  2997. *    bsr    binasc            ;store 2 ascii digits
  2998. *
  2999. *    the current day is whatever is left over
  3000. *
  3001.     move.l    d4,d1            ;this is the day
  3002.     lea    ddd,a0            ;receiving area
  3003.     bsr    binasc            ;store 2 ascii digits
  3004. *
  3005. *    calculate hours
  3006. *
  3007.     lea    thh,a0            ;receiving area
  3008.     move.l    dosdate+4,d1        ;number of minutes since midnight
  3009.     divu    #60,d1            ;calculate number of hours
  3010.     move.l    d1,d2            ;save remainder
  3011.     bsr    binasc
  3012.     addq.l    #1,a0            ;skip over colon
  3013.     move.l    d2,d1            ;get minutes
  3014.     swap    d1
  3015.     bsr    binasc
  3016. *
  3017. *
  3018. wrapup
  3019. *
  3020. *
  3021.     MOVE.L    a6,a1        dos Library
  3022.     movea.l    4,a6        Exec base 
  3023.     jsr    CloseLibrary(A6) call CloseLibrary
  3024. *
  3025. Finish    
  3026.     cmpi.b    #'0',ddd        1st byte 0?
  3027.     bne.s    1$            no
  3028.     move.b    #' ',ddd        make it blank
  3029.  
  3030. 1$    movem.l    (sp)+,dosregs        ;restore registers as of entry
  3031.     rts
  3032. *
  3033. *************************************************************************
  3034. *                                    *
  3035. *    binasc -- output 2 ascii digits                    *
  3036. *                                    *
  3037. *************************************************************************
  3038. *
  3039. *    a0    pointer to receiving area
  3040. *    d1    binary value to convert
  3041. *    d0    scratch
  3042. *
  3043. binasc    move.b    #'0',d0            ;ascii zero
  3044.     ext.l    d1
  3045.     divu    #10,d1            ;10's digit
  3046.     add.b    d0,d1    
  3047.     move.b    d1,(a0)+
  3048.     swap    d1            ;1's digit
  3049.     add.b    d0,d1
  3050.     move.b    d1,(a0)+
  3051.     rts
  3052.     cnop    0,2
  3053. months
  3054.     dc.b    'Jan '
  3055.     dc.b    'Feb '
  3056.     dc.b    'Mar '
  3057.     dc.b    'Apr '
  3058.     dc.b    'May '
  3059.     dc.b    'Jun '
  3060.     dc.b    'Jul '
  3061.     dc.b    'Aug '
  3062.     dc.b    'Sep '
  3063.     dc.b    'Oct '
  3064.     dc.b    'Nov '
  3065.     dc.b    'Dec '
  3066. *
  3067. *    days in each month (normal year)
  3068. *
  3069. days    dc.w    31
  3070.     dc.w    28
  3071.     dc.w    31
  3072.     dc.w    30
  3073.     dc.w    31
  3074.     dc.w    30
  3075.     dc.w    31
  3076.     dc.w    31
  3077.     dc.w    30
  3078.     dc.w    31
  3079.     dc.w    30
  3080.     dc.w    31
  3081. *
  3082. *    days in each month (leap year)
  3083. *
  3084. dayslp    dc.w    31
  3085.     dc.w    29
  3086.     dc.w    31
  3087.     dc.w    30
  3088.     dc.w    31
  3089.     dc.w    30
  3090.     dc.w    31
  3091.     dc.w    31
  3092.     dc.w    30
  3093.     dc.w    31
  3094.     dc.w    30
  3095.     dc.w    31
  3096. *
  3097. *    dos stuff
  3098. *
  3099.     cnop    0,4
  3100. dosdate    ds.l    3            ;internal date/time
  3101. pchand    ds.l    1
  3102. pcfile    dc.b    'df0:pc/pcdate',0
  3103. *
  3104. *    date and time record
  3105. *
  3106.     cnop    0,4
  3107. datefield
  3108. ddd    dc.b    'dd '
  3109. mmm    dc.b    'mmm 19'
  3110. dyy    dc.b    'yy'
  3111.     dc.b    $0a
  3112.     dc.b    'time '
  3113. thh    dc.b    'hh:'
  3114. tmm    dc.b    'mm'
  3115.     dc.b    $0a
  3116.  
  3117. ********    
  3118. *************** Window for reading new keys *************
  3119.     cnop    0,2
  3120. keywindow
  3121.     dc.w      100        left edge
  3122.     dc.w    20        top edge        
  3123.     dc.w    300        width
  3124.     dc.w    40        Height
  3125.     dc.b    3        detail pen
  3126.     dc.b    2        block pen
  3127.     dc.l    GADGETUP+ACTIVEWINDOW  IDCMPflags 
  3128.     dc.l    WINDOWDRAG+NOCAREREFRESH+ACTIVATE flags 
  3129.     dc.l    gad0        first gadget
  3130.     dc.l    0        check mark
  3131.     dc.l    0        title
  3132.     dc.l    0        screen
  3133.     dc.l    0        bit map
  3134.     dc.w    0        minimum width
  3135.     dc.w    0        minimum height
  3136.     dc.w    0        max width
  3137.     dc.w    0        max height
  3138.     dc.w    1        workbench
  3139.  
  3140.  
  3141. gad0    dc.l    gad1        next gadget
  3142.     dc.w    8        left edge    
  3143.     dc.w    25        top edge
  3144.     dc.w    286        width
  3145.     dc.w    8        height
  3146.     dc.w    GADGHCOMP    flags
  3147.     dc.w    RELVERIFY    activation flags
  3148.     dc.w    STRGADGET    type
  3149.     dc.l    border        border structure
  3150.     dc.l    0        SelectRender
  3151.     dc.l    0        GadgetText
  3152.     dc.l    0        MutualExclude
  3153.     dc.l    stringinfo        SpecialInfo
  3154.     dc.w    0        GadgetID
  3155.     dc.l    0        UserData
  3156.  
  3157. border    
  3158.  
  3159.     dc.w    0        left edge
  3160.     dc.w    0        top edge
  3161.     dc.b    2        front pen
  3162.     dc.b    0        back pen
  3163.     dc.b    RP_JAM1        drawing mode
  3164.     dc.b    5        no. of coordinates
  3165.     dc.l    coords        pointer to coordinates
  3166.     dc.l    0        next border
  3167.     
  3168. coords    dc.w    -4,-2    
  3169.     dc.w    -4,9
  3170.     dc.w    286,9
  3171.     dc.w    286,-2
  3172.     dc.w    -4,-2
  3173.  
  3174.  
  3175.     cnop    0,2    
  3176. stringinfo
  3177.     
  3178.         dc.l      keyfilebuf    si_Buffer     ; the buffer containing the start and final string
  3179.         dc.l      undobuf    si_UndoBuffer ; optional buffer for undoing current entry
  3180.         dc.w     0    si_BufferPos   ; character position in Buffer
  3181.         dc.w     80    si_MaxChars    ; max number of chars in Buffer (including NULL)
  3182.         dc.w     0    si_DispPos     ; Buffer position of first displayed character
  3183.  
  3184.     ; Intuition initializes and maintains these variables for you
  3185.         dc.w     0    si_UndoPos     ; character position in the undo buffer
  3186.         dc.w     0    si_NumChars    ; number of characters currently in Buffer
  3187.         dc.w     0    si_DispCount   ; number of whole characters visible in Container
  3188.         dc.w    1    si_CLeft       ; topleft offset of the container
  3189.         dc.w     0    si_CTop        ; topleft offset of the container
  3190.         dc.l      0    si_LayerPtr   ; the RastPort containing this Gadget
  3191.  
  3192.         dc.l     0    si_AltKeyMap
  3193.  
  3194.  
  3195.     cnop    0,2            align
  3196. keytext
  3197.     DC.B    3,0,1,0
  3198.     DC.W    2,12
  3199.     DC.L    0,keymsg,0
  3200.  
  3201.     cnop    0,2            align
  3202.  
  3203. keymsg    dc.b    ' Enter filename:',0        
  3204.     cnop    0,2            align
  3205.  
  3206. gad1    dc.l    0        next gadget
  3207.     dc.w    230        left edge
  3208.     dc.w    12        top edge
  3209.     dc.w    48        width
  3210.     dc.w    8        height
  3211.     dc.w    GADGHCOMP    flags
  3212.     dc.w    RELVERIFY    activation flags
  3213.     dc.w    BOOLGADGET    type
  3214.     dc.l    0        border structure
  3215.     dc.l    0        SelectRender
  3216.     dc.l    gad1text    GadgetText
  3217.     dc.l    0        MutualExclude
  3218.     dc.l    0        SpecialInfo
  3219.     dc.w    1        GadgetID
  3220.     dc.l    0        UserData
  3221.  
  3222. *
  3223.     cnop    0,2
  3224. gad1text dc.b    2,1,RP_JAM2,0
  3225.     dc.w    0,0
  3226.     dc.l    0,g1text,0
  3227.  
  3228.     cnop    0,2
  3229. g1text    dc.b    'Cancel',0
  3230.  
  3231.  
  3232.  
  3233. ***************************************************
  3234. ****************** window structure **********************
  3235.  
  3236.  
  3237.  
  3238. window    dc.w      343        left edge
  3239.     dc.w    1        top edge        
  3240.     dc.w    184        width
  3241. newwindowheight
  3242.     dc.w    7        Height
  3243.     dc.b    0        detail pen
  3244.     dc.b    1        block pen
  3245.     dc.l    ACTIVEWINDOW+INACTIVEWINDOW+MOUSEBUTTONS+MENUPICK  IDCMPflags 
  3246.     dc.l    WINDOWDRAG+NOCAREREFRESH+BORDERLESS flags 
  3247.     dc.l    0        first gadget
  3248.     dc.l    0        check mark
  3249.     dc.l    0        title
  3250.     dc.l    0        screen
  3251.     dc.l    0        bit map
  3252.     dc.w    0        minimum width
  3253.     dc.w    0        minimum height
  3254.     dc.w    0        max width
  3255.     dc.w    0        max height
  3256.     dc.w    1        workbench
  3257.  
  3258.  
  3259. ******************** menu structures  ********************
  3260.  
  3261.  
  3262. menu0    dc.l    0        next menu
  3263.     dc.w    270        left
  3264.     dc.w    0        top
  3265.     dc.w    62        width
  3266.     dc.w    0        height
  3267.     dc.w    MENUENABLED    flags
  3268.     dc.l    menu0name    name
  3269.     dc.l    menuitem0    1st item
  3270.     dc.w    0,0,0,0        internal
  3271.  
  3272. mendep    equ    11        menu depth
  3273. mainw    equ    140
  3274. menuitem0 dc.l    menuitem1        next menu item    
  3275.     dc.w    -110        left
  3276.     dc.w    0        top
  3277.     dc.w    mainw        width
  3278.     dc.w    mendep        height
  3279.     dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP    flags
  3280.     dc.l    0        mutual exclude
  3281.     dc.l    itemname0    item fill
  3282.     dc.l    0        select fill
  3283.     dc.b    'n'        command
  3284.     dc.l    0        sub item
  3285.     dc.w    0        next select
  3286.  
  3287.     cnop    0,2        align
  3288.     
  3289. itemname0 dc.b    0        front pen    
  3290.     dc.b    1        back pen
  3291.     dc.b    RP_JAM1        draw mode
  3292.     dc.w    2        left 
  3293.     dc.w    2        top
  3294.     dc.l    0        font
  3295.     dc.l    itext0        text
  3296.     dc.l    0        next text
  3297.  
  3298. itext0    dc.b    ' NewCLI        ',0
  3299.     
  3300. menuitem1 dc.l    menuitem2    next menu item    
  3301.     dc.w    -110        left
  3302.     dc.w    mendep        top
  3303.     dc.w    mainw        width
  3304.     dc.w    mendep        height
  3305.     dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP    flags
  3306.     dc.l    0        mutual exclude
  3307.     dc.l    itemname1    item fill
  3308.     dc.l    0        select fill
  3309.     dc.b    'd'        command
  3310.     dc.l    0        sub item
  3311.     dc.w    0        next select
  3312.  
  3313.     cnop    0,2        align
  3314.     
  3315. itemname1 dc.b    0        front pen    
  3316.     dc.b    1        back pen
  3317.     dc.b    RP_JAM1        draw mode
  3318.     dc.w    2        left 
  3319.     dc.w    2        top
  3320.     dc.l    0        Nfont
  3321. memtext    dc.l    itext1        text
  3322.     dc.l    0        next text
  3323.  
  3324. itext1    dc.b    ' Chip/Fast    ',0
  3325. itext1b    dc.b    ' Total Memory ',0    
  3326. menuitem2 dc.l    menuitem3        next menu item    
  3327.     dc.w    -110        left
  3328.     dc.w    mendep*2    top
  3329.     dc.w    mainw        width
  3330.     dc.w    mendep        height
  3331.     dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP    flags
  3332.     dc.l    0        mutual exclude
  3333.     dc.l    itemname2    item fill
  3334.     dc.l    0        select fill
  3335.     dc.b    0        command
  3336.     dc.l    sub1        sub item
  3337.     dc.w    0        next select
  3338.  
  3339.     cnop    0,2        align
  3340.     
  3341. itemname2 dc.b    0        front pen    
  3342.     dc.b    1        back pen
  3343.     dc.b    RP_JAM1        draw mode
  3344.     dc.w    2        left 
  3345.     dc.w    2        top
  3346.     dc.l    0        font
  3347.     dc.l    itext2        text
  3348.     dc.l    0        next text
  3349.  
  3350. itext2    dc.b    ' Colour        ',0
  3351.  
  3352.  
  3353.     
  3354. menuitem3 dc.l    menuitem4    next menu item    
  3355.     dc.w    -110        left
  3356.     dc.w    mendep*3    top
  3357.     dc.w    mainw        width
  3358.     dc.w    mendep        height
  3359.     dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP    flags
  3360.     dc.l    0        mutual exclude
  3361.     dc.l    itemname3    item fill
  3362.     dc.l    0        select fill
  3363.     dc.b    0        command
  3364.     dc.l    subp1        sub item
  3365.     dc.w    0        next select
  3366.  
  3367.     cnop    0,2        align
  3368.     
  3369. itemname3 dc.b    0        front pen    
  3370.     dc.b    1        back pen
  3371.     dc.b    RP_JAM1        draw mode
  3372.     dc.w    2        left 
  3373.     dc.w    2        top
  3374.     dc.l    0        font
  3375.     dc.l    itext3        text
  3376.     dc.l    0        next text
  3377.  
  3378. itext3    dc.b    ' Priority      ',0
  3379.  
  3380. priw    equ    24+CHECKWIDTH
  3381.  
  3382. subp1    dc.l    subp2        next menu item    
  3383.     dc.w    -2*priw        left
  3384.     dc.w    0        top
  3385.     dc.w    priw        width
  3386.     dc.w    mendep        height
  3387. prich1    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  3388.     dc.l    $fffe        mutual exclude
  3389.     dc.l    subnamep1    item fill
  3390.     dc.l    0        select fill
  3391.     dc.b    0        command
  3392.     dc.l    0        sub item
  3393.     dc.w    0        next select
  3394.  
  3395.     cnop    0,2        align
  3396.     
  3397. subnamep1 dc.b    0        front pen    
  3398.     dc.b    1        back pen
  3399.     dc.b    RP_JAM1        draw mode
  3400.     dc.w    CHECKWIDTH    left 
  3401.     dc.w    2        top
  3402.     dc.l    0        font
  3403.     dc.l    subtextp1    text
  3404.     dc.l    0        next text
  3405.  
  3406. subtextp1 dc.b    '-3 ',0
  3407.  
  3408.  
  3409. subp2    dc.l    subp3        next menu item    
  3410.     dc.w    -2*priw        left
  3411.     dc.w    mendep        top
  3412.     dc.w    priw        width
  3413.     dc.w    mendep        height
  3414. prich2    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  3415.     dc.l    $fffd        mutual exclude
  3416.     dc.l    subnamep2    item fill
  3417.     dc.l    0        select fill
  3418.     dc.b    0        command
  3419.     dc.l    0        sub item
  3420.     dc.w    0        next select
  3421.  
  3422.     cnop    0,2        align
  3423.     
  3424. subnamep2 dc.b    0        front pen    
  3425.     dc.b    1        back pen
  3426.     dc.b    RP_JAM1        draw mode
  3427.     dc.w    CHECKWIDTH    left 
  3428.     dc.w    2        top
  3429.     dc.l    0        font
  3430.     dc.l    subtextp2    text
  3431.     dc.l    0        next text
  3432.  
  3433. subtextp2 dc.b    '-2 ',0
  3434.  
  3435. subp3    dc.l    subp4        next menu item    
  3436.     dc.w    -2*priw        left
  3437.     dc.w    mendep*2    top
  3438.     dc.w    priw        width
  3439.     dc.w    mendep        height
  3440. prich3    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  3441.     dc.l    $fffb        mutual exclude
  3442.     dc.l    subnamep3    item fill
  3443.     dc.l    0        select fill
  3444.     dc.b    0        command
  3445.     dc.l    0        sub item
  3446.     dc.w    0        next select
  3447.  
  3448.     cnop    0,2        align
  3449.     
  3450. subnamep3 dc.b    0        front pen    
  3451.     dc.b    1        back pen
  3452.     dc.b    RP_JAM1        draw mode
  3453.     dc.w    CHECKWIDTH    left 
  3454.     dc.w    2        top
  3455.     dc.l    0        font
  3456.     dc.l    subtextp3    text
  3457.     dc.l    0        next text
  3458.  
  3459. subtextp3 dc.b    '-1 ',0
  3460.  
  3461.  
  3462. subp4    dc.l    subp5        next menu item    
  3463.     dc.w    -2*priw        left
  3464.     dc.w    mendep*3    top
  3465.     dc.w    priw        width
  3466.     dc.w    mendep        height
  3467. prich4    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  3468.     dc.l    $fff7        mutual exclude
  3469.     dc.l    subnamep4    item fill
  3470.     dc.l    0        select fill
  3471.     dc.b    0        command
  3472.     dc.l    0        sub item
  3473.     dc.w    0        next select
  3474.  
  3475.     cnop    0,2        align
  3476.     
  3477. subnamep4 dc.b    0        front pen    
  3478.     dc.b    1        back pen
  3479.     dc.b    RP_JAM1        draw mode
  3480.     dc.w    CHECKWIDTH    left 
  3481.     dc.w    2        top
  3482.     dc.l    0        font
  3483.     dc.l    subtextp4    text
  3484.     dc.l    0        next text
  3485.  
  3486. subtextp4 dc.b    ' 0 ',0
  3487.  
  3488.  
  3489. subp5    dc.l    subp6        next menu item    
  3490.     dc.w    -priw        left
  3491.     dc.w    0        top
  3492.     dc.w    priw        width
  3493.     dc.w    mendep        height
  3494. prich5    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  3495.     dc.l    $ffef        mutual exclude
  3496.     dc.l    subnamep5    item fill
  3497.     dc.l    0        select fill
  3498.     dc.b    0        command
  3499.     dc.l    0        sub item
  3500.     dc.w    0        next select
  3501.  
  3502.     cnop    0,2        align
  3503.     
  3504. subnamep5 dc.b    0        front pen    
  3505.     dc.b    1        back pen
  3506.     dc.b    RP_JAM1        draw mode
  3507.     dc.w    CHECKWIDTH    left 
  3508.     dc.w    2        top
  3509.     dc.l    0        font
  3510.     dc.l    subtextp5    text
  3511.     dc.l    0        next text
  3512.  
  3513. subtextp5 dc.b    '+1 ',0
  3514.  
  3515.  
  3516. subp6    dc.l    subp7        next menu item    
  3517.     dc.w    -priw        left
  3518.     dc.w    mendep        top
  3519.     dc.w    priw        width
  3520.     dc.w    mendep        height
  3521. prich6    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  3522.     dc.l    $ffdf        mutual exclude
  3523.     dc.l    subnamep6    item fill
  3524.     dc.l    0        select fill
  3525.     dc.b    0        command
  3526.     dc.l    0        sub item
  3527.     dc.w    0        next select
  3528.  
  3529.     cnop    0,2        align
  3530.     
  3531. subnamep6 dc.b    0        front pen    
  3532.     dc.b    1        back pen
  3533.     dc.b    RP_JAM1        draw mode
  3534.     dc.w    CHECKWIDTH    left 
  3535.     dc.w    2        top
  3536.     dc.l    0        font
  3537.     dc.l    subtextp6    text
  3538.     dc.l    0        next text
  3539.  
  3540. subtextp6 dc.b    '+2 ',0
  3541.  
  3542.  
  3543. subp7    dc.l    subp8        next menu item    
  3544.     dc.w    -priw        left
  3545.     dc.w    mendep*2        top
  3546.     dc.w    priw        width
  3547.     dc.w    mendep        height
  3548. prich7    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  3549.     dc.l    $ffbf        mutual exclude
  3550.     dc.l    subnamep7    item fill
  3551.     dc.l    0        select fill
  3552.     dc.b    0        command
  3553.     dc.l    0        sub item
  3554.     dc.w    0        next select
  3555.  
  3556.     cnop    0,2        align
  3557.     
  3558. subnamep7 dc.b    0        front pen    
  3559.     dc.b    1        back pen
  3560.     dc.b    RP_JAM1        draw mode
  3561.     dc.w    CHECKWIDTH    left 
  3562.     dc.w    2        top
  3563.     dc.l    0        font
  3564.     dc.l    subtextp7    text
  3565.     dc.l    0        next text
  3566.  
  3567. subtextp7 dc.b    '+3 ',0
  3568.  
  3569.  
  3570. subp8    dc.l    0        next menu item    
  3571.     dc.w    -priw        left
  3572.     dc.w    mendep*3    top
  3573.     dc.w    priw        width
  3574.     dc.w    mendep        height
  3575. prich8    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  3576.     dc.l    $ff7f        mutual exclude
  3577.     dc.l    subnamep8    item fill
  3578.     dc.l    0        select fill
  3579.     dc.b    0        command
  3580.     dc.l    0        sub item
  3581.     dc.w    0        next select
  3582.  
  3583.     cnop    0,2        align
  3584.     
  3585. subnamep8 dc.b    0        front pen    
  3586.     dc.b    1        back pen
  3587.     dc.b    RP_JAM1        draw mode
  3588.     dc.w    CHECKWIDTH    left 
  3589.     dc.w    2        top
  3590.     dc.l    0        font
  3591.     dc.l    subtextp8    text
  3592.     dc.l    0        next text
  3593.  
  3594. subtextp8 dc.b    '+4 ',0
  3595.  
  3596.  
  3597.  
  3598. colourw    equ    74
  3599.     
  3600. sub1    dc.l    sub2        next menu item    
  3601.     dc.w    -colourw*2    left
  3602.     dc.w    0        top
  3603.     dc.w    colourw        width
  3604.     dc.w    mendep        height
  3605.     dc.w    ITEMTEXT+ITEMENABLED+HIGHBOX    flags
  3606.     dc.l    0        mutual exclude
  3607.     dc.l    subname1    item fill
  3608.     dc.l    0        select fill
  3609.     dc.b    0        command
  3610.     dc.l    0        sub item
  3611.     dc.w    0        next select
  3612.  
  3613.     cnop    0,2        align
  3614.     
  3615. subname1 dc.b    0        front pen    
  3616.     dc.b    1        back pen
  3617.     dc.b    RP_JAM2        draw mode
  3618.     dc.w    2        left 
  3619.     dc.w    2        top
  3620.     dc.l    0        font
  3621.     dc.l    subtext1    text
  3622.     dc.l    0        next text
  3623.  
  3624. subtext1 dc.b    'Colour 1 ',0
  3625.  
  3626.     
  3627. sub2    dc.l    sub3        next menu item    
  3628.     dc.w    -colourw*2    left
  3629.     dc.w    mendep        top
  3630.     dc.w    colourw        width
  3631.     dc.w    mendep        height
  3632.     dc.w    ITEMTEXT+ITEMENABLED+HIGHBOX    flags
  3633.     dc.l    0        mutual exclude
  3634.     dc.l    subname2    item fill
  3635.     dc.l    0        select fill
  3636.     dc.b    0        command
  3637.     dc.l    0        sub item
  3638.     dc.w    0        next select
  3639.  
  3640.     cnop    0,2        align
  3641.     
  3642. subname2 dc.b    2        front pen    
  3643.     dc.b    1        back pen
  3644.     dc.b    RP_JAM2        draw mode
  3645.     dc.w    2        left 
  3646.     dc.w    2        top
  3647.     dc.l    0        font
  3648.     dc.l    subtext2    text
  3649.     dc.l    0        next text
  3650.  
  3651. subtext2 dc.b    'Colour 2 ',0
  3652.  
  3653.     
  3654. sub3    dc.l    sub4        next menu item    
  3655.     dc.w    -colourw*2        left
  3656.     dc.w    mendep*2    top
  3657.     dc.w    colourw        width
  3658.     dc.w    mendep        height
  3659.     dc.w    ITEMTEXT+ITEMENABLED+HIGHBOX    flags
  3660.     dc.l    0        mutual exclude
  3661.     dc.l    subname3    item fill
  3662.     dc.l    0        select fill
  3663.     dc.b    0        command
  3664.     dc.l    0        sub item
  3665.     dc.w    0        next select
  3666.  
  3667.     cnop    0,2        align
  3668.     
  3669. subname3 dc.b    3        front pen    
  3670.     dc.b    1        back pen
  3671.     dc.b    RP_JAM2        draw mode
  3672.     dc.w    2        left 
  3673.     dc.w    2        top
  3674.     dc.l    0        font
  3675.     dc.l    subtext3    text
  3676.     dc.l    0        next text
  3677.  
  3678. subtext3 dc.b    'Colour 3 ',0
  3679.  
  3680.     
  3681. sub4    dc.l    sub5        next menu item    
  3682.     dc.w    -colourw*2    left
  3683.     dc.w    mendep*3    top
  3684.     dc.w    colourw        width
  3685.     dc.w    mendep        height
  3686.     dc.w    ITEMTEXT+ITEMENABLED+HIGHBOX    flags
  3687.     dc.l    0        mutual exclude
  3688.     dc.l    subname4    item fill
  3689.     dc.l    0        select fill
  3690.     dc.b    0        command
  3691.     dc.l    0        sub item
  3692.     dc.w    0        next select
  3693.  
  3694.     cnop    0,2        align
  3695.     
  3696. subname4 dc.b    1        front pen    
  3697.     dc.b    0        back pen
  3698.     dc.b    RP_JAM2        draw mode
  3699.     dc.w    2        left 
  3700.     dc.w    2        top
  3701.     dc.l    0        font
  3702.     dc.l    subtext4    text
  3703.     dc.l    0        next text
  3704.  
  3705. subtext4 dc.b    'Colour 4 ',0
  3706.  
  3707.     
  3708. sub5    dc.l    sub6        next menu item    
  3709.     dc.w    -colourw*2    left
  3710.     dc.w    mendep*4    top
  3711.     dc.w    colourw        width
  3712.     dc.w    mendep        height
  3713.     dc.w    ITEMTEXT+ITEMENABLED+HIGHBOX    flags
  3714.     dc.l    0        mutual exclude
  3715.     dc.l    subname5    item fill
  3716.     dc.l    0        select fill
  3717.     dc.b    0        command
  3718.     dc.l    0        sub item
  3719.     dc.w    0        next select
  3720.  
  3721.     cnop    0,2        align
  3722.     
  3723. subname5 dc.b    2        front pen    
  3724.     dc.b    0        back pen
  3725.     dc.b    RP_JAM2        draw mode
  3726.     dc.w    2        left 
  3727.     dc.w    2        top
  3728.     dc.l    0        font
  3729.     dc.l    subtext5    text
  3730.     dc.l    0        next text
  3731.  
  3732. subtext5 dc.b    'Colour 5 ',0
  3733.  
  3734.     
  3735. sub6    dc.l    sub7        next menu item    
  3736.     dc.w    -colourw*2        left
  3737.     dc.w    mendep*5    top
  3738.     dc.w    colourw        width
  3739.     dc.w    mendep        height
  3740.     dc.w    ITEMTEXT+ITEMENABLED+HIGHBOX    flags
  3741.     dc.l    0        mutual exclude
  3742.     dc.l    subname6    item fill
  3743.     dc.l    0        select fill
  3744.     dc.b    0        command
  3745.     dc.l    0        sub item
  3746.     dc.w    0        next select
  3747.  
  3748.     cnop    0,2        align
  3749.     
  3750. subname6 dc.b    3        front pen    
  3751.     dc.b    0        back pen
  3752.     dc.b    RP_JAM2        draw mode
  3753.     dc.w    2        left 
  3754.     dc.w    2        top
  3755.     dc.l    0        font
  3756.     dc.l    subtext6    text
  3757.     dc.l    0        next text
  3758.  
  3759. subtext6 dc.b    'Colour 6 ',0
  3760.  
  3761.     
  3762. sub7    dc.l    sub8        next menu item    
  3763.     dc.w    -colourw    left
  3764.     dc.w    0        top
  3765.     dc.w    colourw        width
  3766.     dc.w    mendep        height
  3767.     dc.w    ITEMTEXT+ITEMENABLED+HIGHBOX    flags
  3768.     dc.l    0        mutual exclude
  3769.     dc.l    subname7    item fill
  3770.     dc.l    0        select fill
  3771.     dc.b    0        command
  3772.     dc.l    0        sub item
  3773.     dc.w    0        next select
  3774.  
  3775.     cnop    0,2        align
  3776.     
  3777. subname7 dc.b    0        front pen    
  3778.     dc.b    2        back pen
  3779.     dc.b    RP_JAM2        draw mode
  3780.     dc.w    2        left 
  3781.     dc.w    2        top
  3782.     dc.l    0        font
  3783.     dc.l    subtext7    text
  3784.     dc.l    0        next text
  3785.  
  3786. subtext7 dc.b    'Colour 7 ',0
  3787.  
  3788.     
  3789. sub8    dc.l    sub9        next menu item    
  3790.     dc.w    -colourw    left
  3791.     dc.w    mendep        top
  3792.     dc.w    colourw        width
  3793.     dc.w    mendep        height
  3794.     dc.w    ITEMTEXT+ITEMENABLED+HIGHBOX    flags
  3795.     dc.l    0        mutual exclude
  3796.     dc.l    subname8    item fill
  3797.     dc.l    0        select fill
  3798.     dc.b    0        command
  3799.     dc.l    0        sub item
  3800.     dc.w    0        next select
  3801.  
  3802.     cnop    0,2        align
  3803.     
  3804. subname8 dc.b    1        front pen    
  3805.     dc.b    2        back pen
  3806.     dc.b    RP_JAM2        draw mode
  3807.     dc.w    2        left 
  3808.     dc.w    2        top
  3809.     dc.l    0        font
  3810.     dc.l    subtext8    text
  3811.     dc.l    0        next text
  3812.  
  3813. subtext8 dc.b    'Colour 8 ',0
  3814.  
  3815.     
  3816. sub9    dc.l    sub10        next menu item    
  3817.     dc.w    -colourw        left
  3818.     dc.w    mendep*2    top
  3819.     dc.w    colourw        width
  3820.     dc.w    mendep        height
  3821.     dc.w    ITEMTEXT+ITEMENABLED+HIGHBOX    flags
  3822.     dc.l    0        mutual exclude
  3823.     dc.l    subname9    item fill
  3824.     dc.l    0        select fill
  3825.     dc.b    0        command
  3826.     dc.l    0        sub item
  3827.     dc.w    0        next select
  3828.  
  3829.     cnop    0,2        align
  3830.     
  3831. subname9 dc.b    3        front pen    
  3832.     dc.b    2        back pen
  3833.     dc.b    RP_JAM2        draw mode
  3834.     dc.w    2        left 
  3835.     dc.w    2        top
  3836.     dc.l    0        font
  3837.     dc.l    subtext9    text
  3838.     dc.l    0        next text
  3839.  
  3840. subtext9 dc.b    'Colour 9 ',0
  3841.  
  3842.     
  3843. sub10    dc.l    sub11        next menu item    
  3844.     dc.w    -colourw    left
  3845.     dc.w    mendep*3    top
  3846.     dc.w    colourw        width
  3847.     dc.w    mendep        height
  3848.     dc.w    ITEMTEXT+ITEMENABLED+HIGHBOX    flags
  3849.     dc.l    0        mutual exclude
  3850.     dc.l    subname10    item fill
  3851.     dc.l    0        select fill
  3852.     dc.b    0        command
  3853.     dc.l    0        sub item
  3854.     dc.w    0        next select
  3855.  
  3856.     cnop    0,2        align
  3857.     
  3858. subname10 dc.b    0        front pen    
  3859.     dc.b    3        back pen
  3860.     dc.b    RP_JAM2        draw mode
  3861.     dc.w    2        left 
  3862.     dc.w    2        top
  3863.     dc.l    0        font
  3864.     dc.l    subtext10    text
  3865.     dc.l    0        next text
  3866.  
  3867. subtext10 dc.b    'Colour 10',0
  3868.  
  3869.     
  3870. sub11    dc.l    sub12        next menu item    
  3871.     dc.w    -colourw    left
  3872.     dc.w    mendep*4    top
  3873.     dc.w    colourw        width
  3874.     dc.w    mendep        height
  3875.     dc.w    ITEMTEXT+ITEMENABLED+HIGHBOX    flags
  3876.     dc.l    0        mutual exclude
  3877.     dc.l    subname11    item fill
  3878.     dc.l    0        select fill
  3879.     dc.b    0        command
  3880.     dc.l    0        sub item
  3881.     dc.w    0        next select
  3882.  
  3883.     cnop    0,2        align
  3884.     
  3885. subname11 dc.b    1        front pen    
  3886.     dc.b    3        back pen
  3887.     dc.b    RP_JAM2        draw mode
  3888.     dc.w    2        left 
  3889.     dc.w    2        top
  3890.     dc.l    0        font
  3891.     dc.l    subtext11    text
  3892.     dc.l    0        next text
  3893.  
  3894. subtext11 dc.b    'Colour 11',0
  3895.  
  3896.     
  3897. sub12    dc.l    0        next menu item    
  3898.     dc.w    -colourw    left
  3899.     dc.w    mendep*5    top
  3900.     dc.w    colourw        width
  3901.     dc.w    mendep        height
  3902.     dc.w    ITEMTEXT+ITEMENABLED+HIGHBOX    flags
  3903.     dc.l    0        mutual exclude
  3904.     dc.l    subname12    item fill
  3905.     dc.l    0            select fill
  3906.     dc.b    0        command
  3907.     dc.l    0        sub item
  3908.     dc.w    0        next select
  3909.  
  3910.     cnop    0,2        align
  3911.     
  3912. subname12 dc.b    2        front pen    
  3913.     dc.b    3        back pen
  3914.     dc.b    RP_JAM2        draw mode
  3915.     dc.w    2        left 
  3916.     dc.w    2        top
  3917.     dc.l    0        font
  3918.     dc.l    subtext12    text
  3919.     dc.l    0        next text
  3920.  
  3921. subtext12 dc.b    'Colour 12',0
  3922.     
  3923. menuitem4 dc.l    menuitem5    next menu item    
  3924.     dc.w    -110        left
  3925.     dc.w    mendep*4    top    
  3926.     dc.w    mainw        width
  3927.     dc.w    mendep        height
  3928.     dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP    flags
  3929.     dc.l    0        mutual exclude
  3930.     dc.l    itemname4    item fill
  3931.     dc.l    0        select fill
  3932.     dc.b    0        command
  3933.     dc.l    subr1        sub item
  3934.     dc.w    0        next select
  3935.  
  3936.     cnop    0,2        align
  3937.     
  3938. itemname4 dc.b    0        front pen    
  3939.     dc.b    1        back pen
  3940.     dc.b    RP_JAM1        draw mode
  3941.     dc.w    2        left 
  3942.     dc.w    2        top
  3943.     dc.l    0        font
  3944.     dc.l    itext4        text
  3945.     dc.l    0        next text
  3946.  
  3947. itext4    dc.b    ' Refresh      ',0
  3948. refw    equ    80+CHECKWIDTH    
  3949. subr1    dc.l    subr2        next menu item    
  3950.     dc.w    -refw        left
  3951.     dc.w    0        top
  3952.     dc.w    refw        width
  3953.     dc.w    mendep        height
  3954. ref1    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  3955.     dc.l    $fe        mutual exclude
  3956.     dc.l    subnamer1    item fill
  3957.     dc.l    0        select fill
  3958.     dc.b    0        command
  3959.     dc.l    0        sub item
  3960.     dc.w    0        next select
  3961.  
  3962.     cnop    0,2        align
  3963.     
  3964. subnamer1 dc.b    0        front pen    
  3965.     dc.b    1        back pen
  3966.     dc.b    RP_JAM1        draw mode
  3967.     dc.w    CHECKWIDTH    left 
  3968.     dc.w    2        top
  3969.     dc.l    0        font
  3970.     dc.l    subtextr1    text
  3971.     dc.l    0        next text
  3972.  
  3973. subtextr1 dc.b    '10 per sec',0
  3974.  
  3975.     
  3976. subr2    dc.l    subr3        next menu item    
  3977.     dc.w    -refw        left
  3978.     dc.w    mendep        top
  3979.     dc.w    refw        width
  3980.     dc.w    mendep        height
  3981. ref2    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  3982.     dc.l    $fd        mutual exclude
  3983.     dc.l    subnamer2    item fill
  3984.     dc.l    0        select fill
  3985.     dc.b    0        command
  3986.     dc.l    0        sub item
  3987.     dc.w    0        next select
  3988.  
  3989.     cnop    0,2        align
  3990.     
  3991. subnamer2 dc.b    0        front pen    
  3992.     dc.b    1        back pen
  3993.     dc.b    RP_JAM1        draw mode
  3994.     dc.w    CHECKWIDTH    left 
  3995.     dc.w    2        top
  3996.     dc.l    0        font
  3997.     dc.l    subtextr2    text
  3998.     dc.l    0        next text
  3999.  
  4000. subtextr2 dc.b    ' 5 per sec',0
  4001.  
  4002.     
  4003. subr3    dc.l    subr4        next menu item    
  4004.     dc.w    -refw        left
  4005.     dc.w    mendep*2    top
  4006.     dc.w    refw        width
  4007.     dc.w    mendep        height
  4008. ref3    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  4009.     dc.l    $fb        mutual exclude
  4010.     dc.l    subnamer3    item fill
  4011.     dc.l    0        select fill
  4012.     dc.b    0        command
  4013.     dc.l    0        sub item
  4014.     dc.w    0        next select
  4015.  
  4016.     cnop    0,2        align
  4017.     
  4018. subnamer3 dc.b    0        front pen    
  4019.     dc.b    1        back pen
  4020.     dc.b    RP_JAM1        draw mode
  4021.     dc.w    CHECKWIDTH    left 
  4022.     dc.w    2        top
  4023.     dc.l    0        font
  4024.     dc.l    subtextr3    text
  4025.     dc.l    0        next text
  4026.  
  4027. subtextr3 dc.b    ' 2 per sec',0
  4028.  
  4029.     
  4030. subr4    dc.l    0        next menu item    
  4031.     dc.w    -refw        left
  4032.     dc.w    mendep*3    top
  4033.     dc.w    refw        width
  4034.     dc.w    mendep        height
  4035. ref4    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT flags
  4036.     dc.l    $f7        mutual exclude
  4037.     dc.l    subnamer4    item fill
  4038.     dc.l    0        select fill
  4039.     dc.b    0        command
  4040.     dc.l    0        sub item
  4041.     dc.w    0        next select
  4042.  
  4043.     cnop    0,2        align
  4044.     
  4045. subnamer4 dc.b    0        front pen    
  4046.     dc.b    1        back pen
  4047.     dc.b    RP_JAM1        draw mode
  4048.     dc.w    CHECKWIDTH    left 
  4049.     dc.w    2        top
  4050.     dc.l    0        font
  4051.     dc.l    subtextr4    text
  4052.     dc.l    0        next text
  4053.  
  4054. subtextr4 dc.b    ' 1 per sec',0
  4055.  
  4056. menuitem5 dc.l    menuitem6        next menu item    
  4057.     dc.w    -110        left
  4058.     dc.w    mendep*5    top
  4059.     dc.w    mainw        width
  4060.     dc.w    mendep        height
  4061.     dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP    flags
  4062.     dc.l    0        mutual exclude
  4063.     dc.l    itemname5    item fill
  4064.     dc.l    0        select fill
  4065.     dc.b    0        command
  4066.     dc.l    subb1        sub item
  4067.     dc.w    0        next select
  4068.  
  4069.     cnop    0,2        align
  4070.     
  4071. itemname5 dc.b    0        front pen    
  4072.     dc.b    1        back pen
  4073.     dc.b    RP_JAM1        draw mode
  4074.     dc.w    2        left 
  4075.     dc.w    2        top
  4076.     dc.l    0        font
  4077.     dc.l    itext5        text
  4078.     dc.l    0        next text
  4079.  
  4080. itext5 dc.b    ' Blank Screen  ',0
  4081.  
  4082. blaw    equ    32+CHECKWIDTH
  4083.  
  4084. subb1    dc.l    subb2        next menu item    
  4085.     dc.w    -2*blaw        left
  4086.     dc.w    0        top
  4087.     dc.w    blaw        width
  4088.     dc.w    mendep        height
  4089. blach1    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  4090.     dc.l    $fffe        mutual exclude
  4091.     dc.l    subnameb1    item fill
  4092.     dc.l    0        select fill
  4093.     dc.b    0        command
  4094.     dc.l    0        sub item
  4095.     dc.w    0        next select
  4096.  
  4097.     cnop    0,2        align
  4098.     
  4099. subnameb1 dc.b    0        front pen    
  4100.     dc.b    1        back pen
  4101.     dc.b    RP_JAM1        draw mode
  4102.     dc.w    CHECKWIDTH    left 
  4103.     dc.w    2        top
  4104.     dc.l    0        font
  4105.     dc.l    subtextb1    text
  4106.     dc.l    0        next text
  4107.  
  4108. subtextb1 dc.b    'OFF ',0
  4109.  
  4110.  
  4111. subb2    dc.l    subb3        next menu item    
  4112.     dc.w    -2*blaw        left
  4113.     dc.w    mendep        top
  4114.     dc.w    blaw        width
  4115.     dc.w    mendep        height
  4116. blach2    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  4117.     dc.l    $fffd        mutual exclude
  4118.     dc.l    subnameb2    item fill
  4119.     dc.l    0        select fill
  4120.     dc.b    0        command
  4121.     dc.l    0        sub item
  4122.     dc.w    0        next select
  4123.  
  4124.     cnop    0,2        align
  4125.     
  4126. subnameb2 dc.b    0        front pen    
  4127.     dc.b    1        back pen
  4128.     dc.b    RP_JAM1        draw mode
  4129.     dc.w    CHECKWIDTH    left 
  4130.     dc.w    2        top
  4131.     dc.l    0        font
  4132.     dc.l    subtextb2    text
  4133.     dc.l    0        next text
  4134.  
  4135. subtextb2 dc.b    ' 5 ',0
  4136.  
  4137. subb3    dc.l    subb4        next menu item    
  4138.     dc.w    -2*blaw        left
  4139.     dc.w    mendep*2    top
  4140.     dc.w    blaw        width
  4141.     dc.w    mendep        height
  4142. blach3    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  4143.     dc.l    $fffb        mutual exclude
  4144.     dc.l    subnameb3    item fill
  4145.     dc.l    0        select fill
  4146.     dc.b    0        command
  4147.     dc.l    0        sub item
  4148.     dc.w    0        next select
  4149.  
  4150.     cnop    0,2        align
  4151.     
  4152. subnameb3 dc.b    0        front pen    
  4153.     dc.b    1        back pen
  4154.     dc.b    RP_JAM1        draw mode
  4155.     dc.w    CHECKWIDTH    left 
  4156.     dc.w    2        top
  4157.     dc.l    0        font
  4158.     dc.l    subtextb3    text
  4159.     dc.l    0        next text
  4160.  
  4161. subtextb3 dc.b    '10 ',0
  4162.  
  4163.  
  4164. subb4    dc.l    subb5        next menu item    
  4165.     dc.w    -blaw        left
  4166.     dc.w    0        top
  4167.     dc.w    blaw        width
  4168.     dc.w    mendep        height
  4169. blach4    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  4170.     dc.l    $fff7        mutual exclude
  4171.     dc.l    subnameb4    item fill
  4172.     dc.l    0        select fill
  4173.     dc.b    0        command
  4174.     dc.l    0        sub item
  4175.     dc.w    0        next select
  4176.  
  4177.     cnop    0,2        align
  4178.     
  4179. subnameb4 dc.b    0        front pen    
  4180.     dc.b    1        back pen
  4181.     dc.b    RP_JAM1        draw mode
  4182.     dc.w    CHECKWIDTH    left 
  4183.     dc.w    2        top
  4184.     dc.l    0        font
  4185.     dc.l    subtextb4    text
  4186.     dc.l    0        next text
  4187.  
  4188. subtextb4 dc.b    '20 ',0
  4189.  
  4190.  
  4191. subb5    dc.l    subb6        next menu item    
  4192.     dc.w    -blaw        left
  4193.     dc.w    mendep        top
  4194.     dc.w    blaw        width
  4195.     dc.w    mendep        height
  4196. blach5    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  4197.     dc.l    $ffef        mutual exclude
  4198.     dc.l    subnameb5    item fill
  4199.     dc.l    0        select fill
  4200.     dc.b    0        command
  4201.     dc.l    0        sub item
  4202.     dc.w    0        next select
  4203.  
  4204.     cnop    0,2        align
  4205.     
  4206. subnameb5 dc.b    0        front pen    
  4207.     dc.b    1        back pen
  4208.     dc.b    RP_JAM1        draw mode
  4209.     dc.w    CHECKWIDTH    left 
  4210.     dc.w    2        top
  4211.     dc.l    0        font
  4212.     dc.l    subtextb5    text
  4213.     dc.l    0        next text
  4214.  
  4215. subtextb5 dc.b    '30 ',0
  4216.  
  4217.  
  4218. subb6    dc.l    0        next menu item    
  4219.     dc.w    -blaw        left
  4220.     dc.w    mendep*2    top
  4221.     dc.w    blaw        width
  4222.     dc.w    mendep        height
  4223. blach6    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  4224.     dc.l    $ffdf        mutual exclude
  4225.     dc.l    subnameb6    item fill
  4226.     dc.l    0        select fill
  4227.     dc.b    0        command
  4228.     dc.l    0        sub item
  4229.     dc.w    0        next select
  4230.  
  4231.     cnop    0,2        align
  4232.     
  4233. subnameb6 dc.b    0        front pen    
  4234.     dc.b    1        back pen
  4235.     dc.b    RP_JAM1        draw mode
  4236.     dc.w    CHECKWIDTH    left 
  4237.     dc.w    2        top
  4238.     dc.l    0        font
  4239.     dc.l    subtextb6    text
  4240.     dc.l    0        next text
  4241.  
  4242. subtextb6 dc.b    '40 ',0
  4243.  
  4244.  
  4245.  
  4246. menuitem6 dc.l    menuitem7    next menu item    
  4247.     dc.w    -110        left
  4248.     dc.w    mendep*6    top
  4249.     dc.w    mainw        width
  4250.     dc.w    mendep        height
  4251.     dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP    flags
  4252.     dc.l    0        mutual exclude
  4253.     dc.l    itemname6    item fill
  4254.     dc.l    0        select fill
  4255.     dc.b    0        command
  4256.     dc.l    subo1        sub item
  4257.     dc.w    0        next select
  4258.  
  4259.     cnop    0,2        align
  4260.     
  4261. itemname6 dc.b    0        front pen    
  4262.     dc.b    1        back pen
  4263.     dc.b    RP_JAM1        draw mode
  4264.     dc.w    2        left 
  4265.     dc.w    2        top
  4266.     dc.l    0        font
  4267.     dc.l    itext6        text
  4268.     dc.l    0        next text
  4269.  
  4270. itext6 dc.b    ' Blank Pointer  ',0
  4271.  
  4272.  
  4273. subo1    dc.l    subo2        next menu item    
  4274.     dc.w    -2*blaw        left
  4275.     dc.w    0        top
  4276.     dc.w    blaw        width
  4277.     dc.w    mendep        height
  4278. poich1    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  4279.     dc.l    $fffe        mutual exclude
  4280.     dc.l    subnameo1    item fill
  4281.     dc.l    0        select fill
  4282.     dc.b    0        command
  4283.     dc.l    0        sub item
  4284.     dc.w    0        next select
  4285.  
  4286.     cnop    0,2        align
  4287.     
  4288. subnameo1 dc.b    0        front pen    
  4289.     dc.b    1        back pen
  4290.     dc.b    RP_JAM1        draw mode
  4291.     dc.w    CHECKWIDTH    left 
  4292.     dc.w    2        top
  4293.     dc.l    0        font
  4294.     dc.l    subtexto1    text
  4295.     dc.l    0        next text
  4296.  
  4297. subtexto1 dc.b    'OFF ',0
  4298.  
  4299.  
  4300. subo2    dc.l    subo3        next menu item    
  4301.     dc.w    -2*blaw        left
  4302.     dc.w    mendep        top
  4303.     dc.w    blaw        width
  4304.     dc.w    mendep        height
  4305. poich2    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  4306.     dc.l    $fffd        mutual exclude
  4307.     dc.l    subnameo2    item fill
  4308.     dc.l    0        select fill
  4309.     dc.b    0        command
  4310.     dc.l    0        sub item
  4311.     dc.w    0        next select
  4312.  
  4313.     cnop    0,2        align
  4314.     
  4315. subnameo2 dc.b    0        front pen    
  4316.     dc.b    1        back pen
  4317.     dc.b    RP_JAM1        draw mode
  4318.     dc.w    CHECKWIDTH    left 
  4319.     dc.w    2        top
  4320.     dc.l    0        font
  4321.     dc.l    subtexto2    text
  4322.     dc.l    0        next text
  4323.  
  4324. subtexto2 dc.b    ' 5 ',0
  4325.  
  4326. subo3    dc.l    subo4        next menu item    
  4327.     dc.w    -2*blaw        left
  4328.     dc.w    mendep*2    top
  4329.     dc.w    blaw        width
  4330.     dc.w    mendep        height
  4331. poich3    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  4332.     dc.l    $fffb        mutual exclude
  4333.     dc.l    subnameo3    item fill
  4334.     dc.l    0        select fill
  4335.     dc.b    0        command
  4336.     dc.l    0        sub item
  4337.     dc.w    0        next select
  4338.  
  4339.     cnop    0,2        align
  4340.     
  4341. subnameo3 dc.b    0        front pen    
  4342.     dc.b    1        back pen
  4343.     dc.b    RP_JAM1        draw mode
  4344.     dc.w    CHECKWIDTH    left 
  4345.     dc.w    2        top
  4346.     dc.l    0        font
  4347.     dc.l    subtexto3    text
  4348.     dc.l    0        next text
  4349.  
  4350. subtexto3 dc.b    '10 ',0
  4351.  
  4352.  
  4353. subo4    dc.l    subo5        next menu item    
  4354.     dc.w    -blaw    left
  4355.     dc.w    0        top
  4356.     dc.w    blaw        width
  4357.     dc.w    mendep        height
  4358. poich4    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  4359.     dc.l    $fff7        mutual exclude
  4360.     dc.l    subnameo4    item fill
  4361.     dc.l    0        select fill
  4362.     dc.b    0        command
  4363.     dc.l    0        sub item
  4364.     dc.w    0        next select
  4365.  
  4366.     cnop    0,2        align
  4367.     
  4368. subnameo4 dc.b    0        front pen    
  4369.     dc.b    1        back pen
  4370.     dc.b    RP_JAM1        draw mode
  4371.     dc.w    CHECKWIDTH    left 
  4372.     dc.w    2        top
  4373.     dc.l    0        font
  4374.     dc.l    subtexto4    text
  4375.     dc.l    0        next text
  4376.  
  4377. subtexto4 dc.b    '20 ',0
  4378.  
  4379.  
  4380. subo5    dc.l    subo6        next menu item    
  4381.     dc.w    -blaw    left
  4382.     dc.w    mendep        top
  4383.     dc.w    blaw        width
  4384.     dc.w    mendep        height
  4385. poich5    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  4386.     dc.l    $ffef        mutual exclude
  4387.     dc.l    subnameo5    item fill
  4388.     dc.l    0        select fill
  4389.     dc.b    0        command
  4390.     dc.l    0        sub item
  4391.     dc.w    0        next select
  4392.  
  4393.     cnop    0,2        align
  4394.     
  4395. subnameo5 dc.b    0        front pen    
  4396.     dc.b    1        back pen
  4397.     dc.b    RP_JAM1        draw mode
  4398.     dc.w    CHECKWIDTH    left 
  4399.     dc.w    2        top
  4400.     dc.l    0        font
  4401.     dc.l    subtexto5    text
  4402.     dc.l    0        next text
  4403.  
  4404. subtexto5 dc.b    '30 ',0
  4405.  
  4406.  
  4407. subo6    dc.l    0        next menu item    
  4408.     dc.w    -blaw        left
  4409.     dc.w    mendep*2    top
  4410.     dc.w    blaw        width
  4411.     dc.w    mendep        height
  4412. poich6    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  4413.     dc.l    $ffdf        mutual exclude
  4414.     dc.l    subnameo6    item fill
  4415.     dc.l    0        select fill
  4416.     dc.b    0        command
  4417.     dc.l    0        sub item
  4418.     dc.w    0        next select
  4419.  
  4420.     cnop    0,2        align
  4421.     
  4422. subnameo6 dc.b    0        front pen    
  4423.     dc.b    1        back pen
  4424.     dc.b    RP_JAM1        draw mode
  4425.     dc.w    CHECKWIDTH    left 
  4426.     dc.w    2        top
  4427.     dc.l    0        font
  4428.     dc.l    subtexto6    text
  4429.     dc.l    0        next text
  4430.  
  4431. subtexto6 dc.b    '40 ',0
  4432.  
  4433.  
  4434.  
  4435. menuitem7 dc.l    menuitem8    next menu item    
  4436.     dc.w    -110        left
  4437.     dc.w    mendep*7    top
  4438.     dc.w    mainw        width
  4439.     dc.w    mendep        height
  4440.     dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP    flags
  4441.     dc.l    0        mutual exclude
  4442.     dc.l    itemname7    item fill
  4443.     dc.l    0        select fill
  4444.     dc.b    0        command
  4445.     dc.l    subm1        sub item
  4446.     dc.w    0        next select
  4447.  
  4448.     cnop    0,2        align
  4449.     
  4450. itemname7 dc.b    0        front pen    
  4451.     dc.b    1        back pen
  4452.     dc.b    RP_JAM1        draw mode
  4453.     dc.w    2        left 
  4454.     dc.w    2        top
  4455.     dc.l    0        font
  4456.     dc.l    itext7        text
  4457.     dc.l    0        next text
  4458.  
  4459. itext7 dc.b    ' Mouse Speed   ',0
  4460.  
  4461.  
  4462. subm1    dc.l    subm2        next menu item    
  4463.     dc.w    -2*blaw        left
  4464.     dc.w    0        top
  4465.     dc.w    blaw        width
  4466.     dc.w    mendep        height
  4467. mouch1    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  4468.     dc.l    $fffe        mutual exclude
  4469.     dc.l    subnamem1    item fill
  4470.     dc.l    0        select fill
  4471.     dc.b    0        command
  4472.     dc.l    0        sub item
  4473.     dc.w    0        next select
  4474.  
  4475.     cnop    0,2        align
  4476.     
  4477. subnamem1 dc.b    0        front pen    
  4478.     dc.b    1        back pen
  4479.     dc.b    RP_JAM1        draw mode
  4480.     dc.w    CHECKWIDTH    left 
  4481.     dc.w    2        top
  4482.     dc.l    0        font
  4483.     dc.l    subtextm1    text
  4484.     dc.l    0        next text
  4485.  
  4486. subtextm1 dc.b    '1   ',0
  4487.  
  4488.  
  4489. subm2    dc.l    subm3        next menu item    
  4490.     dc.w    -2*blaw        left
  4491.     dc.w    mendep        top
  4492.     dc.w    blaw        width
  4493.     dc.w    mendep        height
  4494. mouch2    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  4495.     dc.l    $fffd        mutual exclude
  4496.     dc.l    subnamem2    item fill
  4497.     dc.l    0        select fill
  4498.     dc.b    0        command
  4499.     dc.l    0        sub item
  4500.     dc.w    0        next select
  4501.  
  4502.     cnop    0,2        align
  4503.     
  4504. subnamem2 dc.b    0        front pen    
  4505.     dc.b    1        back pen
  4506.     dc.b    RP_JAM1        draw mode
  4507.     dc.w    CHECKWIDTH    left 
  4508.     dc.w    2        top
  4509.     dc.l    0        font
  4510.     dc.l    subtextm2    text
  4511.     dc.l    0        next text
  4512.  
  4513. subtextm2 dc.b    '2  ',0
  4514.  
  4515. subm3    dc.l    subm4        next menu item    
  4516.     dc.w    -2*blaw        left
  4517.     dc.w    mendep*2    top
  4518.     dc.w    blaw        width
  4519.     dc.w    mendep        height
  4520. mouch3    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  4521.     dc.l    $fffb        mutual exclude
  4522.     dc.l    subnamem3    item fill
  4523.     dc.l    0        select fill
  4524.     dc.b    0        command
  4525.     dc.l    0        sub item
  4526.     dc.w    0        next select
  4527.  
  4528.     cnop    0,2        align
  4529.     
  4530. subnamem3 dc.b    0        front pen    
  4531.     dc.b    1        back pen
  4532.     dc.b    RP_JAM1        draw mode
  4533.     dc.w    CHECKWIDTH    left 
  4534.     dc.w    2        top
  4535.     dc.l    0        font
  4536.     dc.l    subtextm3    text
  4537.     dc.l    0        next text
  4538.  
  4539. subtextm3 dc.b    '3  ',0
  4540.  
  4541.  
  4542. subm4    dc.l    subm5        next menu item    
  4543.     dc.w    -blaw    left
  4544.     dc.w    0        top
  4545.     dc.w    blaw        width
  4546.     dc.w    mendep        height
  4547. mouch4    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  4548.     dc.l    $fff7        mutual exclude
  4549.     dc.l    subnamem4    item fill
  4550.     dc.l    0        select fill
  4551.     dc.b    0        command
  4552.     dc.l    0        sub item
  4553.     dc.w    0        next select
  4554.  
  4555.     cnop    0,2        align
  4556.     
  4557. subnamem4 dc.b    0        front pen    
  4558.     dc.b    1        back pen
  4559.     dc.b    RP_JAM1        draw mode
  4560.     dc.w    CHECKWIDTH    left 
  4561.     dc.w    2        top
  4562.     dc.l    0        font
  4563.     dc.l    subtextm4    text
  4564.     dc.l    0        next text
  4565.  
  4566. subtextm4 dc.b    '4  ',0
  4567.  
  4568.  
  4569. subm5    dc.l    subm6        next menu item    
  4570.     dc.w    -blaw    left
  4571.     dc.w    mendep        top
  4572.     dc.w    blaw        width
  4573.     dc.w    mendep        height
  4574. mouch5    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  4575.     dc.l    $ffef        mutual exclude
  4576.     dc.l    subnamem5    item fill
  4577.     dc.l    0        select fill
  4578.     dc.b    0        command
  4579.     dc.l    0        sub item
  4580.     dc.w    0        next select
  4581.  
  4582.     cnop    0,2        align
  4583.     
  4584. subnamem5 dc.b    0        front pen    
  4585.     dc.b    1        back pen
  4586.     dc.b    RP_JAM1        draw mode
  4587.     dc.w    CHECKWIDTH    left 
  4588.     dc.w    2        top
  4589.     dc.l    0        font
  4590.     dc.l    subtextm5    text
  4591.     dc.l    0        next text
  4592.  
  4593. subtextm5 dc.b    '5  ',0
  4594.  
  4595.  
  4596. subm6    dc.l    0        next menu item    
  4597.     dc.w    -blaw    left
  4598.     dc.w    mendep*2    top
  4599.     dc.w    blaw        width
  4600.     dc.w    mendep        height
  4601. mouch6    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  4602.     dc.l    $ffdf        mutual exclude
  4603.     dc.l    subnamem6    item fill
  4604.     dc.l    0        select fill
  4605.     dc.b    0        command
  4606.     dc.l    0        sub item
  4607.     dc.w    0        next select
  4608.  
  4609.     cnop    0,2        align
  4610.     
  4611. subnamem6 dc.b    0        front pen    
  4612.     dc.b    1        back pen
  4613.     dc.b    RP_JAM1        draw mode
  4614.     dc.w    CHECKWIDTH    left 
  4615.     dc.w    2        top
  4616.     dc.l    0        font
  4617.     dc.l    subtextm6    text
  4618.     dc.l    0        next text
  4619.  
  4620. subtextm6 dc.b    '6  ',0
  4621.  
  4622.  
  4623. menuitem8 dc.l    menuitem9     next menu item    
  4624.     dc.w    -110        left
  4625.     dc.w    mendep*8    top
  4626.     dc.w    mainw        width
  4627.     dc.w    mendep        height
  4628. frontcheck dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  4629.     dc.l    0        mutual exclude
  4630.     dc.l    itemname8    item fill
  4631.     dc.l    0        select fill
  4632.     dc.b    0        command
  4633.     dc.l    subf1        sub item
  4634.     dc.w    0        next select
  4635.  
  4636.     cnop    0,2        align
  4637.     
  4638. itemname8 dc.b    0        front pen    
  4639.     dc.b    1        back pen
  4640.     dc.b    RP_JAM1        draw mode
  4641.     dc.w    2        left 
  4642.     dc.w    2        top
  4643.     dc.l    0        font
  4644.     dc.l    itext8        text
  4645.     dc.l    0        next text
  4646.  
  4647. itext8 dc.b    ' Click to Front',0
  4648.  
  4649. frontf    equ    70+CHECKWIDTH    
  4650.     
  4651. subf1    dc.l    subf2        next menu item    
  4652.     dc.w    -frontf        left
  4653.     dc.w    0        top
  4654.     dc.w    frontf        width
  4655.     dc.w    mendep        height
  4656. frontf1    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  4657.     dc.l    $fe        mutual exclude
  4658.     dc.l    subenamef1    item fill
  4659.     dc.l    0        select fill
  4660.     dc.b    0        command
  4661.     dc.l    0        sub item
  4662.     dc.w    0        next select
  4663.  
  4664.  
  4665.     cnop    0,2        align
  4666.     
  4667. subenamef1 dc.b    0        front pen    
  4668.     dc.b    1        back pen
  4669.     dc.b    RP_JAM1        draw mode
  4670.     dc.w    CHECKWIDTH    left 
  4671.     dc.w    2        top
  4672.     dc.l    0        font
  4673.     dc.l    subtextf1    text
  4674.     dc.l    0        next text
  4675.  
  4676. subtextf1 dc.b    'OFF     ',0
  4677.  
  4678.     
  4679. subf2    dc.l    subf3        next menu item    
  4680.     dc.w    -frontf        left
  4681.     dc.w    mendep        top
  4682.     dc.w    frontf        width
  4683.     dc.w    mendep        height
  4684. frontf2    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  4685.     dc.l    $fd        mutual exclude
  4686.     dc.l    subenamef2    item fill
  4687.     dc.l    0        select fill
  4688.     dc.b    0        command
  4689.     dc.l    0        sub item
  4690.     dc.w    0        next select
  4691.  
  4692.     cnop    0,2        align
  4693.     
  4694. subenamef2 dc.b    0        front pen    
  4695.     dc.b    1        back pen
  4696.     dc.b    RP_JAM1        draw mode
  4697.     dc.w    CHECKWIDTH    left 
  4698.     dc.w    2        top
  4699.     dc.l    0        font
  4700.     dc.l    subtextf2    text
  4701.     dc.l    0        next text
  4702.  
  4703. subtextf2 dc.b    '1 Click ',0
  4704.  
  4705.     
  4706. subf3    dc.l    subf4        next menu item    
  4707.     dc.w    -frontf        left
  4708.     dc.w    mendep*2    top
  4709.     dc.w    frontf        width
  4710.     dc.w    mendep        height
  4711. frontf3    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  4712.     dc.l    $fb        mutual exclude
  4713.     dc.l    subenamef3    item fill
  4714.     dc.l    0        select fill
  4715.     dc.b    0        command
  4716.     dc.l    0        sub item
  4717.     dc.w    0        next select
  4718.  
  4719.     cnop    0,2        align
  4720.     
  4721. subenamef3 dc.b    0        front pen    
  4722.     dc.b    1        back pen
  4723.     dc.b    RP_JAM1        draw mode
  4724.     dc.w    CHECKWIDTH    left 
  4725.     dc.w    2        top
  4726.     dc.l    0        font
  4727.     dc.l    subtextf3    text
  4728.     dc.l    0        next text
  4729.  
  4730. subtextf3 dc.b    '2 Clicks',0
  4731.  
  4732.     
  4733. subf4    dc.l    0        next menu item    
  4734.     dc.w    -frontf        left
  4735.     dc.w    mendep*3    top
  4736.     dc.w    frontf        width
  4737.     dc.w    mendep        height
  4738. frontf4    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT flags
  4739.     dc.l    $f7        mutual exclude
  4740.     dc.l    subenamef4    item fill
  4741.     dc.l    0        select fill
  4742.     dc.b    0        command
  4743.     dc.l    0        sub item
  4744.     dc.w    0        next select
  4745.  
  4746.     cnop    0,2        align
  4747.     
  4748. subenamef4 dc.b    0        front pen    
  4749.     dc.b    1        back pen
  4750.     dc.b    RP_JAM1        draw mode
  4751.     dc.w    CHECKWIDTH    left 
  4752.     dc.w    2        top
  4753.     dc.l    0        font
  4754.     dc.l    subtextf4    text
  4755.     dc.l    0        next text
  4756.  
  4757. subtextf4 dc.b    '3 Clicks',0
  4758.  
  4759.  
  4760.  
  4761. menuitem9 dc.l    menuitem10     next menu item    
  4762.     dc.w    -110        left
  4763.     dc.w    mendep*9    top
  4764.     dc.w    mainw        width
  4765.     dc.w    mendep        height
  4766. backcheck dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  4767.     dc.l    0        mutual exclude
  4768.     dc.l    itemname9    item fill
  4769.     dc.l    0        select fill
  4770.     dc.b    0        command
  4771.     dc.l    subu1        sub item
  4772.     dc.w    0        next select
  4773.  
  4774.     cnop    0,2        align
  4775.     
  4776. itemname9 dc.b    0        front pen    
  4777.     dc.b    1        back pen
  4778.     dc.b    RP_JAM1        draw mode
  4779.     dc.w    2        left 
  4780.     dc.w    2        top
  4781.     dc.l    0        font
  4782.     dc.l    itext9        text
  4783.     dc.l    0        next text
  4784.  
  4785. itext9 dc.b    ' Click to Back  ',0
  4786.  
  4787.  
  4788. backf    equ    70+CHECKWIDTH    
  4789.     
  4790. subu1    dc.l    subu2        next menu item    
  4791.     dc.w    -backf        left
  4792.     dc.w    0        top
  4793.     dc.w    backf        width
  4794.     dc.w    mendep        height
  4795. backf1    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  4796.     dc.l    $fe        mutual exclude
  4797.     dc.l    subenameu1    item fill
  4798.     dc.l    0        select fill
  4799.     dc.b    0        command
  4800.     dc.l    0        sub item
  4801.     dc.w    0        next select
  4802.  
  4803.  
  4804.     cnop    0,2        align
  4805.     
  4806. subenameu1 dc.b    0        front pen    
  4807.     dc.b    1        back pen
  4808.     dc.b    RP_JAM1        draw mode
  4809.     dc.w    CHECKWIDTH    left 
  4810.     dc.w    2        top
  4811.     dc.l    0        font
  4812.     dc.l    subtextu1    text
  4813.     dc.l    0        next text
  4814.  
  4815. subtextu1 dc.b    'OFF     ',0
  4816.  
  4817.     
  4818. subu2    dc.l    subu3        next menu item    
  4819.     dc.w    -backf        left
  4820.     dc.w    mendep        top
  4821.     dc.w    backf        width
  4822.     dc.w    mendep        height
  4823. backf2    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  4824.     dc.l    $fd        mutual exclude
  4825.     dc.l    subenameu2    item fill
  4826.     dc.l    0        select fill
  4827.     dc.b    0        command
  4828.     dc.l    0        sub item
  4829.     dc.w    0        next select
  4830.  
  4831.     cnop    0,2        align
  4832.     
  4833. subenameu2 dc.b    0        front pen    
  4834.     dc.b    1        back pen
  4835.     dc.b    RP_JAM1        draw mode
  4836.     dc.w    CHECKWIDTH    left 
  4837.     dc.w    2        top
  4838.     dc.l    0        font
  4839.     dc.l    subtextu2    text
  4840.     dc.l    0        next text
  4841.  
  4842. subtextu2 dc.b    '1 Click ',0
  4843.  
  4844.     
  4845. subu3    dc.l    subu4        next menu item    
  4846.     dc.w    -backf        left
  4847.     dc.w    mendep*2    top
  4848.     dc.w    backf        width
  4849.     dc.w    mendep        height
  4850. backf3    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT    flags
  4851.     dc.l    $fb        mutual exclude
  4852.     dc.l    subenameu3    item fill
  4853.     dc.l    0        select fill
  4854.     dc.b    0        command
  4855.     dc.l    0        sub item
  4856.     dc.w    0        next select
  4857.  
  4858.     cnop    0,2        align
  4859.     
  4860. subenameu3 dc.b    0        front pen    
  4861.     dc.b    1        back pen
  4862.     dc.b    RP_JAM1        draw mode
  4863.     dc.w    CHECKWIDTH    left 
  4864.     dc.w    2        top
  4865.     dc.l    0        font
  4866.     dc.l    subtextu3    text
  4867.     dc.l    0        next text
  4868.  
  4869. subtextu3 dc.b    '2 Clicks',0
  4870.  
  4871.     
  4872. subu4    dc.l    0        next menu item    
  4873.     dc.w    -backf        left
  4874.     dc.w    mendep*3    top
  4875.     dc.w    backf        width
  4876.     dc.w    mendep        height
  4877. backf4    dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT flags
  4878.     dc.l    $f7        mutual exclude
  4879.     dc.l    subenameu4    item fill
  4880.     dc.l    0        select fill
  4881.     dc.b    0        command
  4882.     dc.l    0        sub item
  4883.     dc.w    0        next select
  4884.  
  4885.     cnop    0,2        align
  4886.     
  4887. subenameu4 dc.b    0        front pen    
  4888.     dc.b    1        back pen
  4889.     dc.b    RP_JAM1        draw mode
  4890.     dc.w    CHECKWIDTH    left 
  4891.     dc.w    2        top
  4892.     dc.l    0        font
  4893.     dc.l    subtextu4    text
  4894.     dc.l    0        next text
  4895.  
  4896. subtextu4 dc.b    '3 Clicks',0
  4897.  
  4898.  
  4899. menuitem10 dc.l    menuitem11    next menu item    
  4900.     dc.w    mainw-110    left
  4901.     dc.w    mendep*0    top
  4902.     dc.w    mainw        width
  4903.     dc.w    mendep        height
  4904. suncheck dc.w   ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT+MENUTOGGLE    flags
  4905.     dc.l    0        mutual exclude
  4906.     dc.l    itemname10    item fill
  4907.     dc.l    0        select fill
  4908.     dc.b    0        command
  4909.     dc.l    0        sub item
  4910.     dc.w    0        next select
  4911.  
  4912.     cnop    0,2        align
  4913.     
  4914. itemname10 dc.b    0        front pen    
  4915.     dc.b    1        back pen
  4916.     dc.b    RP_JAM1        draw mode
  4917.     dc.w    CHECKWIDTH
  4918.     dc.w    2        top
  4919.     dc.l    0        font
  4920.     dc.l    itext10        text
  4921.     dc.l    0        next text
  4922.  
  4923. itext10 dc.b    ' Sun Mouse     ',0
  4924.  
  4925.  
  4926.  
  4927. menuitem11 dc.l    menuitem12    next menu item    
  4928.     dc.w    mainw-110        left
  4929.     dc.w    mendep*1    top
  4930.     dc.w    mainw        width
  4931.     dc.w    mendep        height
  4932. cyclecheck dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT+MENUTOGGLE    flags
  4933.     dc.l    0        mutual exclude
  4934.     dc.l    itemname11    item fill
  4935.     dc.l    0        select fill
  4936.     dc.b    0        command
  4937.     dc.l    0        sub item
  4938.     dc.w    0        next select
  4939.  
  4940.     cnop    0,2        align
  4941.     
  4942. itemname11 dc.b    0        front pen    
  4943.     dc.b    1        back pen
  4944.     dc.b    RP_JAM1        draw mode
  4945.     dc.w    CHECKWIDTH    left 
  4946.     dc.w    2        top
  4947.     dc.l    0        font
  4948.     dc.l    itext11        text
  4949.     dc.l    0        next text
  4950.  
  4951. itext11 dc.b    ' Screen Cycle  ',0
  4952.  
  4953.  
  4954. menuitem12 dc.l    menuitem13    next menu item    
  4955.     dc.w    mainw-110        left
  4956.     dc.w    mendep*2    top
  4957.     dc.w    mainw        width
  4958.     dc.w    mendep        height
  4959. keycheck dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT+MENUTOGGLE    flags
  4960.     dc.l    0        mutual exclude
  4961.     dc.l    itemname12    item fill
  4962.     dc.l    0        select fill
  4963.     dc.b    0        command
  4964.     dc.l    0        sub item
  4965.     dc.w    0        next select
  4966.  
  4967.     cnop    0,2        align
  4968.     
  4969. itemname12 dc.b    0        front pen    
  4970.     dc.b    1        back pen
  4971.     dc.b    RP_JAM1        draw mode
  4972.     dc.w    CHECKWIDTH    left 
  4973.     dc.w    2        top
  4974.     dc.l    0        font
  4975.     dc.l    itext12        text
  4976.     dc.l    0        next text
  4977.  
  4978. itext12 dc.b    ' Key Activate  ',0
  4979.  
  4980.  
  4981. menuitem13 dc.l    menuitem14    ext menu item    
  4982.     dc.w    mainw-110        left
  4983.     dc.w    mendep*3    top
  4984.     dc.w    mainw        width
  4985.     dc.w    mendep        height
  4986. wtfcheck dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT+MENUTOGGLE    flags
  4987.     dc.l    0        mutual exclude
  4988.     dc.l    itemname13    item fill
  4989.     dc.l    0        select fill
  4990.     dc.b    0        command
  4991.     dc.l    0        sub item
  4992.     dc.w    0        next select
  4993.  
  4994.     cnop    0,2        align
  4995.     
  4996. itemname13 dc.b    0        front pen    
  4997.     dc.b    1        back pen
  4998.     dc.b    RP_JAM1        draw mode
  4999.     dc.w    CHECKWIDTH    left 
  5000.     dc.w    2        top
  5001.     dc.l    0        font
  5002.     dc.l    itext13        text
  5003.     dc.l    0        next text
  5004.  
  5005. itext13 dc.b    ' Pop to Front  ',0
  5006.  
  5007. menuitem14 dc.l    menuitem15    ext menu item    
  5008.     dc.w    mainw-110        left
  5009.     dc.w    mendep*4    top
  5010.     dc.w    mainw        width
  5011.     dc.w    mendep        height
  5012. mapcheck dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP+CHECKIT+MENUTOGGLE    flags
  5013.     dc.l    0        mutual exclude
  5014.     dc.l    itemname14    item fill
  5015.     dc.l    0        select fill
  5016.     dc.b    0        command
  5017.     dc.l    0        sub item
  5018.     dc.w    0        next select
  5019.  
  5020.     cnop    0,2        align
  5021.     
  5022. itemname14 dc.b    0        front pen    
  5023.     dc.b    1        back pen
  5024.     dc.b    RP_JAM1        draw mode
  5025.     dc.w    CHECKWIDTH    left 
  5026.     dc.w    2        top
  5027.     dc.l    0        font
  5028.     dc.l    itext14        text
  5029.     dc.l    0        next text
  5030.  
  5031. itext14 dc.b    ' Map Keys      ',0
  5032.  
  5033.  
  5034.  
  5035. menuitem15 dc.l    menuitems    next menu item    
  5036.     dc.w    mainw-110        left
  5037.     dc.w    mendep*5    top
  5038.     dc.w    mainw        width
  5039.     dc.w    mendep        height
  5040.      dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP        flags
  5041.     dc.l    0        mutual exclude
  5042.     dc.l    itemname15    item fill
  5043.     dc.l    0        select fill
  5044.     dc.b    0        command
  5045.     dc.l    0        sub item
  5046.     dc.w    0        next select
  5047.  
  5048.     cnop    0,2        align
  5049.     
  5050. itemname15 dc.b    0        front pen    
  5051.     dc.b    1        back pen
  5052.     dc.b    RP_JAM1        draw mode
  5053.     dc.w    0        left 
  5054.     dc.w    2        top
  5055.     dc.l    0        font
  5056.     dc.l    itext15        text
  5057.     dc.l    0        next text
  5058.  
  5059. itext15 dc.b    ' Load keys     ',0
  5060.  
  5061.     
  5062. menuitems dc.l    menuitemq        next menu item    
  5063.     dc.w    mainw-110        left
  5064.     dc.w    mendep*6    top
  5065.     dc.w    mainw        width
  5066.     dc.w    mendep        height
  5067.     dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP    flags
  5068.     dc.l    0        mutual exclude
  5069.     dc.l    itemnames    item fill
  5070.     dc.l    0        select fill
  5071.     dc.b    0        command
  5072.     dc.l    0        sub item
  5073.     dc.w    0        next select
  5074.  
  5075.     cnop    0,2        align
  5076.     
  5077. itemnames dc.b    0        front pen    
  5078.     dc.b    1        back pen
  5079.     dc.b    RP_JAM1        draw mode
  5080.     dc.w    2        left 
  5081.     dc.w    2        top
  5082.     dc.l    0        font
  5083.     dc.l    itexts        text
  5084.     dc.l    0        next text
  5085.  
  5086. itexts dc.b    ' Save          ',0
  5087.  
  5088.  
  5089. menuitemq dc.l    menuitemc        next menu item    
  5090.     dc.w    mainw-110    left
  5091.     dc.w    mendep*7    top
  5092.     dc.w    mainw        width
  5093.     dc.w    mendep        height
  5094.     dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP    flags
  5095.     dc.l    0        mutual exclude
  5096.     dc.l    itemnameq    item fill
  5097.     dc.l    0        select fill
  5098.     dc.b    0        command
  5099.     dc.l    0        sub item
  5100.     dc.w    0        next select
  5101.  
  5102.     cnop    0,2        align
  5103.     
  5104. itemnameq dc.b    0        front pen    
  5105.     dc.b    1        back pen
  5106.     dc.b    RP_JAM1        draw mode
  5107.     dc.w    2        left 
  5108.     dc.w    2        top
  5109.     dc.l    0        font
  5110.     dc.l    itextq        text
  5111.     dc.l    0        next text
  5112.  
  5113. itextq    dc.b    ' Quit          ',0
  5114.  
  5115.         
  5116. menuitemc dc.l    0        next menu item    
  5117.     dc.w    mainw-110        left
  5118.     dc.w    mendep*8    top
  5119.     dc.w    mainw        width
  5120.     dc.w    mendep        height
  5121.     dc.w    ITEMTEXT+ITEMENABLED+HIGHNONE    flags
  5122.     dc.l    0        mutual exclude
  5123.     dc.l    itemnamec    item fill
  5124.     dc.l    0        select fill
  5125.     dc.b    0        command
  5126.     dc.l    subcredit    sub item
  5127.     dc.w    0        next select
  5128.  
  5129.     cnop    0,2        align
  5130.     
  5131. itemnamec dc.b    0        front pen    
  5132.     dc.b    1        back pen
  5133.     dc.b    RP_JAM1        draw mode
  5134.     dc.w    2        left 
  5135.     dc.w    2        top
  5136.     dc.l    0        font
  5137.     dc.l    itextc        text
  5138.     dc.l    0        next text
  5139.  
  5140. itextc    dc.b    ' Credits       ',0
  5141.     
  5142. subcredit dc.l    s2credit    next menu item    
  5143.     dc.w    15        left
  5144.     dc.w    2+mendep    top
  5145.     dc.w    subcrtextl    width
  5146.     dc.w    mendep        height
  5147.     dc.w    ITEMTEXT+ITEMENABLED+HIGHNONE  flags
  5148.     dc.l    0        mutual exclude
  5149.     dc.l    subcreditm    item fill
  5150.     dc.l    0        select fill
  5151.     dc.b    0        command
  5152.     dc.l    0        sub item
  5153.     dc.w    0        next select
  5154.  
  5155.     cnop    0,2        align
  5156.     
  5157. subcreditm dc.b    3        front pen    
  5158.     dc.b    0        back pen
  5159.     dc.b    RP_JAM1        draw mode
  5160.     dc.w    2        left 
  5161.     dc.w    2        top
  5162.     dc.l    0        font
  5163.     dc.l    subcrtext    text
  5164.     dc.l    0        next text
  5165.  
  5166.  
  5167. s2credit dc.l    0        next menu item    
  5168.     dc.w    15        left
  5169.     dc.w    2+mendep*2    top
  5170.     dc.w    subcrtextl        width
  5171.     dc.w    mendep        height
  5172.     dc.w    ITEMTEXT+ITEMENABLED+HIGHNONE  flags
  5173.     dc.l    0        mutual exclude
  5174.     dc.l    subcredit2    item fill
  5175.     dc.l    0        select fill
  5176.     dc.b    0        command
  5177.     dc.l    0        sub item
  5178.     dc.w    0        next select
  5179.  
  5180.     cnop    0,2        align
  5181.     
  5182. subcredit2 dc.b    2        front pen    
  5183.     dc.b    0        back pen
  5184.     dc.b    RP_JAM1        draw mode
  5185.     dc.w    2        left 
  5186.     dc.w    2        top
  5187.     dc.l    0        font
  5188.     dc.l    s2text    text
  5189.     dc.l    0        next text
  5190.  
  5191.     cnop    0,2
  5192. subcrtext dc.b    ' David Jenkins ',0
  5193. subcrtextl equ    *-subcrtext-1
  5194.     cnop    0,2
  5195. s2text    dc.b    '    ',$a9,' 1988     ',0
  5196.  
  5197. newref    dc.l    100000,200000,500000,999999 other refresh rates
  5198. newblank dc.w    0,300,600,1200,1800,2400   screen blank time
  5199. newpoint dc.w    0,5,10,20,30,40           pointer blank time
  5200. newmouse dc.b    0,1,2,3,4,5           mouse speeds
  5201. priindex dc.l    prich1,prich2,prich3,prich4,prich5,prich6,prich7,prich8
  5202. mousecheck dc.l mouch1,mouch2,mouch3,mouch4,mouch5,mouch6
  5203. frontcheckr dc.l frontf1,frontf2,frontf3,frontf4
  5204. backcheckr dc.l backf1,backf2,backf3,backf4
  5205. blankcheckr dc.l blach1,blach2,blach3,blach4,blach5,blach6
  5206. pointcheckr dc.l poich1,poich2,poich3,poich4,poich5,poich6
  5207. ************   words  *********************************
  5208.  
  5209. seconds    dc.w    0
  5210. newminutes dc.w    0
  5211. oldminutes dc.w 0
  5212. newcol    dc.w    $0001,$0201,$0301,$0100,$0200,$0300,$0002,$0102,$0302
  5213.     dc.w    $0003,$0103,$0203
  5214.  
  5215. ************  bytes + bits and pieces **********
  5216.  
  5217. tim    dc.b    'tim'
  5218. dat    dc.b    'dat'
  5219.     cnop    0,2
  5220. layersname dc.b    'layers.library',0
  5221.     cnop    0,2
  5222. menu0name dc.b    'ClockDJ',0
  5223.     cnop    0,2
  5224. savefile dc.b    'sys:clockdj.config',0
  5225.     cnop    0,2
  5226. keyfilebuf    equ    *
  5227. keyfile dc.b    'sys:clockdj.keys',0
  5228.     dcb.b    64,0
  5229.     cnop    0,2
  5230. TimerPortName:
  5231.     DC.B    'timer',0
  5232.     cnop    0,2
  5233. TimerName:
  5234.     DC.B    'timer.device',0,0
  5235.     cnop    0,2
  5236. IntuitionName:
  5237.     DC.B    'intuition.library',0
  5238. endmsg    dc.b    0
  5239. oldsecs    dc.b    0
  5240.     cnop    0,2
  5241. dosname    dc.b    'dos.library',0
  5242.     cnop    0,2
  5243. graphicsname
  5244.     dc.b    'graphics.library',0
  5245. code1    dc.w    0
  5246. newcli    dc.b    'newcli >nil: <nil: "con:0/150/640/50/ clockdj "',0
  5247. newrest    dcb.b    81-(*-newcli),0    
  5248. nilname    dc.b    'nil:',0
  5249. memtot    equ    0
  5250. newpri    dc.b    -3,-2,-1,0,1,2,3,4
  5251. owsw    dc.b    0
  5252.         CNOP    0,2
  5253.  
  5254. inputname    dc.b    'input.device',0
  5255.         cnop    0,2
  5256. inputportname    dc.b    'input.portdj',0        
  5257.         cnop    0,2
  5258. IntName        DC.B    'input handler DJ',0
  5259.         CNOP    0,2
  5260.  
  5261.  
  5262. **********  IntuiText structures ****************
  5263.  
  5264.     cnop    0,2            align
  5265. Date_Text:
  5266.     DC.B    0,1,1,0
  5267.     DC.W    0,0
  5268.     DC.L    0,totmsg,0
  5269.  
  5270.  
  5271.     cnop    0,2            align
  5272.  
  5273. ouch    DC.B    3,0,1,0
  5274.     DC.W    0,0
  5275.     DC.L    0,ouchmsg,0
  5276.     cnop    0,2
  5277. ouchmsg    dc.b    'OUCH!',0        for Steve the Awkward
  5278.  
  5279.     cnop    0,2            align
  5280. keyerrortext
  5281.     DC.B    3,0,0,0
  5282.     DC.W    8,10
  5283.     DC.L    0,keyermsg,keyerrortext2
  5284.     
  5285.     cnop    0,2
  5286. keyermsg
  5287.     dc.b    'Error in key definitions.',0        
  5288.     cnop    0,2            align
  5289. keyerrortext2
  5290.     DC.B    3,0,0,0
  5291.     DC.W    8,20
  5292.     DC.L    0,keyermsg2,0
  5293.     
  5294.     cnop    0,2
  5295. keyermsg2
  5296.     dc.b    'Statement number '        
  5297. statement
  5298.     dc.b    '  ',0
  5299.  
  5300.     cnop    0,2            align
  5301. fileerrortext
  5302.     DC.B    3,0,0,0
  5303.     DC.W    8,10
  5304.     DC.L    0,fileermsg,0
  5305.     
  5306.     cnop    0,2
  5307. fileermsg
  5308.     dc.b    'File not found.',0        
  5309.  
  5310.     cnop    0,2            align
  5311.  
  5312. oktext    DC.B    2,0,0,0
  5313.     DC.W    6,3
  5314.     DC.L    0,okmsg,0
  5315.     cnop    0,2
  5316. okmsg    dc.b    'OK',0        
  5317.  
  5318.  
  5319.  
  5320. ********* text for IntuiText   *************
  5321.  
  5322.     cnop    0,2            align avail
  5323. totmsg  dc.b    ' '
  5324. avail    dc.b    ' 0000K'
  5325.     dc.b    '  '            
  5326. buffer:
  5327.     dc.B    ' 00:00:00 '
  5328. ampm1    dc.b    'AM   ',0
  5329.  
  5330. *********************************************
  5331.  
  5332. ******** more text for IntuiText ************
  5333.  
  5334.     cnop    0,2            align avail
  5335.     dc.b    0
  5336. sepmsg  dc.b    ' '
  5337.     dc.b    ' Chip:'
  5338. chipavail dc.b    '0000K'
  5339.     dc.b    ' Fast:'    
  5340. fastavail dc.b    ' 0000K '    
  5341. buffer2:
  5342.     dc.B    ' 00:00:00 '
  5343. ampm2    dc.b    'AM   ',0
  5344.  
  5345. *********************************************
  5346.  
  5347. **** new screen for screen blanking
  5348.  
  5349. newscreen
  5350.  
  5351.     dc.w    0    ns_LeftEdge            ; initial Screen dimensions
  5352.         dc.w    0    ns_TopEdge             ; initial Screen dimensions
  5353.         dc.w    320    ns_Width               ; initial Screen dimensions
  5354.        dc.w     200    ns_Height              ; initial Screen dimensions
  5355.         dc.w    1    ns_Depth               ; initial Screen dimensions
  5356.         dc.b    0    ns_DetailPen           ; default rendering pens (for Windows too)
  5357.         dc.b    0    ns_BlockPen            ; default rendering pens (for Windows too)
  5358.         dc.w    0    ns_ViewModes           ; display "modes" for this Screen
  5359.         dc.w    CUSTOMSCREEN+SCREENQUIET   ns_Type Screen Type specifier
  5360.        dc.l    0    ns_Font                ; default font for Screen and Windows
  5361.         dc.l    0    ns_DefaultTitle        ; Title when Window doesn't care
  5362.         dc.l    0    ns_Gadgets             ; Your own initial Screen Gadgets
  5363.  
  5364.  
  5365. mouseevents
  5366.     dc.l     0        ie_NextEvent
  5367.     dc.b    IECLASS_RAWMOUSE ie_Class
  5368.     dc.b    0        ie_SubClass
  5369.     dc.w    IECODE_RBUTTON+IECODE_UP_PREFIX    ie_Code
  5370.     dc.w    0        ie_Qualifier
  5371.     dc.w    0        ie_X
  5372.     dc.w    0        ie_Y
  5373.     dc.l    0        tv_Seconds
  5374.     dc.l    0        tv_Micros
  5375. mouseeventsl equ *-mouseevents
  5376.  
  5377. *******  this is the save record. Keep it together!  ************
  5378. *                                    *    
  5379.     cnop    0,2                        *
  5380. diskbuffer equ     *                        *
  5381. windowleft dc.w    343                        *
  5382. windowtop dc.w    1                        *
  5383. refrate    dc.l    200000        default refresh rate        *
  5384. colours    dc.b    0,1        default colours            *
  5385. memory    dc.b    0        default total            *
  5386. priority dc.b    2                        *
  5387. pointtime    dc.w    10    default pointer blank time    *
  5388. blanktime    dc.w    600    default screen blank time     *
  5389. mousespeed    dc.b    0                    *
  5390. sunswitch    dc.b    0                    *    
  5391. wtfcount    dc.b    0                    *
  5392. wtbcount    dc.b    0                    *
  5393. cycleswitch    dc.b    0                    *
  5394. keyswitch    dc.b    0                    *
  5395. popswitch    dc.b    0
  5396. mapswitch    dc.b    0
  5397. windowheight    dc.b    7                    *
  5398. diskbufferl equ    *-diskbuffer                    *
  5399. *                                *
  5400. *****************************************************************
  5401.  
  5402. *
  5403. *
  5404. *    Raw key definitions
  5405. *
  5406. *
  5407.         cnop    0,2
  5408. rawkeys        dc.b    '`',$00        
  5409.         dc.b    '1',$01
  5410.         dc.b    '2',$02
  5411.         dc.b    '3',$03
  5412.         dc.b    '4',$04
  5413.         dc.b    '5',$05
  5414.         dc.b    '6',$06
  5415.         dc.b    '7',$07
  5416.         dc.b    '8',$08
  5417.         dc.b    '9',$09
  5418.         dc.b    '0',$0a
  5419.         dc.b    '-',$0b
  5420.         dc.b    '=',$0c
  5421.         dc.b    '\',$0d
  5422.         dc.b    'q',$10
  5423.         dc.b    'w',$11
  5424.         dc.b    'e',$12
  5425.         dc.b    'r',$13
  5426.         dc.b    't',$14
  5427.         dc.b    'y',$15
  5428.         dc.b    'u',$16
  5429.         dc.b    'i',$17
  5430.         dc.b    'o',$18
  5431.         dc.b    'p',$19
  5432.         dc.b    '[',$1a
  5433.         dc.b    ']',$1b
  5434.         dc.b    'a',$20
  5435.         dc.b    's',$21
  5436.         dc.b    'd',$22
  5437.         dc.b    'f',$23
  5438.         dc.b    'g',$24
  5439.         dc.b    'h',$25
  5440.         dc.b    'j',$26
  5441.         dc.b    'k',$27
  5442.         dc.b    'l',$28
  5443.         dc.b    ';',$29
  5444.         dc.b    '''',$2a
  5445.         dc.b    'z',$31
  5446.         dc.b    'x',$32
  5447.         dc.b    'c',$33
  5448.         dc.b    'v',$34
  5449.         dc.b    'b',$35
  5450.         dc.b    'n',$36
  5451.         dc.b    'm',$37
  5452.         dc.b    ',',$38
  5453.         dc.b    '.',$39
  5454.         dc.b    '/',$3a
  5455.         dc.b    ' ',$40
  5456.         dc.b    13,$44        cr
  5457.         dc.b    10,$44        lf
  5458.         dc.b    08,$41        bs    
  5459.         dc.b    09,$42        ht
  5460.         dc.b    27,$45        esc
  5461. rawkeysupper    dc.b    '~',$80        
  5462.         dc.b    '!',$81
  5463.         dc.b    '@',$82
  5464.         dc.b    '#',$83
  5465.         dc.b    '$',$84
  5466.         dc.b    '%',$85
  5467.         dc.b    '^',$86
  5468.         dc.b    '&',$87
  5469.         dc.b    '*',$88
  5470.         dc.b    '(',$89
  5471.         dc.b    ')',$8a
  5472.         dc.b    '_',$8b
  5473.         dc.b    '+',$8c
  5474.         dc.b    '|',$8d
  5475.         dc.b    'Q',$90
  5476.         dc.b    'W',$91
  5477.         dc.b    'E',$92
  5478.         dc.b    'R',$93
  5479.         dc.b    'T',$94
  5480.         dc.b    'Y',$95
  5481.         dc.b    'U',$96
  5482.         dc.b    'I',$97
  5483.         dc.b    'O',$98
  5484.         dc.b    'P',$99
  5485.         dc.b    '{',$9a
  5486.         dc.b    '}',$9b
  5487.         dc.b    'A',$a0
  5488.         dc.b    'S',$a1
  5489.         dc.b    'D',$a2
  5490.         dc.b    'F',$a3
  5491.         dc.b    'G',$a4
  5492.         dc.b    'H',$a5
  5493.         dc.b    'J',$a6
  5494.         dc.b    'K',$a7
  5495.         dc.b    'L',$a8
  5496.         dc.b    ':',$a9
  5497.         dc.b    '"',$aa
  5498.         dc.b    'Z',$b1
  5499.         dc.b    'X',$b2
  5500.         dc.b    'C',$b3
  5501.         dc.b    'V',$b4
  5502.         dc.b    'B',$b5
  5503.         dc.b    'N',$b6
  5504.         dc.b    'M',$b7
  5505.         dc.b    '<',$b8
  5506.         dc.b    '>',$b9
  5507.         dc.b    '?',$ba
  5508.         dc.b    $ff
  5509.         cnop    0,2
  5510.  
  5511. funnykeys    dc.b    'f01',$50
  5512.         dc.b    'f02',$51
  5513.         dc.b    'f03',$52
  5514.         dc.b    'f04',$53
  5515.         dc.b    'f05',$54
  5516.         dc.b    'f06',$55
  5517.         dc.b    'f07',$56
  5518.         dc.b    'f08',$57
  5519.         dc.b    'f09',$58
  5520.         dc.b    'f10',$59
  5521.         dc.b    'esc',$45
  5522.         dc.b    'del',$46
  5523.         dc.b    'tab',$42
  5524.         dc.b    'bsp',$41
  5525.         dc.b    'ret',$44
  5526.         dc.b    'hel',$5f
  5527.         dc.b    'kp0',$0f
  5528.         dc.b    'kp1',$1d
  5529.         dc.b    'kp2',$1e
  5530.         dc.b    'kp3',$1f
  5531.         dc.b    'kp4',$2d
  5532.         dc.b    'kp5',$2e
  5533.         dc.b    'kp6',$2f
  5534.         dc.b    'kp7',$3d
  5535.         dc.b    'kp8',$3e
  5536.         dc.b    'kp9',$3f
  5537.         dc.b    'kp-',$4a
  5538.         dc.b    'kp(',$5a
  5539.         dc.b    'kp)',$5b
  5540.         dc.b    'kp/',$5c
  5541.         dc.b    'kp*',$5d
  5542.         dc.b    'kp+',$5e
  5543.         dc.b    'ent',$43
  5544.         dc.b    'kp.',$3c
  5545.         dc.b    'upa',$4c
  5546.         dc.b    'lea',$4f
  5547.         dc.b    'ria',$4e
  5548.         dc.b    'doa',$4d
  5549.         dc.b    $ff
  5550.         
  5551.         cnop    0,2
  5552. qualifiers
  5553.         dc.b    'lsh'
  5554.         dc.w    IEQUALIFIER_LSHIFT  
  5555.         dc.b    'rsh'
  5556.         dc.w    IEQUALIFIER_RSHIFT  
  5557.         dc.b    'clo'
  5558.         dc.w    IEQUALIFIER_CAPSLOCK    
  5559.         dc.b    'ctl'
  5560.         dc.w    IEQUALIFIER_CONTROL     
  5561.         dc.b    'lal'
  5562.         dc.w    IEQUALIFIER_LALT        
  5563.         dc.b    'ral'
  5564.         dc.w    IEQUALIFIER_RALT        
  5565.         dc.b    'lam'
  5566.         dc.w    IEQUALIFIER_LCOMMAND    
  5567.         dc.b    'ram'
  5568.         dc.w    IEQUALIFIER_RCOMMAND   
  5569.         dc.b    $ff
  5570.  
  5571.  
  5572.         cnop    0,2
  5573. event        dcb.b    ie_SIZEOF,0    save area for inspection        
  5574.  
  5575.         section    data,bss
  5576. datarea    
  5577. keybuffer    ds.l    254    buffer to read key file
  5578.         cnop    0,4
  5579. inthandler    ds.b    IS_SIZE interrupt handler
  5580. inputport    ds.l    1    port address
  5581.         cnop    0,4
  5582. inputreq    ds.l    IO_SIZE
  5583. insig        ds.l    1
  5584.         cnop    0,2
  5585. pause        ds.b    IOTV_SIZE    ioreq for delay
  5586. layer        ds.l    1
  5587. layers        ds.l    1
  5588. layerinfo     ds.l    1
  5589. tswitch        ds.l    1
  5590. oldmem        ds.l    1
  5591. class        ds.l    1
  5592. intuit        ds.l    1
  5593. doslib        ds.l    1
  5594. timer        ds.l    1
  5595. totalmemory     ds.l     1
  5596. chipmemory     ds.l    1
  5597. oldchip        ds.l    1
  5598. oldfast        ds.l    1
  5599. task        ds.l    1        task pointer
  5600. wtfsecs        ds.l    2
  5601. wtbsecs        ds.l    2
  5602. wtbsecsnew    ds.l    2
  5603. frontwin    ds.l    1
  5604. backwin        ds.l    1
  5605. blankscreen    ds.l    1
  5606. spritesave    ds.l    1
  5607. spriteblank    ds.l    1
  5608. mapbuffer    ds.l    1        address of key map buffer
  5609. firstkey    ds.l    1        address of first key translate buffer
  5610. keyhandle    ds.l    1
  5611. windowkey    ds.l    1        address of key load window    
  5612. keywait        ds.l    1        wait flag    
  5613. windowpoint    ds.l    1
  5614. windowtab    ds.l    240
  5615. windowtabl    equ    *-windowtab
  5616. blanktimer    ds.w    1    
  5617. pointtimer    ds.w    1    
  5618. mouseleft    ds.b    1
  5619. mouseright    ds.b    1
  5620. action        ds.b    1
  5621. revswitch    ds.b    1
  5622. eventadd    ds.b    1
  5623. frontswitch    ds.b    1                    *
  5624. backswitch    ds.b    1                    *
  5625. blankdone    ds.b    1
  5626. pointdone    ds.b    1
  5627. lsw        ds.b    1
  5628. lalt        ds.b    1
  5629. lamiga        ds.b    1
  5630. menuswitch    ds.b    1
  5631. keysw        ds.b    1
  5632. escsw        ds.b    1
  5633. ssw        ds.b    1
  5634. undobuf        ds.b    81
  5635.  
  5636.     end
  5637.