]> git.sur5r.net Git - cc65/blob - libsrc/apple2/exehdr.s
Fix comments and TELEMON uppercase
[cc65] / libsrc / apple2 / exehdr.s
1 ;
2 ; Oliver Schmidt, 2012-06-10
3 ;
4 ; This module supplies an AppleSingle version 2 file header + entry with
5 ; ID 11 according to https://tools.ietf.org/rfc/rfc1740.txt Appendix A.
6 ;
7
8         .export         __EXEHDR__ : absolute = 1       ; Linker referenced
9         .import         __FILETYPE__                    ; Linker generated
10         .import         __MAIN_START__, __MAIN_LAST__   ; Linker generated
11
12 ; ------------------------------------------------------------------------
13
14 ; Data Fork
15 ID01_LENGTH = __MAIN_LAST__ - __MAIN_START__
16 ID01_OFFSET = ID01 - START
17
18 ; ProDOS File Info
19 ID11_LENGTH = ID01 - ID11
20 ID11_OFFSET = ID11 - START
21
22 ; ------------------------------------------------------------------------
23
24         .segment        "EXEHDR"
25
26 START:  .byte           $00, $05, $16, $00                  ; Magic number
27         .byte           $00, $02, $00, $00                  ; Version number
28         .res            16                                  ; Filler
29         .byte           0, 2                                ; Number of entries
30         .byte           0, 0, 0, 1                          ; Entry ID 1 - Data Fork
31         .byte           0, 0, >ID01_OFFSET, <ID01_OFFSET    ; Offset
32         .byte           0, 0, >ID01_LENGTH, <ID01_LENGTH    ; Length
33         .byte           0, 0, 0, 11                         ; Entry ID 11 - ProDOS File Info
34         .byte           0, 0, >ID11_OFFSET, <ID11_OFFSET    ; Offset
35         .byte           0, 0, >ID11_LENGTH, <ID11_LENGTH    ; Length
36 ID11:   .byte           0, %11000011                        ; Access - Destroy, Rename, Write, Read
37         .byte           >__FILETYPE__, <__FILETYPE__        ; File Type
38         .byte           0, 0                                ; Auxiliary Type high
39         .byte           >__MAIN_START__, <__MAIN_START__    ; Auxiliary Type low
40 ID01: