/PAL-D PROGRAM TO TYPE OUT "0123456789" /STARTING ADDRESS IS 0400 *0400   /SET STARTING ADDRESS AT 0400 START, CLA  /CLEAR THE ACCUMULATOR JMS CRLF /GO TO A SUBROUTINE TO TYPE A CARRAIGE   /RETURN AND A LINE FEED TAD (-12) /LITERAL EQUAL TO -10 IN DECIMAL DCA COUNT /INITIALIZE A COUNTER SO WE KOW WHEN   /WE'RE DONE TAD (260) /ASCII VALUE FOR THE CHARACTER "0" DCA DIGIT /INITIALIZE THE CHARACTER REGISTER   /TO CONTAIN THE ASCII FOR THE FIRST DIGIT /LOOP TO PUT OUT THE CHARACTERS AND THEN HALT LOOP, TAD DIGIT /GET THE CHARACTER TO BE OUTPUT JMS OUTPUT /GO TO AN OUTPUT SUBROUTINE ISZ DIGIT /INCREMENT THE CHARACTER REGISTER   /SO THAT IT CONTAINS THE NEXT ASCII CODE ISZ COUNT /INCREMENT THE COUNTER AND SEE IF   /IT IS NOW ZERO JMP LOOP /NOT YET ZERO, SO CONTINUE LOOPING JMS CRLF /OUTPUT IS COMPLETE. TERMINATE THE   /LINE WITH A RETURN AND LINE FEED HLT  /PROGRAM IS DONE, SO HALT /REGISTERS TO HOLD THE COUNTER AND THE ASCII CODE COUNT, 0 DIGIT, 0 /SUBROUTINE TO TYPE OUT A CARRAIGE RETURN (ASCII CODE /215) AND A LINE FEED (212) CRLF, 0  /RETURN ADDRESS IS STORED HERE TAD (215) JMS OUTPUT /CALL THE OUTPUT SUBROUTINE TAD (212) JMS OUTPUT /CALL IT AGAIN JMP I CRLF /RETURN TO THE CALLING PROGRAM /SUBROUTINE TO ACTUALLY OUTPUT AN ASCII CHARACTER OUTPUT, 0  /RETURN ADDRESS IS STORED HERE TLS  /START CHARACTER OUTPUT TSF  /SKIP WHEN OUTPUT IS COMPLETE JMP .-1 /NO SKIP, SO GO BACK TO PREVIOUS INSTRUCTION CLA JMP I OUTPUT /OUTPUT COMPLETE, SO RETURN $  /SYMBOL TO MARK END OF PROGRAM