Routines
Prev: 61258 Up: Map Next: 61507
61397: Routine at EFD5
Used by the routine at 61258.
61397 LD HL,1 Write 0001 to *61509.
61400 LD (61509),HL
61403 LD HL,(61515) Write *61515 to *61513.
61406 LD (61513),HL
61409 LD DE,(61517) DE=*61517.
61413 LD BC,(61515) BC=*61515.
61417 DEC BC Decrease BC by one.
61418 PUSH BC Stash BC and DE on the stack.
61419 PUSH DE
61420 CALL 61519 Call 61519.
61423 POP DE Restore DE and BC from the stack.
61424 POP BC
61425 LD HL,(61509) HL=*61509.
61428 INC HL Increment HL by one.
61429 LD (61509),HL Write HL to *61509.
61432 LD HL,(61513) HL=*61513.
61435 DEC HL Decrease HL by one.
61436 LD (61513),HL Write HL to *61513.
61439 DEC BC Decrease BC by one.
61440 LD A,B Jump to 61452 if BC is zero.
61441 OR C
61442 JP Z,61452
61445 DEC DE Decrease DE by one.
61446 LD A,D Jump to 61418 if DE is not zero.
61447 OR E
61448 JP NZ,61418
61451 RET Return.
61452 DEC DE Decrease DE by one.
61453 LD A,D Return if DE is zero.
61454 OR E
61455 RET Z
61456 LD BC,(61515) BC=*61515.
61460 DEC BC Decrease BC by one.
61461 PUSH BC Stash BC and DE on the stack.
61462 PUSH DE
61463 CALL 61519 Call 61519.
61466 POP DE Restore DE and BC from the stack.
61467 POP BC
61468 LD HL,(61509) HL=*61509.
61471 DEC HL Decrease HL by one.
61472 LD (61509),HL Write HL to *61509.
61475 LD HL,(61513) HL=*61513.
61478 INC HL Increment HL by one.
61479 LD (61513),HL Write HL to *61513.
61482 DEC BC Decrease BC by one.
61483 LD A,B Jump to 61495 if BC is zero.
61484 OR C
61485 JP Z,61495
61488 DEC DE Decrease DE by one.
61489 LD A,D Jump to 61461 if DE is not zero.
61490 OR E
61491 JP NZ,61461
61494 RET Return.
61495 DEC DE Decrease DE by one.
61496 LD A,D Return if DE is zero.
61497 OR E
61498 RET Z
61499 LD BC,(61515) BC=*61515.
61503 DEC BC Decrease BC by one.
61504 JP 61418 Jump to 61418.
Prev: 61258 Up: Map Next: 61507