ouhlalala, ça c'est du vieux code comme on en fait plus lol
C'est avec du code comme ça que j'ai commencé à bosser ... ah ben oui, euh, c'est pas tout nouveau ça !
mais moi, je suis toujours avec ca :
OLLUX1 STM R14,R12,12(R13) SAVE EPM REGS
BALR R12,R0
USING *,R12
LR R8,R1 POINTER TO DATA
USING UEXIT,R8
GENSAVE SAVE=USERSAVE
LA R9,64(R9) GET A STACK
CLC USERMEM(4),=A(0) ANY MEMORY ALLOCATED ?
IF Z
STORAGE OBTAIN,LENGTH=WORKLNG,LOC=(ANY,ANY)
ST R1,USERMEM
L R1,=A(WORKLNG)
ST R1,USERMLNG STORE SO EPM CAN FREE IT
L R7,USERMEM
USING WORK,R7
XC INBUFFER(4),INBUFFER RESET HIM
DOEND
*
L R7,USERMEM
USING WORK,R7
L R2,=V(DOCSTATE)
L R2,0(,R2)
LA R2,0(R11,R2)
CLI 0(R2),0 BETWEEN DOCUMENTS ?
IF E
l'assembleur 370 sur mainframe, le langage du pauvre mais du pressé, mais il est vrai que j'ai connu les cartes perforées.