FORTH * Copyright PPC Paris 1986 WORD 'ADR-AFF' RANGE EQU #1B07C teste si octet A[B] entre * C[B] et C[3,2] DD1ST EQU #2E104 dÅbut Driver 1 DD2ST EQU #2E200 " " 2 DD3ST EQU #2E300 " " 3 A=DAT1 A A[A] = colonne A=A-1 A 0<=colonne<=131 LC(5) 131 ?A>C A colonne>131 ou <0 ? GOYES Null oui: renvoyer 0 LC(5) #2D00 intervalle = [45,0] GOSBVL RANGE colonne dans l'intervalle? GOC DD2 non: voir Driver 2 A=A+A A 1 colonne = 2 quartets LC(5) DD1ST que l'on ajoute È * l'adresse de la colonne 1 A=A+C A pour obtenir l'adresse de * la colonne en A[A] GONC Adr renvoie le rÅsultat DD2 LC(5) #5D2E intervalle = [93,46] D=C B D[B] = 46 GOSBVL RANGE dans l'intervalle ? GOC DD3 non: voir Driver 3 C=D B A=A-C A adresse relative de la * colonne dans le Driver 2 A=A+A A quartets -> octets LC(5) DD2ST A=A+C A A[A] = adresse absolue de * la colonne GONC Adr que l'on renvoie DD3 LCHEX 5E 5E = 94 A=A-C B A[B] = adresse relative * de la colonne dans le * Driver 3 A=A+A A quartets -> octets LC(5) DD3ST A=A+C A A[A] = adresse absolue de * colonne Adr DAT1=A A on renvoie A[A] RTNCC Retour avec Carry Clear Null A=0 A Argument non valide: on * renvoie 0 GOC Adr END