123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990 |
- ld 0d95, 0
- ld 0d96, 0
- ld 0d97, 0
- ld 0d98, 0
- ld 0d99, 0
- ld 0d100, 0
- ld 0d101, 0
- ld 0d102, 5
- ld 0d103, 4
- ld 0d110, 0
- ld 0d111, 1
- ld 0d112, 2
- ld 0d113, 3
- ld 0d114, 4
- ld 0d120, 2
- ld 0d121, 2
- ld 0d130, 3
- ld 0d131, 1
- PrintCeil:
- out 0d101
- out 0d100
- out 0d111
- add 0d101, 1, 0d101
- lt 0d101, 0d103, 0d99
- jpt 0d99, PrintCeil
- PrintFloor:
- ld 0d100, 0d102
- ld 0d101, 0
- add 0d100, -1, 0d100
- out 0d101
- out 0d100
- out 0d111
- add 0d101, 1, 0d101
- lt 0d101, 0d103, 0d99
- jpt 0d99, PrintFloor + 4
- PrintMiddle:
- ld 0d100, 1
- ld 0d101, 0
- ld 0d95, 0d103
- add 0d95, -1, 0d95
- ld 0d96, 0d102
- add 0d96, -1, 0d96
- out 0d101
- out 0d100
- eq 0d101, 0, 0d99
- jpf 0d99, CURR + 3
- out 0d111
- jpt 1, CursorInc
- eq 0d101, 0d95, 0d99
- jpf 0d99, CURR + 3
- out 0d111
- jpt 1, CursorInc
- eq 0d101, 0d121, 0d99
- jpf 0d99, CURR + 5
- eq 0d100, 0d120, 0d99
- jpf 0d99, CURR + 3
- out 0d114
- jpt 1, CursorInc
- eq 0d101, 0d131, 0d99
- jpf 0d99, CursorInc
- eq 0d100, 0d130, 0d99
- jpf 0d99, CursorInc
- out 0d113
- CursorInc:
- add 0d101, 1, 0d101
- eq 0d101, 0d95, 0d99
- jpf 0d99, CURR + ?
- ld 0d101, 0
- add 0d100, 1, 0d100
- eq 0d100, 0d96, 0d99
- jpt 0d99, Halt
- jpf 0d99, PrintMiddle + 7
- Halt:
- ext
|