mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

about summary refs log tree commit diff stats

	Commit message (Expand)	Author	Age	Files	Lines
*	1925	Kartik K. Agaram	2015-08-03	1	-34/+34
*	1885	Kartik K. Agaram	2015-07-29	1	-600/+587
*	1853	Kartik K. Agaram	2015-07-25	1	-3/+3
*	1818	Kartik K. Agaram	2015-07-18	1	-49/+28
*	1778	Kartik K. Agaram	2015-07-13	1	-23/+23
*	1766	Kartik K. Agaram	2015-07-12	1	-1/+8
*	1632	Kartik K. Agaram	2015-06-23	1	-1/+1
*	1631 - update html versions	Kartik K. Agaram	2015-06-23	1	-10/+570
*	1556	Kartik K. Agaram	2015-06-12	1	-129/+129
*	1549	Kartik K. Agaram	2015-06-09	1	-8/+34
*	1517	Kartik K. Agaram	2015-05-30	1	-4/+32
*	1461 - descriptions/table of contents for the layers	Kartik K. Agaram	2015-05-26	1	-1/+1
*	1459	Kartik K. Agaram	2015-05-25	1	-52/+230
*	1376 - update github docs	Kartik K. Agaram	2015-05-14	1	-267/+256
*	1291	Kartik K. Agaram	2015-05-06	1	-1/+1
*	1279 - colorized rendering of the source files	Kartik K. Agaram	2015-05-06	1	-0/+541

me the previous revision' href='/akkartik/mu/blame/subx/067new-stream.subx?h=main&id=7b548ff5c5792422f1cc05896adf2f63f5af41c7'>^

33352536 ^

2a2a5b1e ^

bc20cc3d ^

33352536 ^

bc20cc3d ^

33352536 ^

bc20cc3d ^

33352536 ^

bc20cc3d ^

33352536 ^

bc20cc3d ^

33352536 ^

7a583220 ^

33352536 ^

bc20cc3d ^

3a044623 ^

bc20cc3d ^

33352536 ^

bc20cc3d ^

33352536 ^

bc20cc3d ^

7a583220 ^

33352536 ^

f1eade72 ^

c88b9e31 ^

33352536 ^

c88b9e31 ^

bc20cc3d ^

33352536 ^

bc20cc3d ^

bc20cc3d ^

c88b9e31 ^

bc20cc3d ^

33352536 ^

2a2a5b1e ^

bc20cc3d ^

33352536 ^

bc20cc3d ^

33352536 ^

bc20cc3d ^

33352536 ^

bc20cc3d ^

33352536 ^

bc20cc3d ^

33352536 ^

bc20cc3d ^

33352536 ^

bc20cc3d ^

7a583220 ^

33352536 ^

bc20cc3d ^

10
11

29
30

31
32
33

40
41
42

44
45

48
49

62
63

69
70

72
73

82
83
84

86
87
88

90
91
92

93
94

95
96

97
98

99
100
101

102
103

104
105
106

108
109
110

114
115

116
117
118

# Helper to allocate a stream on the heap.

== code
#   instruction                     effective address                                                   register    displacement    immediate
# . op          subop               mod             rm32          base        index         scale       r32
# . 1-3 bytes   3 bits              2 bits          3 bits        3 bits      3 bits        2 bits      2 bits      0/1/2/4 bytes   0/1/2/4 bytes

new-stream:  # ad : (addr allocation-descriptor), length : int, elemsize : int -> address/eax : (handle stream _)
    # . prologue
    55/push-ebp
    89/copy                         3/mod/direct    5/rm32/ebp    .           .             .           4/r32/esp   .               .                 # copy esp to ebp
    # . save registers
    52/push-edx
    # var n/eax : int = elemsize * length + 12 (for read, write and length)
    # . eax = elemsize
    8b/copy                         1/mod/*+disp8   5/rm32/ebp    .           .             .           0/r32/eax   0x10/disp8      .                 # copy *(ebp+16) to eax
    # . eax *= length
    31/xor                          3/mod/direct    2/rm32/edx    .           .             .           2/r32/edx   .               .                 # clear edx
    f7          4/subop/multiply    1/mod/*+disp8   5/rm32/ebp    .           .                                     0xc/disp8       .                 # multiply *(ebp+12) into eax
    # . if overflow abort
    81          7/subop/compare     3/mod/direct    2/rm32/edx    .           .             .           .           .               0/imm32           # compare edx
    75/jump-if-not-equal  $new-stream:abort/disp8
    # . edx = elemsize*length
    89/copy                         3/mod/direct    2/rm32/edx    .           .             .           0/r32/eax   .               .                 # copy eax to edx
    # . eax += 12
    05/add-to-eax  0xc/imm32
    # var eax : (handle stream _) = allocate(ad, n)
    # . . push args
    50/push-eax
    ff          6/subop/push        1/mod/*+disp8   5/rm32/ebp    .           .             .           .           8/disp8         .                 # push *(ebp+8)
    # . . call
    e8/call  allocate/disp32
    # . . discard args
    81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               8/imm32           # add to esp
    # eax->length = elemsize*length
    89/copy                         1/mod/*+disp8   0/rm32/eax    .           .             .           2/r32/edx   8/disp8         .                 # copy edx to *(eax+8)
    # clear-stream(eax)
    # . . push args
    50/push-eax
    # . . call
    e8/call  clear-stream/disp32
    # . . discard args
    81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               4/imm32           # add to esp
$new-stream:end:
    # . restore registers
    5a/pop-to-edx
    # . epilogue
    89/copy                         3/mod/direct    4/rm32/esp    .           .             .           5/r32/ebp   .               .                 # copy ebp to esp
    5d/pop-to-ebp
    c3/return

$new-stream:abort:
    # . _write(2/stderr, error)
    # . . push args
    68/push  "new-stream: size too large\n"/imm32
    68/push  2/imm32/stderr
    # . . call
    e8/call  _write/disp32
    # . . discard args
    81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               8/imm32           # add to esp
    # . syscall(exit, 1)
    bb/copy-to-ebx  1/imm32
    b8/copy-to-eax  1/imm32/exit
    cd/syscall  0x80/imm8
    # never gets here

test-new-stream:
    # . prologue
    55/push-ebp
    89/copy                         3/mod/direct    5/rm32/ebp    .           .             .           4/r32/esp   .               .                 # copy esp to ebp
    # var heap/ecx : allocation-descriptor
    68/push  0/imm32/limit
    68/push  0/imm32/curr
    89/copy                         3/mod/direct    1/rm32/ecx    .           .             .           4/r32/esp   .               .                 # copy esp to ecx
    # heap = new-segment(512)
    # . . push args
    51/push-ecx
    68/push  0x200/imm32
    # . . call
    e8/call  new-segment/disp32
    # . . discard args
    81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               8/imm32           # add to esp
    # var start/edx = ad->curr
    8b/copy                         0/mod/indirect  1/rm32/ecx    .           .             .           2/r32/edx   .               .                 # copy *ecx to edx
    # var eax : (handle stream byte) = new-stream(heap, 3, 2)
    # . . push args
    68/push  2/imm32
    68/push  3/imm32
    51/push-ecx
    # . . call
    e8/call  new-stream/disp32
    # . . discard args
    81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               0xc/imm32         # add to esp
    # check-ints-equal(eax, edx, msg)
    # . . push args
    68/push  "F - test-new-stream: returns current pointer of allocation descriptor"/imm32
    52/push-edx
    50/push-eax
    # . . call
    e8/call  check-ints-equal/disp32
    # . . discard args
    81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               0xc/imm32         # add to esp
    # check-ints-equal(eax->length, 6, msg)
    # . . push args
    68/push  "F - test-new-stream: sets length correctly"/imm32
    68/push  6/imm32
    ff          6/subop/push        1/mod/*+disp8   0/rm32/eax    .           .             .           .           .               8/disp8           # push *(eax+8)
    # . . call
    e8/call  check-ints-equal/disp32
    # . . discard args
    81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               0xc/imm32         # add to esp
    # the rest is delegated to clear-stream() so we won't bother checking it
    # . epilogue
    89/copy                         3/mod/direct    4/rm32/esp    .           .             .           5/r32/ebp   .               .                 # copy ebp to esp
    5d/pop-to-ebp
    c3/return

# . . vim:nowrap:textwidth=0