2019-08-13 06:08:43 +00:00
|
|
|
(label) @1
|
|
|
|
(label) @begin
|
|
|
|
(label) @end
|
2019-09-29 18:59:38 +00:00
|
|
|
(const byte[]) DIGITS DIGITS = (string) "0123456789abcdef"z
|
2019-08-13 06:08:43 +00:00
|
|
|
(dword) Person::id
|
2019-09-12 21:48:12 +00:00
|
|
|
(byte[3]) Person::initials
|
2019-08-13 06:08:43 +00:00
|
|
|
(const byte) RADIX::BINARY BINARY = (number) 2
|
|
|
|
(const byte) RADIX::DECIMAL DECIMAL = (number) $a
|
|
|
|
(const byte) RADIX::HEXADECIMAL HEXADECIMAL = (number) $10
|
|
|
|
(const byte) RADIX::OCTAL OCTAL = (number) 8
|
2019-09-29 18:59:38 +00:00
|
|
|
(const dword[]) RADIX_DECIMAL_VALUES_LONG RADIX_DECIMAL_VALUES_LONG = { (dword) $3b9aca00, (dword) $5f5e100, (dword) $989680, (dword) $f4240, (dword) $186a0, (dword) $2710, (dword) $3e8, (dword) $64, (dword) $a }
|
|
|
|
(const byte[$b]) decimal_digits_long decimal_digits_long = { fill( $b, 0) }
|
2019-09-29 20:36:00 +00:00
|
|
|
(const dword) henry_id henry_id = (dword) $4466d
|
|
|
|
(const byte[3]) henry_initials henry_initials = (string) "hg"
|
|
|
|
(const dword) jesper_id jesper_id = (dword) $1b244
|
|
|
|
(const byte[3]) jesper_initials jesper_initials = (string) "jg"
|
2019-08-13 06:08:43 +00:00
|
|
|
(void()) main()
|
|
|
|
(label) main::@1
|
|
|
|
(label) main::@return
|
|
|
|
(void()) print_char((byte) print_char::ch)
|
|
|
|
(label) print_char::@return
|
|
|
|
(byte) print_char::ch
|
|
|
|
(const byte) print_char::ch#0 ch = (byte) ' '
|
|
|
|
(byte*) print_char_cursor
|
|
|
|
(byte*) print_char_cursor#1 print_char_cursor zp ZP_WORD:10 11.0
|
|
|
|
(byte*) print_char_cursor#18 print_char_cursor zp ZP_WORD:10 3.333333333333333
|
|
|
|
(byte*) print_char_cursor#25 print_char_cursor zp ZP_WORD:10 1.0
|
|
|
|
(byte*) print_char_cursor#39 print_char_cursor zp ZP_WORD:10 0.8
|
|
|
|
(byte*) print_char_cursor#41 print_char_cursor zp ZP_WORD:10 6.0
|
|
|
|
(byte*~) print_char_cursor#49 print_char_cursor zp ZP_WORD:10 4.0
|
|
|
|
(void()) print_dword_decimal((dword) print_dword_decimal::w)
|
|
|
|
(label) print_dword_decimal::@1
|
|
|
|
(label) print_dword_decimal::@return
|
|
|
|
(dword) print_dword_decimal::w
|
|
|
|
(dword) print_dword_decimal::w#0 w zp ZP_DWORD:2 4.0
|
|
|
|
(byte*) print_line_cursor
|
|
|
|
(byte*) print_line_cursor#1 print_line_cursor zp ZP_WORD:8 5.285714285714286
|
|
|
|
(byte*) print_line_cursor#20 print_line_cursor zp ZP_WORD:8 0.4444444444444444
|
|
|
|
(byte*) print_line_cursor#9 print_line_cursor zp ZP_WORD:8 24.0
|
|
|
|
(void()) print_ln()
|
|
|
|
(label) print_ln::@1
|
|
|
|
(label) print_ln::@return
|
2019-09-12 21:48:12 +00:00
|
|
|
(void()) print_person((dword) print_person::person_id , (byte[3]) print_person::person_initials)
|
2019-08-13 06:08:43 +00:00
|
|
|
(label) print_person::@1
|
|
|
|
(label) print_person::@2
|
|
|
|
(label) print_person::@3
|
|
|
|
(label) print_person::@return
|
|
|
|
(struct Person) print_person::person
|
|
|
|
(dword) print_person::person_id
|
|
|
|
(dword) print_person::person_id#2 person_id zp ZP_DWORD:2 2.0
|
2019-09-12 21:48:12 +00:00
|
|
|
(byte[3]) print_person::person_initials
|
|
|
|
(byte[3]) print_person::person_initials#2 person_initials zp ZP_WORD:6 0.4
|
2019-08-13 06:08:43 +00:00
|
|
|
(byte*) print_screen
|
|
|
|
(void()) print_str((byte*) print_str::str)
|
|
|
|
(label) print_str::@1
|
|
|
|
(label) print_str::@2
|
|
|
|
(label) print_str::@return
|
|
|
|
(byte*) print_str::str
|
|
|
|
(byte*) print_str::str#0 str zp ZP_WORD:13 22.0
|
|
|
|
(byte*) print_str::str#2 str zp ZP_WORD:13 4.0
|
|
|
|
(byte*) print_str::str#3 str zp ZP_WORD:13 11.5
|
|
|
|
(byte*) print_str::str#5 str zp ZP_WORD:13 4.0
|
|
|
|
(void()) ultoa((dword) ultoa::value , (byte*) ultoa::buffer , (byte) ultoa::radix)
|
|
|
|
(byte~) ultoa::$11 reg byte a 22.0
|
|
|
|
(byte~) ultoa::$4 reg byte a 4.0
|
|
|
|
(label) ultoa::@1
|
|
|
|
(label) ultoa::@2
|
|
|
|
(label) ultoa::@3
|
|
|
|
(label) ultoa::@4
|
|
|
|
(label) ultoa::@5
|
|
|
|
(label) ultoa::@6
|
|
|
|
(label) ultoa::@7
|
|
|
|
(label) ultoa::@return
|
|
|
|
(byte*) ultoa::buffer
|
2019-08-25 20:21:56 +00:00
|
|
|
(byte*) ultoa::buffer#11 buffer zp ZP_WORD:13 3.4285714285714284
|
|
|
|
(byte*) ultoa::buffer#14 buffer zp ZP_WORD:13 16.5
|
2019-08-13 06:08:43 +00:00
|
|
|
(byte*) ultoa::buffer#3 buffer zp ZP_WORD:13 4.0
|
|
|
|
(byte*) ultoa::buffer#4 buffer zp ZP_WORD:13 22.0
|
|
|
|
(byte) ultoa::digit
|
2019-08-25 20:21:56 +00:00
|
|
|
(byte) ultoa::digit#1 digit zp ZP_BYTE:12 22.0
|
|
|
|
(byte) ultoa::digit#2 digit zp ZP_BYTE:12 3.142857142857143
|
2019-08-13 06:08:43 +00:00
|
|
|
(dword) ultoa::digit_value
|
2019-08-25 20:21:56 +00:00
|
|
|
(dword) ultoa::digit_value#0 digit_value zp ZP_DWORD:15 6.6000000000000005
|
2019-08-13 06:08:43 +00:00
|
|
|
(dword*) ultoa::digit_values
|
|
|
|
(byte) ultoa::max_digits
|
|
|
|
(const byte) ultoa::max_digits#1 max_digits = (byte) $a
|
|
|
|
(byte) ultoa::radix
|
|
|
|
(byte) ultoa::started
|
|
|
|
(byte) ultoa::started#2 reg byte x 5.5
|
2019-08-25 20:21:56 +00:00
|
|
|
(byte) ultoa::started#4 reg byte x 11.0
|
2019-08-13 06:08:43 +00:00
|
|
|
(dword) ultoa::value
|
|
|
|
(dword) ultoa::value#0 value zp ZP_DWORD:2 11.0
|
2019-08-25 20:21:56 +00:00
|
|
|
(dword) ultoa::value#1 value zp ZP_DWORD:2 2.0
|
|
|
|
(dword) ultoa::value#2 value zp ZP_DWORD:2 6.571428571428571
|
|
|
|
(dword) ultoa::value#6 value zp ZP_DWORD:2 16.5
|
2019-08-13 06:08:43 +00:00
|
|
|
(dword()) ultoa_append((byte*) ultoa_append::buffer , (dword) ultoa_append::value , (dword) ultoa_append::sub)
|
|
|
|
(label) ultoa_append::@1
|
|
|
|
(label) ultoa_append::@2
|
|
|
|
(label) ultoa_append::@3
|
|
|
|
(label) ultoa_append::@return
|
|
|
|
(byte*) ultoa_append::buffer
|
|
|
|
(byte*) ultoa_append::buffer#0 buffer zp ZP_WORD:13 1.625
|
|
|
|
(byte) ultoa_append::digit
|
|
|
|
(byte) ultoa_append::digit#1 reg byte x 101.0
|
|
|
|
(byte) ultoa_append::digit#2 reg byte x 102.0
|
|
|
|
(dword) ultoa_append::return
|
|
|
|
(dword) ultoa_append::return#0 return zp ZP_DWORD:2 22.0
|
|
|
|
(dword) ultoa_append::sub
|
|
|
|
(dword) ultoa_append::sub#0 sub zp ZP_DWORD:15 35.5
|
|
|
|
(dword) ultoa_append::value
|
|
|
|
(dword) ultoa_append::value#0 value zp ZP_DWORD:2 4.333333333333333
|
|
|
|
(dword) ultoa_append::value#1 value zp ZP_DWORD:2 202.0
|
|
|
|
(dword) ultoa_append::value#2 value zp ZP_DWORD:2 52.66666666666666
|
|
|
|
|
2019-08-25 20:21:56 +00:00
|
|
|
zp ZP_DWORD:2 [ print_person::person_id#2 print_dword_decimal::w#0 ultoa::value#2 ultoa::value#6 ultoa::value#1 ultoa::value#0 ultoa_append::value#2 ultoa_append::value#0 ultoa_append::value#1 ultoa_append::return#0 ]
|
2019-08-13 06:08:43 +00:00
|
|
|
zp ZP_WORD:6 [ print_person::person_initials#2 ]
|
|
|
|
zp ZP_WORD:8 [ print_line_cursor#9 print_line_cursor#20 print_line_cursor#1 ]
|
|
|
|
zp ZP_WORD:10 [ print_char_cursor#18 print_char_cursor#41 print_char_cursor#39 print_char_cursor#49 print_char_cursor#25 print_char_cursor#1 ]
|
2019-08-25 20:21:56 +00:00
|
|
|
zp ZP_BYTE:12 [ ultoa::digit#2 ultoa::digit#1 ]
|
|
|
|
reg byte x [ ultoa::started#2 ultoa::started#4 ]
|
|
|
|
zp ZP_WORD:13 [ ultoa::buffer#11 ultoa::buffer#14 ultoa::buffer#4 ultoa::buffer#3 ultoa_append::buffer#0 print_str::str#3 print_str::str#5 print_str::str#2 print_str::str#0 ]
|
2019-08-13 06:08:43 +00:00
|
|
|
reg byte x [ ultoa_append::digit#2 ultoa_append::digit#1 ]
|
|
|
|
reg byte a [ ultoa::$4 ]
|
|
|
|
reg byte a [ ultoa::$11 ]
|
2019-08-25 20:21:56 +00:00
|
|
|
zp ZP_DWORD:15 [ ultoa::digit_value#0 ultoa_append::sub#0 ]
|