Skip to content

Instantly share code, notes, and snippets.

@sergev
Created June 17, 2026 21:31
Show Gist options
  • Select an option

  • Save sergev/91beb2e55d92e1ebb7bbb1743264bc72 to your computer and use it in GitHub Desktop.

Select an option

Save sergev/91beb2e55d92e1ebb7bbb1743264bc72 to your computer and use it in GitHub Desktop.
doprnt.madlen
c
g*to*buf: ,name,
,bss, 1
,end,
c
g*buf: ,name,
,bss, 1
,end,
c
g*size: ,name,
,bss, 1
,end,
c
g*len: ,name,
,bss, 1
,end,
c
emit: ,name,
b/ret: ,subp,
g*to*buf: ,subp,
g*size: ,subp,
g*len: ,subp,
g*buf: ,subp,
,its, 13
,call, b/save
15 ,utm, 3
,utc, g*to*buf
,xta,
,uza, *0
,utc, g*size
,xta,
,a-x, =1
7 ,atx,
,utc, g*len
,xta,
7 ,xts,
,call, b/lt
,uza, *4
6 ,xta,
,aax, =377
7 ,atx, 2
,utc, g*buf
,xta,
,utc, g*len
,xts,
,call, b/padd
7 ,xts, 2
,call, b/stb
,uj, *5
*4: ,bss,
*5: ,bss,
,uj, *1
*0: ,bss,
6 ,xta,
14 ,vtm, -1
,call, putbyte
*1: ,bss,
,utc, g*len
,xta,
,a+x, =1
,utc, g*len
,atx,
,uj, b/ret
,end,
c
emit*pad: ,name,
b/ret: ,subp,
,its, 13
,call, b/save
*L1: ,bss,
6 ,xta, 1
,xts, =0
,call, b/gt
,uza, *L0
6 ,xta,
14 ,vtm, -1
,call, emit
6 ,xta, 1
,a-x, =1
6 ,atx, 1
,uj, *L1
*L0: ,bss,
,uj, b/ret
,end,
c
mkhex: ,name,
b/ret: ,subp,
,its, 13
,call, b/save
15 ,utm, 1
6 ,xta,
,aax, =17
7 ,atx,
6 ,atx,
7 ,xta,
,xts, =11
,call, b/gt
,uza, *2
7 ,xta,
,a+x, =101
,a-x, =12
,uj, b/ret
*2: ,bss,
6 ,xta,
,a+x, =60
,uj, b/ret
,end,
c
ksprintn: ,name,
b/ret: ,subp,
,its, 13
,call, b/save
15 ,utm, 9
6 ,xta,
7 ,atx,
6 ,xta,
,xts, =0
,call, b/stb
*2: ,bss,
6 ,xta, 1
6 ,xts, 2
,call, b/umod
14 ,vtm, -1
,call, mkhex
,aax, =377
7 ,atx, 3
7 ,xta,
,call, b/pinc
7 ,atx, 4
7 ,atx,
7 ,xta, 4
7 ,xts, 3
,call, b/stb
6 ,xta, 1
6 ,xts, 2
,call, b/udiv
7 ,atx, 5
6 ,atx, 1
6 ,xta, 3
,a-x, =1
7 ,atx, 6
6 ,atx, 3
7 ,xta, 6
,xts, =0
,call, b/gt
,u1a, *14
7 ,xta, 5
,xts, =0
,call, b/ne
7 ,atx, 8
,uj, *15
*14: ,bss,
,xta, =1
7 ,atx, 8
*15: ,bss,
7 ,xta, 8
,u1a, *2
6 ,xta, 4
,uza, *17
7 ,xta, 4
6 ,xts,
,call, b/pdiff
6 ,wtc, 4
,atx,
,uj, *18
*17: ,bss,
*18: ,bss,
7 ,xta, 4
,uj, b/ret
,end,
c
**doprnt: ,name,
b/ret: ,subp,
g*to*buf: ,subp,
g*buf: ,subp,
g*size: ,subp,
g*len: ,subp,
,its, 13
,call, b/save
15 ,utm, 228
6 ,xta, 4
,utc, g*to*buf
,atx,
6 ,xta, 2
,utc, g*buf
,atx,
6 ,xta, 3
,utc, g*size
,atx,
,xta, =0
,utc, g*len
,atx,
,xta, =0
7 ,atx, 6
*0: ,bss,
*L3: ,bss,
6 ,xta,
7 ,xts, 6
,call, b/padd
7 ,atx, 7
7 ,wtc, 7
,xta,
7 ,asx, 7
,aax, =377
,aax, =377
,aex, =200
,a-x, =200
7 ,atx, 9
7 ,atx, 10
7 ,xta, 9
,xts, =45
,call, b/ne
,uza, *L2
7 ,xta, 9
,call, b/not
,u1a, done
*7: ,bss,
7 ,xta, 10
14 ,vtm, -1
,call, emit
7 ,xta, 6
,a+x, =1
7 ,atx, 6
,uj, *L3
*L2: ,bss,
7 ,xta, 6
,a+x, =1
7 ,atx, 6
,xta, =40
7 ,atx, 15
,xta, =0
7 ,atx, 16
,xta, =0
7 ,atx, 17
,xta, =0
7 ,atx, 18
,xta, =0
7 ,atx, 19
,xta, =0
7 ,atx, 20
,xta, =0
7 ,atx, 21
,xta, =0
7 ,atx, 22
,xta, =0
7 ,atx, 23
,xta, =37777777777777
7 ,atx, 24
reswitch: ,bss,
6 ,xta,
7 ,xts, 6
,call, b/padd
7 ,atx, 25
7 ,wtc, 25
,xta,
7 ,asx, 25
,aax, =377
,aax, =377
,aex, =200
,a-x, =200
7 ,atx, 27
7 ,atx, 10
7 ,xta, 6
,a+x, =1
7 ,atx, 6
7 ,xta, 27
,xts, =56
,call, b/eq
,uza, *18
,xta, =1
7 ,atx, 23
,xta, =40
7 ,atx, 15
,xta, =0
7 ,atx, 24
,uj, reswitch
*18: ,bss,
7 ,xta, 10
,xts, =43
,call, b/eq
,uza, *21
,xta, =1
7 ,atx, 19
,uj, reswitch
*21: ,bss,
7 ,xta, 10
,xts, =53
,call, b/eq
,uza, *24
,xta, =37777777777777
7 ,atx, 21
,uj, reswitch
*24: ,bss,
7 ,xta, 10
,xts, =40
,call, b/eq
,uza, *28
,xta, =1
7 ,atx, 22
,uj, reswitch
*28: ,bss,
7 ,xta, 10
,xts, =55
,call, b/eq
,uza, *31
,xta, =1
7 ,atx, 18
,uj, reswitch
*31: ,bss,
7 ,xta, 10
,xts, =114
,call, b/eq
,u1a, *34
7 ,xta, 10
,xts, =110
,call, b/eq
,xts, =0
,call, b/ne
7 ,atx, 36
,uj, *35
*34: ,bss,
,xta, =1
7 ,atx, 36
*35: ,bss,
7 ,xta, 36
,u1a, reswitch
*38: ,bss,
7 ,xta, 10
,xts, =52
,call, b/eq
,uza, *41
7 ,xta, 23
,call, b/not
,uza, *44
6 ,xta, 1
7 ,atx, 39
6 ,xta, 1
,a+x, =1
6 ,atx, 1
7 ,wtc, 39
,xta,
7 ,atx, 41
7 ,atx, 16
7 ,xta, 41
,xts, =0
,call, b/lt
,uza, *50
,xta, =1
7 ,atx, 18
7 ,xta, 41
,x-a,
7 ,atx, 16
,uj, *51
*50: ,bss,
*51: ,bss,
,uj, *45
*44: ,bss,
6 ,xta, 1
7 ,atx, 44
6 ,xta, 1
,a+x, =1
6 ,atx, 1
7 ,wtc, 44
,xta,
7 ,atx, 24
*45: ,bss,
,uj, reswitch
*41: ,bss,
7 ,xta, 10
,xts, =60
,call, b/eq
,uza, *57
7 ,xta, 23
,call, b/not
,xts, =0
,call, b/ne
7 ,atx, 49
,uj, *58
*57: ,bss,
,xta, =0
7 ,atx, 49
*58: ,bss,
7 ,xta, 49
,uza, *61
,xta, =60
7 ,atx, 15
,uj, reswitch
*61: ,bss,
7 ,xta, 10
,xts, =60
,call, b/ge
,uza, *64
7 ,xta, 10
,xts, =71
,call, b/le
,xts, =0
,call, b/ne
7 ,atx, 52
,uj, *65
*64: ,bss,
,xta, =0
7 ,atx, 52
*65: ,bss,
7 ,xta, 52
,uza, *68
,xta, =0
7 ,atx, 53
*70: ,bss,
7 ,xta, 53
,xts, =12
,call, b/mul
7 ,a+x, 10
,a-x, =60
7 ,atx, 56
7 ,atx, 53
6 ,xta,
7 ,xts, 6
,call, b/padd
7 ,atx, 57
7 ,wtc, 57
,xta,
7 ,asx, 57
,aax, =377
,aax, =377
,aex, =200
,a-x, =200
7 ,atx, 59
7 ,atx, 10
7 ,xta, 59
,xts, =60
,call, b/lt
,u1a, *79
7 ,xta, 59
,xts, =71
,call, b/gt
,xts, =0
,call, b/ne
7 ,atx, 62
,uj, *80
*79: ,bss,
,xta, =1
7 ,atx, 62
*80: ,bss,
7 ,xta, 62
,u1a, *L4
*83: ,bss,
7 ,xta, 6
,a+x, =1
7 ,atx, 6
,uj, *70
*L4: ,bss,
7 ,xta, 23
,uza, *86
7 ,xta, 56
7 ,atx, 24
,uj, *87
*86: ,bss,
7 ,xta, 56
7 ,atx, 16
*87: ,bss,
,uj, reswitch
*68: ,bss,
7 ,xta, 10
,xts, =45
,call, b/eq
,uza, *89
,xta, =45
14 ,vtm, -1
,call, emit
,uj, *L1
*89: ,bss,
7 ,xta, 10
,xts, =103
,call, b/eq
,uza, *92
7 ,xta, 18
,call, b/not
,uza, *95
7 ,xta, 16
,a-x, =1
7 ,atx, 67
,xta, =40
7 ,xts, 67
14 ,vtm, -2
,call, emit*pad
,uj, *96
*95: ,bss,
*96: ,bss,
6 ,xta, 1
7 ,atx, 68
6 ,xta, 1
,a+x, =1
6 ,atx, 1
7 ,wtc, 68
,xta,
14 ,vtm, -1
,call, emit
7 ,xta, 18
,uza, *101
7 ,xta, 16
,a-x, =1
7 ,atx, 71
,xta, =40
7 ,xts, 71
14 ,vtm, -2
,call, emit*pad
,uj, *102
*101: ,bss,
*102: ,bss,
,uj, *L1
*92: ,bss,
7 ,xta, 10
,xts, =123
,call, b/eq
,uza, *105
6 ,wtc, 1
,xta,
7 ,atx, 73
7 ,atx, 53
6 ,xta, 1
,a+x, =1
6 ,atx, 1
7 ,xta, 73
,xts, =0
,call, b/eq
,uza, *110
,utc, *str0
14 ,vtm, 0
,ita, 14
,aox, =6400000000000000
7 ,atx, 77
,uj, *111
*110: ,bss,
7 ,utc, 53
14 ,vtm, 0
,ita, 14
7 ,atx, 78
7 ,wtc, 78
,xta,
7 ,atx, 77
*111: ,bss,
7 ,xta, 23
,call, b/not
,uza, *117
,xta, =0
7 ,atx, 53
*L7: ,bss,
7 ,xta, 77
7 ,xts, 53
,call, b/padd
7 ,atx, 81
7 ,wtc, 81
,xta,
7 ,asx, 81
,aax, =377
,uza, *L6
7 ,xta, 53
,a+x, =1
7 ,atx, 53
,uj, *L7
*L6: ,bss,
,uj, *118
*117: ,bss,
,xta, =0
7 ,atx, 53
*L9: ,bss,
7 ,xta, 53
7 ,xts, 24
,call, b/lt
,uza, *124
7 ,xta, 77
7 ,xts, 53
,call, b/padd
7 ,atx, 85
7 ,wtc, 85
,xta,
7 ,asx, 85
,aax, =377
,xts, =0
,call, b/ne
7 ,atx, 87
,uj, *125
*124: ,bss,
,xta, =0
7 ,atx, 87
*125: ,bss,
7 ,xta, 87
,uza, *L8
7 ,xta, 53
,a+x, =1
7 ,atx, 53
,uj, *L9
*L8: ,bss,
*118: ,bss,
7 ,xta, 16
7 ,a-x, 53
7 ,atx, 89
7 ,atx, 16
7 ,xta, 18
,call, b/not
,uza, *133
,xta, =40
7 ,xts, 89
14 ,vtm, -2
,call, emit*pad
,uj, *134
*133: ,bss,
*134: ,bss,
,xta, =0
7 ,atx, 10
*135: ,bss,
7 ,xta, 10
7 ,xts, 53
,call, b/lt
,uza, *L10
7 ,xta, 77
7 ,xts, 10
,call, b/padd
7 ,atx, 92
7 ,wtc, 92
,xta,
7 ,asx, 92
,aax, =377
,aax, =377
,aex, =200
,a-x, =200
14 ,vtm, -1
,call, emit
7 ,xta, 10
,a+x, =1
7 ,atx, 10
,uj, *135
*L10: ,bss,
7 ,xta, 18
,uza, *142
,xta, =40
7 ,xts, 16
14 ,vtm, -2
,call, emit*pad
,uj, *143
*142: ,bss,
*143: ,bss,
,uj, *L1
*105: ,bss,
7 ,xta, 10
,xts, =106
,call, b/eq
,u1a, *145
7 ,xta, 10
,xts, =105
,call, b/eq
,xts, =0
,call, b/ne
7 ,atx, 98
,uj, *146
*145: ,bss,
,xta, =1
7 ,atx, 98
*146: ,bss,
7 ,xta, 98
,u1a, *149
7 ,xta, 10
,xts, =107
,call, b/eq
,xts, =0
,call, b/ne
7 ,atx, 100
,uj, *150
*149: ,bss,
,xta, =1
7 ,atx, 100
*150: ,bss,
7 ,xta, 100
,uza, *153
6 ,wtc, 1
,xta,
7 ,atx, 101
7 ,atx, 102
6 ,xta, 1
,a+x, =1
6 ,atx, 1
7 ,xta, 24
,xts, =14
,call, b/gt
,uza, *159
7 ,xta, 10
,xts, =107
,call, b/ne
,u1a, *162
7 ,xta, 19
,xts, =0
,call, b/ne
7 ,atx, 106
,uj, *163
*162: ,bss,
,xta, =1
7 ,atx, 106
*163: ,bss,
7 ,xta, 106
,uza, *165
7 ,xta, 24
,a-x, =14
7 ,atx, 17
,uj, *166
*165: ,bss,
*166: ,bss,
,xta, =14
7 ,atx, 24
,uj, *160
*159: ,bss,
7 ,xta, 24
,xts, =37777777777777
,call, b/eq
,uza, *170
,xta, =6
7 ,atx, 24
,uj, *171
*170: ,bss,
*171: ,bss,
*160: ,bss,
7 ,xta, 101
,xts, =r0.
,call, b/flt
,uza, *174
,xta, =1
7 ,atx, 20
7 ,xta, 101
,ntr, 0
,x-a,
,ntr, 7
7 ,atx, 102
,uj, *175
*174: ,bss,
*175: ,bss,
,ita, 7
,aox, =6400000000000000
,xts, =0
,call, b/padd
,xts, =0
,call, b/stb
7 ,utc, 20
14 ,vtm, 0
,ita, 14
7 ,atx, 113
,ita, 7
,aox, =6400000000000000
7 ,atx, 114
7 ,utc, 115
14 ,vtm, 0
,ita, 14
7 ,atx, 116
7 ,xta, 102
7 ,xts, 24
7 ,xts, 19
7 ,xts, 113
7 ,xts, 10
7 ,xts, 114
,xts, =40
7 ,xts, 116
14 ,vtm, -8
,call, cvt
7 ,atx, 117
7 ,atx, 118
7 ,xta, 20
,uza, *186
,xta, =1
7 ,atx, 119
,uj, *187
*186: ,bss,
,xta, =0
7 ,atx, 119
*187: ,bss,
7 ,xta, 117
7 ,a+x, 119
7 ,atx, 120
7 ,atx, 121
7 ,xta, 18
,call, b/not
,uza, *191
7 ,xta, 15
,xts, =40
,call, b/eq
,xts, =0
,call, b/ne
7 ,atx, 124
,uj, *192
*191: ,bss,
,xta, =0
7 ,atx, 124
*192: ,bss,
7 ,xta, 124
,uza, *195
7 ,xta, 16
7 ,a-x, 120
,xts, =0
,call, b/gt
,xts, =0
,call, b/ne
7 ,atx, 127
,uj, *196
*195: ,bss,
,xta, =0
7 ,atx, 127
*196: ,bss,
7 ,xta, 127
,uza, *200
7 ,xta, 16
7 ,a-x, 120
7 ,atx, 128
,xta, =40
7 ,xts, 128
14 ,vtm, -2
,call, emit*pad
,uj, *201
*200: ,bss,
*201: ,bss,
7 ,xta, 20
,uza, *203
,xta, =55
14 ,vtm, -1
,call, emit
,uj, *204
*203: ,bss,
*204: ,bss,
7 ,xta, 18
,call, b/not
,uza, *206
7 ,xta, 15
,xts, =60
,call, b/eq
,xts, =0
,call, b/ne
7 ,atx, 131
,uj, *207
*206: ,bss,
,xta, =0
7 ,atx, 131
*207: ,bss,
7 ,xta, 131
,uza, *210
7 ,xta, 16
7 ,a-x, 121
,xts, =0
,call, b/gt
,xts, =0
,call, b/ne
7 ,atx, 134
,uj, *211
*210: ,bss,
,xta, =0
7 ,atx, 134
*211: ,bss,
7 ,xta, 134
,uza, *215
7 ,xta, 16
7 ,a-x, 121
7 ,atx, 135
,xta, =60
7 ,xts, 135
14 ,vtm, -2
,call, emit*pad
,uj, *216
*215: ,bss,
*216: ,bss,
,xta, =0
7 ,atx, 53
*218: ,bss,
7 ,xta, 53
7 ,xts, 118
,call, b/lt
,uza, *L12
7 ,xta, 17
,uza, *220
,ita, 7
,aox, =6400000000000000
7 ,atx, 137
7 ,xta, 115
7 ,a+x, 53
7 ,atx, 138
7 ,xta, 137
7 ,xts, 138
,call, b/padd
7 ,atx, 139
7 ,wtc, 139
,xta,
7 ,asx, 139
,aax, =377
,aax, =377
,aex, =200
,a-x, =200
,xts, =105
,call, b/eq
,xts, =0
,call, b/ne
7 ,atx, 143
,uj, *221
*220: ,bss,
,xta, =0
7 ,atx, 143
*221: ,bss,
7 ,xta, 143
,uza, *230
,xta, =60
7 ,xts, 17
14 ,vtm, -2
,call, emit*pad
,xta, =0
7 ,atx, 17
,uj, *231
*230: ,bss,
*231: ,bss,
,ita, 7
,aox, =6400000000000000
7 ,atx, 144
7 ,xta, 115
7 ,a+x, 53
7 ,atx, 145
7 ,xta, 144
7 ,xts, 145
,call, b/padd
7 ,atx, 146
7 ,wtc, 146
,xta,
7 ,asx, 146
,aax, =377
,aax, =377
,aex, =200
,a-x, =200
14 ,vtm, -1
,call, emit
7 ,xta, 53
,a+x, =1
7 ,atx, 53
,uj, *218
*L12: ,bss,
7 ,xta, 17
,uza, *239
,xta, =60
7 ,xts, 17
14 ,vtm, -2
,call, emit*pad
,uj, *240
*239: ,bss,
*240: ,bss,
7 ,xta, 18
,uza, *241
7 ,xta, 16
7 ,a-x, 121
,xts, =0
,call, b/gt
,xts, =0
,call, b/ne
7 ,atx, 152
,uj, *242
*241: ,bss,
,xta, =0
7 ,atx, 152
*242: ,bss,
7 ,xta, 152
,uza, *246
7 ,xta, 16
7 ,a-x, 121
7 ,atx, 153
,xta, =40
7 ,xts, 153
14 ,vtm, -2
,call, emit*pad
,uj, *247
*246: ,bss,
*247: ,bss,
,uj, *L1
*153: ,bss,
7 ,xta, 10
,xts, =104
,call, b/eq
,u1a, *250
7 ,xta, 10
,xts, =111
,call, b/eq
,xts, =0
,call, b/ne
7 ,atx, 156
,uj, *251
*250: ,bss,
,xta, =1
7 ,atx, 156
*251: ,bss,
7 ,xta, 156
,uza, *254
6 ,xta, 1
7 ,atx, 157
6 ,xta, 1
,a+x, =1
6 ,atx, 1
7 ,wtc, 157
,xta,
7 ,atx, 160
7 ,xta, 21
,call, b/not
,uza, *261
,xta, =1
7 ,atx, 21
,uj, *262
*261: ,bss,
*262: ,bss,
,xta, =12
7 ,atx, 162
,uj, number
*254: ,bss,
7 ,xta, 10
,xts, =125
,call, b/eq
,uza, *264
6 ,xta, 1
7 ,atx, 164
6 ,xta, 1
,a+x, =1
6 ,atx, 1
7 ,wtc, 164
,xta,
7 ,atx, 160
,xta, =12
7 ,atx, 162
,uj, nosign
*264: ,bss,
7 ,xta, 10
,xts, =117
,call, b/eq
,uza, *271
6 ,xta, 1
7 ,atx, 168
6 ,xta, 1
,a+x, =1
6 ,atx, 1
7 ,wtc, 168
,xta,
7 ,atx, 160
,xta, =10
7 ,atx, 162
,uj, nosign
*271: ,bss,
7 ,xta, 10
,xts, =130
,call, b/eq
,uza, *278
6 ,xta, 1
7 ,atx, 172
6 ,xta, 1
,a+x, =1
6 ,atx, 1
7 ,wtc, 172
,xta,
7 ,atx, 160
,xta, =20
7 ,atx, 162
,uj, nosign
*278: ,bss,
7 ,xta, 10
,xts, =120
,call, b/eq
,uza, *285
6 ,xta, 1
7 ,atx, 176
6 ,xta, 1
,a+x, =1
6 ,atx, 1
7 ,wtc, 176
,xta,
7 ,atx, 160
,xta, =20
7 ,atx, 162
,xta, =1
7 ,atx, 19
,uj, nosign
*285: ,bss,
,xta, =45
14 ,vtm, -1
,call, emit
7 ,xta, 10
14 ,vtm, -1
,call, emit
,uj, *L1
nosign: ,bss,
,xta, =0
7 ,atx, 21
,xta, =0
7 ,atx, 22
number: ,bss,
7 ,xta, 21
,uza, *291
7 ,xta, 160
,xts, =0
,call, b/lt
,uza, *295
,xta, =55
7 ,atx, 20
7 ,xta, 160
,x-a,
7 ,atx, 160
,uj, *296
*295: ,bss,
7 ,xta, 21
,xts, =0
,call, b/lt
,uza, *301
,xta, =53
7 ,atx, 20
,uj, *302
*301: ,bss,
7 ,xta, 22
,uza, *303
,xta, =40
7 ,atx, 20
,uj, *304
*303: ,bss,
*304: ,bss,
*302: ,bss,
*296: ,bss,
,uj, *292
*291: ,bss,
*292: ,bss,
7 ,xta, 24
,xts, =40
,call, b/ge
,uza, *306
7 ,xta, 24
,a-x, =40
,a+x, =1
7 ,atx, 17
,xta, =37
7 ,atx, 24
,uj, *307
*306: ,bss,
*307: ,bss,
,ita, 7
,aox, =6400000000000000
7 ,atx, 185
7 ,utc, 121
14 ,vtm, 0
,ita, 14
7 ,atx, 186
7 ,xta, 185
7 ,xts, 160
7 ,xts, 162
7 ,xts, 24
7 ,xts, 186
14 ,vtm, -5
,call, ksprintn
7 ,atx, 188
7 ,xta, 19
,uza, *314
7 ,xta, 160
,xts, =0
,call, b/ne
,xts, =0
,call, b/ne
7 ,atx, 190
,uj, *315
*314: ,bss,
,xta, =0
7 ,atx, 190
*315: ,bss,
7 ,xta, 190
,uza, *319
7 ,xta, 162
,xts, =10
,call, b/eq
,uza, *322
7 ,xta, 121
,a+x, =1
7 ,atx, 121
,uj, *323
*322: ,bss,
7 ,xta, 162
,xts, =20
,call, b/eq
,uza, *326
7 ,xta, 121
,a+x, =2
7 ,atx, 121
,uj, *327
*326: ,bss,
*327: ,bss,
*323: ,bss,
,uj, *320
*319: ,bss,
*320: ,bss,
7 ,xta, 20
,uza, *329
7 ,xta, 121
,a+x, =1
7 ,atx, 121
,uj, *330
*329: ,bss,
*330: ,bss,
7 ,xta, 18
,call, b/not
,uza, *333
7 ,xta, 15
,xts, =40
,call, b/eq
,xts, =0
,call, b/ne
7 ,atx, 198
,uj, *334
*333: ,bss,
,xta, =0
7 ,atx, 198
*334: ,bss,
7 ,xta, 198
,uza, *337
7 ,xta, 16
7 ,a-x, 121
,xts, =0
,call, b/gt
,xts, =0
,call, b/ne
7 ,atx, 201
,uj, *338
*337: ,bss,
,xta, =0
7 ,atx, 201
*338: ,bss,
7 ,xta, 201
,uza, *342
7 ,xta, 16
7 ,a-x, 121
7 ,atx, 202
,xta, =40
7 ,xts, 202
14 ,vtm, -2
,call, emit*pad
,uj, *343
*342: ,bss,
*343: ,bss,
7 ,xta, 20
,uza, *345
7 ,xta, 20
14 ,vtm, -1
,call, emit
,uj, *346
*345: ,bss,
*346: ,bss,
7 ,xta, 19
,uza, *347
7 ,xta, 160
,xts, =0
,call, b/ne
,xts, =0
,call, b/ne
7 ,atx, 204
,uj, *348
*347: ,bss,
,xta, =0
7 ,atx, 204
*348: ,bss,
7 ,xta, 204
,uza, *352
7 ,xta, 162
,xts, =10
,call, b/eq
,uza, *355
,xta, =60
14 ,vtm, -1
,call, emit
,uj, *356
*355: ,bss,
7 ,xta, 162
,xts, =20
,call, b/eq
,uza, *358
,xta, =60
14 ,vtm, -1
,call, emit
,xta, =130
14 ,vtm, -1
,call, emit
,uj, *359
*358: ,bss,
*359: ,bss,
*356: ,bss,
,uj, *353
*352: ,bss,
*353: ,bss,
7 ,xta, 17
,uza, *360
,xta, =60
7 ,xts, 17
14 ,vtm, -2
,call, emit*pad
,uj, *361
*360: ,bss,
*361: ,bss,
7 ,xta, 18
,call, b/not
,uza, *363
7 ,xta, 15
,xts, =60
,call, b/eq
,xts, =0
,call, b/ne
7 ,atx, 209
,uj, *364
*363: ,bss,
,xta, =0
7 ,atx, 209
*364: ,bss,
7 ,xta, 209
,uza, *367
7 ,xta, 16
7 ,a-x, 121
,xts, =0
,call, b/gt
,xts, =0
,call, b/ne
7 ,atx, 212
,uj, *368
*367: ,bss,
,xta, =0
7 ,atx, 212
*368: ,bss,
7 ,xta, 212
,uza, *372
7 ,xta, 16
7 ,a-x, 121
7 ,atx, 213
,xta, =60
7 ,xts, 213
14 ,vtm, -2
,call, emit*pad
,uj, *373
*372: ,bss,
*373: ,bss,
*L15: ,bss,
,ita, 7
,aox, =6400000000000000
7 ,atx, 214
7 ,xta, 188
7 ,xts, 214
,call, b/pdiff
,xts, =0
,call, b/gt
,uza, *L14
7 ,xta, 188
7 ,atx, 217
7 ,xta, 188
,call, b/pdec
7 ,atx, 188
7 ,wtc, 217
,xta,
7 ,asx, 217
,aax, =377
,aax, =377
,aex, =200
,a-x, =200
14 ,vtm, -1
,call, emit
,uj, *L15
*L14: ,bss,
7 ,xta, 18
,uza, *382
7 ,xta, 16
7 ,a-x, 121
,xts, =0
,call, b/gt
,xts, =0
,call, b/ne
7 ,atx, 223
,uj, *383
*382: ,bss,
,xta, =0
7 ,atx, 223
*383: ,bss,
7 ,xta, 223
,uza, *387
7 ,xta, 16
7 ,a-x, 121
7 ,atx, 224
,xta, =40
7 ,xts, 224
14 ,vtm, -2
,call, emit*pad
,uj, *388
*387: ,bss,
*388: ,bss,
*L1: ,bss,
,uj, *0
done: ,bss,
,utc, g*to*buf
,xta,
,uza, *390
,utc, g*size
,xta,
,xts, =0
,call, b/gt
,xts, =0
,call, b/ne
7 ,atx, 226
,uj, *391
*390: ,bss,
,xta, =0
7 ,atx, 226
*391: ,bss,
7 ,xta, 226
,uza, *394
,utc, g*len
,xta,
7 ,atx, 53
,utc, g*size
,xta,
,a-x, =1
7 ,atx, 227
,utc, g*len
,xta,
7 ,xts, 227
,call, b/gt
,uza, *398
,utc, g*size
,xta,
,a-x, =1
7 ,atx, 53
,uj, *399
*398: ,bss,
*399: ,bss,
,utc, g*buf
,xta,
7 ,xts, 53
,call, b/padd
,xts, =0
,call, b/stb
,uj, *395
*394: ,bss,
*395: ,bss,
,utc, g*len
,xta,
,uj, b/ret
*str0: ,log, 1204712523046051
,log, 0
,end,
c
cvtround: ,name,
b/ret: ,subp,
,its, 13
,call, b/save
15 ,utm, 17
6 ,wtc, 2
,xta,
7 ,atx, 1
6 ,xta, 3
7 ,atx, 2
6 ,xta,
,uza, *1
6 ,xta,
,ntr, 0
,a*x, =r10.
,ntr, 7
7 ,atx, 3
7 ,utc, 4
14 ,vtm, 0
,ita, 14
7 ,atx, 5
7 ,xta, 3
7 ,xts, 5
14 ,vtm, -2
,call, modf
7 ,xta, 4
,call, b/dtoi
7 ,atx, 8
,uj, *2
*1: ,bss,
6 ,xta, 4
,a-x, =60
7 ,atx, 8
*2: ,bss,
7 ,xta, 8
,xts, =4
,call, b/gt
,uza, *10
*12: ,bss,
7 ,wtc, 2
,xta,
7 ,asx, 2
,aax, =377
,aax, =377
,aex, =200
,a-x, =200
,xts, =56
,call, b/eq
,uza, *16
7 ,xta, 2
,call, b/pdec
7 ,atx, 2
,uj, *17
*16: ,bss,
*17: ,bss,
7 ,wtc, 2
,xta,
7 ,asx, 2
,aax, =377
,a+x, =1
7 ,atx, 16
7 ,xta, 2
7 ,xts, 16
,call, b/stb
7 ,wtc, 2
,xta,
7 ,asx, 2
,aax, =377
,aax, =377
,aex, =200
,a-x, =200
,xts, =71
,call, b/le
,u1a, *L0
*24: ,bss,
7 ,xta, 2
,xts, =60
,call, b/stb
7 ,xta, 2
7 ,xts, 1
,call, b/eq
,uza, *29
6 ,xta, 1
,uza, *31
7 ,xta, 2
,xts, =61
,call, b/stb
6 ,wtc, 1
,xta,
,a+x, =1
6 ,wtc, 1
,atx,
,uj, *32
*31: ,bss,
7 ,xta, 2
,call, b/pdec
,xts, =61
,call, b/stb
7 ,xta, 1
,call, b/pdec
7 ,atx, 1
*32: ,bss,
,uj, *L0
*29: ,bss,
7 ,xta, 2
,call, b/pdec
7 ,atx, 2
,uj, *12
*L0: ,bss,
,uj, *11
*10: ,bss,
6 ,wtc, 5
,xta,
,uza, *43
*45: ,bss,
7 ,wtc, 2
,xta,
7 ,asx, 2
,aax, =377
,aax, =377
,aex, =200
,a-x, =200
,xts, =56
,call, b/eq
,uza, *49
7 ,xta, 2
,call, b/pdec
7 ,atx, 2
,uj, *50
*49: ,bss,
*50: ,bss,
7 ,wtc, 2
,xta,
7 ,asx, 2
,aax, =377
,aax, =377
,aex, =200
,a-x, =200
,xts, =60
,call, b/ne
,u1a, *L2
*55: ,bss,
7 ,xta, 2
7 ,xts, 1
,call, b/eq
,uza, *58
,xta, =0
6 ,wtc, 5
,atx,
,uj, *59
*58: ,bss,
*59: ,bss,
7 ,xta, 2
,call, b/pdec
7 ,atx, 2
,uj, *45
*L2: ,bss,
,uj, *44
*43: ,bss,
*44: ,bss,
*11: ,bss,
7 ,xta, 1
6 ,wtc, 2
,atx,
,uj, b/ret
,end,
c
exponent: ,name,
b/ret: ,subp,
,its, 13
,call, b/save
15 ,utm, 36
6 ,xta, 1
7 ,atx, 2
6 ,xta, 2
,aax, =377
7 ,atx, 3
6 ,xta,
7 ,atx, 4
6 ,xta,
,call, b/pinc
7 ,atx, 5
7 ,xta, 4
7 ,xts, 3
,call, b/stb
6 ,xta, 1
,xts, =0
,call, b/lt
,uza, *5
6 ,xta, 1
,x-a,
7 ,atx, 2
7 ,xta, 5
,call, b/pinc
6 ,atx,
7 ,xta, 5
,xts, =55
,call, b/stb
,uj, *6
*5: ,bss,
7 ,xta, 5
,call, b/pinc
6 ,atx,
7 ,xta, 5
,xts, =53
,call, b/stb
*6: ,bss,
,xta, =10
7 ,atx, 10
7 ,xta, 2
,xts, =11
,call, b/gt
,uza, *17
*19: ,bss,
7 ,xta, 10
,a-x, =1
7 ,atx, 12
7 ,atx, 10
7 ,xta, 2
,xts, =12
,call, b/mod
,a+x, =60
,aax, =377
7 ,atx, 15
,ita, 7
,aox, =6400000000000000
7 ,xts, 12
,call, b/padd
7 ,xts, 15
,call, b/stb
7 ,xta, 2
,xts, =12
,call, b/div
7 ,atx, 18
7 ,atx, 2
7 ,xta, 18
,xts, =11
,call, b/gt
,u1a, *19
7 ,xta, 12
,a-x, =1
7 ,atx, 20
7 ,atx, 10
7 ,xta, 18
,a+x, =60
,aax, =377
7 ,atx, 22
,ita, 7
,aox, =6400000000000000
7 ,xts, 20
,call, b/padd
7 ,xts, 22
,call, b/stb
*37: ,bss,
7 ,xta, 10
,xts, =10
,call, b/lt
,uza, *L2
,ita, 7
,aox, =6400000000000000
7 ,xts, 10
,call, b/padd
7 ,atx, 27
7 ,wtc, 27
,xta,
7 ,asx, 27
,aax, =377
7 ,atx, 28
6 ,xta,
7 ,atx, 29
6 ,xta,
,call, b/pinc
6 ,atx,
7 ,xta, 29
7 ,xts, 28
,call, b/stb
7 ,xta, 10
,a+x, =1
7 ,atx, 10
,uj, *37
*L2: ,bss,
,uj, *18
*17: ,bss,
6 ,xta,
7 ,atx, 32
6 ,xta,
,call, b/pinc
7 ,atx, 33
7 ,xta, 32
,xts, =60
,call, b/stb
7 ,xta, 2
,a+x, =60
,aax, =377
7 ,atx, 35
7 ,xta, 33
,call, b/pinc
6 ,atx,
7 ,xta, 33
7 ,xts, 35
,call, b/stb
*18: ,bss,
6 ,xta,
,uj, b/ret
,end,
c
cvt: ,name,
b/ret: ,subp,
,its, 13
,call, b/save
15 ,utm, 180
6 ,xta, 1
7 ,atx,
6 ,xta, 4
7 ,atx, 1
,xta, =0
7 ,atx, 2
,xta, =0
7 ,atx, 3
,xta, =0
7 ,atx, 4
7 ,utc, 5
14 ,vtm, 0
,ita, 14
7 ,atx, 6
6 ,xta,
7 ,xts, 6
14 ,vtm, -2
,call, modf
7 ,atx, 8
6 ,xta, 5
6 ,xts, 6
,call, b/padd
7 ,atx, 9
,xta, =1
,x-a,
7 ,atx, 10
7 ,xta, 9
7 ,xts, 10
,call, b/padd
7 ,atx, 11
7 ,atx, 12
6 ,xta, 5
,call, b/pinc
7 ,atx, 14
6 ,xta, 5
,call, b/pinc
7 ,atx, 16
,xta, =1
,x-a,
7 ,atx, 17
7 ,xta, 11
7 ,xts, 17
,call, b/padd
7 ,atx, 19
*L1: ,bss,
7 ,xta, 5
,uza, *L0
7 ,xta, 5
,ntr, 0
,a/x, =r10.
,ntr, 7
7 ,atx, 20
7 ,utc, 5
14 ,vtm, 0
,ita, 14
7 ,atx, 21
7 ,xta, 20
7 ,xts, 21
14 ,vtm, -2
,call, modf
7 ,atx, 22
7 ,atx, 23
7 ,xta, 22
,ntr, 0
,a+x, =r0.01
,a*x, =r10.
,ntr, 7
,call, b/dtoi
,a+x, =60
,aax, =377
7 ,atx, 28
7 ,xta, 19
7 ,xts, 28
,call, b/stb
7 ,xta, 19
,call, b/pdec
7 ,atx, 19
7 ,xta, 2
,a+x, =1
7 ,atx, 2
,uj, *L1
*L0: ,bss,
6 ,xta, 4
,xts, =106
,call, b/eq
,uza, *28
7 ,xta, 2
,uza, *30
7 ,xta, 19
,call, b/pinc
7 ,atx, 19
*L3: ,bss,
7 ,xta, 19
7 ,xts, 12
,call, b/pdiff
,xts, =0
,call, b/lt
,uza, *L2
7 ,xta, 19
7 ,atx, 35
7 ,xta, 19
,call, b/pinc
7 ,atx, 19
7 ,wtc, 35
,xta,
7 ,asx, 35
,aax, =377
7 ,atx, 37
7 ,xta, 16
7 ,atx, 38
7 ,xta, 16
,call, b/pinc
7 ,atx, 16
7 ,xta, 38
7 ,xts, 37
,call, b/stb
,uj, *L3
*L2: ,bss,
,uj, *31
*30: ,bss,
7 ,xta, 16
7 ,atx, 40
7 ,xta, 16
,call, b/pinc
7 ,atx, 16
7 ,xta, 40
,xts, =60
,call, b/stb
*31: ,bss,
7 ,xta,
,u1a, *45
6 ,xta, 2
,xts, =0
,call, b/ne
7 ,atx, 42
,uj, *46
*45: ,bss,
,xta, =1
7 ,atx, 42
*46: ,bss,
7 ,xta, 42
,uza, *48
7 ,xta, 16
7 ,atx, 43
7 ,xta, 16
,call, b/pinc
7 ,atx, 16
7 ,xta, 43
,xts, =56
,call, b/stb
,uj, *49
*48: ,bss,
*49: ,bss,
7 ,xta, 8
,uza, *54
7 ,xta,
,uza, *56
*58: ,bss,
7 ,xta, 8
,ntr, 0
,a*x, =r10.
,ntr, 7
7 ,atx, 45
7 ,utc, 23
14 ,vtm, 0
,ita, 14
7 ,atx, 46
7 ,xta, 45
7 ,xts, 46
14 ,vtm, -2
,call, modf
7 ,atx, 47
7 ,atx, 8
7 ,xta, 23
,call, b/dtoi
,a+x, =60
,aax, =377
7 ,atx, 50
7 ,xta, 16
7 ,atx, 51
7 ,xta, 16
,call, b/pinc
7 ,atx, 16
7 ,xta, 51
7 ,xts, 50
,call, b/stb
7 ,xta,
,a-x, =1
7 ,atx, 53
7 ,atx,
7 ,xta, 53
,uza, *70
7 ,xta, 47
,xts, =0
,call, b/ne
7 ,atx, 54
,uj, *71
*70: ,bss,
,xta, =0
7 ,atx, 54
*71: ,bss,
7 ,xta, 54
,u1a, *58
,uj, *57
*56: ,bss,
*57: ,bss,
7 ,xta, 8
,uza, *73
7 ,utc, 14
14 ,vtm, 0
,ita, 14
7 ,atx, 55
,xta, =1
,x-a,
7 ,atx, 56
7 ,xta, 16
7 ,xts, 56
,call, b/padd
7 ,atx, 57
7 ,xta, 8
,xts, =0
7 ,xts, 55
7 ,xts, 57
,xts, =60
6 ,xts, 3
14 ,vtm, -6
,call, cvtround
,uj, *74
*73: ,bss,
*74: ,bss,
,uj, *55
*54: ,bss,
*55: ,bss,
*80: ,bss,
7 ,xta,
,xts, =0
,call, b/gt
,uza, *L6
7 ,xta, 16
7 ,atx, 59
7 ,xta, 16
,call, b/pinc
7 ,atx, 16
7 ,xta, 59
,xts, =60
,call, b/stb
7 ,xta,
,a-x, =1
7 ,atx,
,uj, *80
*L6: ,bss,
7 ,xta, 14
6 ,xts, 5
,call, b/pdiff
6 ,wtc, 7
,atx,
7 ,xta, 16
7 ,xts, 14
,call, b/pdiff
,uj, b/ret
*28: ,bss,
6 ,xta, 4
,xts, =105
,call, b/eq
,uza, *93
eformat: ,bss,
7 ,xta, 2
,uza, *95
7 ,xta, 19
,call, b/pinc
7 ,atx, 65
7 ,atx, 19
7 ,wtc, 65
,xta,
7 ,asx, 65
,aax, =377
7 ,atx, 66
7 ,xta, 16
7 ,atx, 67
7 ,xta, 16
,call, b/pinc
7 ,atx, 68
7 ,atx, 16
7 ,xta, 67
7 ,xts, 66
,call, b/stb
7 ,xta,
,u1a, *102
6 ,xta, 2
,xts, =0
,call, b/ne
7 ,atx, 69
,uj, *103
*102: ,bss,
,xta, =1
7 ,atx, 69
*103: ,bss,
7 ,xta, 69
,uza, *105
7 ,xta, 68
,call, b/pinc
7 ,atx, 16
7 ,xta, 68
,xts, =56
,call, b/stb
,uj, *106
*105: ,bss,
*106: ,bss,
*111: ,bss,
7 ,xta,
,call, b/not
,u1a, *L8
*113: ,bss,
7 ,xta, 19
,call, b/pinc
7 ,atx, 72
7 ,atx, 19
7 ,xta, 72
7 ,xts, 12
,call, b/pdiff
,xts, =0
,call, b/ge
,u1a, *L8
*118: ,bss,
7 ,wtc, 19
,xta,
7 ,asx, 19
,aax, =377
7 ,atx, 75
7 ,xta, 16
7 ,atx, 76
7 ,xta, 16
,call, b/pinc
7 ,atx, 16
7 ,xta, 76
7 ,xts, 75
,call, b/stb
7 ,xta,
,a-x, =1
7 ,atx,
,uj, *111
*L8: ,bss,
7 ,xta,
,call, b/not
,uza, *126
7 ,xta, 19
,call, b/pinc
7 ,atx, 80
7 ,xts, 12
,call, b/pdiff
,xts, =0
,call, b/lt
,uza, *131
,xta, =r0.
7 ,atx, 8
7 ,utc, 2
14 ,vtm, 0
,ita, 14
7 ,atx, 83
7 ,utc, 14
14 ,vtm, 0
,ita, 14
7 ,atx, 84
,xta, =1
,x-a,
7 ,atx, 85
7 ,xta, 16
7 ,xts, 85
,call, b/padd
7 ,atx, 86
7 ,wtc, 80
,xta,
7 ,asx, 80
,aax, =377
,aax, =377
,aex, =200
,a-x, =200
7 ,atx, 88
,xta, =r0.
7 ,xts, 83
7 ,xts, 84
7 ,xts, 86
7 ,xts, 88
6 ,xts, 3
14 ,vtm, -6
,call, cvtround
,uj, *132
*131: ,bss,
*132: ,bss,
,uj, *127
*126: ,bss,
*127: ,bss,
7 ,xta, 2
,a-x, =1
7 ,atx, 2
,uj, *96
*95: ,bss,
7 ,xta, 8
,uza, *143
,xta, =37777777777777
7 ,atx, 2
*146: ,bss,
7 ,xta, 8
,ntr, 0
,a*x, =r10.
,ntr, 7
7 ,atx, 90
7 ,utc, 23
14 ,vtm, 0
,ita, 14
7 ,atx, 91
7 ,xta, 90
7 ,xts, 91
14 ,vtm, -2
,call, modf
7 ,atx, 8
7 ,xta, 23
,u1a, *L10
*151: ,bss,
7 ,xta, 2
,a-x, =1
7 ,atx, 2
,uj, *146
*L10: ,bss,
7 ,xta, 23
,call, b/dtoi
,a+x, =60
,aax, =377
7 ,atx, 96
7 ,xta, 16
7 ,atx, 97
7 ,xta, 16
,call, b/pinc
7 ,atx, 98
7 ,atx, 16
7 ,xta, 97
7 ,xts, 96
,call, b/stb
7 ,xta,
,u1a, *160
6 ,xta, 2
,xts, =0
,call, b/ne
7 ,atx, 99
,uj, *161
*160: ,bss,
,xta, =1
7 ,atx, 99
*161: ,bss,
7 ,xta, 99
,uza, *163
7 ,xta, 98
,call, b/pinc
7 ,atx, 16
7 ,xta, 98
,xts, =56
,call, b/stb
,uj, *164
*163: ,bss,
*164: ,bss,
,uj, *144
*143: ,bss,
7 ,xta, 16
7 ,atx, 101
7 ,xta, 16
,call, b/pinc
7 ,atx, 102
7 ,atx, 16
7 ,xta, 101
,xts, =60
,call, b/stb
7 ,xta,
,u1a, *173
6 ,xta, 2
,xts, =0
,call, b/ne
7 ,atx, 103
,uj, *174
*173: ,bss,
,xta, =1
7 ,atx, 103
*174: ,bss,
7 ,xta, 103
,uza, *176
7 ,xta, 102
,call, b/pinc
7 ,atx, 16
7 ,xta, 102
,xts, =56
,call, b/stb
,uj, *177
*176: ,bss,
*177: ,bss,
*144: ,bss,
*96: ,bss,
7 ,xta, 8
,uza, *182
7 ,xta,
,uza, *184
*186: ,bss,
7 ,xta, 8
,ntr, 0
,a*x, =r10.
,ntr, 7
7 ,atx, 105
7 ,utc, 23
14 ,vtm, 0
,ita, 14
7 ,atx, 106
7 ,xta, 105
7 ,xts, 106
14 ,vtm, -2
,call, modf
7 ,atx, 107
7 ,atx, 8
7 ,xta, 23
,call, b/dtoi
,a+x, =60
,aax, =377
7 ,atx, 110
7 ,xta, 16
7 ,atx, 111
7 ,xta, 16
,call, b/pinc
7 ,atx, 16
7 ,xta, 111
7 ,xts, 110
,call, b/stb
7 ,xta,
,a-x, =1
7 ,atx, 113
7 ,atx,
7 ,xta, 113
,uza, *198
7 ,xta, 107
,xts, =0
,call, b/ne
7 ,atx, 114
,uj, *199
*198: ,bss,
,xta, =0
7 ,atx, 114
*199: ,bss,
7 ,xta, 114
,u1a, *186
,uj, *185
*184: ,bss,
*185: ,bss,
7 ,xta, 8
,uza, *201
7 ,utc, 2
14 ,vtm, 0
,ita, 14
7 ,atx, 115
7 ,utc, 14
14 ,vtm, 0
,ita, 14
7 ,atx, 116
,xta, =1
,x-a,
7 ,atx, 117
7 ,xta, 16
7 ,xts, 117
,call, b/padd
7 ,atx, 118
7 ,xta, 8
7 ,xts, 115
7 ,xts, 116
7 ,xts, 118
,xts, =60
6 ,xts, 3
14 ,vtm, -6
,call, cvtround
,uj, *202
*201: ,bss,
*202: ,bss,
,uj, *183
*182: ,bss,
*183: ,bss,
*208: ,bss,
7 ,xta,
,xts, =0
,call, b/gt
,uza, *L14
7 ,xta, 16
7 ,atx, 120
7 ,xta, 16
,call, b/pinc
7 ,atx, 16
7 ,xta, 120
,xts, =60
,call, b/stb
7 ,xta,
,a-x, =1
7 ,atx,
,uj, *208
*L14: ,bss,
7 ,xta, 3
,uza, *215
6 ,xta, 2
,call, b/not
,xts, =0
,call, b/ne
7 ,atx, 124
,uj, *216
*215: ,bss,
,xta, =0
7 ,atx, 124
*216: ,bss,
7 ,xta, 124
,uza, *219
*L17: ,bss,
7 ,xta, 16
7 ,xts, 14
,call, b/pdiff
,xts, =0
,call, b/gt
,uza, *L16
7 ,xta, 16
,call, b/pdec
7 ,atx, 127
7 ,atx, 16
7 ,wtc, 127
,xta,
7 ,asx, 127
,aax, =377
,aax, =377
,aex, =200
,a-x, =200
,xts, =60
,call, b/ne
,u1a, *L16
*227: ,bss,
,uj, *L17
*L16: ,bss,
7 ,wtc, 16
,xta,
7 ,asx, 16
,aax, =377
,aax, =377
,aex, =200
,a-x, =200
,xts, =56
,call, b/eq
,uza, *232
7 ,xta, 16
,call, b/pdec
7 ,atx, 16
,uj, *233
*232: ,bss,
*233: ,bss,
7 ,xta, 16
,call, b/pinc
7 ,atx, 16
,uj, *220
*219: ,bss,
*220: ,bss,
7 ,xta, 16
7 ,xts, 2
7 ,xts, 1
14 ,vtm, -3
,call, exponent
7 ,atx, 136
7 ,xta, 14
6 ,xts, 5
,call, b/pdiff
6 ,wtc, 7
,atx,
7 ,xta, 136
7 ,xts, 14
,call, b/pdiff
,uj, b/ret
*93: ,bss,
7 ,xta,
,call, b/not
,uza, *243
7 ,xta,
,a+x, =1
7 ,atx,
,uj, *244
*243: ,bss,
*244: ,bss,
7 ,xta, 2
7 ,xts,
,call, b/gt
,u1a, *247
7 ,xta, 2
,call, b/not
,uza, *251
7 ,xta, 8
,xts, =0
,call, b/ne
7 ,atx, 143
,uj, *252
*251: ,bss,
,xta, =0
7 ,atx, 143
*252: ,bss,
7 ,xta, 143
,uza, *254
7 ,xta, 8
,xts, =r0.0001
,call, b/flt
,xts, =0
,call, b/ne
7 ,atx, 145
,uj, *255
*254: ,bss,
,xta, =0
7 ,atx, 145
*255: ,bss,
7 ,xta, 145
,xts, =0
,call, b/ne
7 ,atx, 146
,uj, *248
*247: ,bss,
,xta, =1
7 ,atx, 146
*248: ,bss,
7 ,xta, 146
,uza, *258
7 ,xta,
,a-x, =1
7 ,atx,
,xta, =105
7 ,atx, 1
,xta, =1
7 ,atx, 3
,uj, eformat
*258: ,bss,
7 ,xta, 2
,uza, *261
*263: ,bss,
7 ,xta, 19
,call, b/pinc
7 ,atx, 148
7 ,atx, 19
7 ,xta, 148
7 ,xts, 12
,call, b/pdiff
,xts, =0
,call, b/ge
,u1a, *L18
*267: ,bss,
7 ,wtc, 19
,xta,
7 ,asx, 19
,aax, =377
7 ,atx, 151
7 ,xta, 16
7 ,atx, 152
7 ,xta, 16
,call, b/pinc
7 ,atx, 16
7 ,xta, 152
7 ,xts, 151
,call, b/stb
7 ,xta,
,a-x, =1
7 ,atx,
,uj, *263
*L18: ,bss,
,uj, *262
*261: ,bss,
7 ,xta, 16
7 ,atx, 155
7 ,xta, 16
,call, b/pinc
7 ,atx, 16
7 ,xta, 155
,xts, =60
,call, b/stb
*262: ,bss,
7 ,xta,
,u1a, *278
6 ,xta, 2
,xts, =0
,call, b/ne
7 ,atx, 157
,uj, *279
*278: ,bss,
,xta, =1
7 ,atx, 157
*279: ,bss,
7 ,xta, 157
,uza, *281
,xta, =1
7 ,atx, 4
7 ,xta, 16
7 ,atx, 158
7 ,xta, 16
,call, b/pinc
7 ,atx, 16
7 ,xta, 158
,xts, =56
,call, b/stb
,uj, *282
*281: ,bss,
*282: ,bss,
*L21: ,bss,
7 ,xta,
,uza, *287
7 ,xta, 8
,xts, =0
,call, b/ne
7 ,atx, 160
,uj, *288
*287: ,bss,
,xta, =0
7 ,atx, 160
*288: ,bss,
7 ,xta, 160
,uza, *L20
7 ,xta, 8
,ntr, 0
,a*x, =r10.
,ntr, 7
7 ,atx, 161
7 ,utc, 23
14 ,vtm, 0
,ita, 14
7 ,atx, 162
7 ,xta, 161
7 ,xts, 162
14 ,vtm, -2
,call, modf
7 ,atx, 8
7 ,xta, 23
,call, b/dtoi
,a+x, =60
,aax, =377
7 ,atx, 166
7 ,xta, 16
7 ,atx, 167
7 ,xta, 16
,call, b/pinc
7 ,atx, 16
7 ,xta, 167
7 ,xts, 166
,call, b/stb
7 ,xta,
,a-x, =1
7 ,atx,
,uj, *L21
*L20: ,bss,
7 ,xta, 8
,uza, *301
7 ,utc, 14
14 ,vtm, 0
,ita, 14
7 ,atx, 170
,xta, =1
,x-a,
7 ,atx, 171
7 ,xta, 16
7 ,xts, 171
,call, b/padd
7 ,atx, 172
7 ,xta, 8
,xts, =0
7 ,xts, 170
7 ,xts, 172
,xts, =60
6 ,xts, 3
14 ,vtm, -6
,call, cvtround
,uj, *302
*301: ,bss,
*302: ,bss,
6 ,xta, 2
,uza, *308
*310: ,bss,
7 ,xta,
,xts, =0
,call, b/gt
,uza, *L22
7 ,xta, 16
7 ,atx, 174
7 ,xta, 16
,call, b/pinc
7 ,atx, 16
7 ,xta, 174
,xts, =60
,call, b/stb
7 ,xta,
,a-x, =1
7 ,atx,
,uj, *310
*L22: ,bss,
,uj, *309
*308: ,bss,
7 ,xta, 4
,uza, *317
*L25: ,bss,
7 ,xta, 16
7 ,xts, 14
,call, b/pdiff
,xts, =0
,call, b/gt
,uza, *L24
7 ,xta, 16
,call, b/pdec
7 ,atx, 179
7 ,atx, 16
7 ,wtc, 179
,xta,
7 ,asx, 179
,aax, =377
,aax, =377
,aex, =200
,a-x, =200
,xts, =60
,call, b/ne
,u1a, *L24
*325: ,bss,
,uj, *L25
*L24: ,bss,
7 ,wtc, 16
,xta,
7 ,asx, 16
,aax, =377
,aax, =377
,aex, =200
,a-x, =200
,xts, =56
,call, b/ne
,uza, *330
7 ,xta, 16
,call, b/pinc
7 ,atx, 16
,uj, *331
*330: ,bss,
*331: ,bss,
,uj, *318
*317: ,bss,
*318: ,bss,
*309: ,bss,
7 ,xta, 14
6 ,xts, 5
,call, b/pdiff
6 ,wtc, 7
,atx,
7 ,xta, 16
7 ,xts, 14
,call, b/pdiff
,uj, b/ret
,end,
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment