mirror of https://github.com/wwarthen/RomWBW.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
2430 lines
20 KiB
2430 lines
20 KiB
extrn .begin,.chl,.swt
|
|
extrn csave,cret,.move
|
|
global c_,2
|
|
global d_,2
|
|
global v_,2
|
|
DSEG
|
|
public data_
|
|
data_:
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 60
|
|
DB 60
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 240
|
|
DB 240
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 60
|
|
DB 60
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 240
|
|
DB 240
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 255
|
|
DB 255
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 32
|
|
DB 112
|
|
DB 248
|
|
DB 112
|
|
DB 32
|
|
DB 0
|
|
DB 0
|
|
DB 248
|
|
DB 216
|
|
DB 136
|
|
DB 0
|
|
DB 136
|
|
DB 216
|
|
DB 248
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 24
|
|
DB 24
|
|
DB 32
|
|
DB 96
|
|
DB 144
|
|
DB 96
|
|
DB 0
|
|
DB 0
|
|
DB 32
|
|
DB 80
|
|
DB 32
|
|
DB 32
|
|
DB 112
|
|
DB 32
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 168
|
|
DB 80
|
|
DB 80
|
|
DB 216
|
|
DB 80
|
|
DB 80
|
|
DB 168
|
|
DB 0
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 252
|
|
DB 252
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 16
|
|
DB 48
|
|
DB 112
|
|
DB 240
|
|
DB 112
|
|
DB 48
|
|
DB 16
|
|
DB 0
|
|
DB 32
|
|
DB 112
|
|
DB 32
|
|
DB 32
|
|
DB 32
|
|
DB 112
|
|
DB 32
|
|
DB 0
|
|
DB 80
|
|
DB 80
|
|
DB 80
|
|
DB 80
|
|
DB 0
|
|
DB 80
|
|
DB 0
|
|
DB 0
|
|
DB 120
|
|
DB 168
|
|
DB 168
|
|
DB 104
|
|
DB 40
|
|
DB 40
|
|
DB 0
|
|
DB 0
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 252
|
|
DB 252
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 252
|
|
DB 252
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 240
|
|
DB 240
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 32
|
|
DB 112
|
|
DB 32
|
|
DB 32
|
|
DB 32
|
|
DB 32
|
|
DB 32
|
|
DB 32
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 60
|
|
DB 60
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 0
|
|
DB 16
|
|
DB 24
|
|
DB 252
|
|
DB 24
|
|
DB 16
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 32
|
|
DB 96
|
|
DB 252
|
|
DB 96
|
|
DB 32
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 48
|
|
DB 120
|
|
DB 120
|
|
DB 48
|
|
DB 0
|
|
DB 48
|
|
DB 0
|
|
DB 0
|
|
DB 216
|
|
DB 216
|
|
DB 80
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 72
|
|
DB 72
|
|
DB 252
|
|
DB 72
|
|
DB 72
|
|
DB 252
|
|
DB 72
|
|
DB 72
|
|
DB 32
|
|
DB 120
|
|
DB 160
|
|
DB 120
|
|
DB 36
|
|
DB 248
|
|
DB 32
|
|
DB 0
|
|
DB 0
|
|
DB 200
|
|
DB 208
|
|
DB 32
|
|
DB 88
|
|
DB 152
|
|
DB 0
|
|
DB 0
|
|
DB 48
|
|
DB 72
|
|
DB 72
|
|
DB 80
|
|
DB 96
|
|
DB 144
|
|
DB 120
|
|
DB 0
|
|
DB 48
|
|
DB 48
|
|
DB 64
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 16
|
|
DB 32
|
|
DB 32
|
|
DB 32
|
|
DB 32
|
|
DB 32
|
|
DB 16
|
|
DB 0
|
|
DB 32
|
|
DB 16
|
|
DB 16
|
|
DB 16
|
|
DB 16
|
|
DB 16
|
|
DB 32
|
|
DB 0
|
|
DB 32
|
|
DB 168
|
|
DB 112
|
|
DB 248
|
|
DB 112
|
|
DB 168
|
|
DB 32
|
|
DB 0
|
|
DB 0
|
|
DB 32
|
|
DB 32
|
|
DB 248
|
|
DB 32
|
|
DB 32
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 48
|
|
DB 48
|
|
DB 64
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 252
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 48
|
|
DB 48
|
|
DB 0
|
|
DB 4
|
|
DB 8
|
|
DB 16
|
|
DB 32
|
|
DB 64
|
|
DB 128
|
|
DB 0
|
|
DB 0
|
|
DB 112
|
|
DB 152
|
|
DB 168
|
|
DB 168
|
|
DB 168
|
|
DB 200
|
|
DB 112
|
|
DB 0
|
|
DB 32
|
|
DB 96
|
|
DB 32
|
|
DB 32
|
|
DB 32
|
|
DB 32
|
|
DB 248
|
|
DB 0
|
|
DB 32
|
|
DB 80
|
|
DB 16
|
|
DB 32
|
|
DB 64
|
|
DB 128
|
|
DB 248
|
|
DB 0
|
|
DB 112
|
|
DB 136
|
|
DB 8
|
|
DB 112
|
|
DB 8
|
|
DB 136
|
|
DB 112
|
|
DB 0
|
|
DB 48
|
|
DB 80
|
|
DB 144
|
|
DB 248
|
|
DB 16
|
|
DB 16
|
|
DB 16
|
|
DB 0
|
|
DB 248
|
|
DB 128
|
|
DB 128
|
|
DB 240
|
|
DB 8
|
|
DB 136
|
|
DB 112
|
|
DB 0
|
|
DB 56
|
|
DB 64
|
|
DB 128
|
|
DB 240
|
|
DB 136
|
|
DB 136
|
|
DB 112
|
|
DB 0
|
|
DB 248
|
|
DB 8
|
|
DB 16
|
|
DB 32
|
|
DB 32
|
|
DB 32
|
|
DB 32
|
|
DB 0
|
|
DB 112
|
|
DB 136
|
|
DB 136
|
|
DB 112
|
|
DB 136
|
|
DB 136
|
|
DB 112
|
|
DB 0
|
|
DB 112
|
|
DB 136
|
|
DB 136
|
|
DB 120
|
|
DB 8
|
|
DB 136
|
|
DB 112
|
|
DB 0
|
|
DB 0
|
|
DB 48
|
|
DB 48
|
|
DB 0
|
|
DB 48
|
|
DB 48
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 48
|
|
DB 48
|
|
DB 0
|
|
DB 48
|
|
DB 48
|
|
DB 96
|
|
DB 0
|
|
DB 16
|
|
DB 32
|
|
DB 64
|
|
DB 128
|
|
DB 64
|
|
DB 32
|
|
DB 16
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 252
|
|
DB 0
|
|
DB 252
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 64
|
|
DB 32
|
|
DB 16
|
|
DB 8
|
|
DB 16
|
|
DB 32
|
|
DB 64
|
|
DB 0
|
|
DB 112
|
|
DB 136
|
|
DB 8
|
|
DB 48
|
|
DB 32
|
|
DB 0
|
|
DB 32
|
|
DB 0
|
|
DB 112
|
|
DB 136
|
|
DB 184
|
|
DB 176
|
|
DB 128
|
|
DB 128
|
|
DB 112
|
|
DB 0
|
|
DB 32
|
|
DB 80
|
|
DB 136
|
|
DB 248
|
|
DB 136
|
|
DB 136
|
|
DB 136
|
|
DB 0
|
|
DB 240
|
|
DB 72
|
|
DB 72
|
|
DB 112
|
|
DB 72
|
|
DB 72
|
|
DB 240
|
|
DB 0
|
|
DB 112
|
|
DB 136
|
|
DB 128
|
|
DB 128
|
|
DB 128
|
|
DB 136
|
|
DB 112
|
|
DB 0
|
|
DB 240
|
|
DB 72
|
|
DB 72
|
|
DB 72
|
|
DB 72
|
|
DB 72
|
|
DB 240
|
|
DB 0
|
|
DB 248
|
|
DB 136
|
|
DB 128
|
|
DB 224
|
|
DB 128
|
|
DB 136
|
|
DB 248
|
|
DB 0
|
|
DB 248
|
|
DB 136
|
|
DB 128
|
|
DB 240
|
|
DB 128
|
|
DB 128
|
|
DB 128
|
|
DB 0
|
|
DB 112
|
|
DB 136
|
|
DB 128
|
|
DB 184
|
|
DB 136
|
|
DB 136
|
|
DB 112
|
|
DB 0
|
|
DB 136
|
|
DB 136
|
|
DB 136
|
|
DB 248
|
|
DB 136
|
|
DB 136
|
|
DB 136
|
|
DB 0
|
|
DB 248
|
|
DB 32
|
|
DB 32
|
|
DB 32
|
|
DB 32
|
|
DB 32
|
|
DB 248
|
|
DB 0
|
|
DB 28
|
|
DB 8
|
|
DB 8
|
|
DB 8
|
|
DB 8
|
|
DB 136
|
|
DB 112
|
|
DB 0
|
|
DB 136
|
|
DB 144
|
|
DB 160
|
|
DB 192
|
|
DB 160
|
|
DB 144
|
|
DB 136
|
|
DB 0
|
|
DB 128
|
|
DB 128
|
|
DB 128
|
|
DB 128
|
|
DB 128
|
|
DB 136
|
|
DB 248
|
|
DB 0
|
|
DB 136
|
|
DB 216
|
|
DB 168
|
|
DB 136
|
|
DB 136
|
|
DB 136
|
|
DB 136
|
|
DB 0
|
|
DB 136
|
|
DB 200
|
|
DB 168
|
|
DB 168
|
|
DB 168
|
|
DB 152
|
|
DB 136
|
|
DB 0
|
|
DB 112
|
|
DB 136
|
|
DB 136
|
|
DB 136
|
|
DB 136
|
|
DB 136
|
|
DB 112
|
|
DB 0
|
|
DB 240
|
|
DB 136
|
|
DB 136
|
|
DB 240
|
|
DB 128
|
|
DB 128
|
|
DB 128
|
|
DB 0
|
|
DB 112
|
|
DB 136
|
|
DB 136
|
|
DB 136
|
|
DB 168
|
|
DB 152
|
|
DB 120
|
|
DB 4
|
|
DB 240
|
|
DB 136
|
|
DB 136
|
|
DB 240
|
|
DB 160
|
|
DB 144
|
|
DB 136
|
|
DB 0
|
|
DB 112
|
|
DB 136
|
|
DB 64
|
|
DB 32
|
|
DB 16
|
|
DB 136
|
|
DB 112
|
|
DB 0
|
|
DB 248
|
|
DB 32
|
|
DB 32
|
|
DB 32
|
|
DB 32
|
|
DB 32
|
|
DB 112
|
|
DB 0
|
|
DB 136
|
|
DB 136
|
|
DB 136
|
|
DB 136
|
|
DB 136
|
|
DB 136
|
|
DB 112
|
|
DB 0
|
|
DB 136
|
|
DB 136
|
|
DB 136
|
|
DB 80
|
|
DB 80
|
|
DB 80
|
|
DB 32
|
|
DB 0
|
|
DB 136
|
|
DB 136
|
|
DB 136
|
|
DB 168
|
|
DB 168
|
|
DB 168
|
|
DB 80
|
|
DB 0
|
|
DB 136
|
|
DB 136
|
|
DB 80
|
|
DB 32
|
|
DB 80
|
|
DB 136
|
|
DB 136
|
|
DB 0
|
|
DB 136
|
|
DB 136
|
|
DB 80
|
|
DB 32
|
|
DB 32
|
|
DB 32
|
|
DB 32
|
|
DB 0
|
|
DB 248
|
|
DB 136
|
|
DB 16
|
|
DB 32
|
|
DB 64
|
|
DB 136
|
|
DB 248
|
|
DB 0
|
|
DB 120
|
|
DB 64
|
|
DB 64
|
|
DB 64
|
|
DB 64
|
|
DB 64
|
|
DB 120
|
|
DB 0
|
|
DB 0
|
|
DB 128
|
|
DB 64
|
|
DB 32
|
|
DB 16
|
|
DB 8
|
|
DB 0
|
|
DB 0
|
|
DB 120
|
|
DB 8
|
|
DB 8
|
|
DB 8
|
|
DB 8
|
|
DB 8
|
|
DB 120
|
|
DB 0
|
|
DB 32
|
|
DB 80
|
|
DB 136
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 252
|
|
DB 0
|
|
DB 96
|
|
DB 96
|
|
DB 16
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 240
|
|
DB 8
|
|
DB 120
|
|
DB 136
|
|
DB 112
|
|
DB 0
|
|
DB 128
|
|
DB 128
|
|
DB 128
|
|
DB 240
|
|
DB 136
|
|
DB 136
|
|
DB 240
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 112
|
|
DB 128
|
|
DB 128
|
|
DB 112
|
|
DB 0
|
|
DB 8
|
|
DB 8
|
|
DB 8
|
|
DB 120
|
|
DB 136
|
|
DB 136
|
|
DB 120
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 112
|
|
DB 136
|
|
DB 248
|
|
DB 128
|
|
DB 112
|
|
DB 0
|
|
DB 0
|
|
DB 48
|
|
DB 72
|
|
DB 224
|
|
DB 64
|
|
DB 64
|
|
DB 64
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 56
|
|
DB 72
|
|
DB 72
|
|
DB 56
|
|
DB 8
|
|
DB 112
|
|
DB 0
|
|
DB 128
|
|
DB 128
|
|
DB 176
|
|
DB 200
|
|
DB 136
|
|
DB 136
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 32
|
|
DB 0
|
|
DB 96
|
|
DB 32
|
|
DB 112
|
|
DB 0
|
|
DB 0
|
|
DB 8
|
|
DB 0
|
|
DB 24
|
|
DB 8
|
|
DB 8
|
|
DB 72
|
|
DB 48
|
|
DB 128
|
|
DB 128
|
|
DB 144
|
|
DB 160
|
|
DB 192
|
|
DB 160
|
|
DB 144
|
|
DB 0
|
|
DB 32
|
|
DB 32
|
|
DB 32
|
|
DB 32
|
|
DB 32
|
|
DB 32
|
|
DB 32
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 80
|
|
DB 168
|
|
DB 168
|
|
DB 136
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 176
|
|
DB 200
|
|
DB 136
|
|
DB 136
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 112
|
|
DB 136
|
|
DB 136
|
|
DB 112
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 112
|
|
DB 72
|
|
DB 72
|
|
DB 112
|
|
DB 64
|
|
DB 64
|
|
DB 0
|
|
DB 96
|
|
DB 56
|
|
DB 72
|
|
DB 72
|
|
DB 56
|
|
DB 8
|
|
DB 8
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 176
|
|
DB 200
|
|
DB 128
|
|
DB 128
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 96
|
|
DB 128
|
|
DB 96
|
|
DB 16
|
|
DB 96
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 64
|
|
DB 224
|
|
DB 64
|
|
DB 64
|
|
DB 32
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 144
|
|
DB 144
|
|
DB 144
|
|
DB 104
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 136
|
|
DB 136
|
|
DB 80
|
|
DB 32
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 136
|
|
DB 168
|
|
DB 168
|
|
DB 80
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 72
|
|
DB 48
|
|
DB 48
|
|
DB 72
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 136
|
|
DB 80
|
|
DB 32
|
|
DB 64
|
|
DB 128
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 248
|
|
DB 16
|
|
DB 32
|
|
DB 64
|
|
DB 248
|
|
DB 0
|
|
DB 16
|
|
DB 32
|
|
DB 32
|
|
DB 64
|
|
DB 32
|
|
DB 32
|
|
DB 16
|
|
DB 0
|
|
DB 32
|
|
DB 32
|
|
DB 32
|
|
DB 0
|
|
DB 32
|
|
DB 32
|
|
DB 32
|
|
DB 0
|
|
DB 64
|
|
DB 32
|
|
DB 32
|
|
DB 16
|
|
DB 32
|
|
DB 32
|
|
DB 64
|
|
DB 0
|
|
DB 108
|
|
DB 144
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 112
|
|
DB 80
|
|
DB 80
|
|
DB 80
|
|
DB 80
|
|
DB 80
|
|
DB 112
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 32
|
|
DB 64
|
|
DB 240
|
|
DB 8
|
|
DB 120
|
|
DB 136
|
|
DB 112
|
|
DB 0
|
|
DB 16
|
|
DB 32
|
|
DB 0
|
|
DB 96
|
|
DB 32
|
|
DB 32
|
|
DB 248
|
|
DB 0
|
|
DB 16
|
|
DB 32
|
|
DB 0
|
|
DB 112
|
|
DB 136
|
|
DB 136
|
|
DB 112
|
|
DB 0
|
|
DB 16
|
|
DB 32
|
|
DB 0
|
|
DB 136
|
|
DB 136
|
|
DB 136
|
|
DB 116
|
|
DB 0
|
|
DB 16
|
|
DB 32
|
|
DB 0
|
|
DB 176
|
|
DB 200
|
|
DB 136
|
|
DB 136
|
|
DB 0
|
|
DB 16
|
|
DB 32
|
|
DB 0
|
|
DB 200
|
|
DB 168
|
|
DB 152
|
|
DB 136
|
|
DB 0
|
|
DB 112
|
|
DB 136
|
|
DB 136
|
|
DB 124
|
|
DB 0
|
|
DB 252
|
|
DB 0
|
|
DB 0
|
|
DB 112
|
|
DB 136
|
|
DB 136
|
|
DB 112
|
|
DB 0
|
|
DB 252
|
|
DB 0
|
|
DB 0
|
|
DB 32
|
|
DB 0
|
|
DB 32
|
|
DB 32
|
|
DB 64
|
|
DB 136
|
|
DB 112
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 252
|
|
DB 128
|
|
DB 128
|
|
DB 128
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 252
|
|
DB 4
|
|
DB 4
|
|
DB 4
|
|
DB 136
|
|
DB 144
|
|
DB 168
|
|
DB 84
|
|
DB 136
|
|
DB 28
|
|
DB 0
|
|
DB 0
|
|
DB 136
|
|
DB 144
|
|
DB 168
|
|
DB 88
|
|
DB 184
|
|
DB 8
|
|
DB 0
|
|
DB 0
|
|
DB 48
|
|
DB 0
|
|
DB 48
|
|
DB 120
|
|
DB 120
|
|
DB 48
|
|
DB 0
|
|
DB 0
|
|
DB 20
|
|
DB 40
|
|
DB 80
|
|
DB 160
|
|
DB 80
|
|
DB 40
|
|
DB 20
|
|
DB 0
|
|
DB 160
|
|
DB 80
|
|
DB 40
|
|
DB 20
|
|
DB 40
|
|
DB 80
|
|
DB 160
|
|
DB 0
|
|
DB 84
|
|
DB 170
|
|
DB 84
|
|
DB 170
|
|
DB 84
|
|
DB 170
|
|
DB 84
|
|
DB 170
|
|
DB 170
|
|
DB 84
|
|
DB 170
|
|
DB 84
|
|
DB 170
|
|
DB 84
|
|
DB 170
|
|
DB 84
|
|
DB 182
|
|
DB 108
|
|
DB 218
|
|
DB 182
|
|
DB 108
|
|
DB 218
|
|
DB 182
|
|
DB 108
|
|
DB 24
|
|
DB 24
|
|
DB 24
|
|
DB 24
|
|
DB 24
|
|
DB 24
|
|
DB 24
|
|
DB 24
|
|
DB 24
|
|
DB 24
|
|
DB 24
|
|
DB 24
|
|
DB 248
|
|
DB 24
|
|
DB 24
|
|
DB 24
|
|
DB 24
|
|
DB 24
|
|
DB 24
|
|
DB 248
|
|
DB 24
|
|
DB 248
|
|
DB 24
|
|
DB 24
|
|
DB 108
|
|
DB 108
|
|
DB 108
|
|
DB 108
|
|
DB 236
|
|
DB 108
|
|
DB 108
|
|
DB 108
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 252
|
|
DB 108
|
|
DB 108
|
|
DB 108
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 252
|
|
DB 108
|
|
DB 236
|
|
DB 108
|
|
DB 108
|
|
DB 108
|
|
DB 108
|
|
DB 236
|
|
DB 12
|
|
DB 236
|
|
DB 108
|
|
DB 108
|
|
DB 108
|
|
DB 108
|
|
DB 108
|
|
DB 108
|
|
DB 108
|
|
DB 108
|
|
DB 108
|
|
DB 108
|
|
DB 108
|
|
DB 0
|
|
DB 0
|
|
DB 252
|
|
DB 14
|
|
DB 238
|
|
DB 108
|
|
DB 108
|
|
DB 108
|
|
DB 108
|
|
DB 108
|
|
DB 236
|
|
DB 12
|
|
DB 252
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 100
|
|
DB 100
|
|
DB 252
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 48
|
|
DB 48
|
|
DB 240
|
|
DB 48
|
|
DB 48
|
|
DB 240
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 240
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 60
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 252
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 252
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 60
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 252
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 252
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 60
|
|
DB 48
|
|
DB 60
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 216
|
|
DB 216
|
|
DB 220
|
|
DB 216
|
|
DB 216
|
|
DB 216
|
|
DB 216
|
|
DB 216
|
|
DB 216
|
|
DB 216
|
|
DB 216
|
|
DB 220
|
|
DB 192
|
|
DB 252
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 252
|
|
DB 192
|
|
DB 220
|
|
DB 216
|
|
DB 216
|
|
DB 216
|
|
DB 216
|
|
DB 216
|
|
DB 220
|
|
DB 192
|
|
DB 0
|
|
DB 252
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 252
|
|
DB 0
|
|
DB 216
|
|
DB 216
|
|
DB 216
|
|
DB 220
|
|
DB 192
|
|
DB 220
|
|
DB 216
|
|
DB 216
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 252
|
|
DB 0
|
|
DB 252
|
|
DB 0
|
|
DB 0
|
|
DB 216
|
|
DB 216
|
|
DB 216
|
|
DB 220
|
|
DB 0
|
|
DB 220
|
|
DB 216
|
|
DB 216
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 252
|
|
DB 0
|
|
DB 0
|
|
DB 252
|
|
DB 0
|
|
DB 216
|
|
DB 216
|
|
DB 216
|
|
DB 252
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 252
|
|
DB 0
|
|
DB 0
|
|
DB 252
|
|
DB 48
|
|
DB 48
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 252
|
|
DB 216
|
|
DB 216
|
|
DB 216
|
|
DB 216
|
|
DB 216
|
|
DB 252
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 60
|
|
DB 48
|
|
DB 48
|
|
DB 60
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 62
|
|
DB 48
|
|
DB 62
|
|
DB 48
|
|
DB 48
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 252
|
|
DB 216
|
|
DB 216
|
|
DB 216
|
|
DB 216
|
|
DB 216
|
|
DB 216
|
|
DB 220
|
|
DB 216
|
|
DB 216
|
|
DB 216
|
|
DB 48
|
|
DB 48
|
|
DB 252
|
|
DB 0
|
|
DB 0
|
|
DB 252
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 240
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 60
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 252
|
|
DB 252
|
|
DB 252
|
|
DB 252
|
|
DB 252
|
|
DB 252
|
|
DB 252
|
|
DB 252
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 252
|
|
DB 252
|
|
DB 252
|
|
DB 192
|
|
DB 192
|
|
DB 192
|
|
DB 192
|
|
DB 192
|
|
DB 192
|
|
DB 192
|
|
DB 192
|
|
DB 192
|
|
DB 192
|
|
DB 12
|
|
DB 12
|
|
DB 12
|
|
DB 12
|
|
DB 12
|
|
DB 12
|
|
DB 12
|
|
DB 12
|
|
DB 12
|
|
DB 12
|
|
DB 12
|
|
DB 12
|
|
DB 252
|
|
DB 252
|
|
DB 252
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 104
|
|
DB 144
|
|
DB 144
|
|
DB 104
|
|
DB 0
|
|
DB 112
|
|
DB 136
|
|
DB 136
|
|
DB 176
|
|
DB 136
|
|
DB 136
|
|
DB 240
|
|
DB 64
|
|
DB 240
|
|
DB 144
|
|
DB 128
|
|
DB 128
|
|
DB 128
|
|
DB 128
|
|
DB 128
|
|
DB 0
|
|
DB 248
|
|
DB 80
|
|
DB 80
|
|
DB 80
|
|
DB 80
|
|
DB 72
|
|
DB 0
|
|
DB 0
|
|
DB 248
|
|
DB 136
|
|
DB 64
|
|
DB 32
|
|
DB 64
|
|
DB 136
|
|
DB 248
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 124
|
|
DB 136
|
|
DB 136
|
|
DB 112
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 136
|
|
DB 136
|
|
DB 136
|
|
DB 112
|
|
DB 128
|
|
DB 0
|
|
DB 0
|
|
DB 116
|
|
DB 152
|
|
DB 16
|
|
DB 16
|
|
DB 28
|
|
DB 0
|
|
DB 252
|
|
DB 16
|
|
DB 56
|
|
DB 68
|
|
DB 56
|
|
DB 16
|
|
DB 252
|
|
DB 0
|
|
DB 48
|
|
DB 204
|
|
DB 204
|
|
DB 252
|
|
DB 204
|
|
DB 204
|
|
DB 56
|
|
DB 0
|
|
DB 120
|
|
DB 132
|
|
DB 132
|
|
DB 132
|
|
DB 72
|
|
DB 72
|
|
DB 132
|
|
DB 0
|
|
DB 60
|
|
DB 64
|
|
DB 56
|
|
DB 68
|
|
DB 68
|
|
DB 68
|
|
DB 56
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 108
|
|
DB 146
|
|
DB 146
|
|
DB 108
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 56
|
|
DB 88
|
|
DB 104
|
|
DB 112
|
|
DB 0
|
|
DB 56
|
|
DB 64
|
|
DB 128
|
|
DB 248
|
|
DB 128
|
|
DB 64
|
|
DB 56
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 48
|
|
DB 204
|
|
DB 204
|
|
DB 204
|
|
DB 204
|
|
DB 0
|
|
DB 252
|
|
DB 0
|
|
DB 0
|
|
DB 252
|
|
DB 0
|
|
DB 0
|
|
DB 252
|
|
DB 0
|
|
DB 16
|
|
DB 16
|
|
DB 124
|
|
DB 16
|
|
DB 16
|
|
DB 0
|
|
DB 254
|
|
DB 0
|
|
DB 32
|
|
DB 16
|
|
DB 8
|
|
DB 16
|
|
DB 32
|
|
DB 0
|
|
DB 254
|
|
DB 0
|
|
DB 16
|
|
DB 32
|
|
DB 64
|
|
DB 32
|
|
DB 16
|
|
DB 0
|
|
DB 254
|
|
DB 0
|
|
DB 24
|
|
DB 52
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 48
|
|
DB 176
|
|
DB 112
|
|
DB 48
|
|
DB 48
|
|
DB 0
|
|
DB 252
|
|
DB 0
|
|
DB 48
|
|
DB 48
|
|
DB 0
|
|
DB 0
|
|
DB 100
|
|
DB 152
|
|
DB 0
|
|
DB 100
|
|
DB 152
|
|
DB 0
|
|
DB 0
|
|
DB 56
|
|
DB 68
|
|
DB 68
|
|
DB 56
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 56
|
|
DB 56
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 56
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 14
|
|
DB 8
|
|
DB 8
|
|
DB 72
|
|
DB 40
|
|
DB 24
|
|
DB 8
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 176
|
|
DB 72
|
|
DB 72
|
|
DB 72
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 240
|
|
DB 60
|
|
DB 64
|
|
DB 128
|
|
DB 248
|
|
DB 0
|
|
DB 252
|
|
DB 252
|
|
DB 252
|
|
DB 252
|
|
DB 252
|
|
DB 252
|
|
DB 252
|
|
DB 252
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
DB 0
|
|
CSEG
|
|
PUBLIC func50_
|
|
func50_: lxi d,.2
|
|
call csave
|
|
LXI H,0
|
|
PUSH H
|
|
LXI H,153
|
|
PUSH H
|
|
CALL out_
|
|
POP D
|
|
POP D
|
|
LXI H,64
|
|
PUSH H
|
|
LXI H,153
|
|
PUSH H
|
|
CALL out_
|
|
POP D
|
|
POP D
|
|
RET
|
|
.2 EQU 0
|
|
PUBLIC func80_
|
|
func80_: lxi d,.3
|
|
call csave
|
|
LXI H,0
|
|
XCHG
|
|
LXI H,2-.3
|
|
DAD SP
|
|
MOV M,E
|
|
INX H
|
|
MOV M,D
|
|
JMP .5
|
|
.4:
|
|
LXI H,2-.3
|
|
DAD SP
|
|
PUSH H
|
|
MOV A,M
|
|
INX H
|
|
MOV H,M
|
|
MOV L,A
|
|
INX H
|
|
XCHG
|
|
POP H
|
|
MOV M,E
|
|
INX H
|
|
MOV M,D
|
|
.5:
|
|
LXI H,2-.3
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,16384
|
|
CALL .ul
|
|
JZ .6
|
|
LXI H,0
|
|
PUSH H
|
|
LXI H,152
|
|
PUSH H
|
|
CALL out_
|
|
POP D
|
|
POP D
|
|
JMP .4
|
|
.6:
|
|
RET
|
|
.3 EQU -2
|
|
PUBLIC func140_
|
|
func140_: lxi d,.7
|
|
call csave
|
|
LXI H,0
|
|
PUSH H
|
|
LXI H,153
|
|
PUSH H
|
|
CALL out_
|
|
POP D
|
|
POP D
|
|
LXI H,128
|
|
PUSH H
|
|
LXI H,153
|
|
PUSH H
|
|
CALL out_
|
|
POP D
|
|
POP D
|
|
RET
|
|
.7 EQU 0
|
|
PUBLIC func210_
|
|
func210_: lxi d,.8
|
|
call csave
|
|
LXI H,80
|
|
PUSH H
|
|
LXI H,153
|
|
PUSH H
|
|
CALL out_
|
|
POP D
|
|
POP D
|
|
LXI H,129
|
|
PUSH H
|
|
LXI H,153
|
|
PUSH H
|
|
CALL out_
|
|
POP D
|
|
POP D
|
|
RET
|
|
.8 EQU 0
|
|
PUBLIC func250_
|
|
func250_: lxi d,.9
|
|
call csave
|
|
LXI H,0
|
|
PUSH H
|
|
LXI H,153
|
|
PUSH H
|
|
CALL out_
|
|
POP D
|
|
POP D
|
|
LXI H,130
|
|
PUSH H
|
|
LXI H,153
|
|
PUSH H
|
|
CALL out_
|
|
POP D
|
|
POP D
|
|
RET
|
|
.9 EQU 0
|
|
PUBLIC func290_
|
|
func290_: lxi d,.10
|
|
call csave
|
|
LXI H,1
|
|
PUSH H
|
|
LXI H,153
|
|
PUSH H
|
|
CALL out_
|
|
POP D
|
|
POP D
|
|
LXI H,132
|
|
PUSH H
|
|
LXI H,153
|
|
PUSH H
|
|
CALL out_
|
|
POP D
|
|
POP D
|
|
RET
|
|
.10 EQU 0
|
|
PUBLIC func360_
|
|
func360_: lxi d,.11
|
|
call csave
|
|
LXI H,240
|
|
PUSH H
|
|
LXI H,153
|
|
PUSH H
|
|
CALL out_
|
|
POP D
|
|
POP D
|
|
LXI H,135
|
|
PUSH H
|
|
LXI H,153
|
|
PUSH H
|
|
CALL out_
|
|
POP D
|
|
POP D
|
|
RET
|
|
.11 EQU 0
|
|
PUBLIC func400_
|
|
func400_: lxi d,.12
|
|
call csave
|
|
LXI H,0
|
|
PUSH H
|
|
LXI H,153
|
|
PUSH H
|
|
CALL out_
|
|
POP D
|
|
POP D
|
|
LXI H,72
|
|
PUSH H
|
|
LXI H,153
|
|
PUSH H
|
|
CALL out_
|
|
POP D
|
|
POP D
|
|
RET
|
|
.12 EQU 0
|
|
PUBLIC func450_
|
|
func450_: lxi d,.13
|
|
call csave
|
|
LXI H,0
|
|
XCHG
|
|
LXI H,2-.13
|
|
DAD SP
|
|
MOV M,E
|
|
INX H
|
|
MOV M,D
|
|
LXI H,0
|
|
SHLD c_
|
|
JMP .15
|
|
.14:
|
|
LHLD c_
|
|
INX H
|
|
SHLD c_
|
|
.15:
|
|
LHLD c_
|
|
LXI D,256
|
|
XCHG
|
|
CALL .lt
|
|
JZ .16
|
|
LXI H,0
|
|
SHLD d_
|
|
JMP .18
|
|
.17:
|
|
LHLD d_
|
|
INX H
|
|
SHLD d_
|
|
.18:
|
|
LHLD d_
|
|
LXI D,8
|
|
XCHG
|
|
CALL .lt
|
|
JZ .19
|
|
LXI H,2-.13
|
|
DAD SP
|
|
PUSH H
|
|
MOV A,M
|
|
INX H
|
|
MOV H,M
|
|
MOV L,A
|
|
INX H
|
|
XCHG
|
|
POP H
|
|
MOV M,E
|
|
INX H
|
|
MOV M,D
|
|
XCHG
|
|
DCX H
|
|
LXI D,data_
|
|
DAD D
|
|
MOV E,M
|
|
MVI D,0
|
|
PUSH D
|
|
LXI H,152
|
|
PUSH H
|
|
CALL out_
|
|
POP D
|
|
POP D
|
|
JMP .17
|
|
.19:
|
|
JMP .14
|
|
.16:
|
|
RET
|
|
.13 EQU -2
|
|
PUBLIC func540_
|
|
func540_: lxi d,.20
|
|
call csave
|
|
LXI H,0
|
|
SHLD d_
|
|
LXI H,0
|
|
PUSH H
|
|
LXI H,153
|
|
PUSH H
|
|
CALL out_
|
|
POP D
|
|
POP D
|
|
LXI H,64
|
|
PUSH H
|
|
LXI H,153
|
|
PUSH H
|
|
CALL out_
|
|
POP D
|
|
POP D
|
|
RET
|
|
.20 EQU 0
|
|
PUBLIC func580_
|
|
func580_: lxi d,.21
|
|
call csave
|
|
LXI H,0
|
|
SHLD c_
|
|
JMP .23
|
|
.22:
|
|
LHLD c_
|
|
INX H
|
|
SHLD c_
|
|
.23:
|
|
LHLD c_
|
|
LXI D,960
|
|
XCHG
|
|
CALL .lt
|
|
JZ .24
|
|
LHLD d_
|
|
PUSH H
|
|
LXI H,152
|
|
PUSH H
|
|
CALL out_
|
|
POP D
|
|
POP D
|
|
LHLD d_
|
|
INX H
|
|
SHLD d_
|
|
LXI H,128
|
|
XCHG
|
|
LHLD d_
|
|
CALL .eq
|
|
JZ .25
|
|
LXI H,0
|
|
SHLD d_
|
|
.25:
|
|
JMP .22
|
|
.24:
|
|
RET
|
|
.21 EQU 0
|
|
PUBLIC func700_
|
|
func700_: lxi d,.26
|
|
call csave
|
|
LXI H,0
|
|
PUSH H
|
|
LXI H,153
|
|
PUSH H
|
|
CALL out_
|
|
POP D
|
|
POP D
|
|
LXI H,0
|
|
PUSH H
|
|
LXI H,153
|
|
PUSH H
|
|
CALL out_
|
|
POP D
|
|
POP D
|
|
RET
|
|
.26 EQU 0
|
|
PUBLIC func750_
|
|
func750_: lxi d,.27
|
|
call csave
|
|
LXI H,0
|
|
SHLD c_
|
|
JMP .29
|
|
.28:
|
|
LHLD c_
|
|
INX H
|
|
SHLD c_
|
|
.29:
|
|
LHLD c_
|
|
LXI D,17
|
|
XCHG
|
|
CALL .lt
|
|
JZ .30
|
|
LXI H,152
|
|
PUSH H
|
|
CALL in_
|
|
POP D
|
|
SHLD v_
|
|
JMP .28
|
|
.30:
|
|
RET
|
|
.27 EQU 0
|
|
PUBLIC main_
|
|
main_: lxi d,.31
|
|
call csave
|
|
CALL func50_
|
|
CALL func80_
|
|
CALL func140_
|
|
CALL func210_
|
|
CALL func250_
|
|
CALL func290_
|
|
CALL func360_
|
|
CALL func400_
|
|
CALL func450_
|
|
CALL func540_
|
|
CALL func580_
|
|
CALL func700_
|
|
CALL func750_
|
|
RET
|
|
.31 EQU 0
|
|
extrn in_
|
|
extrn out_
|
|
extrn .eq
|
|
extrn .lt
|
|
extrn .ul
|
|
END
|
|
|