Download annexes
Transcript
DB59 XTRVCA cherche une place libre dans le catalogue. A la sortie, POSNMX, POSNMP et POSNMS indiquent la position de la place réservée. DBA5 Cherche le POSNMX de la première place libre dans le directory. DBC0 XWDESC écrit le ou les descripteurs du fichier à sauver. Revient avec le nombre de secteurs à sauver dans NSSAV (C05A/5B), les coordonnées du premier secteur descripteur dans PSDESC (C05C/5D), le nombre de descripteurs utilisés dans NSDESC (C05E) et premier descripteur en place. DC6C XLIBSE cherche un secteur libre dans la bitmap dans BUF2, retourne avec A = n( de piste et Y = n( de secteur (sinon "DISK_FULL_ERROR"). DC7D Ancienne routine “Cherche un secteur libre”, déportée en E67F, pour tenir compte de la double bitmap. DC80 XSMAP sauve la bitmap sur la disquette. DC89 Ecrit BUF2 dans le premier secteur de bitmap sur la disquette. DC8B Ecrit BUF2 dans le second secteur de bitmap sur la disquette (entrée secondaire avec Y = #03 à pré-positionner). DD15 XDETSE libère le secteur Y de la piste A sur la bitmap courante dans BUF2 et incrémente le nombre de secteurs libres. Retourne avec C = 1 si ce secteur était déjà libre. Ne pas oublier de sauver le plus tôt possible cette nouvelle bitmap avec SMAP. DD2D XCREAY crée une table piste secteur de AY secteurs, en fait marque dans la bitmap en BUF2 que le secteur AY est occupé. En sortie, C = 1 si ce secteur était déjà occupé sinon avec C = 0. DE28 XDEFSA positionne les valeurs par défaut pour XSAVEB (en fait, positionne pour sauver le programme BASIC). DE9C XSAVEB sauve le fichier de nom contenu dans BUFNOM, selon VSALO0, VSALO1, DESALO, FISALO, EXSALO. DFDE XVERTXT vérifie que l’on est bien en mode TEXT, sinon génère une "DISP_TYPE_MISMATCH_ ERROR", ré-initialise la pile et retourne au "Ready". DFE6 XDEFLO positionne les valeurs par défaut pour XLOADA. E0E5 XLOADA charge le fichier dont le nom est dans BUFNOM, selon VSALO0, VSALO1, DESALO. E0EA Charge un fichier selon X = POSNMX, POSNMP et POSNMS, VSALO0, VSALO1, DESALO. 594