ChezLispMachine/ipl.asm at master · guenchi/ChezLispMachine · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
CYLS    equ     10

        org     0x7c00

        jmp     entry

        db      0x90
        db      "LispMach"
        dw      512
        db      1
        dw      1
        db      2
        dw      224
        dw      2880
        db      0xf0
        dw      9
        dw      18
        dw      2
        dd      0
        dd      2880
        db      0, 0, 0x29
        dd      0xffffffff
        db      "ChezLispMach"
        db      "FAT12   "
        times   18 db 0

entry:

        mov     ax, 0
        mov     ss, ax
        mov     sp, 0x7c00
        mov     ds, ax

        mov     ax, 0x0820
        mov     es, ax
        mov     ch, 0
        mov     dh, 0
        mov     cl, 2
readloop:
        mov     si, 0
retry:
        mov     ah, 0x02
        mov     al, 1
        mov     bx, 0
        mov     dl, 0x00
        int     0x13
        jnc     next
        add     si, 1
        cmp     si, 5
        jae     error
        mov     ah, 0x00
        mov     dl, 0x00
        int     0x13
        jmp     retry
next:
        mov     ax, es
        add     ax, 0x0020
        mov     es, ax
        add     cl, 1
        cmp     cl, 18
        jbe     readloop
        mov     cl, 1
        add     dh, 1
        cmp     dh, 2
        jb      readloop
        mov     dh, 0
        add     ch, 1
        cmp     ch, CYLS
        jb      readloop

        mov    [0x0ff0], ch
        jmp     0xc200


print:

        mov     al, [si]
        add     si, 1
        cmp     al, 0
        je      end
        mov     AH, 0x0e
        mov     bx, 15
        int     0x10
        jmp     print

end:

        hlt
        jmp     end

error:
        mov     si, errormsg

errormsg:

        db      0x0a, 0x0a, 0x0a
        db      "load error"
        db      0


        times 510 - ($ - $$) db 0
        db 0x55, 0xaa