search for: print_char

...//ocamlnews.blogspot.com/2009/06/compiler-development-part-1.html For example, the compiler described in the article can execute the following OCaml-like program to print the Mandelbrot set: # let rec pixel((n, zr, zi, cr, ci) : int * float * float * float * float) : unit =     if n = 65536 then print_char ' ' else       if zr * zr + zi * zi >= 4.0 then print_char '.' else         pixel(n+1, zr * zr - zi * zi + cr, 2.0 * zr * zi + ci, cr, ci);; # let rec row((i, j, n) : int * int * int) : unit =     if i>n then () else       begin         let cr = 2.0 * float_of_int i / float_of...

...o controller's memory-mapped I/O register */ + movb $0x07, %bl /* colour attribute */ + movb $0x0e, %ah /* BIOS function: display char */ + +print_next: + lodsb /* load a character into AL */ + orb %al, %al /* is it the string zero terminator? */ + jz print_end /* finished */ + + call print_char + jmp print_next /* next character */ + +print_char: + int $0x10 /* display */ + ret + +print_end: + ret + +msg_boot: + .ascii "DIAG " +msg_address_mode: + .ascii "L" /* These entries make up ONE zero-terminated string */ + .ascii " D" +msg_drive_number: + .asci...

...o controller's memory-mapped I/O register */ + movb $0x07, %bl /* colour attribute */ + movb $0x0e, %ah /* BIOS function: display char */ + +print_next: + lodsb /* load a character into AL */ + orb %al, %al /* is it the string zero terminator? */ + jz print_end /* finished */ + + call print_char + jmp print_next /* next character */ + +print_char: + int $0x10 /* display */ + ret + +print_end: + ret + +msg_boot: + .ascii "DIAG " +msg_address_mode: + .ascii "L" /* These entries make up ONE zero-terminated string */ + .ascii " D" +msg_drive_number: + .asci...

...o controller's memory-mapped I/O register */ + movb $0x07, %bl /* colour attribute */ + movb $0x0e, %ah /* BIOS function: display char */ + +print_next: + lodsb /* load a character into AL */ + orb %al, %al /* is it the string zero terminator? */ + jz print_end /* finished */ + + call print_char + jmp print_next /* next character */ + +print_char: + int $0x10 /* display */ + ret + +print_end: + ret + +msg_boot: +msg_address_mode: + .ascii "L" /* These entries make up ONE zero-terminated string */ + .ascii " D" +msg_drive_number: + .ascii "??" /* ?? wi...