nixeagle

, 
checkteam: function () {
sys.sendMessage(src, "");
for (var i = 0; i < 6; i+=1) {sys.sendMessage(src, sys.gender(sys.teamPokeGender(src, i)) + " " + sys.ability(sys.teamPokeAbility(src, i)) + " " + sys.nature(sys.teamPokeNature(src, i)) + " " + sys.pokemon(sys.teamPoke(src, i)) + " @ " + sys.item(sys.teamPokeItem(src, i)));
for (var j = 0; j < 4; j++) {sys.sendMessage(src, '- ' + sys.move(sys.teamPokeMove(src, i, j)));}}
sys.sendMessage(src, "");
return;
}
,

nixeagle

(defparameter *natures*
  (list :bashful (pokemon-stats 100 100 100 100 100)
        :docile (pokemon-stats 100 100 100 100 100)
        :hardy (pokemon-stats 100 100 100 100 100)
        :serious (pokemon-stats 100 100 100 100 100)
        :quirky (pokemon-stats 100 100 100 100 100)
        :bold (pokemon-stats 90 100 100 100 100)
        :modest (pokemon-stats 90 100 100 100 100)
        :calm (pokemon-stats 90 100 100 100 100)
        :timid (pokemon-stats 90 100 100 100 100)

nixeagle

(defclass weather () ())

(defclass sunlight (weather) ())
(defclass rain (weather) ())
(defclass sandstorm (weather) ())
(defclass hailstorm (weather) ())
(defclass shadow-sky (weather) ())
(defclass fog (weather) ())
(defclass cloudy-sky (weather) ())
(defclass snow (weather) ())

nixeagle

CL-USER> (ql:system-apropos "cl-who")
                            
#<SYSTEM cl-who / cl-who-0.11.1 / quicklisp 2011-01-10>
NIL
CL-USER> (ql:quickload "cl-who")
                            
To load "cl-who":
  Install 1 Quicklisp release:
    cl-who
; Fetching #<URL "http://beta.quicklisp.org/archive/cl-who/2010-10-06/cl-who-0.11.1.tgz">

nixeagle

src/metodo/driver/i386/keyboard.c src/metodo/driver/i386/serial.c src/metodo/driver/i386/vga.c src/metodo/driver/i386/timer.c src/metodo/driver/x86_64/serial.c src/metodo/driver/x86_64/vga.c src/metodo/driver/generic/display.c src/metodo/colpa/debug.c src/metodo/colpa/dprint.c src/metodo/bochs/debug.c src/metodo/lib/string.c src/metodo/lib/zeromemory.c src/metodo/misc/panic.c src/metodo/misc/modules.c src/metodo/misc/stop.c src/metodo/api/network.c src/metodo/core/shutdown.c src/metodo/core/memory.c src/metodo/core/text.c src/metodo/core/scheduler.c src/metodo/core/ipl.c src/metodo/hal/i386/hal.c src/metodo/hal/i386/isrs.c src/metodo/hal/i386/shutdown.c src/metodo/hal/i386/idt.c src/metodo/hal/i386/interrupts.c src/metodo/hal/i386/ports.c src/metodo/hal/i386/syscall.c src/metodo/hal/i386/task.c src/metodo/hal/i386/scheduler.c src/metodo/hal/i386/mm/memory.c src/metodo/hal/i386/irqs.c src/metodo/hal/x86_64/hal.c src/metodo/hal/x86_64/isrs.c src/metodo/hal/x86_64/shutdown.c src/metodo/hal/x86_64/idt.c src/metod

nixeagle

%macro string 1
        %strlen count %1
        dd count
        db %1
%endmacro

        foo string "hi"

        foo2 string "hi2"

nixeagle

;;; Read from drive
;;; ES BX AX CX DX are modified.
load_kernel:
        mov ax, 0x2000
        mov es, ax
        xor bx, bx
        mov ax, 0x0209
        mov cx, 0x0003
        xor dx, dx
        int 0x13

nixeagle

  * bin       flat-form binary files (e.g. DOS .COM, .SYS)
    ith       Intel hex
    srec      Motorola S-records
    aout      Linux a.out object files
    aoutb     NetBSD/FreeBSD a.out object files
    coff      COFF (i386) object files (e.g. DJGPP for DOS)
    elf32     ELF32 (i386) object files (e.g. Linux)
    elf       ELF (short name for ELF32) 
    elf64     ELF64 (x86_64) object files (e.g. Linux)
    as86      Linux as86 (bin86 version 0.3) object files

nixeagle

32_bit_kernel:
        mov al, '@'
        call print_char
        jmp $

nixeagle

Prelude> :type " "
" " :: [Char]
Prelude> :type ' '
' ' :: Char