Calendar - for "REAL" programmers: Difference between revisions
Content added Content deleted
PatGarrett (talk | contribs) (→{{header|360 Assembly}}: Section added) |
PatGarrett (talk | contribs) m (→{{header|360 Assembly}}: Superfluous blanks suppressed) |
||
Line 38: | Line 38: | ||
This is for real programmers who code only in assembler :). The code could have been run in april 1964, punched on |
This is for real programmers who code only in assembler :). The code could have been run in april 1964, punched on |
||
80-column cards, read on a card reader, and printed with a 132-column line printer on fan-folded paper with perforated edges. |
80-column cards, read on a card reader, and printed with a 132-column line printer on fan-folded paper with perforated edges. |
||
⚫ | |||
<!-- IBM 029, IBM 2501, IBM 1403 --> |
|||
<lang 360asm> |
|||
⚫ | |||
CALENDAR CSECT |
CALENDAR CSECT |
||
USING CALENDAR,R13 BASE REGISTER |
USING CALENDAR,R13 BASE REGISTER |
||
Line 220: | Line 218: | ||
DA DS 12CL144 |
DA DS 12CL144 |
||
YREGS |
YREGS |
||
END CALENDAR |
END CALENDAR</lang> |
||
</lang> |
|||
{{out}} |
{{out}} |
||
⚫ | |||
<pre> |
|||
⚫ | |||
1969 |
1969 |
||
JANUARY FEBRUARY MARCH APRIL MAY JUNE |
JANUARY FEBRUARY MARCH APRIL MAY JUNE |
||
Line 243: | Line 239: | ||
</pre> |
</pre> |
||
=={{header|Ada}}== |
=={{header|Ada}}== |