ORG 0X00
JMP ST
ORG 0X30
ST: MOV A,@0B10000000
IOW 7
BC 7,6
STT: JBC 7,7
JMP STT
BS 7,6
MOV A,@0B11011011 ;@0XDB
MOV 0X1C,A
WEET: NOP
JMP WEET1
ZCDWEE: NOP
JMP WEE
WEEF: NOP
JMP WEEF1
ZCDRAD: NOP
JMP RAD
;×¼Ðí²Áд ;×¼Ðí²Áд ;×¼Ðí²Áд ;×¼Ðí²Áд ;×¼Ðí²Áд
WEET1: MOV A,@0X00
IOW 6
IOW 5
BC 5,7
BC 5,6
BC 6,0
BS 6,1
BS 6,0
NOP
BS 5,6
CALL WWZD
MOV A,@0X08
MOV 0X1E,A
MOV A,@30H
MOV 0X1D,A
BC 3,0
WEETT1: RLC 0X1D
JBS 3,0
JMP WEE30WT0
JMP WEE30WT1
WEE30WT0: BC 5,6
CALL WWZD
NOP
DJZ 0X1E
JMP WEETT1
JMP TWEETND
WEE30WT1: BS 5,6
CALL WWZD
NOP
DJZ 0X1E
JMP WEETT1
JMP TWEETND
TWEETND: BC 5,7
BC 5,6
BC 6,0
JMP ZCDWEE
