Changeset 8325447 in buchla-68k for prolog


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.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • prolog/fsmain.s

    r84c0125 r8325447  
    1313                .xdef   start_
    1414
    15                 .xref   _Croot
     15                .xref   Croot
    1616
    17                 .xdef   _panic
    18                 .xdef   _brk
     17                .xdef   panic
     18                .xdef   brk
    1919
    20                 .xdef   __heap
    21                 .xdef   __break
    22                 .xdef   __pmesg
     20                .xdef   _heap
     21                .xdef   _break
     22                .xdef   _pmesg
    2323
    24                 .xdef   _errno
     24                .xdef   errno
    2525
    2626p_bbase         =       0x18            | bss base
     
    5353                move.l  p_bbase(a1),d0  | Calculate break address
    5454                add.l   p_blen(a1),d0   | ...
    55                 move.l  d0,__break      | Set initial break
    56                 move.l  d0,__heap       | Set heap start
     55                move.l  d0,_break       | Set initial break
     56                move.l  d0,_heap        | Set heap start
    5757
    5858                move.l  #0,-(a7)        | Pass NULL to Croot  (no command line)
    59                 jsr     _Croot          | call Croot() routine
     59                jsr     Croot           | call Croot() routine
    6060                addq.l  #4,a7           | ...
    6161
    6262                move.l  #pmsg1,-(a7)    | panic(pmsg1);
    63                 jsr     _panic          | ...
     63                jsr     panic           | ...
    6464                addq.l  #4,a7           | ...
    6565
     
    6969                .page
    7070
    71 | _panic -- hard halt for fatal errors
    72 | ------    --------------------------
    73 _panic:         movea.l 4(a7),a0        | Save panic message address
    74                 move.l  a0,__pmesg      | ...
     71| panic -- hard halt for fatal errors
     72| -----    --------------------------
     73panic:          movea.l 4(a7),a0        | Save panic message address
     74                move.l  a0,_pmesg       | ...
    7575
    7676                trap    #15             | Invoke ROMP  (we hope ...)
     
    8181                .page
    8282
    83 | _brk -- set break value
    84 | ----    ---------------
     83| brk -- set break value
     84| ---    ---------------
    8585| WARNING:  This only works if the stack is above the heap.
    8686
    87 _brk:           cmpa.l  __break,a7      | compare current break with stack
     87brk:            cmpa.l  _break,a7       | compare current break with stack
    8888                bcs     pstop           | actual stack overflow!
    8989
     
    9494                bcs     badbrk          |       bad break;
    9595
    96                 move.l  d0,__break      | OK break: save the break
     96                move.l  d0,_break       | OK break: save the break
    9797                clr.l   d0              | Set OK return
    9898                rts                     | return
     
    118118                .even
    119119
    120 __pmesg:        .ds.l   1       | panic() message string address
    121 __heap:         .ds.l   1       | Heap start  (initial break)
    122 __break:        .ds.l   1       | Current break location
    123 _errno:         .ds.w   1       | System error number
     120_pmesg:         .ds.l   1       | panic() message string address
     121_heap:          .ds.l   1       | Heap start  (initial break)
     122_break:         .ds.l   1       | Current break location
     123errno:          .ds.w   1       | System error number
    124124
    125125        .end
Note: See TracChangeset for help on using the changeset viewer.