/EXAM *0000 /PROGRAM TO PRINT THE CONTENTS OF CORE: START, CLA CLL / ADRESS/CONTENTS TAD PLACE /GET THE LOCATION DCA NUM  / STORE IT FOR PRINTING JMS PRINT /PRINT IT TAD MSLASH TLS  /PRINT A SLASH. TAD I PLACE /GET THE CONTENTS OF THE LOCATION DCA NUM  /STORE IT FOR PRINTING JMS PRINT /PRINT IT TAD MCR TLS  / PRINT RETURN CLA CLL TAD MLF  / AND TLS  / LINE FEED ISZ PLACE /DONE YET? JMP START /NO: PRINT NEXT ONE TAD MSLASH /YES: TLS  /PRINT A SLASH AND HLT  / THEN STOP! PRINT, 0000 /PRINTING SUBROUTINE: TAD NUM  /GET THE NUMBER RTL  /GET THE NEXT DIGIT RTL  /IN LINE FOR PRINTING DCA NUM  /AND SAVE IT THIS WAY CLA CLL TAD NUM  /GET THE NUMBER TO PRINT AND M7  /TAKE THE FIRST DIGIT TAD M260 /CONVERT IT TO USASCII CODE TLS  /PRINT IT CLA CLL ISZ DCOUNT /INC. DIGIT COUNTER JMP PRINT+1 /IF MORE DIGITS TO PRINT ,DO SO TAD M4  /IF NOT,PREPARE TO LEAVE "PRINT" DCA DCOUNT /BY RESETING THE COUNTER JMP I PRINT / RETURN TO MAIN PROGRAM. PLACE, 0000  / STORAGE FOR CONSTANTS & COUNTERS. NUM, 0000 DCOUNT, -4 MSLASH, 257 MCR, 215 MLF, 212 M7, 7 M260, 260 M4, -4 /T.M.C. $