698 lines
10 KiB
NASM
698 lines
10 KiB
NASM
B>type pat2.asm
|
|
|
|
; MOMMY OTTO
|
|
; LEFT HALF
|
|
MAL:: .BYTE 2,40
|
|
P2 0000000000001111
|
|
P2 0000000000111111
|
|
P2 0000000011111111
|
|
P2 0000000111111111
|
|
P2 0000001111111111
|
|
P2 0000011111111111
|
|
P2 0000111111111111
|
|
P2 0001111111111111
|
|
P2 0001111111111111
|
|
P2 0011111111111111
|
|
P2 0011111111111111
|
|
P2 0111111111111111
|
|
P2 0111111111111111
|
|
P2 0111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 0111111111111111
|
|
P2 0111111111111111
|
|
P2 0111111111111111
|
|
P2 0011111111111111
|
|
P2 0011111111111111
|
|
P2 0001111111111111
|
|
P2 0001111111111111
|
|
P2 0000111111111111
|
|
P2 0000011111111111
|
|
P2 0000001111111111
|
|
P2 0000000111111111
|
|
P2 0000000011111111
|
|
P2 0000000000111111
|
|
P2 0000000000001111
|
|
;right half of mama otto
|
|
MAR:: .BYTE 2,40
|
|
P2 1111000000000000
|
|
P2 1111110000000000
|
|
P2 1111111100000000
|
|
P2 1111111110000000
|
|
P2 1111111111000000
|
|
P2 1111111111100000
|
|
P2 1111111111110000
|
|
P2 1111111111111000
|
|
P2 1111111111111000
|
|
P2 1111111111111100
|
|
P2 1111111111111100
|
|
P2 1111111111111110
|
|
P2 1111111111111110
|
|
P2 1111111111111110
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111110
|
|
P2 1111111111111110
|
|
P2 1111111111111110
|
|
P2 1111111111111100
|
|
P2 1111111111111100
|
|
P2 1111111111111000
|
|
P2 1111111111111000
|
|
P2 1111111111110000
|
|
P2 1111111111100000
|
|
P2 1111111111000000
|
|
P2 1111111110000000
|
|
P2 1111111100000000
|
|
P2 1111110000000000
|
|
P2 1111000000000000
|
|
|
|
; LEFT EYEBROW-EYE Drop 5 right 5
|
|
MAEL:: .byte 1,12
|
|
P1 00100000
|
|
P1 00110000
|
|
P1 00011000
|
|
P1 00001100
|
|
P1 00000110
|
|
P1 00000011
|
|
P1 01110000
|
|
P1 11111000
|
|
P1 11001000
|
|
P1 11001000
|
|
P1 11111000
|
|
P1 01110000
|
|
; right EYEBROW-EYE
|
|
MAER:: .byte 1,12
|
|
P1 00000100
|
|
P1 00001100
|
|
P1 00011000
|
|
P1 00110000
|
|
P1 01100000
|
|
P1 11000000
|
|
P1 00001110
|
|
P1 00011111
|
|
P1 00010011
|
|
P1 00010011
|
|
P1 00011111
|
|
P1 00001110
|
|
|
|
; left frown 0,+26
|
|
MAFL:: .byte 2,7
|
|
P2 0000000000000011
|
|
P2 0000000000011111
|
|
P2 0000000000111100
|
|
P2 0000000001100000
|
|
P2 0000000011000000
|
|
P2 0000000110000000
|
|
P2 0000000100000000
|
|
|
|
; right frown +16,+8
|
|
MAFR:: .byte 2,7
|
|
P2 1100000000000000
|
|
P2 1111100000000000
|
|
P2 0011110000000000
|
|
P2 0000011000000000
|
|
P2 0000001100000000
|
|
P2 0000000110000000
|
|
P2 0000000010000000
|
|
; ma smile
|
|
MASML:: .byte 2,7
|
|
P2 0000000100000000
|
|
P2 0000000110000000
|
|
P2 0000000011000000
|
|
P2 0000000001100000
|
|
P2 0000000000111100
|
|
P2 0000000000011111
|
|
P2 0000000000000011
|
|
MASMR:: .byte 2,7
|
|
P2 0000000010000000
|
|
P2 0000000110000000
|
|
P2 0000001100000000
|
|
P2 0000011000000000
|
|
P2 0011110000000000
|
|
P2 1111100000000000
|
|
P2 1100000000000000
|
|
|
|
; mouth down 26 right 8
|
|
MAM:: .byte 2,2
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
; CLOSED EYE Left down 7
|
|
MASL:: .byte 2,8
|
|
P2 0000000000110000
|
|
P2 0000000001111000
|
|
P2 0000000011001100
|
|
P2 0000000110000110
|
|
P2 0000000000000000
|
|
P2 0000000000000000
|
|
P2 0000000000000000
|
|
P2 0000001111110000
|
|
; CLOSED Right EYE 16,7
|
|
MASR:: .byte 2,8
|
|
P2 0000110000000000
|
|
P2 0001111000000000
|
|
P2 0011001100000000
|
|
P2 0110000110000000
|
|
P2 0000000000000000
|
|
P2 0000000000000000
|
|
P2 0000000000000000
|
|
P2 0000111111000000
|
|
;~~~~~~~~~~~~~~~
|
|
; machine shop
|
|
;_______________
|
|
; part A loader +3,+3
|
|
PTA:: .byte 1,11
|
|
P1 11111000
|
|
P1 11111000
|
|
P1 10011000
|
|
P1 01101000
|
|
P1 01101000
|
|
P1 00001000
|
|
P1 01101000
|
|
P1 01101000
|
|
P1 01101000
|
|
P1 11111000
|
|
P1 11111000
|
|
; conveyor patterns +11,+8
|
|
;animate (a,h) idle
|
|
;animate a,b,c,d,e,f,g,(h,a) STOP
|
|
C.A: .byte 2,6 ;empty
|
|
P2 0000000000000000
|
|
P2 1111111100000000
|
|
P2 0000001010000000
|
|
P2 0000011110000000
|
|
P2 0000001010000000
|
|
P2 1111111100000000
|
|
C.B: .byte 2,6 ;block start
|
|
P2 0110000000000000
|
|
P2 1111111100000000
|
|
P2 0000010110000000
|
|
P2 0000001010000000
|
|
P2 0000010110000000
|
|
P2 1111111100000000
|
|
C.C: .byte 2,6
|
|
P2 0000011000000000
|
|
P2 1111111100000000
|
|
P2 0000001010000000
|
|
P2 0000011110000000
|
|
P2 0000001010000000
|
|
P2 1111111100000000
|
|
C.D: .byte 2,6
|
|
P2 0000000000000000
|
|
P2 1111111101100000
|
|
P2 0000010110110000
|
|
P2 0000001010000000
|
|
P2 0000010110000000
|
|
P2 1111111100000000
|
|
C.E: .byte 2,6
|
|
P2 0000000000000000
|
|
P2 1111111100000000
|
|
P2 0000001010110000
|
|
P2 0000011110011000
|
|
P2 0000001010000000
|
|
P2 1111111100000000
|
|
C.F: .byte 2,6
|
|
P2 0000000000000000
|
|
P2 1111111100000000
|
|
P2 0000010110000000
|
|
P2 0000001010000000
|
|
P2 0000010110011000
|
|
P2 1111111100001100
|
|
C.G: .byte 2,8
|
|
P2 0000000000000000
|
|
P2 1111111100000000
|
|
P2 0000001010000000
|
|
P2 0000011110000000
|
|
P2 0000001010000000
|
|
P2 1111111100000000
|
|
P2 0000000000001100
|
|
P2 0000000000000110
|
|
C.H: .byte 2,6
|
|
P2 0000000000000000
|
|
P2 1111111100000000
|
|
P2 0000010110000000
|
|
P2 0000001010000000
|
|
P2 0000010110000000
|
|
P2 1111111100000000
|
|
; part B tank +5,+18
|
|
PTB:: .byte 1,23
|
|
P1 00110000
|
|
P1 01111000
|
|
P1 11111100
|
|
P1 11111100
|
|
P1 11111100
|
|
P1 10001100
|
|
P1 10110100
|
|
P1 10110100
|
|
P1 10001100
|
|
P1 10110100
|
|
P1 10110100
|
|
P1 10001100
|
|
P1 11111100
|
|
P1 11111100
|
|
P1 01111000
|
|
P1 00110000
|
|
P1 00110000
|
|
P1 01111000
|
|
P1 00110000
|
|
P1 00110100
|
|
P1 00111111
|
|
P1 00011111
|
|
P1 00000100
|
|
; Central machine +12,+16
|
|
PTC:: .byte 2,29
|
|
P2 0011111111111100
|
|
P2 0001111111111000
|
|
P2 0000111111110000
|
|
P2 0000011111100000
|
|
P2 1111111111111111
|
|
P2 1000000000000001
|
|
P2 1001001100101001
|
|
P2 1010101010111001
|
|
P2 1011101100111001
|
|
P2 1010101010101001
|
|
P2 1010101010101001
|
|
P2 1000000000000001
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
P2 1111111111111111
|
|
; Crank
|
|
H.A: .byte 1,9
|
|
P1 00000000
|
|
P1 00000000
|
|
P1 00000000
|
|
P1 00000000
|
|
P1 11000000
|
|
P1 01000000
|
|
P1 01000000
|
|
P1 01000000
|
|
P1 01111000
|
|
H.B: .byte 1,8
|
|
P1 00000000
|
|
P1 00000000
|
|
P1 00000000
|
|
P1 00000000
|
|
P1 11000000
|
|
P1 01000000
|
|
P1 01000000
|
|
P1 01111000
|
|
H.C: .byte 1,5
|
|
P1 00000000
|
|
P1 00000000
|
|
P1 00000000
|
|
P1 00000000
|
|
P1 11111000
|
|
H.D: .byte 1,5
|
|
P1 00000000
|
|
P1 01111000
|
|
P1 01000000
|
|
P1 01000000
|
|
P1 11000000
|
|
H.E: .byte 1,5
|
|
P1 01111000
|
|
P1 01000000
|
|
P1 01000000
|
|
P1 01000000
|
|
P1 11000000
|
|
; whirlies
|
|
W.A: .byte 1,5
|
|
P1 00000100
|
|
P1 00000100
|
|
P1 11111100
|
|
P1 00000100
|
|
P1 00000100
|
|
W.B: .byte 1,5
|
|
P1 00000010
|
|
P1 00001100
|
|
P1 01110100
|
|
P1 10000100
|
|
P1 00001000
|
|
W.C: .byte 1,5
|
|
P1 00000010
|
|
P1 00011010
|
|
P1 00100100
|
|
P1 11001000
|
|
P1 00001000
|
|
W.D: .byte 1,5
|
|
P1 00001001
|
|
P1 00010010
|
|
P1 00100100
|
|
P1 01001000
|
|
P1 10010000
|
|
W.E: .byte 1,5
|
|
P1 00010000
|
|
P1 00010011
|
|
P1 00100100
|
|
P1 01011000
|
|
P1 01000000
|
|
W.F: .byte 1,5
|
|
P1 00010000
|
|
P1 00100001
|
|
P1 00101110
|
|
P1 00110000
|
|
P1 01000000
|
|
W.G: .byte 1,5
|
|
P1 00100000
|
|
P1 00100000
|
|
P1 00111111
|
|
P1 00100000
|
|
P1 00100000
|
|
W.H: .byte 1,5
|
|
P1 01000000
|
|
P1 00110000
|
|
P1 00101110
|
|
P1 00100001
|
|
P1 00010000
|
|
W.I: .byte 1,5
|
|
P1 01000000
|
|
P1 01011000
|
|
P1 00100100
|
|
P1 00010011
|
|
P1 00010000
|
|
W.J: .byte 1,5
|
|
P1 10010000
|
|
P1 01001000
|
|
P1 00100100
|
|
P1 00010010
|
|
P1 00001001
|
|
W.K: .byte 1,5
|
|
P1 00001000
|
|
P1 11001000
|
|
P1 00100100
|
|
P1 00011010
|
|
P1 00000010
|
|
W.L: .byte 1,5
|
|
P1 00001000
|
|
P1 10000100
|
|
P1 01110100
|
|
P1 00001100
|
|
P1 00000010
|
|
; LAY A ROBOT PATTERN
|
|
RL0: .byte 1,1
|
|
P1 01011010
|
|
RL1: .byte 1,2
|
|
P1 11111111
|
|
P1 01011010
|
|
RL2: .byte 1,3
|
|
P1 01111110
|
|
P1 11111111
|
|
P1 01011010
|
|
RL3: .byte 1,4
|
|
P1 11011011
|
|
P1 01111110
|
|
P1 11111111
|
|
P1 01011010
|
|
RL4: .bYte 1,5
|
|
P1 00111100
|
|
P1 11011011
|
|
P1 01111110
|
|
P1 11111111
|
|
P1 01011010
|
|
RL5: .byte 1,6
|
|
P1 01111110
|
|
P1 00111100
|
|
P1 11011011
|
|
P1 01111110
|
|
P1 11111111
|
|
P1 01011010
|
|
RL6: .byte 1,7
|
|
P1 11111111
|
|
P1 01111110
|
|
P1 00111100
|
|
P1 11011011
|
|
P1 01111110
|
|
P1 11111111
|
|
P1 01011010
|
|
RL7: .byte 1,8
|
|
P1 11101111
|
|
P1 11111111
|
|
P1 01111110
|
|
P1 00111100
|
|
P1 11011011
|
|
P1 01111110
|
|
P1 11111111
|
|
P1 01011010
|
|
RL8: .byte 1,9
|
|
P1 11111111
|
|
P1 11101111
|
|
P1 11111111
|
|
P1 01111110
|
|
P1 00111100
|
|
P1 11011011
|
|
P1 01111110
|
|
P1 11111111
|
|
P1 01011010
|
|
RL9: .byte 1,10
|
|
P1 01111110
|
|
P1 11111111
|
|
P1 11101111
|
|
P1 11111111
|
|
P1 01111110
|
|
P1 00111100
|
|
P1 11011011
|
|
P1 01111110
|
|
P1 11111111
|
|
P1 01011010
|
|
;
|
|
; skeletons
|
|
;
|
|
S.4B:
|
|
S.0A: .byte 1,16
|
|
P1 00111000
|
|
P1 01010100
|
|
P1 01111100
|
|
P1 00101000
|
|
P1 00111000
|
|
P1 00010000
|
|
P1 01111100
|
|
P1 10010010
|
|
P1 10111010
|
|
P1 10010010
|
|
P1 00111000
|
|
P1 00010000
|
|
P1 00111000
|
|
P1 00101000
|
|
P1 00101000
|
|
P1 01101100
|
|
S.4A: .byte 1,16
|
|
P1 00111000
|
|
P1 01010100
|
|
P1 01111100
|
|
P1 00101000
|
|
P1 00111000
|
|
P1 00010000
|
|
P1 01111100
|
|
P1 10010010
|
|
P1 10111010
|
|
P1 10010000
|
|
P1 00111000
|
|
P1 00010000
|
|
P1 00111000
|
|
P1 00101000
|
|
P1 01101000
|
|
P1 00001100
|
|
S.4C: .byte 1,16
|
|
P1 00111000
|
|
P1 01010100
|
|
P1 01111100
|
|
P1 00101000
|
|
P1 00111000
|
|
P1 00010000
|
|
P1 01111100
|
|
P1 10010010
|
|
P1 10111010
|
|
P1 00010010
|
|
P1 00111000
|
|
P1 00010000
|
|
P1 00111000
|
|
P1 00101000
|
|
P1 00101100
|
|
P1 01100000
|
|
S.8A: .byte 1,16
|
|
P1 00111000
|
|
P1 01111100
|
|
P1 01111100
|
|
P1 00111000
|
|
P1 00111000
|
|
P1 00010000
|
|
P1 01111100
|
|
P1 10010010
|
|
P1 10111010
|
|
P1 10010010
|
|
P1 00111000
|
|
P1 00010000
|
|
P1 00111000
|
|
P1 00101000
|
|
P1 00101000
|
|
P1 01101100
|
|
S.8B: .byte 1,16
|
|
P1 00111000
|
|
P1 01111100
|
|
P1 01111100
|
|
P1 00111000
|
|
P1 00111000
|
|
P1 00010000
|
|
P1 01111100
|
|
P1 10010010
|
|
P1 10111010
|
|
P1 00010010
|
|
P1 00111000
|
|
P1 00010000
|
|
P1 00111000
|
|
P1 00101000
|
|
P1 00101100
|
|
P1 01100000
|
|
S.8C: .byte 1,16
|
|
P1 00111000
|
|
P1 01111100
|
|
P1 01111100
|
|
P1 00111000
|
|
P1 00111000
|
|
P1 00010000
|
|
P1 01111100
|
|
P1 10010010
|
|
P1 10111010
|
|
P1 10010000
|
|
P1 00111000
|
|
P1 00010000
|
|
P1 00111000
|
|
P1 00101000
|
|
P1 01101000
|
|
P1 00001100
|
|
S.2Aº .bytå 1,16
|
|
P1 00111000
|
|
P1 01110100
|
|
P1 01111100
|
|
P1 00110000
|
|
P1 00111000
|
|
P1 00010000
|
|
P1 01111100
|
|
P1 10010010
|
|
P1 10111010
|
|
P1 10010010
|
|
P1 00111000
|
|
P1 00010000
|
|
P1 00111000
|
|
P1 00101000
|
|
P1 00101000
|
|
P1 00111100
|
|
S.2B: .byte 1,16
|
|
P1 00111000
|
|
P1 01110100
|
|
P1 01111100
|
|
P1 00110000
|
|
P1 00111000
|
|
P1 00010000
|
|
P1 01111100
|
|
P1 10010010
|
|
P1 10111010
|
|
P1 10010010
|
|
P1 00111000
|
|
P1 00010000
|
|
P1 01111100
|
|
P1 01000100
|
|
P1 01000100
|
|
P1 01100110
|
|
S.2C: .byte 1,16
|
|
P1 00111000
|
|
P1 01110100
|
|
P1 01111100
|
|
P1 00110000
|
|
P1 00111000
|
|
P1 00010000
|
|
P1 01111100
|
|
P1 10010010
|
|
P1 10111010
|
|
P1 10010010
|
|
P1 00111000
|
|
P1 00010000
|
|
P1 00010000
|
|
P1 00010000
|
|
P1 00010000
|
|
P1 00011000
|
|
S.6Aº .bytå 1,16
|
|
P1 00111000
|
|
P1 01011100
|
|
P1 01111100
|
|
P1 00011000
|
|
P1 00111000
|
|
P1 00010000
|
|
P1 01111100
|
|
P1 10010010
|
|
P1 10111010
|
|
P1 10010010
|
|
P1 00111000
|
|
P1 00010000
|
|
P1 00111000
|
|
P1 00101000
|
|
P1 00101000
|
|
P1 01111000
|
|
S.6B: .byte 1,16
|
|
P1 00111000
|
|
P1 01011100
|
|
P1 01111100
|
|
P1 00011000
|
|
P1 00111000
|
|
P1 00010000
|
|
P1 01111100
|
|
P1 10010010
|
|
P1 10111010
|
|
P1 10010010
|
|
P1 00111000
|
|
P1 00010000
|
|
P1 01111100
|
|
P1 01000100
|
|
P1 01000100
|
|
P1 11001100
|
|
S.6C: .byte 1,16
|
|
P1 00111000
|
|
P1 01011100
|
|
P1 01111100
|
|
P1 00011000
|
|
P1 00111000
|
|
P1 00010000
|
|
P1 01111100
|
|
P1 10010010
|
|
P1 10111010
|
|
P1 10010010
|
|
P1 00111000
|
|
P1 00010000
|
|
P1 00010000
|
|
P1 00010000
|
|
P1 00010000
|
|
P1 00110000
|
|
|