Changeset 8325447 in buchla-68k for lib700


Ignore:
Timestamp:
08/07/2017 02:04:35 PM (7 years ago)
Author:
Thomas Lopatic <thomas@…>
Branches:
master
Children:
27c8d40
Parents:
84c0125
Message:

Removed _ prefix.

Location:
lib700
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • lib700/jumpto.s

    r84c0125 r8325447  
    4040                .text
    4141
    42                 .xdef   _halt,_jumpto,_rjumpto,_sjumpto,_xreset
     42                .xdef   halt,jumpto,rjumpto,sjumpto,xreset
    4343
    4444                .page
    4545
    46 _halt:          stop    #0x2700                 | stop dead, interrupts disabled
    47                 jmp     _halt                   | stay stopped if stepped thru
     46halt:           stop    #0x2700                 | stop dead, interrupts disabled
     47                jmp     halt                    | stay stopped if stepped thru
    4848
    49 _jumpto:        movea.l 4(a7),a0                | get jump address
     49jumpto:         movea.l 4(a7),a0                | get jump address
    5050                jmp     (a0)                    | go to the jump address
    5151
    52 _rjumpto:       reset                           | reset external devices
     52rjumpto:        reset                           | reset external devices
    5353                movea.l 4(a7),a0                | get jump address
    5454                jmp     (a0)                    | go to the jump address
    5555
    56 _sjumpto:       movea.l 4(a7),a0                | get jump address
     56sjumpto:        movea.l 4(a7),a0                | get jump address
    5757                movea.l 8(a7),a7                | set stack pointer
    5858                jmp     (a0)                    | go to the jump address
    5959
    60 _xreset:        reset                           | reset external devices
     60xreset:         reset                           | reset external devices
    6161                rts                             | return to caller
    6262

  • lib700/rand24.s

    r84c0125 r8325447  
    2929                .text
    3030
    31                 .xdef   _rand24
     31                .xdef   rand24
    3232
    3333                .xdef   _rseed
    … …  
    8787                .page
    8888
    89 | _rand24 -- Generate a random number
    90 | -------    ------------------------
    91 _rand24:        link    a6,#0                   | Link stack frames
     89| rand24 -- Generate a random number
     90| ------    ------------------------
     91rand24:         link    a6,#0                   | Link stack frames
    9292                tst.l   _rseed                  | See if the seed is zero
    9393                bne     rand01                  | Jump if not

  • lib700/setjmp.s

    r84c0125 r8325447  
    66                .text
    77
    8                 .xdef   _setjmp,_longjmp
     8                .xdef   setjmp,longjmp
    99
    10 _setjmp:        movea.l 4(a7),a0                | Get env pointer
     10setjmp:         movea.l 4(a7),a0                | Get env pointer
    1111                move.l  (a7),(a0)               | Put return address in env
    1212                movem.l d1-d7/a1-a7,4(a0)       | Save registers in env
    … …  
    1414                rts                             | Return to caller
    1515
    16 _longjmp:       move.w  8(a7),d0                | Get ret value
     16longjmp:        move.w  8(a7),d0                | Get ret value
    1717                bne     lj1                     | Jump if non-zero
    1818

  • lib700/uldiv.s

    r84c0125 r8325447  
    33| Version 2 -- 1987-06-08 -- D.N. Lynx Crowe
    44| Lifted from the Alcyon C library by disassembly so I could fix a bug -
    5 |       _uldivr must be in the bss segment so the code will work in PROM.
     5|       uldivr must be in the bss segment so the code will work in PROM.
    66
    77|       long
    … …  
    1919                .text
    2020
    21                 .xdef   _uldiv,_uldivr
     21                .xdef   uldiv,uldivr
    2222
    2323DIVIDEND        =       8
    2424DIVISOR         =       12
    2525
    26 _uldiv:         link    a6,#0                   | Link stack frames
     26uldiv:          link    a6,#0                   | Link stack frames
    2727                movem.l d3-d7,-(a7)             | Save registers
    2828                move.l  DIVIDEND(a6),d7         | d7 = DIVIDEND
    … …  
    3131                bne     notdzero                | Jump if not
    3232
    33                 move.l  #0x80000000,_uldivr     | Force error result
     33                move.l  #0x80000000,uldivr      | Force error result
    3434                move.l  #0x80000000,d0          | ... by dividing
    3535                divu    #0,d0                   | ... by zero
    … …  
    3939                bls     notunflo                | Jump if not
    4040
    41                 move.l  d7,_uldivr              | Remainder = dividend
     41                move.l  d7,uldivr               | Remainder = dividend
    4242                clr.l   d0                      | Quotient = 0
    4343                bra     ulexit                  | Exit
    … …  
    8181                bra     divloop3                | Loop for next bit
    8282
    83 setreslt:       move.l  d7,_uldivr              | Store remainder
     83setreslt:       move.l  d7,uldivr               | Store remainder
    8484                move.l  d5,d0                   | Put quotient in d0
    8585
    … …  
    9292                .even
    9393
    94 _uldivr:        .ds.l   1
     94uldivr:         .ds.l   1
    9595
    9696                .end
Note: See TracChangeset for help on using the changeset viewer.