Routines
Prev: 72B5 Up: Map Next: 733B
72C0: Draw With Fixed Shift
Used by the routine at PictureRecord.
Used for picture record FE. The shift immediate is forced to 0C.
DrawFixedShift 72C0 LD A,$0C
72C2 LD ($726C),A
72C5 LD ($7287),A
72C8 LD A,$20
72CA LD BC,$0000
72CD CALL PatchShift_0
72D0 INC IX
72D2 JP PictureRecord
This entry point is used by the routine at SetOrigin.
DrawFixedShift_0 72D5 LD BC,($7337)
72D9 CALL ResetOrigin_0
72DC PUSH HL
72DD LD BC,($7339)
72E1 CALL ResetOrigin_0
72E4 POP DE
72E5 LD BC,$0000
72E8 EX DE,HL
72E9 LDIR
72EB LD A,($7338)
72EE INC A
72EF LD ($7338),A
72F2 LD A,($733A)
72F5 DEC A
72F6 LD ($733A),A
72F9 CP $00
72FB JR NZ,DrawFixedShift_0
72FD RET
This entry point is used by the routine at SetOrigin.
DrawFixedShift_1 72FE LD BC,($7337)
7302 CALL PixelRow
7305 PUSH HL
7306 LD BC,($7339)
730A CALL PixelRow
730D POP DE
730E LD A,H
730F ADD A,$07
7311 LD H,A
7312 LD B,$08
7314 EX DE,HL
DrawFixedShift_2 7315 PUSH BC
7316 PUSH DE
7317 PUSH HL
7318 LD BC,$0000
731B LDIR
731D POP HL
731E POP DE
731F POP BC
7320 INC H
7321 DEC D
7322 DJNZ DrawFixedShift_2
7324 LD A,($7338)
7327 INC A
7328 LD ($7338),A
732B LD A,($733A)
732E DEC A
732F LD ($733A),A
7332 CP $00
7334 JR NZ,DrawFixedShift_1
7336 RET
7337 NOP
7338 NOP
7339 NOP
733A NOP
Prev: 72B5 Up: Map Next: 733B