]>
Commit | Line | Data |
---|---|---|
7c72cfe3 L |
1 | \r |
2 | public stampf\r | |
3 | \r | |
4 | maclib z180reg.inc\r | |
5 | maclib config.inc\r | |
6 | \r | |
7 | cseg\r | |
8 | stampf:\r | |
9 | dec c\r | |
10 | jr nz,f2\r | |
11 | ; c == 1: return bios version\r | |
12 | ld hl,0<<8 + 7 ;h = major, l = minor\r | |
13 | jr exit\r | |
14 | f2:\r | |
15 | dec c\r | |
16 | jr nz,f3\r | |
17 | ; c == 2: return bios id string\r | |
18 | ld hl,id\r | |
19 | jr exit\r | |
20 | f3:\r | |
21 | ld hl,0ffffh ; error\r | |
22 | exit:\r | |
23 | ld a,l\r | |
24 | ret\r | |
25 | \r | |
26 | id:\r | |
27 | db "Stamp BIOS",0\r | |
28 | \r | |
29 | end\r |