~<. 2200 CORE DUMP ADR EQU 1 STATUS EQU 2 DATA EQU 3 WRITE EQU 4 COM1 EQU 5 COM2 EQU 6 COM3 EQU 7 COM4 EQU 8 BEEP EQU 13 CLICK EQU 14 DECK1 EQU 15 DECK2 EQU 16 RBK EQU 17 WBK EQU 18 BSP EQU 20 SF EQU 21 SB EQU 22 REWND< EQU 23 TSTP EQU 24 TSTOP EQU 24 . . CORE DUMP TO WRITE TAPES FROM SPECIFIED . LOCATIONS IN MEMORY IN A FORMAT THAT CAN . BE READ IN TO THE OPERATING SYSTEM BY . THE 'IN' COMMAND . BLKTFR EQU 017745 BOOT$ EQU 064 BUFFER EQU 0 CONOCT E<!QU 016555 CPFN$ EQU 014033 DSPLY$ EQU 017151 INCHL EQU 017353 KEYIN$ EQU 017000 SNFW$ EQU 014011 TFNW$ EQU 014044 TRW$ EQU 014036 WAIT$ EQU 015416 . SET 016200 BEGIN HL CBTMSG PREP THE TAPE ON DECK 2 CALL DSPLY$ EX BEEP <6 HALT DE D2PKT CALL TRW$ DE D2PKT LA 0 CALL CPFN$ DE D2PKT CALL TFNW$ DE D2PKT LA 1 CALL CPFN$ DE D2PKT CALL TFNW$ . CORDMP HL ENTMSG GET ENTRY POINT OF PROGRAM LD 0 LE 0 CALL DSPLY$ LL LOCN LC  LOCN OF DUMP HL ESAVE LEM LL ASKMSG CALL DSPLY$ LL LOCN LC 14 CALL KEYIN$ LL LOCN LAM CP 'E' JTZ END CALL CONOCT CONVERT OCTAL TO BINARY CP ',' STARTING D? COMPARE STARTING+240 TO STOPPING+1 JTZ COMPRE JTS ST244 JMP STSUM . . **KEYIN<~$/DSPLY$ HERE** . SET 017375 COMPRE LAL CPE JTZ SETEF JTC ST244 STSUM LAE SUC AD 4 HL CORPKT+3 LMA BUFLEN=STOPPING+1-STARTING+4 LOCN LL ENDFL LAST RECORD FOR THIS DUMP LA 1 LMA JMP WRTBUF SETEF HL ENDFL LA 1 <~ LMA ST244 HL CORPKT+3 BUFLEN=244 LA 244 LMA WRTBUF DE CORPKT CALL SNFW$ HL START+1 ADD 240 TO STARTING LOCN LAM LSB LEA SET D&E TO STARTING LOCN AD 240 LMA LL START LAM MSB LDA AC 0 LMA LAE SET D&E TO STA8 LMA LL CORPKT+3 LA 4 LMA DE CORPKT CALL SNFW$ LA 127 WRITE FILE #127 MARKER DE D2PKT CALL CPFN$ DE D2PKT CALL TFNW$ DE D2PKT CALL TRW$ REWIND< DECK 2 HL RESTRT JUMP TO DUMP OR OS$ CALL DSPLY$ HL LOCN LC 5 CALL KEYIN$ LL LOCN LAM CP 'D' JTZ BEGIN LA 0360 EX ADR EX DECK1 CALL WAIT$ EX REWND CALL WAIT$ EX RBK CALL WAIT$ JMP BOOT$ . . TABL LOCATION? ' DC< 003 CBTMSG DC 011,0,013,11,022,'FRONT TAPE SCRATCH?',015 END BEGIN OF DUMP STOP DC 0,0 STOPPING LOCATION OF DUMP ENTRY DC 0,0 SAVLOC RP 6 DC 0 ENDFL DC 0 ESAVE DC 0 . ASKMSG DC 021,'ENTER LOCATION? ' DC~<&6.Fii&F&F&F$&F&F$6h.&Fi6F6Fm< H<p666&6.6.6Fi6F6 LOCATION?  FRONT TAPE SCRATCH? e<i~~~~